車輛管理系統(tǒng)論文

1、 畢業(yè)設(shè)計(jì) 車輛管理系統(tǒng) 班級姓名專業(yè) 摘 要1Abstract2第一章 引言411 課題背景412 系統(tǒng)簡介5第二章 系統(tǒng)的分析621 系統(tǒng)開發(fā)的目標(biāo)和思想622 系統(tǒng)的可行性分析8第三章 系統(tǒng)的設(shè)計(jì)1831 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)1832 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)33 界面設(shè)計(jì)與代碼設(shè)計(jì)2324結(jié)束語46致謝47參考文獻(xiàn)摘 要 車輛管理系統(tǒng)用計(jì)算機(jī)管理機(jī)動車輛的檔案,運(yùn)營管理以及駕駛員信息的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前車輛管理都是由工作人員手工抄寫的方式來操作的.現(xiàn)在一般的車輛管理都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)智能化車輛管理程序來幫助工作人員進(jìn)行更有效的機(jī)動車輛管理。車輛管理系

2、統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。 經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。關(guān)鍵字:評語管理,MIS,visual basic ,數(shù)據(jù)庫AbstractVehicle Managemen

3、t System Computer used motor vehicles archives management, operation and management of a driver information computer applications innovation, Management has not yet popular in the computer before the vehicles are from the staff manual transcription to operate. Now the general management of the vehic

4、les are used as a tool for computer computer intelligent vehicle management procedures to help staff more effective management of motor vehicles. Vehicle management system is a typical management information system (MIS), including its main development background to the establishment and maintenance

5、 of the database and front-end application development 2. The request for the establishment 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 Microsoft visual basic developm

6、ent tool companies, the use of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, computation of the initial prototype system needs

7、 to constantly revise and improve until the formation of a viable system of user satisfaction. keyword : comments management MIS,visual basic database第一章 引言11 課題背景車輛管理系統(tǒng)用計(jì)算機(jī)管理機(jī)動車輛的檔案,運(yùn)營管理以及駕駛員信息的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前車輛管理都是由工作人員手工抄寫的方式來操作的.現(xiàn)在一般的車輛管理都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)智能化車輛管理程序來幫助工作人員進(jìn)行更有效的機(jī)動車輛管理。車輛管

8、理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。12 系統(tǒng)簡介本系統(tǒng)主要服務(wù)于車管所工作人員管理轄區(qū)機(jī)動車輛,以及駕駛員相關(guān)信息,本系統(tǒng)由以下幾大功能模塊構(gòu)成.一:車輛檔案管理(車輛檔案建立,車輛檔案查詢,車輛檔案刪除,車輛檔案變更查詢等.)二:車輛運(yùn)營管理(車輛運(yùn)營表,車輛運(yùn)營查詢,清空車輛運(yùn)營表)三:車輛管理(車輛維修管理,車輛報(bào)廢管理等)四:駕駛員管理(駕駛員檔案管理,駕駛員檔案查詢等)五:系統(tǒng)維護(hù)(系統(tǒng)備份,系統(tǒng)還原,系統(tǒng)檢

9、查)第二章 系統(tǒng)的分析2.1系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)主要服務(wù)于機(jī)動車管理人員的日常工作.利用本系統(tǒng)可以方便的監(jiān)控管理本區(qū)域的駕駛員信息.在此基礎(chǔ)上力求軟件界面人性化以及操作簡單,程序具有健壯性等.2.2 系統(tǒng)的可行性分析技術(shù)上:本系統(tǒng)采用visual basic 6.0與微軟的access作為數(shù)據(jù)庫,技術(shù)上開發(fā)難度一般.經(jīng)濟(jì)上:本系統(tǒng)服務(wù)于車輛管理人員,提高了車管工作者辦事效率,節(jié)省了開支.所以具有經(jīng)濟(jì)上的可行性.社會上:本系統(tǒng)同時也方便了廣大駕駛員.所以具有社會可行性.第三章 系統(tǒng)的設(shè)計(jì)31 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)程序登陸主界面車輛檔案管理車輛運(yùn)盈管理車輛管理駕駛員管理系統(tǒng)維護(hù)32 系統(tǒng)的數(shù)

