【正文】 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。 If 0 Then On Error Resume Next 39。) MsgBox 記錄已刪除！, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command4_Click()Dim str As String str = InputBox$(輸入你要查詢的駕駛員編號：, 系統(tǒng)提示) If str = Then Exit Sub = select * from 乘務員檔案表 where 駕駛員編號=39。 Text1 amp。另外，在系統(tǒng)開發(fā)過程中還有各位同學們同樣給與我不少幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，這里一并表示感謝！參 考 文 獻[1] Basic ，2001年2月出版 [2] ，2004年1月出版 [3] 郭瑞軍、唐邦民、謝晗昕 Basic 數(shù)據(jù)庫開發(fā)實例精粹. ，2005年1月出版 [4] 塞奎春、高春艷、李俊民、 Basic 信息系統(tǒng)開發(fā)實例精選.，2005年7月出版[5] 劉瑞新、張二峰、齊暉、 Basic 管理信息系統(tǒng)開發(fā).，2005年3月出版[6] 明日科技、高春艷、李俊民、劉彬彬. Visual Basic ，2006年7月[7] 徐孝凱 . 中央廣播電視大學出版，2003年7月出版[8] , .Visual Basic 、2000年7月第三次出版[9] (英） Server ,2006.[10] Server 2005. ,2008.[11] Server 2005開發(fā)者指南. ,2008.附 錄： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 Call mnuchelu_Click Case 2 Call mnuyitian_Click Case 4 Call mnurenlu_Click Case 5 Call mnuweitian_Click Case 11 Call mnuExit_Click End SelectEnd SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ) Select Case Case 1 Call mnuchecha_Click Case 2 Call mnurencha_Click Case 4 Call mnuyicha_Click Case 5 Call mnulincha_Click Case 6 Call mnudiaocha_Click Case 8 Call mnuweicha_Click Case 9 Call mnushicha_Click Case 10 Call mnujiangcha_Click End SelectEnd Sub：Dim i As IntegerPrivate Sub Lockctl() = False: = False: = False = False: = False: = False = False: = False: = False = False: = False: = False = False: = FalseEnd SubPrivate Sub Unlockctl() = True: = True: = True = True: = True: = True = True: = True: = True = True: = True: = True = True: = TrueEnd SubPrivate Sub Form_Load() = 5745: = 9585 = select * from 乘務員檔案表 If 0 Then = (0) On Error Resume Next = (0) = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = (10) = (11) = (12) = (13) End SubPrivate Sub Command1_Click()Unlockctl Text1 = : Text2 = : Text3 = : Text4 = : Text5 = : Text6 = : Text7 = : Text8 = : Text9 = : Text10 = : Text11 = : Text12 = : Text13 = : Text14 = = True: = True = False: = False = False: i = 1End SubPrivate Sub Command2_Click()Unlockctl i = 2 = True: = True = False: = False = False: = FalseEnd SubPrivate Sub Command3_Click()If MsgBox(您確實要刪除記錄嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then (delete from 乘務員檔案表 where 駕駛員編號=39。蘇明老師認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我受益匪淺。這些都有待進一步改善。其功能基本符合用戶需求，能夠完成對地鐵車輛管理及人員管理的存儲和查詢，并提供部分系統(tǒng)維護功能,使用戶方便進行數(shù)據(jù)備份和數(shù)據(jù)恢復。因此，在以后的時間里，還要將打印功能予以實現(xiàn)。 這樣一來，保證了開發(fā)者在用戶表中永遠有一條記錄，用戶可以通過這條原始記錄進入系統(tǒng)。超級管理員39。)作用是：在管理員設置窗體中用戶類型的選項中除超級管理員選項不顯示在bo中，其余的用戶類型數(shù)據(jù)都顯示在bo中。2. 然后在管理員設置窗體中的確定按鈕的click事件中添加： (select * from 用戶表 where 用戶類型 39。超級管理員39。第 4 章 程序優(yōu)化及待開發(fā)的項目由于本系統(tǒng)中有“系統(tǒng)初始化”功能，當選擇“系統(tǒng)初始化”菜單項時，系統(tǒng)將會清空數(shù)據(jù)庫中所有的數(shù)據(jù)，包括用戶表，當用戶表中無數(shù)據(jù)時，將導致用戶從登錄窗體中無法進入系統(tǒng)，因此有必要將程序優(yōu)化。Data Source= car。解決方法： 經(jīng)過反復的調(diào)試和實驗，終于查找出其問題的原因。 問題二當點擊查詢窗體時，體統(tǒng)會出現(xiàn)“編譯錯誤。 39。 amp。 39。 amp。 實現(xiàn)中遇到的問題及解決方法 問題一當打開車輛檔案錄入窗體時，發(fā)現(xiàn)在其窗體中已有一條記錄存在，當想做任何操作時，都會先彈出“此車號已經(jīng)存在”的系統(tǒng)提示。“共享文件”窗體中，選擇共享文件后，單擊“下一步”，在彈出的“已完成！”對話框中，點擊[完成]按鈕?！皢硬藛雾棥敝写_定安裝進程要創(chuàng)建的啟動菜單群組及項目，單擊“下一步”?！皦嚎s文件選項”對話框中，選擇創(chuàng)建一個的大的或多個壓縮文件的包，單擊“下一步”?！按虬募A”對話框，從中選擇打好后的包，將被裝配的文件夾，單擊“下一步”?！按虬_本”對話框，從中可以選擇添加、修改打包腳本，單擊“下一步”。 工程的打包操作[程序]中找到Microsoft Visual ，在程序中找到Microsoft Visual ；然后，找到“Package amp。[確定]，關閉[工程屬性]對話框，再在[制作 ]對話框中選取[確定]，編譯和連接該執(zhí)行文件。[保存在]列表框中選擇可執(zhí)行文件保存的位置。方法是：[文件]菜單中選取[制作 ]，出現(xiàn)[生成工程]對話框。Data Source= car。若要修改該數(shù)據(jù)源，單擊該數(shù)據(jù)源，然后單擊“配置”按鈕，若要刪除該數(shù)據(jù)源，單擊該數(shù)據(jù)源，然后單擊“刪除”按鈕。直接單擊“完成”按鈕。若單擊后者，還應選取“連接SQL Server以獲得其它配置選項的默認設置”復選框，并輸入登陸ID和密碼，然后單擊“下一步”按鈕。在“名稱”框中指定數(shù)據(jù)源名稱，在“說明”框中輸入描述該數(shù)據(jù)源文字，在“服務器”列表中選擇選擇要連接的SQL Server服務器，然后點擊“下一步”。選擇“系統(tǒng)DSN”選項卡，然后單擊“添加”按鈕。 If 0 Then On Error Resume Next 39。當沒有添加數(shù)據(jù)的時候 處理異常 Lockctl = False: = False = True: = True = True: = TrueEnd Sub（10）在【查詢】按鈕的Click事件下添加代碼如下：Private Sub Command4_Click()Dim str As String str = InputBox$(輸入你要查詢的駕駛員編號：, 系統(tǒng)提示) If str = Then Exit Sub = select * from 乘務員檔案表 where 駕駛員編號=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個ADO控件，默認名為“Adodc1”。車輛檔案的添加、修改、刪除可以通過ADO對象實現(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）在【查詢】按鈕的Click事件下添加代碼如下：Private Sub Command7_Click()Dim str As String str = InputBox$(輸入你要查詢的車號：, 系統(tǒng)提示) If str = Then Exit Sub = select * from 車輛檔案表 where 車號=39。 Text1 amp。 where 車號=39。 Text4 amp。, 備注=39。 Combo2 amp。,異動否=39。 Text3 amp。,來段時間=39。 amp。,購置日期=39。 Text2 amp。,車輛所在單位=39。 Combo1 amp。)) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 (update 車輛檔案表 set 車輛類型=39。 Text4 amp。,39。 Comb