【正文】 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。這些都有待進(jìn)一步改善。因此，在以后的時(shí)間里，還要將打印功能予以實(shí)現(xiàn)。超級(jí)管理員39。2. 然后在管理員設(shè)置窗體中的確定按鈕的click事件中添加： (select * from 用戶表 where 用戶類(lèi)型 39。第 4 章 程序優(yōu)化及待開(kāi)發(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)化。解決方法： 經(jīng)過(guò)反復(fù)的調(diào)試和實(shí)驗(yàn)，終于查找出其問(wèn)題的原因。 39。 39。 實(shí)現(xiàn)中遇到的問(wèn)題及解決方法 問(wèn)題一當(dāng)打開(kāi)車(chē)輛檔案錄入窗體時(shí)，發(fā)現(xiàn)在其窗體中已有一條記錄存在，當(dāng)想做任何操作時(shí)，都會(huì)先彈出“此車(chē)號(hào)已經(jīng)存在”的系統(tǒng)提示?！皢?dòng)菜單項(xiàng)”中確定安裝進(jìn)程要?jiǎng)?chuàng)建的啟動(dòng)菜單群組及項(xiàng)目，單擊“下一步”?！按虬募A”對(duì)話框，從中選擇打好后的包，將被裝配的文件夾，單擊“下一步”。 工程的打包操作[程序]中找到Microsoft Visual ，在程序中找到Microsoft Visual ；然后，找到“Package amp。[保存在]列表框中選擇可執(zhí)行文件保存的位置。Data Source= car。直接單擊“完成”按鈕。在“名稱”框中指定數(shù)據(jù)源名稱，在“說(shuō)明”框中輸入描述該數(shù)據(jù)源文字，在“服務(wù)器”列表中選擇選擇要連接的SQL Server服務(wù)器，然后點(diǎn)擊“下一步”。 If 0 Then On Error Resume Next 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。 39。在窗體上添加Label、Text、Commandbutton、ComboBox、DTPicker控件。車(chē)輛檔案的添加、修改、刪除可以通過(guò)ADO對(duì)象實(shí)現(xiàn)，這其中都使用了AddNew、Update和Delete方法。) 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。 where 車(chē)號(hào)=39。, 備注=39。,異動(dòng)否=39。,來(lái)段時(shí)間=39。,購(gòu)置日期=39。,車(chē)輛所在單位=39。)) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 (update 車(chē)輛檔案表 set 車(chē)輛類(lèi)型=39。,39。,39。,39。,39。,39。,39。) If = False Then MsgBox 此車(chē)號(hào)已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If (insert into 車(chē)輛檔案表 values (39。在【確定】按鈕的Click事件下添加代碼如下：Private Sub Command4_Click()Select Case i Case 1 If Text1 = Then MsgBox 車(chē)號(hào)不能為空, , 系統(tǒng)提示 Exit Sub End If If = Then MsgBox 車(chē)輛類(lèi)型不能為空, , 系統(tǒng)提示 Exit Sub End If Dim rs As New Set rs = (select * from 車(chē)輛檔案表 where 車(chē)號(hào)=39。 amp。 Private Sub Unlockctl() = True: = True = True: = True = True: = True: = TrueEnd Sub （4）因?yàn)镈TPicker控件的Value屬性始終不能為空，所以在給DTPicker控件賦值前，應(yīng)先判斷數(shù)據(jù)表中是否有數(shù)據(jù)。在窗體上添加Label、Text、Commandbutton、ComboBox、DTPicker控件。Adodc1控件的RecordSource屬性為“select * from 車(chē)輛檔案表”在Adodc1控件上單擊鼠標(biāo)右鍵選擇“Adodc屬性進(jìn)行數(shù)據(jù)庫(kù)連接和數(shù)據(jù)表鏈接”，鏈接方法：。具體添加辦法如下：由于該控件屬于ActiveX控件，要想添加Adodc控件，在使用前應(yīng)首先將其添加到工具箱中，具體的添加方法是：?jiǎn)螕簟肮ぞ摺?“部件”菜單項(xiàng)，打開(kāi)“部件”對(duì)話框。車(chē)輛檔案錄入操作窗體以用于添加、修改、刪除車(chē)輛檔案信息。2) 鼠標(biāo)右鍵單擊ToolBar控件，在彈出的菜單中選擇“屬性”菜單項(xiàng)，打開(kāi)“屬性頁(yè)”對(duì)話框?！皹?biāo)記”起到標(biāo)識(shí)單個(gè)圖像的作用，一般情況下也可以為空值。l 單擊“通用”選項(xiàng)卡，在此選項(xiàng)卡中可以設(shè)置圖像的高度和寬度，以及是否使用屏蔽顏色屬性。2. 設(shè)計(jì)工具欄〔1〕 添加工具欄在“工程”菜單下選擇“部件”菜單項(xiàng)，打開(kāi)“部件”對(duì)話框，然后在其中選擇“Microsoft Windows Common ”，單擊[確定]按鈕。4）菜單的“索引”文本框用來(lái)確定菜單標(biāo)題或菜單選項(xiàng)在菜單控件數(shù)組中的位置或次序，菜單項(xiàng)的名稱不重復(fù)，索引值可以為空。將表名設(shè)定為“車(chē)輛檔案表”，然后單擊[確定]按鈕。4) 數(shù)入列名。 表的創(chuàng)建1) 完成數(shù)據(jù)庫(kù)的建立后，就可以建立數(shù)據(jù)庫(kù)中的表了。如圖31 創(chuàng)建數(shù)據(jù)庫(kù)1 所示: 圖31 創(chuàng)建數(shù)據(jù)庫(kù)1“car”。Data Source= car。表鏈接：右鍵單擊Adodc控件，在“屬性頁(yè)”/“記錄源”選項(xiàng)卡中的“命令類(lèi)型下拉列表框中選擇“1adCmdText”列表項(xiàng)：在“命令文本”文本框中輸入（以‘車(chē)輛檔案表’為例）“select * from車(chē)輛檔案表”，單擊[確定]按鈕。5. 駕駛員管理模塊 該模塊是提供對(duì)乘務(wù)員違章、乘務(wù)員事故和乘務(wù)員獎(jiǎng)懲進(jìn)行的添加、修改和刪除的界面。該界面提供用戶選擇并調(diào)用各子模塊。風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 模塊設(shè)計(jì) 公用模塊設(shè)計(jì) 為了節(jié)省系統(tǒng)資源，在本系統(tǒng)中新建一個(gè)模塊，該模塊用于連接各個(gè)模塊中的數(shù)據(jù)表，從而避免了在程序中運(yùn)用大量的ADO控件，給開(kāi)發(fā)應(yīng)用程序帶來(lái)諸多不便。事故（事故等級(jí)、司機(jī)姓名、車(chē)長(zhǎng)姓名、事故車(chē)號(hào)、發(fā)生事故地點(diǎn)、發(fā)生事故時(shí)間、發(fā)生事故經(jīng)過(guò)、處理決定、備注）關(guān)鍵字為事故車(chē)號(hào)。車(chē)輛（車(chē)號(hào)、車(chē)輛類(lèi)型、車(chē)輛所在單位、來(lái)段時(shí)間、異動(dòng)否、備注）關(guān)鍵字為車(chē)號(hào)異動(dòng)（異動(dòng)車(chē)號(hào)、車(chē)次、首先發(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)車(chē)號(hào)。 數(shù)據(jù)庫(kù)建模 經(jīng)過(guò)上面的分析，能夠提取出以下幾個(gè)實(shí)體。 地鐵車(chē)輛管理信息系統(tǒng)數(shù)據(jù)庫(kù)名為“car”,其中有11張數(shù)據(jù)表，它們是：用戶表、車(chē)輛檔案表、車(chē)輛臨修表、車(chē)輛類(lèi)型表、車(chē)輛異動(dòng)表、車(chē)輛掉線表、是否表、乘務(wù)員事故表、乘務(wù)員檔案表、乘務(wù)員獎(jiǎng)勵(lì)表、乘務(wù)員違章表。其中：l 系統(tǒng)的初始化：將數(shù)據(jù)庫(kù)中各表信息清空恢復(fù)成系統(tǒng)的初始狀態(tài)。查詢：用于查詢符合查詢條件的乘務(wù)員違章信息。 清空：用于清空車(chē)輛臨修表中的所有信息。清空：用于清空乘務(wù)員表中的所有信息。 查詢：查詢與車(chē)輛檔案條件相符的信息。 強(qiáng)大的編程接口和開(kāi)發(fā)工具216。 簡(jiǎn)單的管理和調(diào)整216。 后臺(tái)數(shù)據(jù)庫(kù)的選用SQL Server是微軟公司出品的關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)（RDBMS）軟件，它的主要特點(diǎn)是：216。 強(qiáng)大的數(shù)據(jù)庫(kù)功能216。 面向?qū)ο蟮目梢暬O(shè)計(jì)工具216。Server通過(guò)構(gòu)造SQL語(yǔ)句訪問(wèn)關(guān)系數(shù)據(jù)庫(kù)。該數(shù)據(jù)庫(kù)無(wú)范式要求，可根據(jù)實(shí)際系統(tǒng)需求構(gòu)造數(shù)據(jù)庫(kù)，采用標(biāo)準(zhǔn)的SQL結(jié)構(gòu)化查詢語(yǔ)言，具有豐富的開(kāi)發(fā)工具，覆蓋開(kāi)發(fā)周期的各階段，支持大型數(shù)據(jù)庫(kù)，數(shù)據(jù)類(lèi)型支持?jǐn)?shù)字、字符、大至2GB的二進(jìn)制數(shù)據(jù)，為數(shù)據(jù)庫(kù)的面向?qū)ο蟠鎯?chǔ)提供數(shù)據(jù)支持，具有第四代語(yǔ)言的開(kāi)發(fā)工具（SQL*FORMS、SQL*REPORTS、SQL*MENU等），具有字符界面和圖形界面，易于開(kāi)發(fā)。但Access數(shù)據(jù)庫(kù)很多缺點(diǎn)。、Access、Excel等數(shù)據(jù)庫(kù)主要應(yīng)用于單機(jī)環(huán)境，雖然一些后續(xù)產(chǎn)品（如Visual FoxPro ）也提供了一些諸如WEB發(fā)布的功能，但究其設(shè)計(jì)的目的還是基于小型的工作組級(jí)的應(yīng)用環(huán)境，表現(xiàn)在不提供并行分布的能力、沒(méi)有或不完備的安全性方案。但不可否認(rèn)，VB的簡(jiǎn)單性與開(kāi)發(fā)環(huán)境的方便性，又為VB贏得了不少用戶。一個(gè)有經(jīng)驗(yàn)的程序員，在需求和設(shè)計(jì)都已完成的情況下，如果只是編碼和調(diào)試，使用VB大約不到一周就可以開(kāi)發(fā)出一個(gè)功能比較完備的管理信息系統(tǒng)，而如果使用VC，則時(shí)間很難確定，而且這樣做的人并不是佷多，除非是出于某些特殊需要。風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 相關(guān)技術(shù)分析 前臺(tái)開(kāi)發(fā)工具的對(duì)比 Visual Basic ，近年來(lái)得到了廣泛的應(yīng)用。這樣的管理機(jī)制已經(jīng)不能適應(yīng)時(shí)代發(fā)展的需要，其管理方法將浪費(fèi)許多人力和物力。據(jù)調(diào)查，目前地鐵公司下屬的各車(chē)輛段中還有相當(dāng)一部分車(chē)輛管理還停留在紙介質(zhì)的基礎(chǔ)上。如何讓管理人員及時(shí)了解每一組車(chē)、每一個(gè)乘務(wù)員的情況，提高車(chē)輛的使用效率，掌握人員動(dòng)態(tài)，減少費(fèi)用支出，就成為管理層需要解決的一個(gè)難題。但是，對(duì)于擁有大量車(chē)輛的地鐵公司來(lái)說(shuō)，車(chē)輛的管理成為日常事務(wù)中的一項(xiàng)重要工作。另外隨著車(chē)輛數(shù)量的增加，其工作量也將大大增加，這必然增加了管理者的工作量和勞動(dòng)強(qiáng)度，同時(shí)產(chǎn)生大量的信息和數(shù)據(jù)，這給車(chē)輛信息的查找、更新和維護(hù)都帶來(lái)了不少的困難。目前地鐵公司下屬的各車(chē)輛段中還有相當(dāng)一部分車(chē)輛管理還停留在紙介質(zhì)的基礎(chǔ)上。借此機(jī)會(huì)利用已經(jīng)掌握的各種專(zhuān)業(yè)知識(shí)，結(jié)合實(shí)際應(yīng)用，開(kāi)發(fā)一個(gè)車(chē)輛管理信息系統(tǒng)來(lái)幫助各車(chē)輛段進(jìn)行有效的管理，并可將其作為畢業(yè)設(shè)計(jì)課題。VB在這方面所具備的優(yōu)勢(shì)就是快速、簡(jiǎn)單、和功能完備。而且Delphi的編輯器是公認(rèn)最強(qiáng)的，至少?gòu)?qiáng)于VB，在做界面與其它控制方面，也似乎要超過(guò)VB。風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 后臺(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ù)。Access有存儲(chǔ)文件單一（所有形式的相關(guān)數(shù)據(jù)都包含在一個(gè)以 .mdb為后綴名的數(shù)據(jù)庫(kù)文件中），支持長(zhǎng)文件名，便于標(biāo)識(shí)與查找，面向?qū)ο蟮拈_(kāi)發(fā)方式（開(kāi)發(fā)應(yīng)用程序簡(jiǎn)便），處理多種數(shù)據(jù)信息，界面友好、工作方式靈活（直接操作與應(yīng)