10、據(jù)庫設(shè)計(jì)1.車輛報(bào)廢表:2.車輛檔案表:3.車輛事故表:4:車輛違規(guī)表:5:車輛維修表:6:車輛變更表:7:車輛運(yùn)營表:8:駕駛員檔案9:獎懲表:10:零件表:11:用戶表:33 界面設(shè)計(jì)與代碼設(shè)計(jì)1:登陸界面設(shè)計(jì)登陸界面代碼設(shè)計(jì):Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End IfEnd SubPrivate Sub Command1_Click() Set adors = adoCon.Execute("select * from 用戶表 wh

11、ere 用戶姓名=ltrim('" & Text1 & "') and 密碼=ltrim('" & Text2 & "') and 用戶類型=ltrim('" & Combo1.Text & "')") If adors.EOF Then MsgBox "您輸入的信息有誤，請重新輸入！", , "系統(tǒng)提示" Text1 = "" Text2 = ""

12、Text1.SetFocus i = i + 1 If i = 3 Then MsgBox "對不起，您已無權(quán)使用本系統(tǒng)！", , "系統(tǒng)提示" Unload Me End If Else Select Case adors!用戶類型 Case "管理員" Case "普通用戶" MDIForm1.mnuyydelete.Enabled = False MDIForm1.mnusyscsh.Enabled = False MDIForm1.mnuglyset.Enabled = False End Select M

13、DIForm1.Show adors.Close Unload Me End IfEnd SubPrivate Sub Command2_Click() Unload Me 'adoRs.CloseEnd SubPrivate Sub Form_Load() Combo1.ListIndex = 0End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As In

14、teger) If KeyAscii = 13 Then Combo1.SetFocus End IfEnd Sub2車輛報(bào)廢查詢:代碼分析:Private Sub ckcp_Click() If ckcp.Value Then cmcp.Enabled = True Else cmcp.Enabled = False End IfEnd SubPrivate Sub cktime_Click() If cktime.Value Then dtStart.Enabled = True dtEnd.Enabled = True Else dtStart.Enabled = False dtEnd

15、.Enabled = False End IfEnd SubPrivate Sub ckyy_Click() If ckyy.Value Then cmyy.Enabled = True Else cmyy.Enabled = False End IfEnd SubPrivate Sub cmdCha_Click() '點(diǎn)擊查詢按紐后首先清空車輛報(bào)廢列表 Call QingKong '定義查詢條件的字符串 Dim sql As String Dim scp As String If ckcp.Value Then scp = "車牌號碼 like '%&quo

16、t; & cmcp.Text & "%'" Else scp = "車牌號碼 like '%'" End If Dim stime As String If cktime.Value Then stime = "報(bào)廢日期 between #" & dtStart.Month & "/" & dtStart.Day & "/" & dtStart.Year & "# and #" &

17、 dtEnd.Month & "/" & dtEnd.Day & "/" & dtEnd.Year & "#" Else stime = "報(bào)廢日期 like '%'" End If Dim sdd As String If ckyy.Value Then syy = "報(bào)廢原因 like'%" & cmyy.Text & "%'" Else syy = "報(bào)廢原因 like &

18、#39;%'" End If sql = "select * from 車輛報(bào)廢表 where " & scp & "and " & syy & "and " & stime '如果沒有選擇查詢條件，那么清空上一次查詢結(jié)果并給出對話框提示，退出查詢過程 If sql = "select * from 車輛報(bào)廢表 where 車牌號碼 like '%'and 報(bào)廢原因 like '%'and 報(bào)廢日期 like '%

19、9;" Then Call QingKong MsgBox "請選擇查詢條件", , "系統(tǒng)提示" Exit Sub End If '返回符合查詢條件的記錄集 Set adors = adoCon.Execute(sql) '如果記錄集為空，說明沒有符合條件的記錄存在，清空上一次查詢結(jié)果集并提示， '退出此次查詢過程，否則在datagrid1控件里顯示記錄集 If adors.EOF Then Call QingKong MsgBox "對不起，沒有符合您查詢條件的車輛！", , "系統(tǒng)提示

