【正文】 1過程功能為設(shè)置控件可用。 39。 39。 39。 39。 Text1 amp。 Text3 amp。 Text8 amp。 Text13 amp。 Text2 amp。 Text9 amp。 Text10 amp。 Text14 amp。然后在選取“更改默認(rèn)的數(shù)據(jù)庫為”復(fù)選框，并在可用數(shù)據(jù)庫列表中選擇要使用的默認(rèn)數(shù)據(jù)庫，然后單擊“下一步”按鈕?！鞍愋汀睂υ捒颍凇鞍愋汀蔽谋究蛑羞x擇“標(biāo)準(zhǔn)安裝包”，單擊“下一步”。 amp。3. 最后在登錄窗體中l(wèi)oad事件中添加：Set adors = (select * from 用戶表 where 用戶類型 39。 If 0 Then On Error Resume Next 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 Text1 amp。)作用是：刪除用戶表中除了用戶類型為超級管理員的所有數(shù)據(jù)。 amp。雙擊可執(zhí)行文件的圖標(biāo)，像運(yùn)行任何其它基于Windows的應(yīng)用程序那樣，可運(yùn)行這個可執(zhí)行文件。當(dāng)出現(xiàn)“創(chuàng)建新數(shù)據(jù)源”對話框時，從ODBC驅(qū)動程序列表中選擇SQL Server ，然后單擊“完成”按鈕。 Text4 amp。 Text12 amp。 Text6 amp。 Text14 amp。 Text10 amp。 Text9 amp。 Text2 amp。Adodc1控件的RecordSource屬性為“select * from 人員檔案表”。 39。 39。 39。 39。此時，ADO控件將出現(xiàn)在工具箱中。1) 在窗體上添加一個ToolBar控件。3）“名稱”文本框用于設(shè)置菜單項(xiàng)的名稱，它對應(yīng)著菜單項(xiàng)的Name屬性。第 3 章 系統(tǒng)的實(shí)現(xiàn) 數(shù)據(jù)存儲的實(shí)現(xiàn) 創(chuàng)建數(shù)據(jù)庫 Server 2000的企業(yè)管理器，單擊并逐級展開當(dāng)前服務(wù)器，在“數(shù)據(jù)庫”目錄上單擊右鍵，選擇“新建數(shù)據(jù)庫”命令。Persist Security Info=False End Sub 系統(tǒng)模塊設(shè)計(jì)主界面車輛檔案管 理乘務(wù)員檔案管理車輛管 理駕駛員管理系統(tǒng)維 護(hù)圖26 軟件系統(tǒng)模塊結(jié)構(gòu)圖1. 主界面模塊：該模塊提供管理系統(tǒng)的主界面，是主系統(tǒng)的唯一出口。這種方法又稱為ER模型。 查詢：查詢符合條件的車輛臨修信息。 集成的和可擴(kuò)展的分析服務(wù)216。另外在Oracle數(shù)據(jù)倉庫解決方案實(shí)施過程中，通常把匯總數(shù)據(jù)存儲在Express多維數(shù)據(jù)庫中，而將詳細(xì)數(shù)據(jù)存儲在Oracle關(guān)系數(shù)據(jù)庫中，當(dāng)需要詳細(xì)數(shù)據(jù)時，Express而且Delphi的編輯器是公認(rèn)最強(qiáng)的，至少強(qiáng)于VB，在做界面與其它控制方面，也似乎要超過VB。另外隨著車輛數(shù)量的增加，其工作量也將大大增加，這必然增加了管理者的工作量和勞動強(qiáng)度，同時產(chǎn)生大量的信息和數(shù)據(jù)，這給車輛信息的查找、更新和維護(hù)都帶來了不少的困難。這樣的管理機(jī)制已經(jīng)不能適應(yīng)時代發(fā)展的需要，其管理方法將浪費(fèi)許多人力和物力。、Access、Excel等數(shù)據(jù)庫主要應(yīng)用于單機(jī)環(huán)境，雖然一些后續(xù)產(chǎn)品（如Visual FoxPro ）也提供了一些諸如WEB發(fā)布的功能，但究其設(shè)計(jì)的目的還是基于小型的工作組級的應(yīng)用環(huán)境，表現(xiàn)在不提供并行分布的能力、沒有或不完備的安全性方案。 面向?qū)ο蟮目梢暬O(shè)計(jì)工具216。 強(qiáng)大的編程接口和開發(fā)工具216。查詢：用于查詢符合查詢條件的乘務(wù)員違章信息。車輛（車號、車輛類型、車輛所在單位、來段時間、異動否、備注）關(guān)鍵字為車號異動（異動車號、車次、首先發(fā)現(xiàn)者、發(fā)現(xiàn)異動時間、發(fā)現(xiàn)異動地點(diǎn)、修復(fù)時間、修復(fù)地點(diǎn)、異動現(xiàn)象、備注）關(guān)鍵字為異動車號。5. 駕駛員管理模塊 該模塊是提供對乘務(wù)員違章、乘務(wù)員事故和乘務(wù)員獎懲進(jìn)行的添加、修改和刪除的界面。 表的創(chuàng)建1) 完成數(shù)據(jù)庫的建立后，就可以建立數(shù)據(jù)庫中的表了。2. 設(shè)計(jì)工具欄〔1〕 添加工具欄在“工程”菜單下選擇“部件”菜單項(xiàng)，打開“部件”對話框，然后在其中選擇“Microsoft Windows Common ”，單擊[確定]按鈕。車輛檔案錄入操作窗體以用于添加、修改、刪除車輛檔案信息。 Private Sub Unlockctl() = True: = True = True: = True = True: = True: = TrueEnd Sub （4）因?yàn)镈TPicker控件的Value屬性始終不能為空，所以在給DTPicker控件賦值前，應(yīng)先判斷數(shù)據(jù)表中是否有數(shù)據(jù)。,39。,39。,購置日期=39。 where 車號=39。 39。 39。 39。 39。 39。 39。 39。 39。直接單擊“完成”按鈕。“打包文件夾”對話框，從中選擇打好后的包，將被裝配的文件夾，單擊“下一步”。 39。超級管理員39。當(dāng)沒有添加數(shù)據(jù)的時候 處理異常 = (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 駕駛員編號不能為空, , 系統(tǒng)提示 Exit Sub End If If Text2 = Then MsgBox 駕駛證編號不能為空, , 系統(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ù)級別不能為空, , 系統(tǒng)提示 Exit Sub End If Dim rs As New Set rs = (select * from 乘務(wù)員檔案表 where 駕駛員編號=39。,39。,39。,39。,乘務(wù)員姓名=39。, 聯(lián)系電話=39。,運(yùn)行安全公里=39。 where 駕駛員編號=39。 Text4 amp。 Text12 amp。 Text6 amp。 Text14 amp。 Text10 amp。 Text9 amp。 Text2 amp。 amp。超級管理員39。 amp。[確定]，關(guān)閉[工程屬性]對話框，再在[制作 ]對話框中選取[確定]，編譯和連接該執(zhí)行文件。選擇“系統(tǒng)DSN”選項(xiàng)卡，然后單擊“添加”按鈕。 amp。 amp。 amp。 amp。 amp。 amp。 amp。在窗體上添加1個ADO控件，默認(rèn)名為“Adodc1”。 Combo2 amp。 Combo1 amp。 amp。 amp。所以在本系統(tǒng)中添加了DTPicker控件，由于該控件屬于ActiveX控件，在“部件”對話框中勾選“Microsoft Windows Common Controls2 （SP4）”選項(xiàng)，然后單擊[確定]按鈕?！?〕 創(chuàng)建并設(shè)計(jì)工具欄。2）在菜單編輯器窗口中，“標(biāo)題”文本框用于設(shè)置菜單項(xiàng)的標(biāo)題，它對應(yīng)著菜單的caption屬性。由于car數(shù)據(jù)源中默認(rèn)數(shù)據(jù)庫為car，所以也就等于和SQL Server 2000中的car數(shù)據(jù)庫連接。Data Source= car。最常用的表示概念的數(shù)學(xué)模型的方法是實(shí)體——聯(lián)系方法（Entity Relationship Approach）。其中：l 車輛臨修 添加：用于添加、修改、刪除車輛臨修信息。216。因?yàn)槠鋵τ布蟊容^高，所以不是很常見，不是很實(shí)用。3. Visual Basic與Delphi的對比Delphi在系統(tǒng)開發(fā)方面同樣具有快速、簡單的優(yōu)勢。 需求分析 車輛信息管理是地鐵公司每個車輛段都必須面對的工作，特別是近兩年，隨著地鐵線路的擴(kuò)展，車輛不斷的增多，人員不斷的添加，從而給每個車輛段的車輛管理方面和人員管理方面都帶來不少的沖擊，特別是對于車輛段來說，地鐵車輛管理工作是至關(guān)重要的，但是一直以來我們都在使用傳統(tǒng)的人工方式管理車輛檔案和人員檔案，這種方式存在著許多缺點(diǎn)，如：效率低、保密性差。然而使用計(jì)算機(jī)對車輛檔案信息進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點(diǎn)，如：檢索迅速、查找方便、可靠性高、儲存量大、保密性好、壽命長、成本低等，這些優(yōu)點(diǎn)能夠極大地提高車輛檔案管理的效率，也是地鐵行業(yè)或鐵路行業(yè)向科學(xué)化、正規(guī)化管理發(fā)展的必要條件，更是中國地鐵與世界接軌的重要條件。例如Access數(shù)據(jù)庫。 事件驅(qū)動的編程機(jī)制216。 與Windows操作系統(tǒng)的高度集成特性216。清空：清空乘務(wù)員違章表中的所有信息。臨修（臨修車號、司機(jī)姓名、車長姓名、地勤司機(jī)、臨修日期、臨修原因、是否修復(fù)、是否扣車、備注）關(guān)鍵字為臨修車號。6. 系統(tǒng)維護(hù)模塊 該模塊是提供對系統(tǒng)初始化、管理員設(shè)置、數(shù)據(jù)恢復(fù)、數(shù)據(jù)備份及退出進(jìn)行的操作。以“車輛檔案表”為例，介紹創(chuàng)建表的過程。此時ToolBar控件和ImageList控件添加到工具箱當(dāng)中。車輛檔案的添加、修改、刪除可以通過ADO對象實(shí)現(xiàn)，這其中都使用了AddNew、Update和Delete方法。Private Sub Form_Load() = 4770: = 7440 = select * from 車輛檔案表 If 0 Then = (3) = select * from 車輛類型表 If = 0 Then Exit Sub For i = 0 To 1 (0).Value = select * from 是否表 Next If = 0 Then Exit Sub For i = 0 To 1 (0).Value Next On Error Resume Next = (0) = (1) = (2) = (3) = (4) = (5) = (6) End Sub （5）初始化處理，清空文本框控件中的內(nèi)容，為部分控件賦初始值，然后設(shè)置一些按鈕有效，為用戶添加新數(shù)據(jù)做準(zhǔn)備。 amp。 amp。 amp。 amp。) MsgBox 記錄已刪除！, , 系統(tǒng)提示 End IfEnd Sub（8）在【確定】按鈕的Click事件下添加代碼如下：Private Sub Command5_Click()Select Case i Case 1 If Text1 = Then MsgBox 駕駛員編號不能為空, , 系統(tǒng)提示 Exit Sub End If If Text2 = Then MsgBox 駕駛證編號不能為空, , 系統(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ù)級別不能為空, , 系統(tǒng)提示 Exit Sub End If Dim rs As New Set rs