汽车租赁系统的研究与实现doc.docx

汽车租赁系统的研究与实现doc.docx

《汽车租赁系统的研究与实现doc.docx》由会员分享，可在线阅读，更多相关《汽车租赁系统的研究与实现doc.docx（10页珍藏版）》请在冰豆网上搜索。

汽车租赁系统的研究与实现doc

第1章课程设计目的与要求

1.1课程设计目的

本课程的课程设计实际是学生学习完《VB.NET程序设计实用教程》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。

1.2课程设计的实验环境

硬件要求能运行WindowsXP操作系统的微机系统。

软件：

MicrosoftVB.NET

MicrosoftAccess2003

1.3课程设计的预备知识

熟悉VB.NET程序设计的基本语法知识及常用技巧。

1.4课程设计要求

按课程设计指导书提供的课题，每个小组设计一个完整的管理系统应用程序。

要求根据规定设计系统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。

应根据基本学时分配合理安排设计时间，并独立完成各方面的设计。

选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。

要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。

在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。

第2章

课程设计内容

2.1系统功能设计

2.1.1系统功能分析

车辆租赁管理系统是一套针对车辆租赁的基础信息、车辆管理、司机管理、客户管理、综合业务、租金统计进行全面管理的系统。

功能特点：

基本信息（修理厂设置、加油站设置、车辆类型设置、车辆名称设置、会员类型设置、证件类型设置、保险类型设置、燃油类型设置、租赁模式设置）；信息管理（车辆管理、司机管理）；客户管理（客户查询、会员查询）；综合业务（汽车预\出\续租、催车还交、事故登记、汽车加油、维修记录、还车结算）；租金统计（当天租金统计、一定期间租金统计）几大部分。

系统提供了各种管理的查询功能和报表功能，它集输入、维护、查询、筛选、统计和各种处理为一体，信息导入导出方便共享，灵活、专业的报表设计，形象、增强的数据处理，用户可自定义自开发这些功能。

操作快捷、方便，性能高效、强大；使用易懂、易会，便于车辆租赁部门对车辆租赁使用情况进行全面管理。

依托系统强大的辅助录入，减少了录入工作量，提高了工作效率，降低了工作强度。

汽车租赁管理系统属于数据库应用的范畴｡从数据库的角度看,系统主要功能是实现对录入的车辆､客户､销售商租赁合同等文件的管理｡汽车租赁系统是对VB.NET编程技术､Access数据库技术的具体应用

2.1.2系统功能模块设计

汽车出租管理系统主要实现5个大的功能模块：

系统用户信息管理、查询报表、日常业务管理、系统管理、。

每个模块有分成多详细的功能子模块。

图2.1系统功能模块图

2.2系统详细设计

2.2.1汽车租赁系统模块设计

1.界面设计

（1）系统管理员用户可以添加汽车记录、修改汽车记录、删除汽车记录和查看汽车记录。

（2）普通用户只能查看汽车租赁数据。

为了表现系统间的层次结构，本模块使用TreeView控件对系统数据进行管理。

TreeView控件是显示Node对象的分层列表，每个Node对象均由一个标签和一个可选的位图组成。

选择“工程”菜单中的“部件“命令，打开”属性“对话框。

在控件列表中，查找兵选择MicrosoftWindowsCommonControls6.0。

在窗体中添加一个ImageList控件。

右击此控件，选择菜单中的“属性”命令，打开“属性页”对话框。

单击“图像”选项卡，通过单击“插入图像”和“删除图像”来编辑图像列表。

在窗体中添加一个TreeView控件。

右击此控件，选择菜单中的“属性”命令，打开“属性页”对话框。

将“图像列表”属性设置为ImageList1,其他属性根据需要设置。

在该部门信息模块中，TreeView控件使用惟一的关键字来标识每一个结点，关键字的第一个字符必须是字母。

我们规定关键字的格式为“a”加上部门编号，结果部门编号为1，则此部门在TreeView控件中的关键字为”al”.

在GeneralFunc模块中，有一个自定义过程Add_DepToTree（）。

窗体布局窗口

开机后进入VB.NET环境下，双击租赁信用管理系统图标，稍候出现登录消息框，如图所示：

图2.2.1

在输入框中依次输入用户的用户名和口令，然后按下回车键（Enter）或者用鼠标单击“确认”按钮，在用户名和口令均正确的情况下，就可以顺利进入本系统，此时如果想退出系统请点击“取消”按钮。

2.代码设计

DimhwndlAsLong

‘用户登陆后成功显示各标签

PrivatesubFormActivate（）

If用户登陆.Falg=1Then

Label1.Visible=True:

Label2.Visible=True

Label3.Visilel=True:

Label2.Visible=True

EndIf

EndSub

PrivateSubFormclick（）

If用户登陆.Falg<>1Then

用户登陆.Show

EndIf

EndSub

PrivateSubFormKeyPress（keyAsciiAsInteger）

IfKeyAscii<>0Then

用户登陆.Show

EndIf

EndIf

EndSub

PrivateSubFormLoad（）

DimAAsString

DimBAsInteger

A=Me.hwnd

B=0

DisabledA,B

Me.Left=0:

Me.Top=0

Label1.Visible=False:

Label2.Visible=False