20、" Else Adodc1.RecordSource = sql Adodc1.Refresh End If adors.Close ckcp.Value = 0 cktime.Value = 0 ckyy.Value = 0End SubPrivate Sub cmdExit_Click() MDIForm1.StatusBar1.Panels(1).Text = "" Unload MeEnd SubPrivate Sub Form_Load() frmcarBFcha.Height = 4155 frmcarBFcha.Width = 5730 Label1

21、.Caption = "車輛報(bào)廢列表" Call Rebind '將車輛報(bào)廢表里的車牌號碼加到cmcp控件里 Set adors = adoCon.Execute("select distinct 車牌號碼,報(bào)廢原因 from 車輛報(bào)廢表") On Error Resume Next Do cmcp.AddItem adors.Fields(0) cmyy.AddItem adors.Fields(1) adors.MoveNext Loop Until adors.EOFEnd SubPrivate Sub Rebind() Label1.Ca

22、ption = "車輛報(bào)廢列表" '進(jìn)行與數(shù)據(jù)庫的綁定及選擇作為記錄源的表 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "clgl.mdb " & "Persist Security Info=False" Adodc1.RecordSource = "select * from 車輛報(bào)廢表" Adodc1.RefreshEnd Sub

23、Private Sub QingKong() Label1.Caption = "您所要查詢的報(bào)廢車輛記錄如下：" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "clgl.mdb " & "Persist Security Info=False" Adodc1.RecordSource = "select * from 車輛報(bào)廢表 where 0=1&q

24、uot; Adodc1.RefreshEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) cmdExit_ClickEnd Sub3.車輛檔案查詢:代碼分析:Private Sub ckbf_Click() If ckbf.Value Then Combo6.Enabled = True Else Combo6.Enabled = False End IfEnd SubPrivate Sub ckbx_Click() If ckbx.Value Then Combo4.Enabled = T

25、rue Else Combo4.Enabled = False End IfEnd SubPrivate Sub ckcp_Click() If ckcp.Value Then Combo1.Enabled = True Else Combo1.Enabled = False End IfEnd SubPrivate Sub ckdw_Click() If ckdw.Value Then Combo3.Enabled = True Else Combo3.Enabled = False End IfEnd SubPrivate Sub cklx_Click() If cklx.Value Th

26、en Combo2.Enabled = True Else Combo2.Enabled = False End IfEnd SubPrivate Sub ckyd_Click() If ckyd.Value Then Combo5.Enabled = True Else Combo5.Enabled = False End IfEnd SubPrivate Sub cmdAll_Click() Frame1.Enabled = False ckcp.Value = 0 cklx.Value = 0 ckdw.Value = 0 ckbx.Value = 0 ckyd.Value = 0 ck

27、bf.Value = 0 Call Rebind cmdCha.Visible = True cmdAll.Visible = False cmdOk.Enabled = FalseEnd SubPrivate Sub cmdExit_Click() MDIForm1.StatusBar1.Panels(1).Text = "" Unload MeEnd SubPrivate Sub cmdCha_Click() '點(diǎn)擊查詢按紐后首先清空車輛檔案列表 Call QingKong cmdCha.Visible = False cmdAll.Visible = True

28、 Frame1.Enabled = True cmdOk.Enabled = TrueEnd SubPrivate Sub cmdOk_Click() Dim sql As String Dim scp As String If ckcp.Value Then scp = "車牌號碼 like '" & Combo1.Text & "%'" Else scp = "車牌號碼 like '%'" End If Dim slx As String If cklx.Value Then slx

29、 = "車輛類型 like'%" & Combo2.Text & "%'" Else slx = "車輛類型 like '%'" End If Dim sdw As String If ckdw.Value Then sdw = "車輛所在單位 like'%" & Combo3.Text & "%'" Else sdw = "車輛所在單位 like '%'" End If Dim

30、sbx As String If ckbx.Value Then sbx = "保險(xiǎn)否='" & Combo4.Text & "'" Else sbx = "保險(xiǎn)否 like '%'" End If Dim syd As String If ckyd.Value Then syd = "異動否='" & Combo5.Text & "'" Else syd = "異動否 like '%'&q

