【正文】 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。 If 0 Then On Error Resume Next 39。蘇明老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。 這樣一來，保證了開發(fā)者在用戶表中永遠(yuǎn)有一條記錄，用戶可以通過這條原始記錄進(jìn)入系統(tǒng)。超級(jí)管理員39。 問題二當(dāng)點(diǎn)擊查詢窗體時(shí)，體統(tǒng)會(huì)出現(xiàn)“編譯錯(cuò)誤。 amp?！皦嚎s文件選項(xiàng)”對(duì)話框中，選擇創(chuàng)建一個(gè)的大的或多個(gè)壓縮文件的包，單擊“下一步”。[確定]，關(guān)閉[工程屬性]對(duì)話框，再在[制作 ]對(duì)話框中選取[確定]，編譯和連接該執(zhí)行文件。若要修改該數(shù)據(jù)源，單擊該數(shù)據(jù)源，然后單擊“配置”按鈕，若要?jiǎng)h除該數(shù)據(jù)源，單擊該數(shù)據(jù)源，然后單擊“刪除”按鈕。選擇“系統(tǒng)DSN”選項(xiàng)卡，然后單擊“添加”按鈕。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。在窗體上添加1個(gè)ADO控件，默認(rèn)名為“Adodc1”。 Text1 amp。 Combo2 amp。 amp。 Combo1 amp。 Combo2 amp。 amp。 Combo1 amp。 amp。在【添加】按鈕的Click事件下添加代碼如下： Private Sub Command1_Click()Unlockctl Text1 = : Text2 = : Text3 = : Text4 = : = DK16 = 是 = True: = True = False: = False = False: = True i = 1End Sub（6）在【修改】按鈕的Click事件下添加代碼如下：Private Sub Command2_Click() Unlockctl i = 2 = True: = True = False: = False = False: = FalseEnd Sub（7）使用Delete語句刪除車輛信息。所以在本系統(tǒng)中添加了DTPicker控件，由于該控件屬于ActiveX控件，在“部件”對(duì)話框中勾選“Microsoft Windows Common Controls2 （SP4）”選項(xiàng)，然后單擊[確定]按鈕。1. 窗體界面設(shè)計(jì)新建一窗體，設(shè)置該窗體的名稱為“frmchelu”，Caption屬性為“車輛檔案錄入窗體”，BorderStyle屬性為“1Fixed Single”，MDIChild的屬性為“True”。〔3〕 創(chuàng)建并設(shè)計(jì)工具欄?！?〕 向ImageList空間中添加圖像l 在窗體上添加一個(gè)ImageList控件。2）在菜單編輯器窗口中，“標(biāo)題”文本框用于設(shè)置菜單項(xiàng)的標(biāo)題，它對(duì)應(yīng)著菜單的caption屬性。2) 展開要?jiǎng)?chuàng)建表的系統(tǒng)數(shù)據(jù)庫“car”，單擊“表”選項(xiàng)。由于car數(shù)據(jù)源中默認(rèn)數(shù)據(jù)庫為car，所以也就等于和SQL Server 2000中的car數(shù)據(jù)庫連接。風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 設(shè)計(jì)中遇到的問題及解決 Server 2000數(shù)據(jù)庫連接庫連接：在“Adodc屬性”對(duì)話框中單擊[生成]按鈕，彈出“數(shù)據(jù)鏈接屬性”窗體，在提供程序中選擇“Microsoft OLE DB Provider for ODBC Drivers”提供者，然后單擊[下一步]按鈕；在“連接”選項(xiàng)卡中指定數(shù)據(jù)源（本系統(tǒng)中的數(shù)據(jù)源為“car” ），設(shè)置完成后單擊[測試連接]按鈕，提示成功后單擊[確定]按鈕。Data Source= car。掉線（車號(hào)、車次、表號(hào)、廠修時(shí)間、架修時(shí)間、月修時(shí)間、掉線司機(jī)、掉線車長、事件車站、事件時(shí)間、事件過程、備注）關(guān)鍵字為車號(hào)。最常用的表示概念的數(shù)學(xué)模型的方法是實(shí)體——聯(lián)系方法（Entity Relationship Approach）。乘務(wù)員事故和乘務(wù)員獎(jiǎng)懲的內(nèi)容均與乘務(wù)員違章內(nèi)容相符。其中：l 車輛臨修 添加：用于添加、修改、刪除車輛臨修信息。 支持XML（擴(kuò)展標(biāo)記語言）、支持用戶自定義函數(shù)、支持OLE DB、分布式的分區(qū)視圖等特性由于SQL Server 2000具有上述特點(diǎn)，因此在做本系統(tǒng)應(yīng)用時(shí)可以選擇其作為后臺(tái)的數(shù)據(jù)庫。216。 易學(xué)易懂的集成開發(fā)環(huán)境216。因?yàn)槠鋵?duì)硬件要求比較高，所以不是很常見，不是很實(shí)用。Access是一種關(guān)系型數(shù)據(jù)庫，利用Access系統(tǒng)開發(fā)數(shù)據(jù)管理軟件，一般不需要寫程序，只要根據(jù)任務(wù)提出的要求，通過鍵盤和鼠標(biāo)器，選擇必需的命令，就能夠開發(fā)出簡單、實(shí)用、美觀大方的應(yīng)用軟件，有效地處理日常數(shù)據(jù)。3. Visual Basic與Delphi的對(duì)比Delphi在系統(tǒng)開發(fā)方面同樣具有快速、簡單的優(yōu)勢。 因此，開發(fā)一個(gè)能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄蔚能囕v管理信息系統(tǒng)，將是非常必要的，也是十分及時(shí)地。 需求分析 車輛信息管理是地鐵公司每個(gè)車輛段都必須面對(duì)的工作，特別是近兩年，隨著地鐵線路的擴(kuò)展，車輛不斷的增多，人員不斷的添加，從而給每個(gè)車輛段的車輛管理方面和人員管理方面都帶來不少的沖擊，特別是對(duì)于車輛段來說，地鐵車輛管理工作是至關(guān)重要的，但是一直以來我們都在使用傳統(tǒng)的人工方式管理車輛檔案和人員檔案，這種方式存在著許多缺點(diǎn)，如：效率低、保密性差。經(jīng)過詳細(xì)的調(diào)查分析，我使用SQL Server 2000作為后臺(tái)數(shù)據(jù)庫的開發(fā)，使用Visual Basic ，利用其提供的集成開發(fā)環(huán)境及支持面向?qū)ο蟮母鞣N標(biāo)準(zhǔn)化的控件，尤其是對(duì)ADO的支持完成對(duì)數(shù)據(jù)庫的各種操作。而對(duì)于后者則要求程序界面友好、功能完備、容易使用，具有流行軟件的操作習(xí)慣等特點(diǎn)。為規(guī)范企業(yè)的內(nèi)部管理，提高企業(yè)管理質(zhì)量，更好的服務(wù)與廣大乘客，有效跟蹤管理每組列車的使用狀況，帶動(dòng)企業(yè)進(jìn)入車輛管理信息化、科學(xué)化，使企業(yè)的車輛管理更加科學(xué)、更加規(guī)范。然而使用計(jì)算機(jī)對(duì)車輛檔案信息進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點(diǎn)，如：檢索迅速、查找方便、可靠性高、儲(chǔ)存量大、保密性好、壽命長、成本低等，這些優(yōu)點(diǎn)能夠極大地提高車輛檔案管理的效率，也是地鐵行業(yè)或鐵路行業(yè)向科學(xué)化、正規(guī)化管理發(fā)展的必要條件，更是中國地鐵與世界接軌的重要條件。其中：2. Visual Basic與Visual FoxPro的對(duì)比Visual FoxPro主要面向中小型的開發(fā)，它憑借著自帶數(shù)據(jù)庫的優(yōu)勢，應(yīng)用也比較廣泛，但從程序執(zhí)行效率和通用性角度考慮，更多的人傾向于使用VB，因?yàn)橐粋€(gè)系統(tǒng)不僅僅就操縱數(shù)據(jù)庫這么簡單，它還包括界面設(shè)計(jì)及其他必要信息的獲取與輸出，在這方面，VB相對(duì)占有更多的優(yōu)勢。例如Access數(shù)據(jù)庫。但Oracle數(shù)據(jù)庫不常見，通常是很大型的系統(tǒng)或者平臺(tái)才會(huì)采用。 事件驅(qū)動(dòng)的編程機(jī)制216。 全面啟動(dòng)WEB特性。 與Windows操作系統(tǒng)的高度集成特性216。車輛管理中包括異動(dòng)、臨修和車輛掉線的信息。清空：清空乘務(wù)員違章表中的所有信息。 為了把用戶的數(shù)據(jù)清晰明確的表達(dá)出來，通常建立一個(gè)概念型的數(shù)學(xué)模型。臨修（臨修車號(hào)、司機(jī)姓名、車長姓名、地勤司機(jī)、臨修日期、臨修原因、是否修復(fù)、是否扣車、備注）關(guān)鍵字為臨修車號(hào)。模塊中的程序代碼如下： Public adoCon As New Public adors As New Public Sub main() Set adoCon = New Provider=。6. 系統(tǒng)維護(hù)模塊 該模塊是提供對(duì)系統(tǒng)初始化、管理員設(shè)置、數(shù)據(jù)恢復(fù)、數(shù)據(jù)備份及退出進(jìn)行的操作。Persist Security Info=False就可以和管理工具中的ODBC數(shù)據(jù)源連接。以“車輛檔案表”為例，介紹創(chuàng)建表的過程。 數(shù)據(jù)表結(jié)構(gòu)表31 用戶表列名數(shù)據(jù)類型長度允許空用戶姓名char20 否用戶密碼char10 是用戶類型char10 否風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 表32 車輛檔案表列名數(shù)據(jù)類型長度允許空車號(hào)char10否車輛類型char10 否車輛所在單位char30是購置日期datetime8否來段時(shí)間datetime8是異動(dòng)否char6是備注varchar100是風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 表33 乘務(wù)員檔案表列名數(shù)據(jù)類型長度允許空駕駛員編號(hào)varchar20否駕駛證編號(hào)varchar20否乘務(wù)員姓名char8否性別char2否出生年月datetime8否家庭住址char40是聯(lián)系電話bigint15是技術(shù)級(jí)別char6否參加工作時(shí)間datetime8是駕齡char10是運(yùn)行安全公里varchar10是發(fā)證日期datetime8是所屬車輛段char20是備注varchar100是風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 表34 車輛臨修表列名數(shù)據(jù)類型長度允許空臨修車號(hào)char10否司機(jī)姓名char8否車長姓名char8否地勤司機(jī)char8否臨修日期datetime8否臨修原因varchar100否是否修復(fù)char4是是否扣車char4否備注varchar100是表35 車輛異動(dòng)表列名數(shù)據(jù)類型長度允許空異動(dòng)車號(hào)char10否車次char6是首先發(fā)現(xiàn)者char20否發(fā)現(xiàn)異動(dòng)時(shí)間datetime8是發(fā)現(xiàn)異動(dòng)地點(diǎn)char10是修復(fù)時(shí)間datetime8是修復(fù)地點(diǎn)char10是表36 乘務(wù)員檔案表列名數(shù)據(jù)類型長度允許空車號(hào)char10否車次char6