Label3.Visible=False:

Label4.Visible=False

PrivateSubText1KeyPress（KeyAsciiAsInteger）

DimXASInteger

IfKeyAscii=13Then

IfText1<>MThen

Total=Total+1

IfTotal>2Then

MsgBox“对不起。

您无权使用本系统！

OpenApp.Path+\+Screen.txtForInputAs#1

Input#1,apiRECT.Right

Close#1

CallSetWindowPos（hwndl,0,0,0,0,0,swpSHOWWINDOW）

SelectCaseapiRECT.Right

Case1024

SetDisplayMode1024,600,16

Case800

SetDisplayMode800,600,16

Case640

SetDisplayMode640,480,16

EndSelect

UnloadMe

End

EndIf

MsgBox”您的密码不正确，请重新输入密码！

，

Text1=“”

Else

DoEvents

Fslg=1

UnloadMe

EndIf

EndIf

EndSub

2.2.2基本信息管理模块设计

基本信息管理具体的设计如下：

一，基本信息的管理：

系统管理员可以对客户进行查找（按客户姓名）该客户（司机）的信息和相关驾驶信息、添加（按客户编号：

基本信息、抵押担保信息

驾照信息和附加描述）、修改（选中）、删除、加入会员（添加客户基本信息、驾照信息、抵押担保信息和会员信息）等操作。

二主要包括：

服务信息管理，类型信息管理，汽车信息管理；

图2.2.2进入系统

1）、服务信息管理包括：

修理厂设置，加油站设置，保险类型设置；

1，修理厂设置；系统管理员可以对车辆的类型（类型名和具体描述）进行添加、修改、删除等操作；

图2.2.3修理厂

2，加油站设置；设置客户的加油站，任意联系站点。

添加，修改，删除。

图2.2.4加油站

3，保险类型设置；系统管理员可以对汽车销售商进行查询（按销售商名称）、添加、修改（对已经选中的记录）、删除和查看已经销售的汽车的相关购买信息等操作；系统管理员可以对进行查询（按保险公司名）保险公司的具体信息、添加、修改（对已经选中的记录）、删除保险公司信息和查看已经投递保险的汽车的相关投保信息等操作；系统管理员可以对本公司所有的汽车进行查找（车牌号码）该车的信息和相关租赁信息、添加（基本信息、保险信息、租赁信息和附加描述）、修改（选中）、删除的操作；

图2.2.5保险类型

2，类型信息管理：

系统管理员可以对车辆的保险类型（保险的类型名和详细的描述）进行添加、修改、删除等操作；包括汽车类型，汽车名称。

1）汽车类型；输入汽车的类型。

以便于管理汽车配件。

图2.2.6汽车类型

2）、汽车名称；系统管理员可以会员对进行查找（按会员姓名）该客户（司机）的信息和相关驾驶信息、修改（选中：

基本信息、驾照信息、抵押担保信息和会员信息）、删除即注销会员等操作

3．汽车信息管理：

系统管理员可以对客户进行查找（按客户姓名）该客户（司机）的信息和相关驾驶信息、添加（按客户编号：

基本信息、抵押担保信息、驾照信息和附加描述）、修改（选中）、删除、加入会员（添加客户基本信息、驾照信息、抵押担保信息和会员信息）等操作。

包括会员类型，证件类型，燃油类型，租车模式。

1）会员类型；系统管理员可以对会员类型添加（类型名称和折扣率）、修改（选中）、删除等相关操作；

2）证件类型：

各汽车租赁公司想查找以前的汽车租赁信息，单击车辆租赁查询按钮，弹出如下图所示的窗口。

录入部分限制条件后，单击查询按钮。

3）燃油类型：

客户用的燃油类型输入操作。

4）租车模式：

包括时租，日租，月租，周租。

系统全面。

2.2.3数据库访问技术

DAO即数据访问对象是VB最早引入的数据访问技术。

与上述建立在数据控件上的数据访问不同，DAO可以完不用数据控件而只引用程序代码来创建完整的数据库应用程序。

利用DAO可以访问数据库中所有对象，并灵活地操纵数据进行编辑操作。

在VB.NET中使用的是面向对象的模型，但是，众所周知，在数据库领域里，到目前为止流行的依然是关系模型，至今还没有哪一种数据库产品是真正意义上的面向对象，而面向对象模型与关系模型又似乎不能够在一起很协调地工作。

这就更加大了试图用类的方法来访问数据库系统的难度。

为了测试这个类，新建一个WindowsApplcation,命名为DBClass。

VB支持DataAccessObjects（DAOs）的子集。

DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。

DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。

使用DAOs访问SQLServer的过程如下：

应用程序准备好语句并送至Jet，Jet引擎（MASJT200.DLL）优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器（ODBC.DLL）通过调用驱动器（SQLSRVR.DLL）的函数，实现连接到数据源，翻译并向SQLServer提交SQL语句且返回结果。

下面是一个用DAOs访问SQLServer的VB实例。

注释：

FormDeclarations

DimmydbAsDatabase

DimmydynasetAsDynaset

PrivateSubForm_Load（）

Setmydb=OpenDatabase（"",False,False,"ODBC;DSN=Myserver;WSID=LCL;DATABASE=sales"）

Setmydynaset=m