31、uot; End If Dim sbf As String If ckbf.Value Then sbf = " 報(bào)廢否='" & Combo6.Text & "'" Else sbf = "報(bào)廢否 like '%'" End If sql = "select * from 車輛檔案 where " & scp & "and " & slx & "and " & sdw & &qu

32、ot;and " & sbx & "and " & syd & "and " & sbf 'MsgBox sql If sql = "select * from 車輛檔案 where 車牌號碼 like '%'and 車輛類型 like '%'and 車輛所在單位 like '%'and 保險(xiǎn)否 like '%'and 異動否 like '%'and 報(bào)廢否 like '%'" Th

33、en MsgBox "請選擇查詢條件", , "系統(tǒng)提示" '清空上一次的查詢記錄 Call QingKong Exit Sub End If Set adors = adoCon.Execute(sql) If adors.EOF Then '清空上一次的查詢記錄 Call QingKong '給出文本框提示 MsgBox "沒有符合您查詢車輛的條件！", , "系統(tǒng)提示" Else Adodc1.RecordSource = sql Adodc1.Refresh End If adors

34、.Close ckcp.Value = 0 cklx.Value = 0 ckdw.Value = 0 ckbx.Value = 0 ckyd.Value = 0 ckbf.Value = 0End SubPrivate Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "clgl.mdb;Persist Security Info=False" Call Rebind cmdAll.

35、Visible = False cmdCha.Visible = True cmdOk.Enabled = False frmcardacha.Height = 5070 frmcardacha.Width = 7935 '將表里存在的所有車牌加到控件combo1里 On Error Resume Next Adodc1.RecordSource = "select distinct 車牌號碼 from 車輛檔案" Do Combo1.AddItem Adodc1.Recordset.Fields(0) Adodc1.Refresh Adodc2.RecordSou

36、rce = "select distinct 車輛類型 from 車輛檔案" Adodc2.Refresh Do Combo2.AddItem Adodc2.Recordset.Fields(0) Adodc3.RecordSource = "select distinct 車輛所在單位 from 車輛檔案" Adodc3.Refresh Do Combo3.AddItem Adodc3.Recordset.Fields(0) Adodc1.RecordSource = "select * from 車輛檔案" Adodc1.Refr

37、eshEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) cmdExit_ClickEnd SubPrivate Sub Rebind() Frame2.Caption = "車輛檔案列表" '聯(lián)接數(shù)據(jù)庫及選表 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "clgl.mdb " &

38、amp; "Persist Security Info=False" Adodc1.RecordSource = "select * from 車輛檔案" Adodc1.RefreshEnd SubPrivate Sub QingKong() Frame2.Caption = "您所要查詢的車輛檔案如下：" '清空datagrid1控件里的記錄 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ap

39、p.Path & "clgl.mdb " & "Persist Security Info=False" Adodc1.RecordSource = "select * from 車輛檔案 where 0=1" Adodc1.RefreshEnd Sub4 車輛事故查詢界面:代碼分析:Private Sub ckcp_Click() If ckcp.Value Then cmCP.Enabled = True Else cmCP.Enabled = False End IfEnd SubPrivate Sub ckti

40、me_Click() If cktime.Value Then dtStart.Enabled = True dtEnd.Enabled = True Else dtStart.Enabled = False dtEnd.Enabled = False End IfEnd SubPrivate Sub cmdCha_Click() '點(diǎn)擊查詢按紐后首先清空車輛檔案列表 Call QingKong '定義查詢字符串 Dim sql As String Dim scp As String If ckcp.Value Then scp = "車牌號碼 like '&

41、quot; & cmCP.Text & "%'" Else scp = "車牌號碼 like '%'" End If Dim stime As String If cktime.Value Then stime = "事故時間 between #" & dtStart.Month & "/" & dtStart.Day & "/" & dtStart.Year & "# and #" &a

42、mp; dtEnd.Month & "/" & dtEnd.Day & "/" & dtEnd.Year & "#" Else stime = "事故時間 like '%'" End If sql = "select * from 車輛事故表 where " & scp & "and " & stime 'MsgBox sql If sql = "select * from 車輛

