【正文】 表34 車輛臨修表列名數(shù)據(jù)類型長度允許空臨修車號char10否司機姓名char8否車長姓名char8否地勤司機char8否臨修日期datetime8否臨修原因varchar100否是否修復(fù)char4是是否扣車char4否備注varchar100是表35 車輛異動表列名數(shù)據(jù)類型長度允許空異動車號char10否車次char6是首先發(fā)現(xiàn)者char20否發(fā)現(xiàn)異動時間datetime8是發(fā)現(xiàn)異動地點char10是修復(fù)時間datetime8是修復(fù)地點char10是表36 乘務(wù)員檔案表列名數(shù)據(jù)類型長度允許空車號char10否車次char6否表號char6否廠修時間datetime8是架修時間datetime8是月修時間datetime8是掉線司機char8否掉線車長char8否事件車站char8是事件時間datetime8是事件過程varchar500否備注varchar100是表37 車輛類型表列名數(shù)據(jù)類型長度允許空類型char10否表38 乘務(wù)員事故表列名數(shù)據(jù)類型長度允許空事故等級char10否司機姓名char10否車長姓名char10否事故車號char8否發(fā)生事故地點char10否發(fā)生事故時間datetime8否發(fā)生事故經(jīng)過varchar600否處理決定varchar100否備注varchar50是表39 乘務(wù)員獎勵表列名數(shù)據(jù)類型長度允許空乘務(wù)員姓名char8否駕駛證編號varchar20否所屬輪乘組char10是獎勵級別char10是獎勵原因varchar600否獎勵金額money8否備注varchar30是表310 乘務(wù)員違章表列名數(shù)據(jù)類型長度允許空違章乘務(wù)員char8否駕駛車號char6是違章原因char30否違章地點char10否違章時間datetime8是檢查人員char20否處理決定varchar50否備注varchar30是表311 是否表列名數(shù)據(jù)類型長度允許空是否char10是風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 MDI主窗體設(shè)計 界面介紹 本系統(tǒng)主界面圖如下：狀態(tài)欄工具欄菜單欄圖35 主界面1. 菜單編輯器1）單擊“工具”/“菜單編輯器”菜單項，打開“菜單編輯器”對話框。3）“名稱”文本框用于設(shè)置菜單項的名稱，它對應(yīng)著菜單項的Name屬性。5）“復(fù)選”、“有效”和“可見”選項分別對應(yīng)菜單的Checked、Enabled和Visible屬性，用于設(shè)置菜單復(fù)選，是否有效和是否可見。←將選定的菜單向左移一個等級→將選定的菜單向右移一個等級，最多創(chuàng)建5個等級↑將選定的菜單在同級菜單內(nèi)向上移動一個位置↓將選定的菜單在同級菜單內(nèi)向下一個位置7) 單擊[下一步]按鈕，移動并顯示菜單項，供用戶新增或修改菜單項，如果需要在某一個位置插入一個新的菜單項，則單擊[插入]按鈕，如果要刪除已存在的菜單項，則單擊[刪除]按鈕。此時ToolBar控件和ImageList控件添加到工具箱當(dāng)中。l 單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性”菜單項，打開“屬性頁”對話框。l 單擊“圖像”選項卡，在此選單項卡中單擊[插入圖片]按鈕，然后從圖片庫中將需要的圖片添加到“圖像”下的空白框中，并且在“索引”文本框中自動產(chǎn)生該圖片的索引值。“關(guān)鍵字”取值為字符型，其值可以為空。l 如果對已添加的某一個圖片不滿意，可以選中其圖片，單擊[刪除圖片]按鈕，將該圖片刪除，然后再添加滿意的圖片。1) 在窗體上添加一個ToolBar控件。3) 在“屬性頁”對話框中單擊“按鈕”選項卡，單擊[插入按鈕]，這時ToolBar控件將出現(xiàn)一個按鈕，同時“索引”文本框可用，其值自動變?yōu)椤?”，然后在“關(guān)鍵字”文本框中輸入該按鈕的關(guān)鍵字，在“工具提示文本”文本框中輸入所要提示的文本信息；在“圖像”文本框中輸入與ImageList1控件中圖片的索引值對應(yīng)的值。3. 創(chuàng)建狀態(tài)欄 創(chuàng)建狀態(tài)欄的方法與工具欄類似，因此略。車輛檔案的添加、修改、刪除可以通過ADO對象實現(xiàn)，這其中都使用了AddNew、Update和Delete方法。添加Adodc控件，由于該控件屬于ActiveX控件，在使用前應(yīng)首先將其添加到工具箱中。在“部件”對話框中勾選“Microsoft Ado Data Controls （SP4）”選項，然后單擊[確定]按鈕。在窗體上添加1個ADO控件，默認名為“Adodc1”。為了方便用戶能夠填入正確的時間格式，DTPicker控件提供了格式化好的日期格式。此時，ADO控件將出現(xiàn)在工具箱中。風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 圖35 車輛檔案錄入窗體2. 程序代碼設(shè)計（1）在窗體裝載前定義一個數(shù)值型變量。Private Sub Lockctl() = False: = False = False: = False = False: = False: = False End Sub （3）設(shè)計一個Unlockct1過程功能為設(shè)置控件可用。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ù)做準備。在【刪除】按鈕的Click事件下添加代碼如下：Private Sub Command3_Click()If MsgBox(您確實要刪除記錄嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then (delete from 車輛檔案表 where 車號=39。 Text1 amp。) MsgBox 記錄已刪除！, , 系統(tǒng)提示 End IfEnd Sub（8）通過一個變量i控制車輛檔案的添加和修改，添加通過SQL中Inser into語句實現(xiàn)，修改通過SQL中的Update語句實現(xiàn)。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 + str + 39。當(dāng)沒有添加數(shù)據(jù)的時候 處理異常 = (0) = (1) = (2) = (3) = (4) = (5) = (6) = True: = True Else MsgBox 沒有你需要的信息！, , 系統(tǒng)提示 = False: = False End IfEnd Sub（11）在【退出】按鈕的Click事件下添加代碼如下：Private Sub Command6_Click()(1).Text = Unload MeEnd Sub車輛檔案錄入操作窗體以用于添加、修改、刪除車輛檔案信息。1. 窗體界面設(shè)計新建一個窗體，設(shè)置該窗體的名稱為“frmrenlu”，Caption屬性為“人員檔案錄入窗體”，BorderStyle屬性為“1Fixed Single”，MDIChild的屬性為“True”。Adodc1控件的RecordSource屬性為“select * from 人員檔案表”。圖36 人員檔案錄入窗體2. 程序代碼設(shè)計（1）在窗體裝載前定義一個數(shù)值型變量，代碼如下： Dim i As Integer（2）設(shè)計一個Lockct1過程使控件不可用，該過程如下： Private Sub Lockctl() = False: = False: = False = False: = False: = False = False: = False: = False = False: = False: = False = False: = FalseEnd Sub（3）設(shè)計一個Unlockct1過程使控件可用，該過程如下：Private Sub Unlockctl() = True: = True: = True = True: = True: = True = True: = True: = True = True: = True: = True = True: = TrueEnd Sub（4）在窗體Load事件下添加如下代碼：Private 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 Sub （5）在【添加】按鈕的Click事件下添加代碼如下：Private 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 Sub（6）在【修改】按鈕的Click事件下添加代碼如下：Private Sub Command2_Click()Unlockctl i = 2 = True: = True = False: = False = False: = FalseEnd Sub（7）在【刪除】按鈕的Click事件下添加代碼如下：Private Sub Command3_Click()If MsgBox(您確實要刪除記錄嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then (delete from 乘務(wù)員檔案表 where 駕駛員編號=39。 Text1 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