【文章內(nèi)容簡介】 char4否備注varchar100是表35 車輛異動表列名數(shù)據(jù)類型長度允許空異動車號char10否車次char6是首先發(fā)現(xiàn)者char20否發(fā)現(xiàn)異動時間datetime8是發(fā)現(xiàn)異動地點(diǎn)char10是修復(fù)時間datetime8是修復(fù)地點(diǎn)char10是表36 乘務(wù)員檔案表列名數(shù)據(jù)類型長度允許空車號char10否車次char6否表號char6否廠修時間datetime8是架修時間datetime8是月修時間datetime8是掉線司機(jī)char8否掉線車長char8否事件車站char8是事件時間datetime8是事件過程varchar500否備注varchar100是表37 車輛類型表列名數(shù)據(jù)類型長度允許空類型char10否表38 乘務(wù)員事故表列名數(shù)據(jù)類型長度允許空事故等級char10否司機(jī)姓名char10否車長姓名char10否事故車號char8否發(fā)生事故地點(diǎn)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否違章地點(diǎn)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）單擊“工具”/“菜單編輯器”菜單項(xiàng)，打開“菜單編輯器”對話框。2）在菜單編輯器窗口中，“標(biāo)題”文本框用于設(shè)置菜單項(xiàng)的標(biāo)題，它對應(yīng)著菜單的caption屬性。3）“名稱”文本框用于設(shè)置菜單項(xiàng)的名稱，它對應(yīng)著菜單項(xiàng)的Name屬性。4）菜單的“索引”文本框用來確定菜單標(biāo)題或菜單選項(xiàng)在菜單控件數(shù)組中的位置或次序，菜單項(xiàng)的名稱不重復(fù)，索引值可以為空。5）“復(fù)選”、“有效”和“可見”選項(xiàng)分別對應(yīng)菜單的Checked、Enabled和Visible屬性，用于設(shè)置菜單復(fù)選，是否有效和是否可見。6）在編輯菜單的過程中，有時需要移動菜單。←將選定的菜單向左移一個等級→將選定的菜單向右移一個等級，最多創(chuàng)建5個等級↑將選定的菜單在同級菜單內(nèi)向上移動一個位置↓將選定的菜單在同級菜單內(nèi)向下一個位置7) 單擊[下一步]按鈕，移動并顯示菜單項(xiàng)，供用戶新增或修改菜單項(xiàng)，如果需要在某一個位置插入一個新的菜單項(xiàng)，則單擊[插入]按鈕，如果要刪除已存在的菜單項(xiàng)，則單擊[刪除]按鈕。2. 設(shè)計工具欄〔1〕 添加工具欄在“工程”菜單下選擇“部件”菜單項(xiàng)，打開“部件”對話框，然后在其中選擇“Microsoft Windows Common ”，單擊[確定]按鈕。此時ToolBar控件和ImageList控件添加到工具箱當(dāng)中。〔2〕 向ImageList空間中添加圖像l 在窗體上添加一個ImageList控件。l 單擊鼠標(biāo)右鍵，在彈出的菜單中選擇“屬性”菜單項(xiàng)，打開“屬性頁”對話框。l 單擊“通用”選項(xiàng)卡，在此選項(xiàng)卡中可以設(shè)置圖像的高度和寬度，以及是否使用屏蔽顏色屬性。l 單擊“圖像”選項(xiàng)卡，在此選單項(xiàng)卡中單擊[插入圖片]按鈕，然后從圖片庫中將需要的圖片添加到“圖像”下的空白框中，并且在“索引”文本框中自動產(chǎn)生該圖片的索引值。l 為圖片添加關(guān)鍵字和標(biāo)記。“關(guān)鍵字”取值為字符型，其值可以為空。“標(biāo)記”起到標(biāo)識單個圖像的作用，一般情況下也可以為空值。l 如果對已添加的某一個圖片不滿意，可以選中其圖片，單擊[刪除圖片]按鈕，將該圖片刪除，然后再添加滿意的圖片?！?〕 創(chuàng)建并設(shè)計工具欄。1) 在窗體上添加一個ToolBar控件。2) 鼠標(biāo)右鍵單擊ToolBar控件，在彈出的菜單中選擇“屬性”菜單項(xiàng)，打開“屬性頁”對話框。3) 在“屬性頁”對話框中單擊“按鈕”選項(xiàng)卡，單擊[插入按鈕]，這時ToolBar控件將出現(xiàn)一個按鈕，同時“索引”文本框可用，其值自動變?yōu)椤?”，然后在“關(guān)鍵字”文本框中輸入該按鈕的關(guān)鍵字，在“工具提示文本”文本框中輸入所要提示的文本信息；在“圖像”文本框中輸入與ImageList1控件中圖片的索引值對應(yīng)的值。4) 重復(fù)步驟3)，直到添加完所有的工具按鈕為止，最后單擊[確定]按鈕完成工具欄的設(shè)計工作。3. 創(chuàng)建狀態(tài)欄 創(chuàng)建狀態(tài)欄的方法與工具欄類似，因此略。車輛檔案錄入操作窗體以用于添加、修改、刪除車輛檔案信息。車輛檔案的添加、修改、刪除可以通過ADO對象實(shí)現(xiàn)，這其中都使用了AddNew、Update和Delete方法。1. 窗體界面設(shè)計新建一窗體，設(shè)置該窗體的名稱為“frmchelu”，Caption屬性為“車輛檔案錄入窗體”，BorderStyle屬性為“1Fixed Single”，MDIChild的屬性為“True”。添加Adodc控件，由于該控件屬于ActiveX控件，在使用前應(yīng)首先將其添加到工具箱中。具體添加辦法如下：由于該控件屬于ActiveX控件，要想添加Adodc控件，在使用前應(yīng)首先將其添加到工具箱中，具體的添加方法是：單擊“工具”/“部件”菜單項(xiàng)，打開“部件”對話框。在“部件”對話框中勾選“Microsoft Ado Data Controls （SP4）”選項(xiàng)，然后單擊[確定]按鈕。此時，ADO控件將出現(xiàn)在工具箱中。在窗體上添加1個ADO控件，默認(rèn)名為“Adodc1”。Adodc1控件的RecordSource屬性為“select * from 車輛檔案表”在Adodc1控件上單擊鼠標(biāo)右鍵選擇“Adodc屬性進(jìn)行數(shù)據(jù)庫連接和數(shù)據(jù)表鏈接”，鏈接方法：。為了方便用戶能夠填入正確的時間格式，DTPicker控件提供了格式化好的日期格式。所以在本系統(tǒng)中添加了DTPicker控件，由于該控件屬于ActiveX控件，在“部件”對話框中勾選“Microsoft Windows Common Controls2 （SP4）”選項(xiàng)，然后單擊[確定]按鈕。此時，ADO控件將出現(xiàn)在工具箱中。在窗體上添加Label、Text、Commandbutton、ComboBox、DTPicker控件。風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 圖35 車輛檔案錄入窗體2. 程序代碼設(shè)計（1）在窗體裝載前定義一個數(shù)值型變量。 Dim i As Integer（2）設(shè)計一個Lockct1過程功能為設(shè)置控件不可用。Private Sub Lockctl() = False: = False = False: = False = False: = False: = False End Sub （3）設(shè)計一個Unlockct1過程功能為設(shè)置控件可用。 Private Sub Unlockctl() = True: = True = True: = True = True: = True: = TrueEnd Sub （4）因?yàn)镈TPicker控件的Value屬性始終不能為空，所以在給DTPicker控件賦值前，應(yīng)先判斷數(shù)據(jù)表中是否有數(shù)據(jù)。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)備。在【添加】按鈕的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語句刪除車輛信息。在【刪除】按鈕的Click事件下添加代碼如下：Private Sub Command3_Click()If MsgBox(您確實(shí)要刪除記錄嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then (delete from 車輛檔案表 where 車號=39。 amp。 Text1 amp。 39。) MsgBox 記錄已刪除！, , 系統(tǒng)提示 End IfEnd Sub（8）通過一個變量i控制車輛檔案的添加和修改，添加通過SQL中Inser into語句實(shí)現(xiàn)，修改通過SQL中的Update語句實(shí)現(xiàn)。在【確定】按鈕的Click事件下添加代碼如下：Private Sub Command4_Click()Select Case i Case 1 If Text1 = Then MsgBox 車號不能為空, , 系統(tǒng)提示 Exit Sub End If If = Then MsgBox 車輛類型不能為空, , 系統(tǒng)提示 Exit Sub End If Dim rs As New Set rs = (select * from 車輛檔案表 where 車號=39。 amp。 amp。 39。) If = False Then MsgBox 此車號已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If (insert into 車輛檔案表 values (39。 amp。 Text1 amp。 39。,39。 amp。 Combo1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 amp。 39。,39。 amp。 Text3 amp。 39。,39。 amp。 Combo2 amp。 39。,39。 amp。 Text4 amp。 39。)) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 (update 車輛檔案表 set 車輛類型=39。 amp。 Combo1 amp。 39。,車輛所在單位=39。 amp。 Text2 amp。 39。,購置日期=39。 amp。 amp。 39。,來段時間=39。 amp。 Text3 amp。 39。,異動否=39。 amp。 Combo2 amp。 39。, 備注=39。 amp。 Text4 amp。 39。 w