43、事故表 where 車牌號碼 like '%'and 事故時間 like '%'" Then Call QingKong MsgBox "請選擇查詢條件", , "系統(tǒng)提示" Exit Sub End If Set adors = adoCon.Execute(sql) If adors.EOF Then Call QingKong MsgBox "對不起，沒有符合您查詢條件的車輛事故記錄！", , "系統(tǒng)提示" Else Adodc1.RecordSource = sql

44、 Adodc1.Refresh End If adors.Close ckcp.Value = 0 cktime.Value = 0 End SubPrivate Sub cmdExit_Click() MDIForm1.StatusBar1.Panels(1).Text = "" Unload MeEnd SubPrivate Sub Form_Load() frmcarSGcha.Width = 6375 frmcarSGcha.Height = 3885 Call Rebind Set adors = adoCon.Execute("select disti

45、nct 車牌號碼 from 車輛事故表") On Error Resume Next Do cmCP.AddItem adors.Fields(0) adors.MoveNext Loop Until adors.EOF adors.CloseEnd SubPrivate Sub Rebind() Frame2.Caption = "車輛事故列表" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & &quo

46、t;clgl.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from 車輛事故表" Adodc1.RefreshEnd SubPrivate Sub QingKong() Frame2.Caption = "您所要查詢的車輛事故記錄如下：" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "c

47、lgl.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from 車輛事故表 where 0=1" Adodc1.RefreshEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) cmdExit_Click End Sub5.車輛維修查詢界面:代碼分析:Private Sub ckcp_Click() If ckcp.Value Then cmcp.Enabled = True E

48、lse cmcp.Enabled = False End IfEnd SubPrivate Sub ckfy_Click() If ckfy.Value Then Combo1.Enabled = True Combo1.ListIndex = 0 txtFY.Enabled = True Else txtFY.Enabled = False Combo1.Enabled = False End IfEnd SubPrivate Sub cktime_Click() If cktime.Value Then dtStart.Enabled = True dtEnd.Enabled = True

49、 Else dtStart.Enabled = False dtEnd.Enabled = False End IfEnd SubPrivate Sub cmdCha_Click() Call QingKong Dim sql As String Dim scp As String If ckcp.Value Then scp = "車牌號碼 like '" & cmcp.Text & "%'" Else scp = "車牌號碼 like '%'" End If Dim stime As

50、 String If cktime.Value Then stime = "維修日期 between #" & dtStart.Month & "/" & dtStart.Day & "/" & dtStart.Year & "# and #" & dtEnd.Month & "/" & dtEnd.Day & "/" & dtEnd.Year & "#" El

51、se stime = "維修日期 like '%'" End If Dim sfy As String If ckfy.Value Then sfy = "共計(jì)費(fèi)用 " & Combo1.Text & "" & txtFY & "" Else sfy = "共計(jì)費(fèi)用 like '%'" End If sql = "select * from 車輛維修表 where " & scp & "

52、and " & stime & "and " & sfy 'MsgBox sql If sql = "select * from 車輛維修表 where 車牌號碼 like '%'and 維修日期 like '%'and 共計(jì)費(fèi)用 like '%'" Then Call QingKong MsgBox "請選擇查詢條件", , "系統(tǒng)提示" Exit Sub End If Set adors = adoCon.Execute(

53、sql) If adors.EOF Then Call QingKong MsgBox "對不起，沒有符合您查詢條件的車輛維修記錄！", , "系統(tǒng)提示" Else Adodc1.RecordSource = sql Adodc1.Refresh End If adors.Close ckcp.Value = 0 cktime.Value = 0 ckfy.Value = 0End SubPrivate Sub cmdExit_Click() MDIForm1.StatusBar1.Panels(1).Text = "" Unload

54、 MeEnd SubPrivate Sub Form_Load() frmcarWXcha.Width = 6345 frmcarWXcha.Height = 4395 Call Rebind 'add all cp in the table carWX Set adors = adoCon.Execute("select distinct 車牌號碼 from 車輛維修表") On Error Resume Next Do cmcp.AddItem adors.Fields(0) adors.MoveNext Loop Until adors.EOF adors.CloseEnd SubPrivate Sub Rebind() Frame2.Caption = "車輛維修列表" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "clgl.mdb;Persi