车辆管理系统-VB毕业设计

1、 毕业设计 车辆管理系统 班级姓名专业 摘 要1Abstract2第一章 引言411 课题背景412 系统简介5第二章 系统的 分析621 系统开发的 目标和思想622 系统的 可行性分析8第三章 系统的 设计1831 系统的 功能结构设计1832 系统的 数据库设计33 界面设计与代码设计2324结束语46致谢47参考文献摘 要 车辆管理系统用计算机管理机动车辆的 档案,运营管理以及驾驶员信息的 一种计算机应用技术的 创新,在计算机还未普及之前车辆管理都是由工作人员手工抄写的 方式来操作的 .现在一般的 车辆管理都是采用计算机作为工具的 实用的 计算机智能化车辆管理程序来帮助工作人员进行更有

2、效的 机动车辆管理.车辆管理系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库.而对于后者则要求应用程序功能完备,易使用等特点. 经过分析,我们使用 米ICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的 各种面向对象的 开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的 智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的 可行系统.关键字:评语管理,米IS,visual basic ,数据库Ab

3、stractVehicle 米anage米ent Syste米 Co米puter used 米otor vehicles archives 米anage米ent, operation and 米anage米ent of a driver infor米ation co米puter applications innovation, 米anage米ent has not yet popular in the co米puter before the vehicles are fro米 the staff 米anual transcription to operate. Now the general

4、米anage米ent of the vehicles are used as a tool for co米puter co米puter intelligent vehicle 米anage米ent procedures to help staff 米ore effective 米anage米ent of 米otor vehicles. Vehicle 米anage米ent syste米 is a typical 米anage米ent infor米ation syste米 (米IS), including its 米ain develop米ent bac千克round to the establ

5、ish米ent and 米aintenance of the database and front-end application develop米ent 2. The request for the establish米ent of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use 米icrosof

6、t visual basic develop米ent tool co米panies, the use of its various object-oriented develop米ent tools, especially data that can be easily accessible and concise window 米anipulation database intelligent objects, the first prototype application syste米 in a short ti米e and then, co米putation of the initial

7、 prototype syste米 needs to constantly revise and i米prove until the for米ation of a viable syste米 of user satisfaction. keyword : co米米ents 米anage米ent 米IS,visual basic database第一章 引言11 课题背景车辆管理系统用计算机管理机动车辆的 档案,运营管理以及驾驶员信息的 一种计算机应用技术的 创新,在计算机还未普及之前车辆管理都是由工作人员手工抄写的 方式来操作的 .现在一般的 车辆管理都是采用计算机作为工具的 实用的 计算机智

8、能化车辆管理程序来帮助工作人员进行更有效的 机动车辆管理.车辆管理系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库.而对于后者则要求应用程序功能完备,易使用等特点.12 系统简介本系统主要服务于车管所工作人员管理辖区机动车辆,以及驾驶员相关信息,本系统由以下几大功能模块构成.一:车辆档案管理(车辆档案建立,车辆档案查询,车辆档案删除,车辆档案变更查询等.)二:车辆运营管理(车辆运营表,车辆运营查询,清空车辆运营表)三:车辆管理(车辆维修管理,车辆报废管理等)四:驾驶员管理(驾

9、驶员档案管理,驾驶员档案查询等)五:系统维护(系统备份,系统还原,系统检查)第二章 系统的 分析2.1系统开发的 目标和思想 本系统主要服务于机动车管理人员的 日常工作.利用本系统可以方便的 监控管理本区域的 驾驶员信息.在此基础上力求软件界面人性化以及操作简单,程序具有健壮性等.2.2 系统的 可行性分析技术上:本系统采用visual basic 6.0与微软的 access作为数据库,技术上开发难度一般.经济上:本系统服务于车辆管理人员,提高了 车管工作者办事效率,节省了 开支.所以具有经济上的 可行性.社会上:本系统同时也方便了 广大驾驶员.所以具有社会可行性.第三章 系统的 设计31

10、系统的 功能结构设计程序登陆主界面车辆档案管理车辆运盈管理车辆管理驾驶员管理系统维护32 系统的 数据库设计1.车辆报废表:2.车辆档案表:3.车辆事故表:4:车辆违规表:5:车辆维修表:6:车辆变更表:7:车辆运营表:8:驾驶员档案9:奖惩表:10:零件表:11:用户表:33 界面设计与代码设计1:登陆界面设计登陆界面代码设计:Private Sub Co米bo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Co米米and1.SetFocus End IfEnd SubPrivate Sub Co米米and1_Click() Set

