【正文】 證”。若單擊后者，還應選取“連接SQL Server以獲得其它配置選項的默認設置”復選框，并輸入登陸ID和密碼，然后單擊“下一步”按鈕。然后在選取“更改默認的數據庫為”復選框，并在可用數據庫列表中選擇要使用的默認數據庫，然后單擊“下一步”按鈕。直接單擊“完成”按鈕。此時，新建的系統數據源出現在ODBC數據管理器中。若要修改該數據源，單擊該數據源，然后單擊“配置”按鈕，若要刪除該數據源，單擊該數據源，然后單擊“刪除”按鈕。3. ADO控件在車輛檔案查詢窗體中的設計代碼其主要代碼如下： = Provider=。Data Source= car。Persist Security Info=False = select * from 車輛檔案表 生成EXE文件和打包 生成EXE文件經調試，如果沒有發(fā)現任何錯誤，就可以建立工程的可執(zhí)行文件。方法是：[文件]菜單中選取[制作 ]，出現[生成工程]對話框。[文件名]文本框中輸入本系統的可執(zhí)行文件名，或瀏覽有關目錄，選定一個現有文件名。[保存在]列表框中選擇可執(zhí)行文件保存的位置。[選項]按鈕，可以在[工程屬性]對話框里規(guī)定一些有關該執(zhí)行文件特定版本的詳細資料。[確定]，關閉[工程屬性]對話框，再在[制作 ]對話框中選取[確定]，編譯和連接該執(zhí)行文件。雙擊可執(zhí)行文件的圖標，像運行任何其它基于Windows的應用程序那樣，可運行這個可執(zhí)行文件。 工程的打包操作[程序]中找到Microsoft Visual ，在程序中找到Microsoft Visual ；然后，找到“Package amp。 Deployment向導”，單擊向導后，彈出“打包和展開向導”對話框，在“選擇工程”中，選擇要打包的工程，點擊[打包]按鈕?！按虬_本”對話框，從中可以選擇添加、修改打包腳本，單擊“下一步”?！鞍愋汀睂υ捒?，在“包類型”文本框中選擇“標準安裝包”，單擊“下一步”?！按虬募A”對話框，從中選擇打好后的包，將被裝配的文件夾，單擊“下一步”。“包含文件”對話框中，選擇哪些文件將被包含在要打的包中，選擇好后，單擊“下一步”?！皦嚎s文件選項”對話框中，選擇創(chuàng)建一個的大的或多個壓縮文件的包，單擊“下一步”?！鞍惭b程序標題”對話框中，輸入當安裝程序運行時所顯示的標題，單擊“下一步”?！皢硬藛雾棥敝写_定安裝進程要創(chuàng)建的啟動菜單群組及項目，單擊“下一步”?！鞍惭b位置”窗體中選擇或更改一些文件的相關位置，單擊“下一步”?！肮蚕砦募贝绑w中，選擇共享文件后，單擊“下一步”，在彈出的“已完成！”對話框中，點擊[完成]按鈕。工程的打包過程結束。 實現中遇到的問題及解決方法 問題一當打開車輛檔案錄入窗體時，發(fā)現在其窗體中已有一條記錄存在，當想做任何操作時，都會先彈出“此車號已經存在”的系統提示。經過詳細的分析得知，在代碼窗體中對其代碼編寫錯誤，將Text1的LostFocus（）事件寫成：Private Sub Text1_LostFocus()If = Then Exit Sub Dim rs As New Set rs = (select * from 車輛檔案表 where 車號=39。 amp。 amp。 39。) If = False Then MsgBox 此車號已經存在！, , 系統提示 Text1 = End If End Sub解決方法:發(fā)現錯誤后，將其代碼在確定按鈕的Click（）事件中改成：Dim rs As New Set rs = (select * from 車輛檔案表 where 車號=39。 amp。 amp。 39。) If = False Then MsgBox 此車號已經存在！, , 系統提示 Text1 = End If 所出現的問題就迎刃而解了。 問題二當點擊查詢窗體時，體統會出現“編譯錯誤。未找到方法或數據成員”系統提示。解決方法： 經過反復的調試和實驗，終于查找出其問題的原因。 = Provider=。Data Source= car。Persist Security Info=False的代碼，將這段代碼放在“通用”的Rebind事件中，剛剛報出的錯誤隨即消失，程序可正常運行。第 4 章 程序優(yōu)化及待開發(fā)的項目由于本系統中有“系統初始化”功能，當選擇“系統初始化”菜單項時，系統將會清空數據庫中所有的數據，包括用戶表，當用戶表中無數據時，將導致用戶從登錄窗體中無法進入系統，因此有必要將程序優(yōu)化。1. 首先在系統初始化的click事件中添加： (delete from 用戶表 where 用戶類型 39。超級管理員39。)作用是：刪除用戶表中除了用戶類型為超級管理員的所有數據。2. 然后在管理員設置窗體中的確定按鈕的click事件中添加： (select * from 用戶表 where 用戶類型 39。超級管理員39。)作用是：在管理員設置窗體中用戶類型的選項中除超級管理員選項不顯示在bo中，其余的用戶類型數據都顯示在bo中。3. 最后在登錄窗體中l(wèi)oad事件中添加：Set adors = (select * from 用戶表 where 用戶類型 39。超級管理員39。 )作用是：在登錄窗體中用戶類型的選項中除超級管理員選項不顯示在bo中，其余的用戶類型數據都顯示bo中。 這樣一來，保證了開發(fā)者在用戶表中永遠有一條記錄，用戶可以通過這條原始記錄進入系統。 待開發(fā)的項目由于自己所學的知識有限以及時間的問題，在本系統中，打印功能還未完成，我認為打印功能的實現，可以更直接、直觀的服務于用戶。因此，在以后的時間里，還要將打印功能予以實現。結 束 語經過三個多月的設計和開發(fā)，地鐵車輛管理信息系統基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成對地鐵車輛管理及人員管理的存儲和查詢，并提供部分系統維護功能,使用戶方便進行數據備份和數據恢復。但是由于畢業(yè)設計時間較短，所以該系統還有許多不盡如人意的地方，比如用戶界面不夠美觀，出錯處理不夠以及各類相關報表的打印功能還未實現等多方面問題。這些都有待進一步改善。致 謝在本次畢業(yè)設計中，我從指導教師蘇明老師身上學到了很多東西。蘇明老師認真負責的工作態(tài)度，嚴謹的治學精神和深厚的理論水平都使我受益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝她耐心的輔導。另外，在系統開發(fā)過程中還有各位同學們同樣給與我不少幫助，幫助解決了不少的難點，使得系統能及時開發(fā)完成，這里一并表示感謝！參 考 文 獻[1] Basic ，2001年2月出版 [2] ，2004年1月出版 [3] 郭瑞軍、唐邦民、謝晗昕 Basic 數據庫開發(fā)實例精粹. ，2005年1月出版 [4] 塞奎春、高春艷、李俊民、 Basic 信息系統開發(fā)實例精選.，2005年7月出版[5] 劉瑞新、張二峰、齊暉、 Basic 管理信息系統開發(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, 系統提示) = vbOK Then (delete from 乘務員檔案表 where 駕駛員編號=39。 amp。 Text1 amp。 39。) MsgBox 記錄已刪除！, , 系統提示 End IfEnd SubPrivate Sub Command4_Click()Dim str As String str = InputBox$(輸入你要查詢的駕駛員編號：, 系統提示) If str = Then Exit Sub = select * from 乘務員檔案表 where 駕駛員編號=39。 + str + 39。 If 0 Then On Error Resume Next 39。當沒有添加數據的時候 處理異常 = (0) = (1)