【正文】 否表號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ā)生事故地點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）單擊“工具”/“菜單編輯器”菜單項，打開“菜單編輯器”對話框。此時ToolBar控件和ImageList控件添加到工具箱當(dāng)中。l 如果對已添加的某一個圖片不滿意，可以選中其圖片，單擊[刪除圖片]按鈕，將該圖片刪除，然后再添加滿意的圖片。車輛檔案的添加、修改、刪除可以通過ADO對象實現(xiàn)，這其中都使用了AddNew、Update和Delete方法。為了方便用戶能夠填入正確的時間格式，DTPicker控件提供了格式化好的日期格式。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。 amp。 amp。 amp。 amp。1. 窗體界面設(shè)計新建一個窗體，設(shè)置該窗體的名稱為“frmrenlu”，Caption屬性為“人員檔案錄入窗體”，BorderStyle屬性為“1Fixed Single”，MDIChild的屬性為“True”。) 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 = (select * from 乘務(wù)員檔案表 where 駕駛員編號=39。,39。,39。,39。,39。,39。,39。,39。,乘務(wù)員姓名=39。,出生年月=39。, 聯(lián)系電話=39。, 參加工作時間=39。,運行安全公里=39。, 所屬車輛段=39。 where 駕駛員編號=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 Sub（11）在【退出】按鈕的Click事件下添加代碼如下：Private Sub Command7_Click()(1).Text = Unload MeEnd Sub1. 創(chuàng)建ODBC連接選擇“開始→程序→管理工具→數(shù)據(jù)源（ODBC）”命令，以打開ODBC數(shù)據(jù)源管理器對話框。此時，新建的系統(tǒng)數(shù)據(jù)源出現(xiàn)在ODBC數(shù)據(jù)管理器中。[選項]按鈕，可以在[工程屬性]對話框里規(guī)定一些有關(guān)該執(zhí)行文件特定版本的詳細(xì)資料?！鞍募睂υ捒蛑?，選擇哪些文件將被包含在要打的包中，選擇好后，單擊“下一步”。經(jīng)過詳細(xì)的分析得知，在代碼窗體中對其代碼編寫錯誤，將Text1的LostFocus（）事件寫成：Private Sub Text1_LostFocus()If = Then Exit Sub Dim rs As New Set rs = (select * from 車輛檔案表 where 車號=39。) If = False Then MsgBox 此車號已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If 所出現(xiàn)的問題就迎刃而解了。1. 首先在系統(tǒng)初始化的click事件中添加： (delete from 用戶表 where 用戶類型 39。 )作用是：在登錄窗體中用戶類型的選項中除超級管理員選項不顯示在bo中，其余的用戶類型數(shù)據(jù)都顯示bo中。致 謝在本次畢業(yè)設(shè)計中，我從指導(dǎo)教師蘇明老師身上學(xué)到了很多東西。 + str + 39。 amp。結(jié) 束 語經(jīng)過三個多月的設(shè)計和開發(fā)，地鐵車輛管理信息系統(tǒng)基本開發(fā)完畢。超級管理員39。 = Provider=。) If = False Then MsgBox 此車號已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If End Sub解決方法:發(fā)現(xiàn)錯誤后，將其代碼在確定按鈕的Click（）事件中改成：Dim rs As New Set rs = (select * from 車輛檔案表 where 車號=39?！鞍惭b位置”窗體中選擇或更改一些文件的相關(guān)位置，單擊“下一步”。 Deployment向?qū)А?，單擊向?qū)Ш?，彈出“打包和展開向?qū)А睂υ捒?，在“選擇工程”中，選擇要打包的工程，點擊[打包]按鈕。Persist Security Info=False = select * from 車輛檔案表 生成EXE文件和打包 生成EXE文件經(jīng)調(diào)試，如果沒有發(fā)現(xiàn)任何錯誤，就可以建立工程的可執(zhí)行文件。在新的對話框中單擊“使用網(wǎng)絡(luò)登陸ID的Windows NT驗證”或單擊“使用用戶輸入登陸ID和密碼的SQL Server驗證”。) MsgBox 記錄修改成功！, , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = TrueEnd Sub（9）在【取消】按鈕的Click事件下添加代碼如下：Private Sub Command6_Click()On Error Resume Next 39。, 備注=39。, 發(fā)證日期=39。, 駕齡=39。, 技術(shù)級別=39。, 家庭住址=39。,性別=39。)) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 (update 乘務(wù)員檔案表 set 駕駛證編號=39。,39。,39。,39。,39。,39。,39。) If = False Then MsgBox 此駕駛員編號已經(jīng)存在！, , 系統(tǒng)提示 Text1 = End If (insert into 乘務(wù)員檔案表 values (39。圖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) = (1