【正文】 39。超級(jí)管理員39。)作用是：刪除用戶表中除了用戶類型為超級(jí)管理員的所有數(shù)據(jù)。2. 然后在管理員設(shè)置窗體中的確定按鈕的click事件中添加： (select * from 用戶表 where 用戶類型 39。超級(jí)管理員39。)作用是：在管理員設(shè)置窗體中用戶類型的選項(xiàng)中除超級(jí)管理員選項(xiàng)不顯示在bo中，其余的用戶類型數(shù)據(jù)都顯示在bo中。3. 最后在登錄窗體中l(wèi)oad事件中添加：Set adors = (select * from 用戶表 where 用戶類型 39。超級(jí)管理員39。 )作用是：在登錄窗體中用戶類型的選項(xiàng)中除超級(jí)管理員選項(xiàng)不顯示在bo中，其余的用戶類型數(shù)據(jù)都顯示bo中。 這樣一來，保證了開發(fā)者在用戶表中永遠(yuǎn)有一條記錄，用戶可以通過這條原始記錄進(jìn)入系統(tǒng)。 待開發(fā)的項(xiàng)目由于自己所學(xué)的知識(shí)有限以及時(shí)間的問題，在本系統(tǒng)中，打印功能還未完成，我認(rèn)為打印功能的實(shí)現(xiàn)，可以更直接、直觀的服務(wù)于用戶。因此，在以后的時(shí)間里，還要將打印功能予以實(shí)現(xiàn)。結(jié) 束 語經(jīng)過三個(gè)多月的設(shè)計(jì)和開發(fā)，地鐵車輛管理信息系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成對(duì)地鐵車輛管理及人員管理的存儲(chǔ)和查詢，并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如用戶界面不夠美觀，出錯(cuò)處理不夠以及各類相關(guān)報(bào)表的打印功能還未實(shí)現(xiàn)等多方面問題。這些都有待進(jìn)一步改善。致 謝在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)教師蘇明老師身上學(xué)到了很多東西。蘇明老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝她耐心的輔導(dǎo)。另外，在系統(tǒng)開發(fā)過程中還有各位同學(xué)們同樣給與我不少幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，這里一并表示感謝！參 考 文 獻(xiàn)[1] Basic ，2001年2月出版 [2] ，2004年1月出版 [3] 郭瑞軍、唐邦民、謝晗昕 Basic 數(shù)據(jù)庫開發(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。 amp。 Text1 amp。 39。) 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。 + str + 39。 If 0 Then On Error Resume Next 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 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。 amp。 amp。 39。) If = False Then MsgBox 此駕駛員編號(hào)已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If (insert into 乘務(wù)員檔案表 values (39。 amp。 Text1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 Text3 amp。 39。,39。 amp。 Text5 amp。 39。,39。 amp。 Text6 amp。 39。,39。 amp。 Text9 amp。 39。,39。 amp。 Text8 amp。 39。,39。 amp。 Text7 amp。 39。,39。 amp。 Text12 amp。 39。,39。 amp。 Text10 amp。 39。,39。 amp。 Text13 amp。 39。,39。 amp。 Text11 amp。 39。,39。 amp。 Text4 amp。 39。,39。 amp。 Text14 amp。 39。)) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 (update 乘務(wù)員檔案表 set 駕駛證編號(hào)=39。 amp。 Text2 amp。 39。,乘務(wù)員姓名=39。 amp。 Text3 amp。 39。,性別=39。 amp。 Text5 amp。 39。,出生年月=39。 amp。 Text6 amp。 39。, 家庭住址=39。 amp。 Text9 amp。 39。, 聯(lián)系電話=39。 amp。 Text8 amp。 39。, 技術(shù)級(jí)別=39。 amp。 Text7 amp。 39。, 參加工作時(shí)間=39。 amp。 Text12 amp。 39。, 駕齡=39。 amp。 Text10 amp。 39。,運(yùn)行安全公里=39。 amp。 Text13 amp。 39。, 發(fā)證日期=39。 amp。 Text11 amp。 39。, 所屬車輛段=39。 amp。 Text4 amp。 39。, 備注=39。 amp。 Text14 amp。 39。 where 駕駛員編號(hào)=39。 amp。 Text1 amp。 39。) MsgBox 記錄修改成功！, , 系統(tǒng)提示 End Select Lockctl = F