【正文】 經(jīng)過(guò)上面的分析，能夠提取出以下幾個(gè)實(shí)體。車輛（車號(hào)、車輛類型、車輛所在單位、來(lái)段時(shí)間、異動(dòng)否、備注）關(guān)鍵字為車號(hào)異動(dòng)（異動(dòng)車號(hào)、車次、首先發(fā)現(xiàn)者、發(fā)現(xiàn)異動(dòng)時(shí)間、發(fā)現(xiàn)異動(dòng)地點(diǎn)、修復(fù)時(shí)間、修復(fù)地點(diǎn)、異動(dòng)現(xiàn)象、備注）關(guān)鍵字為異動(dòng)車號(hào)。事故（事故等級(jí)、司機(jī)姓名、車長(zhǎng)姓名、事故車號(hào)、發(fā)生事故地點(diǎn)、發(fā)生事故時(shí)間、發(fā)生事故經(jīng)過(guò)、處理決定、備注）關(guān)鍵字為事故車號(hào)。 模塊設(shè)計(jì) 公用模塊設(shè)計(jì) 為了節(jié)省系統(tǒng)資源，在本系統(tǒng)中新建一個(gè)模塊，該模塊用于連接各個(gè)模塊中的數(shù)據(jù)表，從而避免了在程序中運(yùn)用大量的ADO控件，給開發(fā)應(yīng)用程序帶來(lái)諸多不便。該界面提供用戶選擇并調(diào)用各子模塊。5. 駕駛員管理模塊 該模塊是提供對(duì)乘務(wù)員違章、乘務(wù)員事故和乘務(wù)員獎(jiǎng)懲進(jìn)行的添加、修改和刪除的界面。表鏈接：右鍵單擊Adodc控件，在“屬性頁(yè)”/“記錄源”選項(xiàng)卡中的“命令類型下拉列表框中選擇“1adCmdText”列表項(xiàng)：在“命令文本”文本框中輸入（以‘車輛檔案表’為例）“select * from車輛檔案表”，單擊[確定]按鈕。Data Source= car。如圖31 創(chuàng)建數(shù)據(jù)庫(kù)1 所示: 圖31 創(chuàng)建數(shù)據(jù)庫(kù)1“car”。 表的創(chuàng)建1) 完成數(shù)據(jù)庫(kù)的建立后，就可以建立數(shù)據(jù)庫(kù)中的表了。4) 數(shù)入列名。將表名設(shè)定為“車輛檔案表”，然后單擊[確定]按鈕。4）菜單的“索引”文本框用來(lái)確定菜單標(biāo)題或菜單選項(xiàng)在菜單控件數(shù)組中的位置或次序，菜單項(xiàng)的名稱不重復(fù)，索引值可以為空。2. 設(shè)計(jì)工具欄〔1〕 添加工具欄在“工程”菜單下選擇“部件”菜單項(xiàng)，打開“部件”對(duì)話框，然后在其中選擇“Microsoft Windows Common ”，單擊[確定]按鈕。l 單擊“通用”選項(xiàng)卡，在此選項(xiàng)卡中可以設(shè)置圖像的高度和寬度，以及是否使用屏蔽顏色屬性?！皹?biāo)記”起到標(biāo)識(shí)單個(gè)圖像的作用，一般情況下也可以為空值。2) 鼠標(biāo)右鍵單擊ToolBar控件，在彈出的菜單中選擇“屬性”菜單項(xiàng)，打開“屬性頁(yè)”對(duì)話框。車輛檔案錄入操作窗體以用于添加、修改、刪除車輛檔案信息。具體添加辦法如下：由于該控件屬于ActiveX控件，要想添加Adodc控件，在使用前應(yīng)首先將其添加到工具箱中，具體的添加方法是：?jiǎn)螕簟肮ぞ摺?“部件”菜單項(xiàng)，打開“部件”對(duì)話框。Adodc1控件的RecordSource屬性為“select * from 車輛檔案表”在Adodc1控件上單擊鼠標(biāo)右鍵選擇“Adodc屬性進(jìn)行數(shù)據(jù)庫(kù)連接和數(shù)據(jù)表鏈接”，鏈接方法：。在窗體上添加Label、Text、Commandbutton、ComboBox、DTPicker控件。 Private Sub Unlockctl() = True: = True = True: = True = True: = True: = TrueEnd Sub （4）因?yàn)镈TPicker控件的Value屬性始終不能為空，所以在給DTPicker控件賦值前，應(yīng)先判斷數(shù)據(jù)表中是否有數(shù)據(jù)。 amp。在【確定】按鈕的Click事件下添加代碼如下：Private Sub Command4_Click()Select Case i Case 1 If Text1 = Then MsgBox 車號(hào)不能為空, , 系統(tǒng)提示 Exit Sub End If If = Then MsgBox 車輛類型不能為空, , 系統(tǒng)提示 Exit Sub End If Dim rs As New Set rs = (select * from 車輛檔案表 where 車號(hào)=39。) If = False Then MsgBox 此車號(hào)已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If (insert into 車輛檔案表 values (39。,39。,39。,39。,39。,39。,39。)) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 (update 車輛檔案表 set 車輛類型=39。,車輛所在單位=39。,購(gòu)置日期=39。,來(lái)段時(shí)間=39。,異動(dòng)否=39。, 備注=39。 where 車號(hào)=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$(輸入你要查詢的車號(hào)：, 系統(tǒng)提示) If str = Then Exit Sub = select * from 車輛檔案表 where 車號(hào)=39。車輛檔案的添加、修改、刪除可以通過(guò)ADO對(duì)象實(shí)現(xiàn)，這其中都使用了AddNew、Update和Delete方法。在窗體上添加Label、Text、Commandbutton、ComboBox、DTPicker控件。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 If 0 Then On Error Resume Next 39。在“名稱”框中指定數(shù)據(jù)源名稱，在“說(shuō)明”框中輸入描述該數(shù)據(jù)源文字，在“服務(wù)器”列表中選擇選擇要連接的SQL Server服務(wù)器，然后點(diǎn)擊“下一步”。直接單擊“完成”按鈕。Data Source= car。[保存在]列表框中選擇可執(zhí)行文件保存的位置。 工程的打包操作[程序]中找到Microsoft Visual ，在程序中找到Microsoft Visual ；然后，找到“Package amp。“打包文件夾”對(duì)話框，從中選擇打好后的包，將被裝配的文件夾，單擊“下一步”。“啟動(dòng)菜單項(xiàng)”中確定安裝進(jìn)程要?jiǎng)?chuàng)建的啟動(dòng)菜單群組及項(xiàng)目，單擊“下一步”。 實(shí)現(xiàn)中遇到的問(wèn)題及解決方法 問(wèn)題一當(dāng)打開車輛檔案錄入窗體時(shí)，發(fā)現(xiàn)在其窗體中已有一條記錄存在，當(dāng)想做任何操作時(shí)，都會(huì)先彈出“此車號(hào)已經(jīng)存在”的系統(tǒng)提示。 39。 39。解決方法： 經(jīng)過(guò)反復(fù)的調(diào)試和實(shí)驗(yàn)，終于查找出其問(wèn)題的原因。56第 4 章 程序優(yōu)化及待開發(fā)的項(xiàng)目由于本系統(tǒng)中有“系統(tǒng)初始化”功能，當(dāng)選擇“系統(tǒng)初始化”菜單項(xiàng)時(shí)，系統(tǒng)將會(huì)清空數(shù)據(jù)庫(kù)中所有的數(shù)據(jù)，包括用戶表，當(dāng)用戶表中無(wú)數(shù)據(jù)時(shí)，將導(dǎo)致用戶從登錄窗體中無(wú)法進(jìn)入系統(tǒng)，因此有必要將程序優(yōu)化。2. 然后在管理員設(shè)置窗體中的確定按鈕的click事件中添加： (select * from 用戶表 where 用戶類型 39。超級(jí)管理員39。因此，在以后的時(shí)間里，還要將打印功能予以實(shí)現(xiàn)。這些都有待進(jìn)一步改善。 39。當(dāng)沒(méi)有添加數(shù)據(jù)的時(shí)候 處理異常 = (0) = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = (10) = (11) = (12) = (13) = True: = True Else MsgBox 沒(méi)有你需要的信息！, , 系統(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。) If = False Then MsgBox 此駕駛員編號(hào)已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If (insert into 乘務(wù)員檔案表 values (39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。)) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 (update 乘務(wù)員檔案表 set 駕駛證編號(hào)=39。,乘務(wù)員姓名=39。,性別=39。,出生年月=39。, 家庭住址=39。, 聯(lián)系電話=39。, 技術(shù)級(jí)別=39。, 參加工作時(shí)間=39。, 駕齡=39。,運(yùn)行安全公里=39。, 發(fā)證日期=39。, 所屬車輛段=39。, 備注=39。 where 駕駛員編號(hào)=39。) MsgBox 記錄修改成功！, , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = TrueEnd SubPrivate Sub Command6_Click()On Error Resume Next 39。 Text1 amp。 Text14 amp。 Text4 amp。 Text11 amp。 Text13 amp。 Text10 amp。 Text12 amp。 Text7 amp。 Text8 amp。 Text9 amp。 Text6 amp。 Text5 amp。 Text3 amp。 Text2 amp。 Text14 amp。 Text4 amp。 Text11 amp。 Text13 amp。 Text10 amp。 Text12 amp。 Text7 amp。 Text8 amp。 Text9 amp。 Text6 amp。 Text5 amp。 Text3 amp。 Text2 amp。 Text1 amp。 amp。 + str + 39。 amp。其功能基本符合用戶需求，能夠完成對(duì)地鐵車輛管理及人員管理的存儲(chǔ)和查詢，并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)。 這樣一來(lái)，保證了開發(fā)者在用戶表中永遠(yuǎn)有一條記錄，用戶可以通過(guò)這條原始記錄進(jìn)入系統(tǒng)。)作用是：在管理員設(shè)置窗體中用戶類型的選項(xiàng)中除超級(jí)管理員選項(xiàng)不顯示在bo中，其余的用戶類型數(shù)據(jù)都顯示在bo中。超級(jí)管理員39。Data Source= car。 問(wèn)題二當(dāng)點(diǎn)擊查詢窗體時(shí)，體統(tǒng)會(huì)出現(xiàn)“編譯錯(cuò)誤。 amp。 amp?！肮蚕砦募贝绑w中，選擇共享文件后，單擊“下一步”，在彈出的“已完成！”對(duì)話框中，點(diǎn)擊[完成]按鈕?！皦嚎s文件選項(xiàng)”對(duì)話框中，選擇創(chuàng)建一個(gè)的大的或多個(gè)壓縮文件的包，單擊“下一步”。“打包腳本”對(duì)話框，從中可以選擇添加、修改打包腳