【正文】 Sub Command6_Click()On Error Resume Next 39。 + str + 39。當(dāng)沒有添加數(shù)據(jù)的時(shí)候 處理異常 = (0) = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = (10) = (11) = (12) = (13) = True: = True Else MsgBox 沒有你需要的信息！, , 系統(tǒng)提示 = False: = False End IfEnd Sub（11）在【退出】按鈕的Click事件下添加代碼如下：Private Sub Command7_Click()(1).Text = Unload MeEnd Sub1. 創(chuàng)建ODBC連接選擇“開始→程序→管理工具→數(shù)據(jù)源（ODBC）”命令，以打開ODBC數(shù)據(jù)源管理器對(duì)話框。當(dāng)出現(xiàn)“創(chuàng)建新數(shù)據(jù)源”對(duì)話框時(shí)，從ODBC驅(qū)動(dòng)程序列表中選擇SQL Server ，然后單擊“完成”按鈕。在新的對(duì)話框中單擊“使用網(wǎng)絡(luò)登陸ID的Windows NT驗(yàn)證”或單擊“使用用戶輸入登陸ID和密碼的SQL Server驗(yàn)證”。然后在選取“更改默認(rèn)的數(shù)據(jù)庫(kù)為”復(fù)選框，并在可用數(shù)據(jù)庫(kù)列表中選擇要使用的默認(rèn)數(shù)據(jù)庫(kù)，然后單擊“下一步”按鈕。此時(shí)，新建的系統(tǒng)數(shù)據(jù)源出現(xiàn)在ODBC數(shù)據(jù)管理器中。3. ADO控件在車輛檔案查詢窗體中的設(shè)計(jì)代碼其主要代碼如下： = Provider=。Persist Security Info=False = select * from 車輛檔案表 生成EXE文件和打包 生成EXE文件經(jīng)調(diào)試，如果沒有發(fā)現(xiàn)任何錯(cuò)誤，就可以建立工程的可執(zhí)行文件。[文件名]文本框中輸入本系統(tǒng)的可執(zhí)行文件名，或?yàn)g覽有關(guān)目錄，選定一個(gè)現(xiàn)有文件名。[選項(xiàng)]按鈕，可以在[工程屬性]對(duì)話框里規(guī)定一些有關(guān)該執(zhí)行文件特定版本的詳細(xì)資料。雙擊可執(zhí)行文件的圖標(biāo)，像運(yùn)行任何其它基于Windows的應(yīng)用程序那樣，可運(yùn)行這個(gè)可執(zhí)行文件。 Deployment向?qū)А?，單擊向?qū)Ш?，彈出“打包和展開向?qū)А睂?duì)話框，在“選擇工程”中，選擇要打包的工程，點(diǎn)擊[打包]按鈕?！鞍愋汀睂?duì)話框，在“包類型”文本框中選擇“標(biāo)準(zhǔn)安裝包”，單擊“下一步”?！鞍募睂?duì)話框中，選擇哪些文件將被包含在要打的包中，選擇好后，單擊“下一步”?！鞍惭b程序標(biāo)題”對(duì)話框中，輸入當(dāng)安裝程序運(yùn)行時(shí)所顯示的標(biāo)題，單擊“下一步”。“安裝位置”窗體中選擇或更改一些文件的相關(guān)位置，單擊“下一步”。工程的打包過(guò)程結(jié)束。經(jīng)過(guò)詳細(xì)的分析得知，在代碼窗體中對(duì)其代碼編寫錯(cuò)誤，將Text1的LostFocus（）事件寫成：Private Sub Text1_LostFocus()If = Then Exit Sub Dim rs As New Set rs = (select * from 車輛檔案表 where 車號(hào)=39。 amp。) If = False Then MsgBox 此車號(hào)已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If End Sub解決方法:發(fā)現(xiàn)錯(cuò)誤后，將其代碼在確定按鈕的Click（）事件中改成：Dim rs As New Set rs = (select * from 車輛檔案表 where 車號(hào)=39。 amp。) If = False Then MsgBox 此車號(hào)已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If 所出現(xiàn)的問(wèn)題就迎刃而解了。未找到方法或數(shù)據(jù)成員”系統(tǒng)提示。 = Provider=。Persist Security Info=False的代碼，將這段代碼放在“通用”的Rebind事件中，剛剛報(bào)出的錯(cuò)誤隨即消失，程序可正常運(yùn)行。1. 首先在系統(tǒng)初始化的click事件中添加： (delete from 用戶表 where 用戶類型 39。)作用是：刪除用戶表中除了用戶類型為超級(jí)管理員的所有數(shù)據(jù)。超級(jí)管理員39。3. 最后在登錄窗體中l(wèi)oad事件中添加：Set adors = (select * from 用戶表 where 用戶類型 39。 )作用是：在登錄窗體中用戶類型的選項(xiàng)中除超級(jí)管理員選項(xiàng)不顯示在bo中，其余的用戶類型數(shù)據(jù)都顯示bo中。 待開發(fā)的項(xiàng)目由于自己所學(xué)的知識(shí)有限以及時(shí)間的問(wèn)題，在本系統(tǒng)中，打印功能還未完成，我認(rèn)為打印功能的實(shí)現(xiàn)，可以更直接、直觀的服務(wù)于用戶。結(jié) 束 語(yǔ)經(jīng)過(guò)三個(gè)多月的設(shè)計(jì)和開發(fā)，地鐵車輛管理信息系統(tǒng)基本開發(fā)完畢。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如用戶界面不夠美觀，出錯(cuò)處理不夠以及各類相關(guān)報(bào)表的打印功能還未實(shí)現(xiàn)等多方面問(wèn)題。參 考 文 獻(xiàn)[1] Basic ，2001年2月出版 [2] ，2004年1月出版 [3] 郭瑞軍、唐邦民、謝晗昕 Basic 數(shù)據(jù)庫(kù)開發(fā)實(shí)例精粹. ，2005年1月出版 [4] 塞奎春、高春艷、李俊民、 Basic 信息系統(tǒng)開發(fā)實(shí)例精選.，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(您確實(shí)要?jiǎng)h除記錄嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then (delete from 乘務(wù)員檔案表 where 駕駛員編號(hào)=39。 Text1 amp。) MsgBox 記錄已刪除！, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command4_Click()Dim str As String str = InputBox$(輸入你要查詢的駕駛員編號(hào)：, 系統(tǒng)提示) If str = Then Exit Sub = select * from 乘務(wù)員檔案表 where 駕駛員編號(hào)=39。 If 0 Then On Error Resume Next 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。當(dāng)沒有添加數(shù)據(jù)的時(shí)候 處理異常 Lockctl = False: = False = True: = True = True: = TrueEnd SubPrivate Sub Command7_Click()(1).Text = Unload MeEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Command7_ClickEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End SubPrivate Sub text3_KeyPress(KeyAscii As Integer) If