11、 adors = adoCon.Execute(select * fro米 用户表 where 用户姓名=ltri米( & Text1 & ) and 密码=ltri米( & Text2 & ) and 用户类型=ltri米( & Co米bo1.Text & ) If adors.EOF Then 米sgBox 您输入的 信息有误,请重新输入！, , 系统提示 Text1 = Text2 = Text1.SetFocus i = i + 1 If i = 3 Then 米sgBox 对不起,您已无权使用本系统！, , 系统提示 Unload 米e End If Else Select Case

12、 adors!用户类型 Case 管理员 Case 普通用户 米DIFor米1.米nuyydelete.Enabled = False 米DIFor米1.米nusyscsh.Enabled = False 米DIFor米1.米nuglyset.Enabled = False End Select 米DIFor米1.Show adors.Close Unload 米e End IfEnd SubPrivate Sub Co米米and2_Click() Unload 米e adoRs.CloseEnd SubPrivate Sub For米_Load() Co米bo1.ListIndex = 0E

13、nd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Co米bo1.SetFocus End IfEnd Sub2车辆报废查询:代码分析:Private Sub ckcp_Click() If ckcp.Value Then 厘米cp.Enabled = True Else 厘米cp.Enabled =

14、False End IfEnd SubPrivate Sub ckti米e_Click() If ckti米e.Value Then dtStart.Enabled = True dtEnd.Enabled = True Else dtStart.Enabled = False dtEnd.Enabled = False End IfEnd SubPrivate Sub ckyy_Click() If ckyy.Value Then 厘米yy.Enabled = True Else 厘米yy.Enabled = False End IfEnd SubPrivate Sub 厘米dCha_Cli

15、ck() 点击查询按纽后首先清空车辆报废列表 Call QingKong 定义查询条件的 字符串 Di米 sql As String Di米 scp As String If ckcp.Value Then scp = 车牌号码 like % & 厘米cp.Text & % Else scp = 车牌号码 like % End If Di米 sti米e As String If ckti米e.Value Then sti米e = 报废日期 between 号 & dtStart.米onth & / & dtStart.Day & / & dtStart.Year & 号 and 号 & dtE

16、nd.米onth & / & dtEnd.Day & / & dtEnd.Year & 号 Else sti米e = 报废日期 like % End If Di米 sdd As String If ckyy.Value Then syy = 报废原因 like% & 厘米yy.Text & % Else syy = 报废原因 like % End If sql = select * fro米 车辆报废表 where & scp & and & syy & and & sti米e 如果没有选择查询条件,那么清空上一次查询结果并给出对话框提示,退出查询过程 If sql = select * fr

17、o米 车辆报废表 where 车牌号码 like %and 报废原因 like %and 报废日期 like % Then Call QingKong 米sgBox 请选择查询条件, , 系统提示 Exit Sub End If 返回符合查询条件的 记录集 Set adors = adoCon.Execute(sql) 如果记录集为空,说明没有符合条件的 记录存在,清空上一次查询结果集并提示, 退出此次查询过程,否则在datagrid1控件里显示记录集 If adors.EOF Then Call QingKong 米sgBox 对不起,没有符合您查询条件的 车辆！, , 系统提示 Else

18、Adodc1.RecordSource = sql Adodc1.Refresh End If adors.Close ckcp.Value = 0 ckti米e.Value = 0 ckyy.Value = 0End SubPrivate Sub 厘米dExit_Click() 米DIFor米1.StatusBar1.Panels(1).Text = Unload 米eEnd SubPrivate Sub For米_Load() fr米carBFcha.Height = 4155 fr米carBFcha.Width = 5730 Label1.Caption = 车辆报废列表 Call Re

19、bind 将车辆报废表里的 车牌号码加到厘米cp控件里 Set adors = adoCon.Execute(select distinct 车牌号码,报废原因 fro米 车辆报废表) On Error Resu米e Next Do 厘米cp.AddIte米 adors.Fields(0) 厘米yy.AddIte米 adors.Fields(1) adors.米oveNext Loop Until adors.EOFEnd SubPrivate Sub Rebind() Label1.Caption = 车辆报废列表 进行与数据库的 绑定及选择作为记录源的 表 Adodc1.Connectio

20、nString = Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= & App.Path & clgl.米db & ;Persist Security Info=False Adodc1.RecordSource = select * fro米 车辆报废表 Adodc1.RefreshEnd SubPrivate Sub QingKong() Label1.Caption = 您所要查询的 报废车辆记录如下: Adodc1.ConnectionString = Provider=米icrosoft.Jet.OLEDB.4.0;Data Source=

21、 & App.Path & clgl.米db & ;Persist Security Info=False Adodc1.RecordSource = select * fro米 车辆报废表 where 0=1 Adodc1.RefreshEnd SubPrivate Sub For米_QueryUnload(Cancel As Integer, Unload米ode As Integer) 厘米dExit_ClickEnd Sub3.车辆档案查询:代码分析:Private Sub ckbf_Click() If ckbf.Value Then Co米bo6.Enabled = True El

22、se Co米bo6.Enabled = False End IfEnd SubPrivate Sub ckbx_Click() If ckbx.Value Then Co米bo4.Enabled = True Else Co米bo4.Enabled = False End IfEnd SubPrivate Sub ckcp_Click() If ckcp.Value Then Co米bo1.Enabled = True Else Co米bo1.Enabled = False End IfEnd SubPrivate Sub ckdw_Click() If ckdw.Value Then Co米

23、bo3.Enabled = True Else Co米bo3.Enabled = False End IfEnd SubPrivate Sub cklx_Click() If cklx.Value Then Co米bo2.Enabled = True Else Co米bo2.Enabled = False End IfEnd SubPrivate Sub ckyd_Click() If ckyd.Value Then Co米bo5.Enabled = True Else Co米bo5.Enabled = False End IfEnd SubPrivate Sub 厘米dAll_Click()

24、 Fra米e1.Enabled = False ckcp.Value = 0 cklx.Value = 0 ckdw.Value = 0 ckbx.Value = 0 ckyd.Value = 0 ckbf.Value = 0 Call Rebind 厘米dCha.Visible = True 厘米dAll.Visible = False 厘米dOk.Enabled = FalseEnd SubPrivate Sub 厘米dExit_Click() 米DIFor米1.StatusBar1.Panels(1).Text = Unload 米eEnd SubPrivate Sub 厘米dCha_C

25、lick() 点击查询按纽后首先清空车辆档案列表 Call QingKong 厘米dCha.Visible = False 厘米dAll.Visible = True Fra米e1.Enabled = True 厘米dOk.Enabled = TrueEnd SubPrivate Sub 厘米dOk_Click() Di米 sql As String Di米 scp As String If ckcp.Value Then scp = 车牌号码 like & Co米bo1.Text & % Else scp = 车牌号码 like % End If Di米 slx As String If c

26、klx.Value Then slx = 车辆类型 like% & Co米bo2.Text & % Else slx = 车辆类型 like % End If Di米 sdw As String If ckdw.Value Then sdw = 车辆所在单位 like% & Co米bo3.Text & % Else sdw = 车辆所在单位 like % End If Di米 sbx As String If ckbx.Value Then sbx = 保险否= & Co米bo4.Text & Else sbx = 保险否 like % End If Di米 syd As String If

27、ckyd.Value Then syd = 异动否= & Co米bo5.Text & Else syd = 异动否 like % End If Di米 sbf As String If ckbf.Value Then sbf = 报废否= & Co米bo6.Text & Else sbf = 报废否 like % End If sql = select * fro米 车辆档案 where & scp & and & slx & and & sdw & and & sbx & and & syd & and & sbf 米sgBox sql If sql = select * fro米 车辆档案

28、 where 车牌号码 like %and 车辆类型 like %and 车辆所在单位 like %and 保险否 like %and 异动否 like %and 报废否 like % Then 米sgBox 请选择查询条件, , 系统提示 清空上一次的 查询记录 Call QingKong Exit Sub End If Set adors = adoCon.Execute(sql) If adors.EOF Then 清空上一次的 查询记录 Call QingKong 给出文本框提示 米sgBox 没有符合您查询车辆的 条件！, , 系统提示 Else Adodc1.RecordSourc

29、e = sql Adodc1.Refresh End If adors.Close ckcp.Value = 0 cklx.Value = 0 ckdw.Value = 0 ckbx.Value = 0 ckyd.Value = 0 ckbf.Value = 0End SubPrivate Sub For米_Load() Adodc1.ConnectionString = Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= & App.Path & clgl.米db;Persist Security Info=False Call Rebind 厘米dA

30、ll.Visible = False 厘米dCha.Visible = True 厘米dOk.Enabled = False fr米cardacha.Height = 5070 fr米cardacha.Width = 7935 将表里存在的 所有车牌加到控件co米bo1里 On Error Resu米e Next Adodc1.RecordSource = select distinct 车牌号码 fro米 车辆档案 Do Co米bo1.AddIte米 Adodc1.Recordset.Fields(0) Adodc1.Recordset.米oveNext Loop Until Adodc1.

31、Recordset.EOF Adodc1.Refresh Adodc2.RecordSource = select distinct 车辆类型 fro米 车辆档案 Adodc2.Refresh Do Co米bo2.AddIte米 Adodc2.Recordset.Fields(0) Adodc2.Recordset.米oveNext Loop Until Adodc2.Recordset.EOF Adodc3.RecordSource = select distinct 车辆所在单位 fro米 车辆档案 Adodc3.Refresh Do Co米bo3.AddIte米 Adodc3.Recor

32、dset.Fields(0) Adodc3.Recordset.米oveNext Loop Until Adodc3.Recordset.EOF Adodc1.RecordSource = select * fro米 车辆档案 Adodc1.RefreshEnd SubPrivate Sub For米_QueryUnload(Cancel As Integer, Unload米ode As Integer) 厘米dExit_ClickEnd SubPrivate Sub Rebind() Fra米e2.Caption = 车辆档案列表 联接数据库及选表 Adodc1.ConnectionStr

33、ing = Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= & App.Path & clgl.米db & ;Persist Security Info=False Adodc1.RecordSource = select * fro米 车辆档案 Adodc1.RefreshEnd SubPrivate Sub QingKong() Fra米e2.Caption = 您所要查询的 车辆档案如下: 清空datagrid1控件里的 记录 Adodc1.ConnectionString = Provider=米icrosoft.Jet.OLEDB.4.0;

34、Data Source= & App.Path & clgl.米db & ;Persist Security Info=False Adodc1.RecordSource = select * fro米 车辆档案 where 0=1 Adodc1.RefreshEnd Sub4 车辆事故查询界面:代码分析:Private Sub ckcp_Click() If ckcp.Value Then 厘米CP.Enabled = True Else 厘米CP.Enabled = False End IfEnd SubPrivate Sub ckti米e_Click() If ckti米e.Value

35、Then dtStart.Enabled = True dtEnd.Enabled = True Else dtStart.Enabled = False dtEnd.Enabled = False End IfEnd SubPrivate Sub 厘米dCha_Click() 点击查询按纽后首先清空车辆档案列表 Call QingKong 定义查询字符串 Di米 sql As String Di米 scp As String If ckcp.Value Then scp = 车牌号码 like & 厘米CP.Text & % Else scp = 车牌号码 like % End If Di米

36、 sti米e As String If ckti米e.Value Then sti米e = 事故时间 between 号 & dtStart.米onth & / & dtStart.Day & / & dtStart.Year & 号 and 号 & dtEnd.米onth & / & dtEnd.Day & / & dtEnd.Year & 号 Else sti米e = 事故时间 like % End If sql = select * fro米 车辆事故表 where & scp & and & sti米e 米sgBox sql If sql = select * fro米 车辆事故表 w

37、here 车牌号码 like %and 事故时间 like % Then Call QingKong 米sgBox 请选择查询条件, , 系统提示 Exit Sub End If Set adors = adoCon.Execute(sql) If adors.EOF Then Call QingKong 米sgBox 对不起,没有符合您查询条件的 车辆事故记录！, , 系统提示 Else Adodc1.RecordSource = sql Adodc1.Refresh End If adors.Close ckcp.Value = 0 ckti米e.Value = 0 End SubPriv

38、ate Sub 厘米dExit_Click() 米DIFor米1.StatusBar1.Panels(1).Text = Unload 米eEnd SubPrivate Sub For米_Load() fr米carSGcha.Width = 6375 fr米carSGcha.Height = 3885 Call Rebind Set adors = adoCon.Execute(select distinct 车牌号码 fro米 车辆事故表) On Error Resu米e Next Do 厘米CP.AddIte米 adors.Fields(0) adors.米oveNext Loop Unt

39、il adors.EOF adors.CloseEnd SubPrivate Sub Rebind() Fra米e2.Caption = 车辆事故列表 Adodc1.ConnectionString = Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= & App.Path & clgl.米db;Persist Security Info=False Adodc1.RecordSource = select * fro米 车辆事故表 Adodc1.RefreshEnd SubPrivate Sub QingKong() Fra米e2.Caption =

40、 您所要查询的 车辆事故记录如下: Adodc1.ConnectionString = Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= & App.Path & clgl.米db;Persist Security Info=False Adodc1.RecordSource = select * fro米 车辆事故表 where 0=1 Adodc1.RefreshEnd SubPrivate Sub For米_QueryUnload(Cancel As Integer, Unload米ode As Integer) 厘米dExit_Click En

41、d Sub5.车辆维修查询界面:代码分析:Private Sub ckcp_Click() If ckcp.Value Then 厘米cp.Enabled = True Else 厘米cp.Enabled = False End IfEnd SubPrivate Sub ckfy_Click() If ckfy.Value Then Co米bo1.Enabled = True Co米bo1.ListIndex = 0 txtFY.Enabled = True Else txtFY.Enabled = False Co米bo1.Enabled = False End IfEnd SubPriva

42、te Sub ckti米e_Click() If ckti米e.Value Then dtStart.Enabled = True dtEnd.Enabled = True Else dtStart.Enabled = False dtEnd.Enabled = False End IfEnd SubPrivate Sub 厘米dCha_Click() Call QingKong Di米 sql As String Di米 scp As String If ckcp.Value Then scp = 车牌号码 like & 厘米cp.Text & % Else scp = 车牌号码 like

43、% End If Di米 sti米e As String If ckti米e.Value Then sti米e = 维修日期 between 号 & dtStart.米onth & / & dtStart.Day & / & dtStart.Year & 号 and 号 & dtEnd.米onth & / & dtEnd.Day & / & dtEnd.Year & 号 Else sti米e = 维修日期 like % End If Di米 sfy As String If ckfy.Value Then sfy = 共计费用 & Co米bo1.Text & & txtFY & Else sf

44、y = 共计费用 like % End If sql = select * fro米 车辆维修表 where & scp & and & sti米e & and & sfy 米sgBox sql If sql = select * fro米 车辆维修表 where 车牌号码 like %and 维修日期 like %and 共计费用 like % Then Call QingKong 米sgBox 请选择查询条件, , 系统提示 Exit Sub End If Set adors = adoCon.Execute(sql) If adors.EOF Then Call QingKong 米sg

45、Box 对不起,没有符合您查询条件的 车辆维修记录！, , 系统提示 Else Adodc1.RecordSource = sql Adodc1.Refresh End If adors.Close ckcp.Value = 0 ckti米e.Value = 0 ckfy.Value = 0End SubPrivate Sub 厘米dExit_Click() 米DIFor米1.StatusBar1.Panels(1).Text = Unload 米eEnd SubPrivate Sub For米_Load() fr米carWXcha.Width = 6345 fr米carWXcha.Heigh

46、t = 4395 Call Rebind add all cp in the table carWX Set adors = adoCon.Execute(select distinct 车牌号码 fro米 车辆维修表) On Error Resu米e Next Do 厘米cp.AddIte米 adors.Fields(0) adors.米oveNext Loop Until adors.EOF adors.CloseEnd SubPrivate Sub Rebind() Fra米e2.Caption = 车辆维修列表 Adodc1.ConnectionString = Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= & App.Path & clgl.米db;Persist Security Info=False Adodc1.RecordSource = select * fro米 车辆维修表 Adodc1.RefreshEnd SubPrivate Sub QingKong() Fra米e2.Caption = 您所要查询的 车辆维修记录如下: Adodc1.ConnectionString = Provider=米icrosoft.Jet.OL