【正文】 ) MsgBox 記錄修改成功！, , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = TrueEnd SubPrivate Sub Command6_Click()On Error Resume Next 39。 Text1 amp。 where 駕駛員編號(hào)=39。 Text14 amp。, 備注=39。 Text4 amp。, 所屬車(chē)輛段=39。 Text11 amp。, 發(fā)證日期=39。 Text13 amp。,運(yùn)行安全公里=39。 Text10 amp。, 駕齡=39。 Text12 amp。, 參加工作時(shí)間=39。 Text7 amp。, 技術(shù)級(jí)別=39。 Text8 amp。, 聯(lián)系電話(huà)=39。 Text9 amp。, 家庭住址=39。 Text6 amp。,出生年月=39。 Text5 amp。,性別=39。 Text3 amp。,乘務(wù)員姓名=39。 Text2 amp。)) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 (update 乘務(wù)員檔案表 set 駕駛證編號(hào)=39。 Text14 amp。,39。 Text4 amp。,39。 Text11 amp。,39。 Text13 amp。,39。 Text10 amp。,39。 Text12 amp。,39。 Text7 amp。,39。 Text8 amp。,39。 Text9 amp。,39。 Text6 amp。,39。 Text5 amp。,39。 Text3 amp。,39。 Text2 amp。,39。 Text1 amp。) If = False Then MsgBox 此駕駛員編號(hào)已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If (insert into 乘務(wù)員檔案表 values (39。 amp。當(dāng)沒(méi)有添加數(shù)據(jù)的時(shí)候 處理異常 = (0) = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = (10) = (11) = (12) = (13) = True: = True Else MsgBox 沒(méi)有你需要的信息！, , 系統(tǒng)提示 = False: = False End IfEnd SubPrivate Sub Command5_Click()Select Case i Case 1 If Text1 = Then MsgBox 駕駛員編號(hào)不能為空, , 系統(tǒng)提示 Exit Sub End If If Text2 = Then MsgBox 駕駛證編號(hào)不能為空, , 系統(tǒng)提示 Exit Sub End If If Text3 = Then MsgBox 乘務(wù)員姓名不能為空, , 系統(tǒng)提示 Exit Sub End If If Text6 = Then MsgBox 出生年月不能為空, , 系統(tǒng)提示 Exit Sub End If If Text7 = Then MsgBox 技術(shù)級(jí)別不能為空, , 系統(tǒng)提示 Exit Sub End If Dim rs As New Set rs = (select * from 乘務(wù)員檔案表 where 駕駛員編號(hào)=39。 + str + 39。 39。 amp。這些都有待進(jìn)一步改善。其功能基本符合用戶(hù)需求，能夠完成對(duì)地鐵車(chē)輛管理及人員管理的存儲(chǔ)和查詢(xún)，并提供部分系統(tǒng)維護(hù)功能,使用戶(hù)方便進(jìn)行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)。因此，在以后的時(shí)間里，還要將打印功能予以實(shí)現(xiàn)。 這樣一來(lái)，保證了開(kāi)發(fā)者在用戶(hù)表中永遠(yuǎn)有一條記錄，用戶(hù)可以通過(guò)這條原始記錄進(jìn)入系統(tǒng)。超級(jí)管理員39。)作用是：在管理員設(shè)置窗體中用戶(hù)類(lèi)型的選項(xiàng)中除超級(jí)管理員選項(xiàng)不顯示在bo中，其余的用戶(hù)類(lèi)型數(shù)據(jù)都顯示在bo中。2. 然后在管理員設(shè)置窗體中的確定按鈕的click事件中添加： (select * from 用戶(hù)表 where 用戶(hù)類(lèi)型 39。超級(jí)管理員39。56第 4 章 程序優(yōu)化及待開(kāi)發(fā)的項(xiàng)目由于本系統(tǒng)中有“系統(tǒng)初始化”功能，當(dāng)選擇“系統(tǒng)初始化”菜單項(xiàng)時(shí)，系統(tǒng)將會(huì)清空數(shù)據(jù)庫(kù)中所有的數(shù)據(jù)，包括用戶(hù)表，當(dāng)用戶(hù)表中無(wú)數(shù)據(jù)時(shí)，將導(dǎo)致用戶(hù)從登錄窗體中無(wú)法進(jìn)入系統(tǒng)，因此有必要將程序優(yōu)化。Data Source= car。解決方法： 經(jīng)過(guò)反復(fù)的調(diào)試和實(shí)驗(yàn)，終于查找出其問(wèn)題的原因。 問(wèn)題二當(dāng)點(diǎn)擊查詢(xún)窗體時(shí)，體統(tǒng)會(huì)出現(xiàn)“編譯錯(cuò)誤。 39。 amp。 39。 amp。 實(shí)現(xiàn)中遇到的問(wèn)題及解決方法 問(wèn)題一當(dāng)打開(kāi)車(chē)輛檔案錄入窗體時(shí)，發(fā)現(xiàn)在其窗體中已有一條記錄存在，當(dāng)想做任何操作時(shí)，都會(huì)先彈出“此車(chē)號(hào)已經(jīng)存在”的系統(tǒng)提示?！肮蚕砦募贝绑w中，選擇共享文件后，單擊“下一步”，在彈出的“已完成！”對(duì)話(huà)框中，點(diǎn)擊[完成]按鈕?！皢?dòng)菜單項(xiàng)”中確定安裝進(jìn)程要?jiǎng)?chuàng)建的啟動(dòng)菜單群組及項(xiàng)目，單擊“下一步”。“壓縮文件選項(xiàng)”對(duì)話(huà)框中，選擇創(chuàng)建一個(gè)的大的或多個(gè)壓縮文件的包，單擊“下一步”?！按虬募A”對(duì)話(huà)框，從中選擇打好后的包，將被裝配的文件夾，單擊“下一步”?！按虬_本”對(duì)話(huà)框，從中可以選擇添加、修改打包腳本，單擊“下一步”。 工程的打包操作[程序]中找到Microsoft Visual ，在程序中找到Microsoft Visual ；然后，找到“Package amp。[確定]，關(guān)閉[工程屬性]對(duì)話(huà)框，再在[制作 ]對(duì)話(huà)框中選取[確定]，編譯和連接該執(zhí)行文件。[保存在]列表框中選擇可執(zhí)行文件保存的位置。方法是：[文件]菜單中選取[制作 ]，出現(xiàn)[生成工程]對(duì)話(huà)框。Data Source= car。若要修改該數(shù)據(jù)源，單擊該數(shù)據(jù)源，然后單擊“配置”按鈕，若要?jiǎng)h除該數(shù)據(jù)源，單擊該數(shù)據(jù)源，然后單擊“刪除”按鈕。直接單擊“完成”按鈕。若單擊后者，還應(yīng)選取“連接SQL Server以獲得其它配置選項(xiàng)的默認(rèn)設(shè)置”復(fù)選框，并輸入登陸ID和密碼，然后單擊“下一步”按鈕。在“名稱(chēng)”框中指定數(shù)據(jù)源名稱(chēng)，在“說(shuō)明”框中輸入描述該數(shù)據(jù)源文字，在“服務(wù)器”列表中選擇選擇要連接的SQL Server服務(wù)器，然后點(diǎn)擊“下一步”。選擇“系統(tǒng)DSN”選項(xiàng)卡，然后單擊“添加”按鈕。 If 0 Then On Error Resume Next 39。當(dāng)沒(méi)有添加數(shù)據(jù)的時(shí)候 處理異常 Lockctl = False: = False = True: = True = True: = TrueEnd Sub（10）在【查詢(xún)】按鈕的Click事件下添加代碼如下：Private Sub Command4_Click()Dim str As String str = InputBox$(輸入你要查詢(xún)的駕駛員編號(hào)：, 系統(tǒng)提示) If str = Then Exit Sub = select * from 乘務(wù)員檔案表 where 駕駛員編號(hào)=39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。在窗體上添加Label、Text、Commandbutton、ComboBox、DTPicker控件。在窗體上添加1個(gè)ADO控件，默認(rèn)名為“Adodc1”。車(chē)輛檔案的添加、修改、刪除可以通過(guò)ADO對(duì)象實(shí)現(xiàn)，這其中都使用了AddNew、Update和Delete方法。 If 0 Then On Error Resume Next 39。) MsgBox 記錄修改成功！, , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = TrueEnd Sub（9）在【取消】按鈕的Click事件下添加代碼如下：Private Sub Command5_Click() On Error Resume Next Lockctl = False: = False = True: = True = True: = TrueEnd Sub（10）在【查詢(xún)】按鈕的Click事件下添加代碼如下：Private Sub Command7_Click()Dim str As String str = InputBox$(輸入你要查詢(xún)的車(chē)號(hào)：, 系統(tǒng)提示) If str = Then Exit Sub = select * from 車(chē)輛檔案表 where 車(chē)號(hào)=39。 Text1 amp。 where 車(chē)號(hào)=39。 Text4 amp。, 備注=39。 Combo2 amp。,異動(dòng)否=39。 Text3 amp。,來(lái)段時(shí)間=39。 amp。,購(gòu)置日期=39。 Text2 amp。,車(chē)輛所在單位=39。 Combo1 amp。)) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 (update 車(chē)輛檔案表 set 車(chē)輛類(lèi)型=39。 Text4 amp。,39。 Combo2 amp。,39。 Text3 amp。,39。 amp。,39。 Text2 amp。,39。 Combo1 amp。,39。 Text1 amp。) If = False Then MsgBox 此車(chē)號(hào)已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If (insert into 車(chē)輛檔案表 values (39。 amp。在【確定】按鈕的Click事件下添加代碼如下：Private Sub Command4_Click()Select Case i Case 1 If Text1 = Then MsgBox 車(chē)號(hào)不能為空, , 系統(tǒng)提示 Exit Sub End If If = Then MsgBox 車(chē)輛類(lèi)型不能為空, , 系統(tǒng)提示 Exit Sub End If Dim rs As New Set rs = (select * from 車(chē)輛檔案表 where 車(chē)號(hào)=39。 39。 amp。在【添加】按鈕的Click事件下添加代碼如下： Private Sub Command1_Click()Unlockctl Text1 = : Text2 = : Text3 = : Text4 = : = DK16 = 是 = True: = True = False: = False = False: = True i = 1End Sub（6）在【修改】按鈕的Click事件下添加代碼如下：Private Sub Command2_Click() Unlockctl i = 2 = True: = True = False: = False = False: = FalseEnd Sub（7）使用Delete語(yǔ)句刪除車(chē)輛信息