【正文】 量i控制車(chē)輛檔案的添加和修改，添加通過(guò)SQL中Inser into語(yǔ)句實(shí)現(xiàn)，修改通過(guò)SQL中的Update語(yǔ)句實(shí)現(xiàn)。Private Sub Lockctl() = False: = False = False: = False = False: = False: = False End Sub （3）設(shè)計(jì)一個(gè)Unlockct1過(guò)程功能為設(shè)置控件可用。在窗體上添加1個(gè)ADO控件，默認(rèn)名為“Adodc1”。3. 創(chuàng)建狀態(tài)欄 創(chuàng)建狀態(tài)欄的方法與工具欄類(lèi)似，因此略?！瓣P(guān)鍵字”取值為字符型，其值可以為空?！麑⑦x定的菜單向左移一個(gè)等級(jí)→將選定的菜單向右移一個(gè)等級(jí)，最多創(chuàng)建5個(gè)等級(jí)↑將選定的菜單在同級(jí)菜單內(nèi)向上移動(dòng)一個(gè)位置↓將選定的菜單在同級(jí)菜單內(nèi)向下一個(gè)位置7) 單擊[下一步]按鈕，移動(dòng)并顯示菜單項(xiàng)，供用戶新增或修改菜單項(xiàng)，如果需要在某一個(gè)位置插入一個(gè)新的菜單項(xiàng)，則單擊[插入]按鈕，如果要?jiǎng)h除已存在的菜單項(xiàng)，則單擊[刪除]按鈕。7) 輸入完成所有的字段名，單擊“保存”圖標(biāo)，將彈出“選擇名稱(chēng)”對(duì)話框。如圖34 創(chuàng)建數(shù)據(jù)庫(kù)4 所示:圖34 創(chuàng)建數(shù)據(jù)庫(kù)45. 點(diǎn)擊“確定按鈕”創(chuàng)建數(shù)據(jù)庫(kù)完成。代碼如下列所示： On Error Resume Next Call Rebind Set adors = (select distinct 車(chē)號(hào) from 車(chē)輛檔案表) On Error Resume Next Do (0) Loop Until 如何使用Connection對(duì)象連接SQL Server數(shù)據(jù)庫(kù)1. 在使用Connection對(duì)象連接數(shù)據(jù)庫(kù)之前，應(yīng)先聲明該對(duì)象，在本系統(tǒng)中的聲明對(duì)象是：Public adoCon As New 2. Provider=。4. 車(chē)輛管理模塊該模塊是提供對(duì)車(chē)輛異動(dòng)、車(chē)輛臨修、車(chē)輛掉線進(jìn)行的更改、刪除和添加的界面。 在考慮系統(tǒng)安全的前提下，需要增加用戶關(guān)系和使用關(guān)系，其關(guān)系模式如下： 用戶（用戶姓名、用戶密碼、用戶類(lèi)型）關(guān)鍵字為用戶姓名。根據(jù)規(guī)則直接給出所有關(guān)系。 數(shù)據(jù)庫(kù)存儲(chǔ)設(shè)計(jì) 根據(jù)用戶的需求和車(chē)輛管理及人員管理數(shù)據(jù)流量的大小，同時(shí)結(jié)合SQL Server 2000數(shù)據(jù)庫(kù)的靈活性和可擴(kuò)展的數(shù)據(jù)轉(zhuǎn)換和與Windows操作系統(tǒng)的高度集成特性等優(yōu)點(diǎn)，在地鐵車(chē)輛管理信息系統(tǒng)中使用了SQL Server 2000數(shù)據(jù)庫(kù)為后臺(tái)數(shù)據(jù)庫(kù)。其中：l 乘務(wù)員違章 添加：用于添加、修改、刪除乘務(wù)員違章信息。 查詢：查詢符合乘務(wù)員查詢條件的乘務(wù)員檔案信息。 自動(dòng)實(shí)現(xiàn)數(shù)據(jù)庫(kù)的并發(fā)控制216。 完備的Help聯(lián)機(jī)幫助功能由于Visual Basic ，所以把Visual Basic 。Visual Basic ：216。例如Oracl數(shù)據(jù)庫(kù)。 后臺(tái)數(shù)據(jù)庫(kù)的對(duì)比后臺(tái)數(shù)據(jù)庫(kù)平臺(tái)的選用，主要從管理者的角度來(lái)綜合權(quán)衡，包括安全性、數(shù)據(jù)訪問(wèn)機(jī)制、管理的靈活性等，目前主要的數(shù)據(jù)庫(kù)有：FoxPro、Access、Excel、Oracle、Sybase、Informix、SQL Server等，其中網(wǎng)絡(luò)型的Oracl、Sybase 、SQL Server產(chǎn)品安全性遠(yuǎn)遠(yuǎn)高于桌面型的：FoxPro、Access、Excel等數(shù)據(jù)庫(kù)。VB在這方面所具備的優(yōu)勢(shì)就是快速、簡(jiǎn)單、和功能完備。目前地鐵公司下屬的各車(chē)輛段中還有相當(dāng)一部分車(chē)輛管理還停留在紙介質(zhì)的基礎(chǔ)上。但是，對(duì)于擁有大量車(chē)輛的地鐵公司來(lái)說(shuō)，車(chē)輛的管理成為日常事務(wù)中的一項(xiàng)重要工作。據(jù)調(diào)查，目前地鐵公司下屬的各車(chē)輛段中還有相當(dāng)一部分車(chē)輛管理還停留在紙介質(zhì)的基礎(chǔ)上。 相關(guān)技術(shù)分析 前臺(tái)開(kāi)發(fā)工具的對(duì)比 Visual Basic ，近年來(lái)得到了廣泛的應(yīng)用。但不可否認(rèn)，VB的簡(jiǎn)單性與開(kāi)發(fā)環(huán)境的方便性，又為VB贏得了不少用戶。但Access數(shù)據(jù)庫(kù)很多缺點(diǎn)。Server通過(guò)構(gòu)造SQL語(yǔ)句訪問(wèn)關(guān)系數(shù)據(jù)庫(kù)。 強(qiáng)大的數(shù)據(jù)庫(kù)功能216。 簡(jiǎn)單的管理和調(diào)整216。 查詢：查詢與車(chē)輛檔案條件相符的信息。 清空：用于清空車(chē)輛臨修表中的所有信息。其中：l 系統(tǒng)的初始化：將數(shù)據(jù)庫(kù)中各表信息清空恢復(fù)成系統(tǒng)的初始狀態(tài)。 數(shù)據(jù)庫(kù)建模 經(jīng)過(guò)上面的分析，能夠提取出以下幾個(gè)實(shí)體。事故（事故等級(jí)、司機(jī)姓名、車(chē)長(zhǎng)姓名、事故車(chē)號(hào)、發(fā)生事故地點(diǎn)、發(fā)生事故時(shí)間、發(fā)生事故經(jīng)過(guò)、處理決定、備注）關(guān)鍵字為事故車(chē)號(hào)。該界面提供用戶選擇并調(diào)用各子模塊。表鏈接：右鍵單擊Adodc控件，在“屬性頁(yè)”/“記錄源”選項(xiàng)卡中的“命令類(lèi)型下拉列表框中選擇“1adCmdText”列表項(xiàng)：在“命令文本”文本框中輸入（以‘車(chē)輛檔案表’為例）“select * from車(chē)輛檔案表”，單擊[確定]按鈕。如圖31 創(chuàng)建數(shù)據(jù)庫(kù)1 所示: 圖31 創(chuàng)建數(shù)據(jù)庫(kù)1“car”。4) 數(shù)入列名。4）菜單的“索引”文本框用來(lái)確定菜單標(biāo)題或菜單選項(xiàng)在菜單控件數(shù)組中的位置或次序，菜單項(xiàng)的名稱(chēng)不重復(fù)，索引值可以為空。l 單擊“通用”選項(xiàng)卡，在此選項(xiàng)卡中可以設(shè)置圖像的高度和寬度，以及是否使用屏蔽顏色屬性。2) 鼠標(biāo)右鍵單擊ToolBar控件，在彈出的菜單中選擇“屬性”菜單項(xiàng)，打開(kāi)“屬性頁(yè)”對(duì)話框。具體添加辦法如下：由于該控件屬于ActiveX控件，要想添加Adodc控件，在使用前應(yīng)首先將其添加到工具箱中，具體的添加方法是：?jiǎn)螕簟肮ぞ摺?“部件”菜單項(xiàng)，打開(kāi)“部件”對(duì)話框。在窗體上添加Label、Text、Commandbutton、ComboBox、DTPicker控件。 amp。) If = False Then MsgBox 此車(chē)號(hào)已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If (insert into 車(chē)輛檔案表 values (39。,39。,39。,39。,車(chē)輛所在單位=39。,來(lái)段時(shí)間=39。, 備注=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$(輸入你要查詢的車(chē)號(hào)：, 系統(tǒng)提示) If str = Then Exit Sub = select * from 車(chē)輛檔案表 where 車(chē)號(hào)=39。在窗體上添加Label、Text、Commandbutton、ComboBox、DTPicker控件。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。在“名稱(chēng)”框中指定數(shù)據(jù)源名稱(chēng)，在“說(shuō)明”框中輸入描述該數(shù)據(jù)源文字，在“服務(wù)器”列表中選擇選擇要連接的SQL Server服務(wù)器，然后點(diǎn)擊“下一步”。Data Source= car。 工程的打包操作[程序]中找到Microsoft Visual ，在程序中找到Microsoft Visual ；然后，找到“Package amp?！皢?dòng)菜單項(xiàng)”中確定安裝進(jìn)程要?jiǎng)?chuàng)建的啟動(dòng)菜單群組及項(xiàng)目，單擊“下一步”。 39。解決方法： 經(jīng)過(guò)反復(fù)的調(diào)試和實(shí)驗(yàn)，終于查找出其問(wèn)題的原因。2. 然后在管理員設(shè)置窗體中的確定按鈕的click事件中添加： (select * from 用戶表 where 用戶類(lèi)型 39。因此，在以后的時(shí)間里，還要將打印功能予以實(shí)現(xiàn)。 39。) If = False Then MsgBox 此駕駛員編號(hào)已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If (insert into 乘務(wù)員檔案表 values (39。,39。,39。,39。,39。,39。,39。)) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 (update 乘務(wù)員檔案表 set 駕駛證編號(hào)=39。,性別=39。, 家庭住址=39。, 技術(shù)級(jí)別=39。, 駕齡=39。, 發(fā)證日期=39。, 備注=39。) MsgBox 記錄修改成功！, , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = TrueEnd SubPrivate Sub Command6_Click()On Error Resume Next 39。 Text14 amp。 Text11 amp。 Text10 amp。 Text7 amp。 Text9 amp。 Text5 amp。 Text2 amp。 Text4 amp。 Text13 amp。 Text12 amp。 Text8 amp。 Text6 amp。 Text3 amp。 Text1 amp。 + str + 39。其功能基本符合用戶需求，能夠完成對(duì)地鐵車(chē)輛管理及人員管理的存儲(chǔ)和查詢，并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)。)作用是：在管理員設(shè)置窗體中用戶類(lèi)型的選項(xiàng)中除超級(jí)管理員選項(xiàng)不顯示在bo中，其余的用戶類(lèi)型數(shù)據(jù)都顯示在bo中。Data Source= car。 amp?！肮蚕砦募贝绑w中，選擇共享文件后，單擊“下一步”，在彈出的“已完成！”對(duì)話框中，點(diǎn)擊[完成]按鈕?！按虬_本”對(duì)話框，從中可以選擇添加、修改打包腳本，單擊“下一步”。方法是：[文件]菜單中選取[制作 ]，出現(xiàn)[生成工程]對(duì)話框。若單擊后者，還應(yīng)選取“連接SQL Server以獲得其它配置選項(xiàng)的默認(rèn)設(shè)置”復(fù)選框，并輸入登陸ID和密碼，然后單擊“下一步”按鈕。當(dāng)沒(méi)有添加數(shù)據(jù)的時(shí)候 處理異常 Lockctl = False: = False = True: = True = True: = TrueEnd Sub（10）在【查詢】按鈕的Click事件下添加代碼如下：Private 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。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 If 0 Then On Error Resume Next 39。 Text4 amp。 Text3 amp。 Text2 amp。 Text4 amp。 Text3 amp。 Text2 amp。 Text1 amp。 39。 Dim i As Integer（2）設(shè)計(jì)一個(gè)Lockct1過(guò)程功能為設(shè)置控件不可用。此時(shí)，ADO控件將出現(xiàn)在工具箱中。4) 重復(fù)步驟3)，直到添加完所有的工具按鈕為止，最后單擊[確定]按鈕完成工具欄的設(shè)計(jì)工作。l 為圖片添加關(guān)鍵字和標(biāo)記。6）在編輯菜單的過(guò)程中，有時(shí)需要移動(dòng)菜單。6) 在“允許空”選項(xiàng)中，如果設(shè)置不允許為空，那么插入記錄集或修改記錄時(shí)，將不允許空值出現(xiàn)，否則報(bào)錯(cuò)。如圖33 創(chuàng)建數(shù)據(jù)庫(kù)3 所示:圖33 創(chuàng)建數(shù)據(jù)庫(kù)3,更改數(shù)據(jù)庫(kù)日志文件路徑。 下面代碼通過(guò)調(diào)用Connection對(duì)象的Execute方法，從SQL Server數(shù)據(jù)庫(kù)“car”的“車(chē)輛檔案表”中檢索車(chē)輛編號(hào)的值并返回一個(gè)記錄集。3. 乘務(wù)員檔案管理模塊 該模塊是提供全部人事檔案的界面。獎(jiǎng)勵(lì)（乘務(wù)員姓名、駕駛證編號(hào)、所屬輪乘組、獎(jiǎng)勵(lì)級(jí)別、獎(jiǎng)勵(lì)原因、獎(jiǎng)勵(lì)金額、備注）關(guān)鍵字為駕駛證編號(hào)。其轉(zhuǎn)換規(guī)則為：首先每個(gè)實(shí)體應(yīng)轉(zhuǎn)化為一個(gè)關(guān)系，有屬性的聯(lián)系也應(yīng)轉(zhuǎn)化為一個(gè)關(guān)系，然后需要給出每個(gè)關(guān)系的關(guān)鍵字。l 數(shù)據(jù)恢復(fù)和數(shù)據(jù)備份：是怕數(shù)據(jù)感染病毒或是誤操作而造成數(shù)據(jù)丟失，而做 的一個(gè)系統(tǒng)不可缺少的一部分。駕駛員管理中包括違章、事故和乘務(wù)員獎(jiǎng)懲的信息。l 乘務(wù)員檔案 錄入：用于添加、修改、刪除乘務(wù)員檔案信息。 靈活的和可擴(kuò)展的數(shù)據(jù)轉(zhuǎn)換216。 應(yīng)用程序向?qū)?16。 課題的軟件選用 前臺(tái)開(kāi)發(fā)工具的選用Visual Basic 屬于第四代編程語(yǔ)言，是發(fā)展最快、學(xué)習(xí)最容易、功能最強(qiáng)大的語(yǔ)言之一，以其開(kāi)發(fā)速度快、使用簡(jiǎn)單而被廣泛使用。、Sybase 、SQL Server數(shù)據(jù)庫(kù)提供并行分布的能力、完備的安全性管理、大容量的數(shù)據(jù)庫(kù)存取等，微軟公司推出的SQL Server系列網(wǎng)絡(luò)數(shù)據(jù)庫(kù)已經(jīng)廣泛應(yīng)用于各行各業(yè)，其中的SQL Server 2000作為微軟公司的“.NET”戰(zhàn)略中為企業(yè)開(kāi)發(fā)的數(shù)據(jù)庫(kù)產(chǎn)品，主要用于構(gòu)建電子商務(wù)和數(shù)據(jù)倉(cāng)庫(kù)的數(shù)據(jù)庫(kù)服務(wù)器。