【正文】 系統(tǒng) ) = vbOK Then (delete from 車(chē)輛運(yùn)營(yíng)表 ) 39。調(diào)用車(chē)輛檔案錄入窗體 Case 2 Call mnujsylist_Click 39。調(diào)用車(chē)輛運(yùn)營(yíng)列表窗體 Case 5 Call mnucarwxlist_Click 39。調(diào)用車(chē)輛違章 列表窗體 Case 7 Call mnucarsglist_Click 39。 （ 2）在表單中添加 Label 控件、 Text 控件、 Image 控件。在“確定”按鈕的 Click 事件中添加以下代碼： = select * from 權(quán)限表 where 用戶(hù)名 =39。 If = 0 Then MsgBox 操作員輸入錯(cuò)誤！ , , 車(chē)輛管理系統(tǒng) ElseIf 0 Then If And And = (密碼 ) Then Load MDIForm1 39。密碼輸錯(cuò) 3 次，退出系統(tǒng) 南京師范大學(xué)泰州學(xué)院畢業(yè)論文 20 myval = MsgBox(密碼輸入錯(cuò)誤 ,請(qǐng)向系統(tǒng)管理員查詢(xún) !, 0, 車(chē)輛管理系統(tǒng) ) If myval = vbOK Then End End If If = Then MsgBox (請(qǐng)輸入用戶(hù)名 !) Else If (用戶(hù)名 ) Then MsgBox (查無(wú)此用戶(hù) ,請(qǐng)重新輸入用戶(hù)名 !) Else If = Then MsgBox (請(qǐng)輸入用戶(hù)密碼 !) Else If (密碼 ) Then MsgBox (密碼錯(cuò)誤 ,請(qǐng)重新輸入密碼 !) TIM = TIM + 1 End If End If End If End If End If End If 車(chē)輛檔案錄入 車(chē)輛檔案錄入操作窗體用于添加、修改、刪除車(chē)輛檔案信息。 窗體界面設(shè)計(jì) （ 1）新建一個(gè)窗體 ，名稱(chēng)為 Frm 車(chē)輛檔案 錄入 。 圖 46車(chē)輛檔案錄入表 代碼設(shè)計(jì) 在 Test1 控件 的 LostFocus 事件下，判斷用戶(hù)添加的“車(chē)牌號(hào)碼”是否與表中的數(shù)據(jù)重復(fù)，其代碼如下： Set rs = (select * from 車(chē)輛檔案 where 車(chē)牌號(hào)碼 =39。 amp。) If = False Then MsgBox 此車(chē)牌號(hào)碼已經(jīng)存在！ , 4, 車(chē)輛管理系統(tǒng) Text1 = 初始化處理，清空文本框空間中的內(nèi)容，為部分控件賦初始值，然后設(shè)置一些按鈕有效，為用戶(hù) 添加新數(shù)據(jù)做準(zhǔn)備。在“刪除”按鈕的 Click 事件下添加代碼如下： If MsgBox(您確實(shí)要?jiǎng)h除記錄嗎？ , vbOKCancel, 車(chē)輛管理系統(tǒng) ) = vbOK Then (delete from 車(chē)輛檔案 where 車(chē)牌號(hào)碼 =39。 Text1 amp。) MsgBox 記錄已刪除！ , , 車(chē)輛管理系統(tǒng) Unload Me 在“取消”按鈕的 Click 事件下添加代碼如下： On Error Resume Next Lockctl = False: = False 南京師范大學(xué)泰州學(xué)院畢業(yè)論文 23 = True: = True = True: = True 車(chē)輛檔案錄入 窗體運(yùn)行結(jié)果，如圖 所示： 圖 47車(chē)輛檔案錄入 車(chē)輛運(yùn)營(yíng)列表 車(chē)輛運(yùn)營(yíng)列表窗 體用于添加、修改、刪除車(chē)輛運(yùn)營(yíng)信息。 在窗體上添加 Text、 Label、 CommandButton、 DTPicker 控件。此車(chē)是否是本公司的 Set rss = (select * from 車(chē)輛檔案 where 車(chē)牌號(hào)碼 =39。 amp。) If Then MsgBox 這輛車(chē)不屬于本公司的！ , , 車(chē)輛管理系統(tǒng) = Exit Sub End If 39。 amp。 39。此車(chē)是否異動(dòng)了 Set rss2 = (select * from 車(chē)輛異動(dòng)表 where 車(chē)牌號(hào)碼=39。 amp。) If Then Else 南京師范大學(xué)泰州學(xué)院畢業(yè)論文 25 MsgBox 此車(chē)為“異動(dòng)車(chē)輛”不能參加運(yùn)營(yíng)！ , , 車(chē)輛管理系統(tǒng) = Exit Sub End If 在“添加”按鈕的 Click 事件下，通過(guò) ADO 對(duì)象創(chuàng)建“車(chē)輛運(yùn)營(yíng)表 ”的記錄集，通過(guò)對(duì)記錄集中記錄數(shù)的判斷對(duì)“營(yíng)運(yùn)編號(hào)”進(jìn)行自動(dòng)編號(hào)，其代碼如下： Dim rs As New select * from 車(chē)輛運(yùn)營(yíng)表 , n, adOpenKeyset, adLockOptimistic If 0 Then aa = (0) = YY + Format(Val(Right((運(yùn)營(yíng)編號(hào) ), 3)) + 1, 000) Else = YY001 End If 在“刪除”按鈕的 Click 事件下，通過(guò) ADO 控件的 Delete 方法刪除數(shù)據(jù)，代碼如下： If MsgBox(您確實(shí)要?jiǎng)h除記錄嗎？ , vbOKCancel, 車(chē)輛管理系統(tǒng) ) = vbOK Then MsgBox 記錄已 刪除！ , , 車(chē)輛管理系統(tǒng) End If 車(chē)輛運(yùn)營(yíng)列表 運(yùn)行結(jié)果，如圖 49 所示： 南京師范大學(xué)泰州學(xué)院畢業(yè)論文 26 圖 49車(chē)輛運(yùn)營(yíng)列表結(jié)果圖 車(chē)輛違章列表 窗體界面設(shè)計(jì) （ 1）新建一個(gè)窗體， Caption 屬性為“車(chē)輛違章記錄”。如圖 410所示： 圖 410車(chē)輛違章記錄圖 程序代碼設(shè)計(jì) 判斷報(bào)廢車(chē)輛和異動(dòng)車(chē)輛不可以添加 到違章列表中，在 Text1 控件 LostFocus事件下 ， 添加如下 核心 代碼： Set rss = (select * from 車(chē)輛檔案 where 車(chē)牌號(hào)碼 =39。 amp。) 南京師范大學(xué)泰州學(xué)院畢業(yè)論文 27 If Then MsgBox 這輛車(chē)不屬于本公司的！ , , 車(chē)輛管理系統(tǒng) = Exit Sub End If Set rss1 = (select * from 車(chē)輛異動(dòng)表 where 車(chē)牌號(hào)碼=39。 amp。) If Then Else MsgBox 該車(chē)為異動(dòng)車(chē)輛！ , , 車(chē)輛管理系統(tǒng) = Exit Sub End If Set rss2 = (select * from 車(chē)輛報(bào)廢表 where 車(chē)牌號(hào)碼=39。 amp。) If Then Else MsgBox 該車(chē)已經(jīng)報(bào)廢！ , , 車(chē)輛管理系統(tǒng) = Exit Sub End If 車(chē)輛違章記錄 窗體運(yùn)行結(jié)果，如圖 411 所示。 窗體界面設(shè)計(jì) （ 1）新建一個(gè)窗體， Caption 屬性為“車(chē)輛運(yùn)營(yíng)查詢(xún)窗體”，在改窗體上一次添加控件。 （ 3）在窗體中添加 Text、 Label、 Image、 DTPicker 控件，如圖 412 所示： 圖 412車(chē)輛運(yùn)營(yíng)查詢(xún)圖 南京師范大學(xué)泰州學(xué)院畢業(yè)論文 29 程序代碼設(shè)計(jì) 設(shè)計(jì)一個(gè) Rebind 過(guò)程，用于顯示表中所有數(shù)據(jù)。Data Source= amp。 \ amp。Persist Security Info=False = select * from 車(chē)輛運(yùn)營(yíng)表 設(shè)計(jì)一個(gè)清空過(guò)程，用于顯示查詢(xún)結(jié)果數(shù)據(jù)。Data Source= amp。 \ amp。Persist Security Info=False = select * from 車(chē)輛運(yùn)營(yíng)表 where 1=0 車(chē)輛運(yùn)營(yíng)查詢(xún) 窗體運(yùn)營(yíng)結(jié)果，如圖 413 所示： 圖 413車(chē)輛運(yùn)營(yíng)查詢(xún)結(jié)果圖 南京師范大學(xué)泰州學(xué)院畢業(yè)論文 30 程序調(diào)試和錯(cuò)誤處理 運(yùn)行“車(chē)輛違章查詢(xún)”模塊，查詢(xún)車(chē)輛違章信息時(shí)出現(xiàn)“ FROM 子句語(yǔ)法錯(cuò)誤”的錯(cuò)誤提示。其功能基本符合用戶(hù)需求，能夠完成信息錄入，信息查詢(xún)和統(tǒng)計(jì)，并提供一定的系統(tǒng)維護(hù)功能，使用戶(hù)方便的對(duì)數(shù)據(jù)進(jìn)行錄入，修改，刪除，備份等操作，并且對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了一定的解決。 （ 2） 在登陸頁(yè)面，對(duì)密碼沒(méi)有限制，可以使其數(shù)字和字符混合并控制其長(zhǎng)度。 （ 4） 在設(shè)置的登錄界面，比較簡(jiǎn)單，我們可以直接按 Enter 鍵就可以登錄。 （ 6） 在編寫(xiě)軟件部分的時(shí)候，會(huì)遇到很多意想不到的問(wèn)題，自己可能會(huì)認(rèn)為代碼沒(méi)有錯(cuò)，但是當(dāng)你細(xì)心一點(diǎn)查找的時(shí)候，你會(huì)發(fā)現(xiàn)你的代碼還 是有問(wèn)題的，而且在編寫(xiě)的過(guò)程中，要不斷地調(diào)試，才可以保證你的代碼 是沒(méi)有錯(cuò)誤的。 南京師范大學(xué)泰州學(xué)院畢業(yè)論文 32 結(jié)束語(yǔ) 本軟件的設(shè)計(jì)目的是為車(chē)管人員方便管理機(jī)動(dòng)車(chē)與駕駛員信息提供方便。經(jīng)過(guò)大量的測(cè)試和試用，我深信本軟件達(dá)到了方便和實(shí)用的設(shè)計(jì)目的，并在軟件界面和易用實(shí)用等方面有著獨(dú)到之處。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，將在日后繼