车辆信息管理系统.docx

车辆信息管理系统 车辆信息管理系统绪论11课题所完成的功能车辆调度功能：系统登录：键入用户名和密码，如果用户名和密码均正确则可完成系统登录，如果所使用的用户名或密码错误则系统提示重新登录，三次错误则自动退出系统。综合查询功能：请用户自己选择查询条件，并可选择多个查询条件，其选择值可显示在文本框中，以完成个性化查询。修改密码功能：用户应输入旧密码、新密码与确认新密码，如果旧密码正确，新密码与确认新密码一致则修改密码成功！否则将提示用户所操作的错误。13主要任务（） 车辆调度系统数据库建立简介11：建立Access数据库：数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。 Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。创建数据库表可以使用设计器创建表，使用向导创建表，通过输入数据创建表。本文主要使用第一种方法。（） 车辆调度系统单机版程序实现简介10：程序实现，用已完成的数据库制作查询界面以完成查询功能，以及一些辅助程序，如登录，修改密码，退出系统，权限的设置，以完成单机浏览，查询，修改工作。此部分是本人主要任务，将在以下章节详细介绍。（） 网络实现系统简介10：远程访问部分主要是网站设计建设，完成网站体系结构的设计，各个模块的功能定义并完成登陆系统，信息浏览系统，信息查询系统，和信息更新系统，定义用户访问权限和限制不同级别的用户对网站进行各种不同操作，实现对数据库内的信息（包括）进行访问和更新，以及进行网站页面的设计和美工。车辆调度系统登录窗体的创建2.1车辆调度系统系统登录简介在运行“车辆信息管理系统”时，首先要求用户进行登录验证，只有经过授权的用户才能进入系统。授权用户的帐户信息保存在数据库中，在进行身份验证时，把从数据库中读取相应数据与用户登录信息进行比较，从而判断用户是否可以进入系统。在登录时，用户必须提供用户名和密码才能提交验证，否则只有取消登录，直接退出系统。系统还限制了用户登录次数，超过三次登录验证则自动取消登录。为了方便各种不同的用户应用此系统，为系统添加权限功能，如：管理员可完成所有系统功能，工程师可修改数据库的内容但不可以修改程序源代码，普通用户只可以完成查询和预览功能。 2.2车辆调度系统系统登录功能分析典型的系统登录都是基于数据库实现的。用户的帐户信息，包括用户名和密码都保存在数据库中。所以在按钮进行身份验证时，需要访问数据库获得用户正确的帐户信息。因为访问数据库操作只在进行身份验证时才发生，所以不需要是使用各种数据空件，而是在程序代码中完成数据库连接、查询等操作。2.3车辆调度系统创建工程具体操作如下：（1）Microsoft Visual Basic 6.0中文版的图标，进入VB界面，在新建工程窗体中选择新建选项卡，并在对话框中选择创建“标准EXE”工程，单击打开。（2）在“属性”窗口中，在（名称）属性框中输入“车辆信息管理系统”。（3）选择文件 保存工程。 2.4为车辆调度系统创建登录窗体具体操作如下：（1） 在窗体frmland的属性中，按照表2-1设置其窗体属性：属性值属性值（名称）frmlandCaption用户登录StartUpPosition2-屏幕中心VisibleTrue表2-1窗体属性表其他属性不必更改，若要更改窗体大小直接拖动窗体边缘即可。（2） 为窗体添加一个框架（Frame），并在属性Caption中键入“车辆信息管理系统”，将ForeColor改为深蓝色。（3） 为窗体添加两个标签（Label），AutoSize属性都设置为True，Caption属性分别设置为“用户名：”，和“密码：”，分别单击Font属性后按钮弹出字体对话框，在字形中选择粗体。（4） 在用户名和密码后分别添加两个文本框(TextBox) ，Text属性设置为空，将密码所对应的那个文本框的PasswordChar属性设置为*，文本框的大小自行调节即可。（5） 窗体添加一个命令按钮(CommandButton) ,将“（名称）”设置为cmdok,Caption属性设置为“确定”，Enable属性设置为False，适当调节其大小即可。（6） 再为窗体添加一个命令按钮，并将“（名称）”设置为cmdcancel, Caption属性设置为“取消”，适当调节其大小即可。按照图2-2调整各个空件在窗体上的位置：图2-2用户登录图2.5向车辆调度系统添加窗体代码22.5.1写文本框Change事件过程代码文本框Change事件过程，需要检测用户名和密码，并在用户名和密码都不是空白时激活按钮。在窗体中双击文本框则出现图2-2情形：在此函数中添加如下代码： Private Sub Text1_Change()检查用户名，如果有一个为空白，则不能使用确定按钮 Dim strName As String, strPassword As String strName = Trim(Text1.Text) strPassword = Trim(Text2.Text) If strName = Or strPassword= Then cmdok.Enabled = False Else cmdok.Enabled = True End IfEnd Sub2.5.2编写取消按钮Click事件过程代码按钮用于取消登录操作，在执行取消登录操作时，请求用户确认，待确认后再取消登录。在窗体中双击按钮，编写按钮Click事件过程代码如下：Private Sub Cmdcancel_Click()Dim intMsgReturn As IntegerintMsgReturn = MsgBox(您真的要退出登录？, vbOKCancel + vbQuestion, 取消登录)If intMsgReturn = vbOK Then End End If End Sub2.5.3编写确定按钮的Click事件过程代码 在按钮Click 事件过程中，需要检测用户登录次数，只有在有效次数内才进一步验证用户登录信息。首先，在代码窗口的通用声明部分定义一个窗体级常量保存最大登录次数，如下所示： Dim intLogTime As IntegerConst MaxLogTimes As Integer = 3 按钮Click事件过程调用了一个自定义的函数Check_Password来检验用户登录信息是否正确，并在Check_Password的返回结果为True的情况下卸载登录窗体，显示系统主窗体。Check_Password函数首先访问数据库获得用户正确的登录信息，并进行验证，根据验证的结果显示相应的信息。按钮Click事件过程和函数Check_Password的代码如下：Private Sub Cmdok_Click() Dim strResult As String Dim strName As String Dim strPassword As String Dim blnok As Boolean blnok是检验用户名和口令是否正确的返回值 intLogTime = intLogTime + 1验证是否超过允许的登录次数If intLogTime MaxLogTimes Then超过允许登录的次数，显示提示信息，结束应用程序MsgBox 你已经超过允许的登陆次数! EndElse 获得用户输入的登录信息strName = Trim(Text1.Text) strPassword = Trim(Text2.Text) 检验用户名和口令是否正确 blnok=Check_Password(strName,strPassword)If blnok ThenUnload Me frmMain.Show End If End IfEnd Sub 所调用的函数Private Function Check_PassWord(ByVal UserName As String, ByVal Password As String) As BooleanOn Error GoTo gpError车辆调度系统主菜单及密码功能31系统主菜单创建43.1.1车辆调度系统主菜单简介在“车辆管理系统”运行时，确认身份可以登录后（登陆后，同时进行权限分配），在按下登录确定按钮后应显示主菜单，菜单中包括组合查询，修改密码，退出系统等功能。3.1.2车辆调度系统主菜单功能分析在菜单选项中添加代码，完成在按下菜单选项时，可以卸掉主菜单显示选项菜单。并设置退出键以保证用户随时退出。3.1.3为车辆调度系统创建菜单（1） 启动Visual Basic,并打开“工程1”。（2） 单击工程 添加窗体为系统添加一个名为“form1”的窗体并保存。（3） 选择工具 菜单编辑器菜单命令，打开菜单编辑器。（4） 在“菜单编辑器”的“标题”文本框中输入“系统管理”，“名称”输入xtgl 。（5） 按按钮添加下一级的子菜单“用户管理”，“名称”输入为“yhgl”。（6） 单击按钮，在标题中输入“密码管理”，名称为“mmgl”。如图3-1所示。（7） 单击按钮为“车辆信息”添加子菜单，标题为“添加”，名称为“tj”。（8） 单击按钮，在标题中输入“修改”，名称为“xg”。（9） 单击按钮，在标题中输入“查询”，名称为“cx”。（10）同样方法可以做出“司机信息”，“运营信息”，“维修信息”，“事故信息”及其下拉菜单。（11）单击按钮完成完整的菜单编辑，如图3-1，3-2，3-3所示：图3-1系统管理菜单编辑器 图3-2其他的菜单编辑器 图3-3完整的菜单编辑器（12）使用应用软件HyperSnap_Dx56005-NewWish捕捉画面添加到Form1界面上。（13）在“Form1”窗体添加，设置其属性如表3-1所示：属性值属性值Caption车辆信息管理系统font隶书 表3-1Form1的属性（14）主菜单窗体设计完成，如图3-4所示：3.1.4向车辆调度系统加窗体代码（1） 为菜单选项组合查询添加代码如下：Private Sub zhcx_Click() search.Show End Sub图3-4车辆信息管理系统主菜单（2） 为菜单选项修改密码添加代码如下：Private Sub qgmm_Click()frmrectify.ShowEnd Sub（3） 为菜单选项退出系统添加代码如下：Private Sub qcxt_Click()Dim intResult As IntegerintResult = MsgBox(您真的要退出系统吗?, vbYesNo)If intResult = vbYes Then EndEnd Sub3.2为车辆调度系统添加修改密码功能63.2.1创建车辆调度系统的窗体一，创建司机信息管理窗体（1） 单击工程 添加窗体为系统添加一个名为“司机信息”的窗体并保存。二，创建车辆信息管理窗体（1）单击工程 添加窗体为系统添加一个名为“车辆信息”的窗体并保存。图3-6车辆信息窗体三，创建维修信息管理窗体（1）单击工程 添加窗体为系统添加一个名为“维修信息”的窗体并保存。图3-7维修信息窗体四，创建事故信息管理窗体（1）单击工程 添加窗体为系统添加一个名为“事故信息”的窗体并保存。（3）整各个控件的位置，如图3-8所示：图3-8事故信息窗体车辆调度系统组合查询窗体的创建4.1车辆调度系统组合查询简介10数据库采用了Microsoft推出的Access数据库，这是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。本系统使用的系统中包括四个表，司机信息表，车辆信息表，维修信息表，事故信息表。本系统涉及到的实体：（1）本系统中所涉及到的主要实体及其属性有： sijixinxi(司机信息)表姓名，性别，出生年月日，家庭住址，执照号码，驾驶车型 cheliangxinxi(表)车号，车型，司机姓名，运行公里数，耗油量，车龄 weixiuxinxi(表)车号，维修时间，维修单位，维修内容，维修费用，配件 shiguxinxi(表)车号，司机姓名，事故时间，事故地点，事故原因，对方单位，处理方式，处理金额图4-5数据源管理器的调用 表4-1司机信息表 表4-2车辆信息表 表4-3维修信息表 表4-4事故信息表4.2车辆调度系统调用数据库的功能测试11在开发本系统时，为了使系统能够稳定运行，对本系统进行了有针对性的全面测试，采取的方式是：1、菜单项测试：为了保证每一项下拉菜单能够正确实现系统设计的功能，我把该图书馆有关图书的所有基础数据，基本上全部输入到本系统中，并对每一个菜单项反复进行了增加、删除、修改等操作，从而保证了菜单级功能的正确实现。2、数据跟踪：完成菜单项测试后，我又对系统内的每一个数据进行了跟踪。例如：例如对最多可借书数的管理，我首先在借书证管理模块中对某个读者的可借书数进行设定，然后在借书模块进行数据操作，随时观察这两个数值之间是否有冲突产生，经过对可借书数的数值多次不同大小的设置并进行验证，说明该功能完全正常。3、综合测试：在以上测试的基础上对系统功能进行了整体的测试，依次来检验系统功能是否符合系统设计的要求。4.3车辆调度系统运行与维护系统的运行：1、初始数据的输入本系统的的输入采用鼠标和键盘相结合的输入方法。2、怎样进入系统A、将本系统所在的文件夹拷贝到硬盘，然后执行其中的图书管理系统的程序文件即可，应注意要将全部文件的属性变以存档，消除只读属性。B、在随后出现的登录界面上输入正确的用户名和密码即可3、怎样使用本系统：点击鼠标左键即可进行相应功能的选择。系统的维护：本系统是个较复杂的人-机系统，由于系统外部环境与内部因素的变化，不断影响系统的运行，同时需要系统不断地适应这些变化，不断地完善系统，以提高系统运行的效率与服务水平，这就需要自始至终进行系统的维护工作。系统的维护主要包