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