logo资料库

汽车租赁系统数据库课程设计报告.doc

发布时间：2022-06-08 发布人：admin 分类：说明书 资料大小：1.29M 资料格式：doc 举报 版权申诉
第1页 / 共45页
第2页 / 共45页
第3页 / 共45页
第4页 / 共45页
第5页 / 共45页
第6页 / 共45页
第7页 / 共45页
第8页 / 共45页
资料共45页，剩余部分请下载后查看
    1 前言
    1.1研究背景
    1.2研究意义
    1.3国际汽车租赁业务的发展及主要企业的经营模式
    1.3.1 国际汽车租赁业的发展背景
    1.3.2国际汽车租赁业的经营规模
    1.3.3 经营、运作模式
    1.4国内汽车租赁
    1.4.1发展背景和过程
    1.4.2国内汽车租赁业发展特点
    2 理论综述
    2.2 开发工具的选择
    2.2.1 Visual Basic6.0简介
    2.1.2 sql server2000简介
    3 系统分析
    3.1系统需求分析
    3.1.1系统目标
    3.1.2用户需求
    3.1.3性能需求
    3.1.4其他需求 
    3.2可行性分析
    3.3系统功能分析 
    4系统总体设计
    4.1系统数据流图
    4.2 E-R图
    5 系统详细设计
    5.1 各功能模块流程图
    5.1.1 登陆程序流程图
    5.1.2 用户添加程序流程图
    5.1.3 租赁管理流程图
    5.2 数据库设计
    5.2.1 数据库的概念及特点
    5.2.2 数据库表设计
    6 系统实现及测试
    6.1 主要功能模块设计与实现
    6.1.1 登陆模块的界面
    6.1.2 汽车查询界面
    6.1.3汽车租赁界面
    6.1.4汽车归还界面
    6.1.5客户资料界面
    Adodc1.RecordSource = sql
    Adodc1.Refresh
    If Adodc1.Recordset.EOF Then
    MsgBox "没有符合查询条件的记录！", , "昌华汽车租赁管理系统"
    End If
    Set DataGrid1.DataSource = Adodc1
    End Sub
    Private Sub Image2_Click()
    Unload Me
    End Sub
    源程序代码：rivate Sub Imgadd_Click() '增加
    Unlockctl
    Dim temp1
    temp1 = CStr(Year(Now))
    Adodc1.RecordSource = "select * from 驾驶员档案 order
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
    Adodc1.Recordset.MoveLast
    Text1.Text = Year(Now) & Format(Val(Right(Ado
    Else
    Text1.Text = Year(Now) & "0001"
    End If
    '清空文本框内容
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text9.Text = ""
    Text2.SetFocus
    '设置控件状态
    Imgok.Enabled = True
    Imgcancel.Enabled = True
    Imgupdate.Enabled = False
    Imgdelete.Enabled = False
    DTPicker1.Visible = True
    Adodc1.Enabled = False
    i = 1
    End Sub
    Private Sub Imgcancel_Click() '取消
    On Error Resume Next '当没有添加数据的时候 处理异常
    Adodc1.Recordset.CancelUpdate
    Adodc1.Refresh
    Lockctl
    Text1.Text = ""
    Imgok.Enabled = False
    Imgcancel.Enabled = False
    Imgadd.Enabled = True
    Imgupdate.Enabled = True
    Imgdelete.Enabled = True
    Adodc1.Enabled = True
    End Sub
    Private Sub Imgdelete_Click() '删除
    If MsgBox("您确实要删除记录吗？", vbOKCancel, "昌华汽车租赁管理系统"
    cnn.Execute ("delete from 驾驶员档案 where 驾驶员编号='
    MsgBox " 记录已删除！", , "昌华汽车租赁管理系统"
    Adodc1.Refresh
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    DTPicker4.Value = Data
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    Text9.Text = ""
    Combo1.Text = ""
    End If
    End Sub
    Private Sub Imgexit_Click() '退出
    Unload Me
    End Sub
    Private Sub Imgfind_Click() '查询
    Dim str As String
    str = InputBox$("输入你要查询的驾驶员编号：", "昌华汽车租赁管理系统")
    If str = "" Then Exit Sub
    Adodc1.RecordSource = "select * from 驾驶员档案 where
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
    Text1.Text = Adodc1.Recordset.Fields(0)
    Text2.Text = Adodc1.Recordset.Fields(1)
    Text3.Text = Adodc1.Recordset.Fields(2)
    DTPicker1.Value = Adodc1.Recordset.Fields(3)
    Text4.Text = Adodc1.Recordset.Fields(4)
    DTPicker2.Value = Adodc1.Recordset.Fields(5)
    DTPicker4.Value = Adodc1.Recordset.Fields(6)
    Text6.Text = Adodc1.Recordset.Fields(7)
    Combo1.Text = Adodc1.Recordset.Fields(8)
    DTPicker3.Value = Adodc1.Recordset.Fields(9)
    Text7.Text = Adodc1.Recordset.Fields(10)
    Text8.Text = Adodc1.Recordset.Fields(11)
    Text9.Text = Adodc1.Recordset.Fields(12)
    Imgupdate.Enabled = True
    Imgdelete.Enabled = True
    Else
    MsgBox "没有你需要的信息！", , "昌华汽车租赁管理系统"
    Imgupdate.Enabled = False
    Imgdelete.Enabled = False
    End If
    End Sub
    Private Sub Imgok_Click() '确定
    Select Case i
    Case 1
    If Text1.Text = "" Or Text2.Text = ""
    MsgBox "每一项不能为空！", , "昌华汽车租赁管理系统"
    Exit Sub
    End If
    Call main1
    Dim rs As New ADODB.Recordset
    ' Set rs = adoCon.Execute("insert into 驾驶
    rs.Open "select * from 驾驶员档案 ", adoCon,
    rs.AddNew
    rs.Fields(0) = Text1.Text
    rs.Fields(1) = Text2.Text
    rs.Fields(2) = Text3.Text
    rs.Fields(3) = DTPicker1.Value
    rs.Fields(4) = Text4.Text
    rs.Fields(5) = DTPicker2.Value
    rs.Fields(6) = DTPicker4.Value
    rs.Fields(7) = Text6.Text
    rs.Fields(8) = Combo1.Text
    rs.Fields(9) = DTPicker3.Value
    rs.Fields(10) = Text7.Text
    rs.Fields(11) = Text8.Text
    rs.Fields(12) = Text9.Text
    rs.Update
    MsgBox "记录添加成功！", , "昌华汽车租赁管理系统"
    rs.Close
    Adodc1.Refresh
    adoCon.Close
    Case 2
    cnn.Execute ("update 驾驶员档案 set 驾驶员编号='"
    MsgBox "记录修改成功！", , "昌华汽车租赁管理系统"
    Adodc1.Refresh
    End Select
    Lockctl
    Imgok.Enabled = False
    Imgcancel.Enabled = False
    Imgadd.Visible = True
    Imgupdate.Visible = True
    Imgdelete.Visible = True
    Adodc1.Enabled = True
    End Sub
    Private Sub Imgupdate_Click() '修改
    Unlockctl
    i = 2
    Imgok.Enabled = True
    Imgcancel.Enabled = True
    Imgadd.Enabled = False
    Imgdelete.Enabled = False
    DTPicker1.Visible = True
    Adodc1.Enabled = False
    End Sub
    Private Sub Text1_KeyDown(KeyCode As Integer, Shif
    If KeyCode = vbKeyReturn Then
    If Text1.Text = "" Then
    MsgBox "驾驶编号不能为空！", , "昌华汽车租赁管理系统"
    Text1.SetFocus
    End If
    Text2.SetFocus
    End If
    End Sub
    Private Sub Text2_KeyDown(KeyCode As Integer, Shif
    If KeyCode = vbKeyReturn Then
    If Text2.Text = "" Then
    MsgBox "姓名不能为空！！", , "昌华汽车租赁管理系统"
    Text2.SetFocus
    End If
    Text3.SetFocus
    End If
    End Sub
    Private Sub Text3_KeyDown(KeyCode As Integer, Shif
    If KeyCode = vbKeyReturn Then
    If Text3.Text = "" Then
    MsgBox "性别不能为空！", , "昌华汽车租赁管理系统"
    Text3.SetFocus
    End If
    DTPicker1.SetFocus
    End If
    End Sub
    Private Sub Text4_KeyDown(KeyCode As Integer, Shif
    If KeyCode = vbKeyReturn Then
    If Text4.Text = "" Then
    MsgBox "驾驶证号不能为空！！", , "昌华汽车租赁管理系统"
    Text4.SetFocus
    End If
    DTPicker2.SetFocus
    End If
    End Sub Private Sub Text6_KeyDown(KeyCode As Integ
    If KeyCode = vbKeyReturn Then Combo1.SetFocus '按
    End Sub
    Private Sub Text7_KeyDown(KeyCode As Integer, Shif
    If KeyCode = vbKeyReturn Then Text8.SetFocus '按
    End Sub
    Private Sub Text8_KeyDown(KeyCode As Integer, Shif
    If KeyCode = vbKeyReturn Then Text9.SetFocus '按
    End Sub
    6.2.1 软件测试方法
    6.2.2 登录系统测试
    进行用户身份验证测试，当输入的用户名或密码有误时，给予提示。
    数据添加测试
    6.2.3数据修改测试
    6.2.4 数据查询测试
    6.2.5 数据删除测试
    滁州学院 课程设计报告 题目 汽车租赁管理系统 班级 信息与计算科学 09 级 姓名 宫粲然 王淑云 吴姝 肖萍 吴杰心 指导教师 陈寿文 滁 州 学 院 数 学 系 20 1 1 年 6 月 17 I
    指 导 教 师 签 名 ： 汽车租赁管理信息系统设计与实现 摘 要 现代科学的发展，使计算机进入了几乎一切领域。从科学研究到工农业生产， 从企业生产管理到家庭生活，各行各业都广泛地使用着计算机。当今社会的数据 信息管理离不开计算机技术的支持。如何实现对数据信息快捷、有效、实用的管 理，是软件开发业追求的目标。 今天，随着社会生产的发展，人民生活水平的提高，机动车租赁已成为一个极具 市场潜力的行业，面对飞速发展的租赁市场，传统的人工租赁管理方式在进行繁 多的业务信息处理时显得极不适应，因此，人们对于运用计算机来辅助协调和管 理租赁工作的需求正在逐步提高。 随着社会物质条件的改善，生产生活节奏的加快，人们越来越意识到时间的重要 性，在工作中，生活中越来越注重如何节省时间，提高效率。因为工作和生活的 缘故，在必要的时候向汽车出租公司提出租赁车辆的服务要求，已成为大众广为 认可和接受的行为和选择。在这种社会需求的强力带动下，机动车租赁市场出现 了前所未有的一片繁荣景象。各个汽车租赁公司门庭若市，业务激增。然而在繁 忙的景象背后，却也暴露出机动车租赁公司在处理业务信息时以人工方式为主所 带来的诸如：效率低下，管理混乱，失误增多等诸多弊端。在实践中，汽车租赁 行业的业主们逐渐意识到在租赁行业中借助计算机引入信息管理的重要性，并开 始不断提高自身的素质和高科技在工作中的投入，以改善信息的管理，提高服务 效率。机动车租赁管理就是对车辆信息和客户信息的管理，主要包括车辆的出租 状态、车辆的基本信息、车辆的投保情况、车辆的出厂情况、客户信息的管理等。 由于这些过程间的关系复杂，有一对一的关系，一对多的关系，也有多对多的关 系，所有这些工作使机动车管理工作变得量大而又复杂，以前包括现在还有很多 租赁公司采用人工管理，直接导致了错误的产生，服务质量的低下。机动车租赁 管理系统的开发使得这一状况得到了根本的改善。这套管理系统包括涵盖了车辆 租赁业务的各个方面。使得机动车租赁服务可以快速、规范地完成，节省了人力 物力，提高了服务质量和经济效益。 租赁信用管理系统的功能模块可以分为：租赁业务管理模块是本系统的核心模 块，完成租车功能，通过该模块完成对汽车，司机和客户的管理。客户模块完成 汽车租赁公司的客户查询，登记，修改，存储以及对会员的加入。车辆管理模块 主要完成租赁公司对本网点所拥有车辆进行简单登记管理的功能。职工管理模块 完成对职工，司机和工作里、类型的管理。险种管理是对公司汽车投保方式的一 种随车的管理方式，还得通过此管理与保险公司完成资料核实，登记，修改方面 的管理。 II
    III
    1 绪 论....................................................................................................................... 1 1.1 研究背景.......................................................................................................... 1 1.2 研究意义.......................................................................................................... 2 1.3 国际汽车租赁业务的发展及主要企业的经营模式...................................... 2 1.3.1 国际汽车租赁业的发展背景............................................................... 2 1.3.2 国际汽车租赁业的经营规模................................................................ 3 1.3.3 经营、运作模式................................................................................... 3 1.4 国内汽车租赁.................................................................................................. 3 1.4.1 发展背景和过程.................................................................................... 3 1.4.2 国内汽车租赁业发展特点.................................................................... 4 2 理论综述................................................................................................................... 5 2.1 开发工具的选择............................................................................................. 5 2.1.1 Visual Basic6.0 简介........................................................................... 5 sql server2000 简介.............................................................................5 2.1.2 3 系统分析................................................................................................................... 6 3.1 系统需求分析.................................................................................................. 6 3.1.1 系统目标................................................................................................ 6 3.1.2 用户需求................................................................................................ 6 3.1.3 性能需求................................................................................................ 7 3.1.4 其他需求................................................................................................ 7 3.2 可行性分析...................................................................................................... 7 3.3 系统功能分析.................................................................................................. 8 4 系统总体设计........................................................................................................... 9 4.1 系统数据流图.................................................................................................. 9 4.2 E-R 图...............................................................................................................9 5 系统详细设计......................................................................................................... 11 5.1 各功能模块流程图....................................................................................... 11 5.1.1 登陆程序流程图................................................................................. 11 5.1.2 用户添加程序流程图......................................................................... 12 5.1.3 租赁管理流程图................................................................................. 13 5.2 数据库设计................................................................................................. 144 5.2.1 数据库的概念及特点......................................................................... 15 III
    5.2.2 数据库表设计..................................................................................... 15 6 系统实现及测试..................................................................................................... 16 6.1 主要功能模块设计与实现........................................................................... 16 6.1.1 出租信息模块的界面......................................................................... 17 6.1.2 租赁管理模块的界面......................................................................... 19 6.1.3 车辆查询界面..................................................................................... 21 6.1.4 汽车租赁界面...................................................................................... 21 6.1.5 汽车归还界面 ....................................................................................................25 6.1.6 用户资料界面.......................................................................................25 6.1.7 管理员信息界面...................................................................................26 6.1.8 重新登陆界面.......................................................................................30 6.2 测试结果和范围........................................................................................... 16 6.2.1 软件测试方法..........................................................错误！未定义书签。 6.2.2 登录系统测试..........................................................错误！未定义书签。 6.2.3 数据添加测试..........................................................错误！未定义书签。 6.2.4 数据修改测试..........................................................错误！未定义书签。 6.2.5 数据查询测试..........................................................错误！未定义书签。 6.2.6 数据删除测试..........................................................错误！未定义书签。 7 结 论..........................................................................................错误！未定义书签。 参考文献..........................................................................................错误！未定义书签。 致 谢..............................................................................................错误！未定义书签。 附 录………………………………………………………………………………. 37 IV
    1 前言 汽车租赁作为租赁的一个类别，其特性是交通服务，共性是租赁。就特性看， 以短期租赁(Rental)、网络化服务为特征的汽车租赁服务已成为满足个性化需求 的主要交通模式；从共性看，以长期租赁方式(Leasing)获取车辆所有权为特征的 汽车融资租赁因其促进销售的优势，成为汽车销售的方式之一。 然而现代科学的发展，使计算机进入了几乎一切领域。从科学研究到工农业 生产，从企业生产管理到家庭生活，各行各业都广泛地使用着计算机。当今社会 的数据信息管理离不开计算机技术的支持。如何实现对数据信息快捷、有效、实 用的管理，是软件开发业追求的目标。今天，随着社会生产的发展，人民生活水 平的提高，机动车租赁已成为一个极具市场潜力的行业，面对飞速发展的租赁市 场，传统的人工租赁管理方式在进行繁多的业务信息处理时显得极不适应，因此， 人们对于运用计算机来辅助协调和管理租赁工作的需求正在逐步提高。 1.1 研究背景 汽车租赁管理是本世纪中期发展起来的一门新兴学科。它最早产生于二战时 期的美国,五十年代中期,汽车租赁概念传入日本,并得到快速发展。时至今日, 汽车租赁管理已成为西方管理中不可或缺的一部分,在许多国家得到了广泛的研 究与应用。 自 2002 年教育部批准设立汽车服务工程专业以来，我国已形成由本科(汽车 服务工程专业)、专科(汽车技术服务与营销专业)、中专(汽车商务专业)组成的完 善的汽车服务教育体系，其中专科、中专侧重于职业技能教育，为我国交通运输 和汽车服务行业的发展提供了大量各类专业人才。据统计，我国目前有近 300 所 各类院校开设此类专业。随着汽车租赁在汽车服务领域作用的增加，越来越多的 相关专业开始增设汽车租赁课程。 汽车租赁业被称为“朝阳产业”，它因为无须办理保险、无须年检维修、车 型可随意更换等优点，以租车代替买车来控制企业成本，这种在外企中十分流行 的管理方式，正慢慢受到国内企事业单位和个人用户的青睐。汽车租赁管理系统 是汽车租赁公司开展日常运营活动的必须的环节。传统的手工管理方式不但浪费 人力、时间，而且管理复杂，易出差错。基于计算机技术，汽车租赁管理系统把
    滁州学院课程设计 一些繁琐的数据计算、信息处理化作为简单的指令操作。完全实现数据信息的电 算化管理，彻底把人从手工管理中解放出来，有利于提高汽车租赁公司的劳动生 产率，节约生产成本，增加经济效益。 1.2 研究意义 随着社会物质条件的改善，生产生活节奏的加快，人们越来越意识到时间的 重要性，在工作中，生活中越来越注重如何节省时间，提高效率。因为工作和生 活的缘故，在必要的时候向汽车出租公司提出租赁车辆的服务要求，已成为大众 广为认可和接受的行为和选择。在这种社会需求的强力带动下，汽车租赁市场出 现了前所未有的一片繁荣景象。各个汽车租赁公司门庭若市，业务激增。然而在 繁忙的景象背后，却也暴露出机动车租赁公司在处理业务信息时以人工方式为主 所带来的诸如：效率低下，管理混乱，失误增多等诸多弊端。在实践中，汽车租 赁行业的业主们逐渐意识到在租赁行业中借助计算机引入信息管理的重要性，并 开始不断提高自身的素质和高科技在工作中的投入，以改善信息的管理，提高服 务效率。 汽车租赁管理就是对车辆信息和客户信息的管理，主要包括车辆的出租状 态、车辆的基本信息、车辆的投保情况、车辆的出厂情况、客户信息的管理等。 由于这些过程间的关系复杂，所有这些工作使汽车管理工作变得量大而又复杂， 以前包括现在还有很多租赁公司采用人工管理，直接导致了错误的产生，服务质 量的低下。汽车租赁管理系统的开发使得这一状况得到了根本的改善。汽车租赁 管理信息系统包括涵盖了车辆租赁业务的各个方面。使得机动车租赁服务可以快 速、规范地完成，节省了人力物力，提高了服务质量和经济效益。 1.3 国际汽车租赁业务的发展及主要企业的经营模式 自 1908 年福特推出了低价位的 T 型车，使汽车开始进入普通家庭，美国的 汽车租赁业开始发展。至今已从八十年代末的 150 亿美元，扩张为 1997 年的 480 亿美元，到 2000 年超过了千亿美元，约占全球租赁业总额的 1/5 左右。从事汽 车租赁业务的公司数量也已经达到了 5 千多家。 1.3.1 国际汽车租赁业的发展背景 生活环境及工作方式变化：随着世界经济形势的变化和西方国家产业结构的 2
    滁州学院课程设计 变化，人们的生活方式也在改变。越来越多的家庭、个人选择租赁汽车，认为这 样可以节省大笔投资。 生活及工作中个性化需求日益突出：由于工作上的特殊要求和业余生活的丰 富多样化，人们在不同时期对于汽车的要求也不尽相同。这时，租赁公司就可以 根据顾客的特定需求，为其提供专用的汽车。 汽车作为经营辅助手段的观念成为时代潮流：中小企业利用租赁汽车来完成 其经营活动是当代汽车租赁市场呈现出的一个明显的发展趋势。其增长速度以及 所占比例，都显示出了汽车租赁在中小企业经营辅助中不可或缺的地位。 1.3.2 国际汽车租赁业的经营规模 当前，全球汽车租赁业的运营车辆年需求总数约在 200 万辆左右。主要汽车 租赁公司的运营车辆都保持在数十万辆左右，管理着多达数千个遍布全球的租赁 站点。在千亿美元的汽车租赁业务中，以欧美国家的租赁市场发展最为成熟。在 美国，以租赁形式销售的新汽车占该国汽车总销售量的三分之一左右，并且大部 分车为长期租赁，而旧车的租赁业务约为 40 万辆；德国汽车租赁业的运营车辆 总数为 250 万辆左右；法国 1997 年以租赁方式使用汽车的人有 300 多万，占法 国总人口的 7%；而日本每年的汽车租赁销售规模也达到 200 多万辆，约占全国 新汽车销售量的 15%，该比例有不断提高趋势。 1.3.3 经营、运作模式 当前在汽车租赁业通行的经营方式是特许经营方式。特许经营是汽车租赁公 司授予某一侯选人特许经营权，使其加入租赁公司的服务网络，使用租赁公司的 品牌和标识，按照租赁公司的统一规范进行业务运作。租赁公司对特许经营点的 经营进行监督和指导，并收取特许经营权使用费。 1.4 国内汽车租赁 1.4.1 发展背景和过程 我国汽车租赁业在 1989 年起源于北京，为了迎合 1990 年在北京举行的亚运 会上，国外记者及相关人士在华工作中对交通的便捷、机动、私密性的需求，建 立了第一家汽车租赁公司——北京福斯特汽车租赁公司。随后，又分别成立了北 3
    分享到：
    赞 收藏

    相关推荐

    资料库

    课程资源

    共收录17145份资料，累计13个分类，关注成员有19位，主要包括：PHP,网络管理,网页制作,Java,.Net,数据库,3G/移动开发,C/C++,游戏开发,嵌入式,讲义,软件测试,专业指导

    热门标签

    PHP 网络管理 网页制作 Java .Net 数据库 3G/移动开发 C/C++ 游戏开发 嵌入式 讲义 软件测试 专业指导

    最新资料