【導(dǎo)讀】管理，使管理者的管理工作更為方便、快捷。對(duì)于前者要求建立起的數(shù)據(jù)庫具有完整性和一致性，且具有一定的數(shù)據(jù)。而對(duì)于后者則要求程序界面友好、功能完備、容易使用，具有流行軟件。的操作習(xí)慣等特點(diǎn)。經(jīng)過詳細(xì)的調(diào)查分析，我使用SQLServer2021作為后臺(tái)數(shù)。達(dá)到對(duì)地鐵車輛及人員信息管理的目的。設(shè)計(jì)時(shí)首先在短時(shí)間內(nèi)先建。形成用戶滿意的實(shí)際可行系統(tǒng)。率，對(duì)推進(jìn)地鐵公司的信息化建設(shè)起到了非常重要的作用。

　　

【正文】 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。,來段時(shí)間 =39。 amp。 Text3 amp。 39。,異動(dòng)否 =39。 amp。 Combo2 amp。 39。, 備注 =39。 amp。 Text4 amp。 39。 where 車號(hào) =39。 amp。 Text1 amp。 39。) MsgBox 記錄修改成功！ , , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = True End Sub （ 9） 在【取消】按鈕的 Click事件下添加代碼如下 ： Private Sub Command5_Click() On Error Resume Next Lockctl = False: = False = True: = True = True: = True End Sub （ 10） 在【查詢】按鈕的 Click事件下添加代碼如下 ： Private Sub Command7_Click() Dim str As String str = InputBox$(輸入你要查詢的車號(hào)： , 系統(tǒng)提示 ) If str = Then Exit Sub = select * from 車輛檔案表 where 車號(hào) =39。 + str + 39。 If 0 Then On Error Resume Next 39。當(dāng)沒有添加數(shù)據(jù)的時(shí)候 處理異常 = (0) = (1) = (2) = (3) = (4) = (5) = (6) = True: = True Else MsgBox 沒有你需要的信息！ , , 系統(tǒng)提示 = False: = False End If End Sub （ 11） 在【退出】按鈕的 Click事件下添加代碼如下 ： Private Sub Command6_Click() (1).Text = Unload Me End Sub 檔案管理 車輛檔案錄入操作窗體以用于添加、 修改、刪除車輛檔案信息。車輛檔案的添加、修改、刪除可以通過 ADO對(duì)象實(shí)現(xiàn)，這其中都使用了 AddNew、 Update和 Delete方法。 1. 窗體界面設(shè)計(jì) 新建一個(gè)窗體，設(shè)置該窗體的名稱為“ frmrenlu”， Caption屬性為“人員檔案錄入窗體”， BorderStyle屬性為“ 1Fixed Single”， MDIChild的屬性為“ True”。在窗體上添加 1個(gè) ADO控件，默認(rèn)名為“ Adodc1” 。 Adodc1控件的 RecordSource屬性為“ select * from 人員檔案表” 。 在窗體上添加 Label、 Text、 Commandbutton、ComboBox、 DTPicker控件。 圖 36 人員檔案錄入窗體 2. 程序代碼設(shè)計(jì) （ 1） 在窗體裝載前定義一個(gè)數(shù)值型變量，代碼如下： Dim i As Integer （ 2） 設(shè)計(jì) 一個(gè) Lockct1過程使控件不可用，該過程如下： Private Sub Lockctl() = False: = False: = False = False: = False: = False = False: = False: = False = False: = False: = False = False: = False End Sub （ 3） 設(shè)計(jì) 一個(gè) Unlockct1過程使控件可用，該過程如下： Private Sub Unlockctl() = True: = True: = True = True: = True: = True = True: = True: = True = True: = True: = True = True: = True End 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 = 1 End Sub （ 6） 在【修改】按鈕的 Click 事件下添加代碼如下 ： Private Sub Command2_Click() Unlockctl i = 2 = True: = True = False: = False = False: = False End Sub （ 7） 在【刪除】按鈕的 Click 事件下添加代碼如下 ： Private Sub Command3_Click() If MsgBox(您確實(shí)要 刪除記錄嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then (delete from 乘務(wù)員檔案表 where 駕駛員編號(hào) =39。 amp。 Text1 amp。 39。) MsgBox 記錄已刪除！ , , 系統(tǒng)提示 End If End Sub （ 8） 在【確定】按鈕的 Click 事件下添加代碼如下 ： Private Sub Command5_Click() Select Case i Case 1 If Text1 = Then MsgBox 駕駛員編號(hào)不能為空 , , 系統(tǒng)提示 Exit Sub End If If Text2 = Then MsgBox 駕駛證編號(hào)不能為空 , , 系統(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ù)級(jí)別不能為空 , , 系統(tǒng)提示 Exit Sub End If Dim rs As New Set rs = (select * from 乘務(wù)員檔案表 where 駕駛員編號(hào) =39。 amp。 amp。 39。) If = False Then MsgBox 此駕駛員編號(hào)已經(jīng)存在！ , , 系統(tǒng)提示 Text1 = End If (insert into 乘務(wù)員檔案表 values (39。 amp。 Text1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 Text3 amp。 39。,39。 amp。 Text5 amp。 39。,39。 amp。 Text6 amp。 39。,39。 amp。 Text9 amp。 39。,39。 amp。 Text8 amp。 39。,39。 amp。 Text7 amp。 39。,39。 amp。 Text12 amp。 39。,39。 amp。 Text10 amp。 39。,39。 amp。 Text13 amp。 39。,39。 amp。 Text11 amp。 39。,39。 amp。 Text4 amp。 39。,39。 amp。 Text14 amp。 39。)) MsgBox 記錄添加成功！ , , 系統(tǒng)提示 Case 2 (update 乘務(wù)員檔案表 set 駕駛證編號(hào) =39。 amp。 Text2 amp。 39。,乘務(wù)員姓名 =39。 amp。 Text3 amp。 39。,性別 =39。 amp。 Text5 amp。 39。,出生年 月 =39。 amp。 Text6 amp。 39。, 家庭住址 =39。 amp。 Text9 amp。 39。, 聯(lián)系電話 =39。 amp。 Text8 amp。 39。, 技術(shù)級(jí)別 =39。 amp。 Text7 amp。 39。, 參加工作時(shí)間 =39。 amp。 Text12 amp。 39。, 駕齡 =39。 amp。 Text10 amp。 39。,運(yùn)行安全公里 =39。 amp。 Text13 amp。 39。, 發(fā)證日期 =39。 amp。 Text11 amp。 39。, 所屬車輛段 =39。 amp。 Text4 amp。 39。, 備注 =39。 amp。 Text14 amp。 39。 where 駕駛員編號(hào) =39。 amp。 Text1 amp。 39。) MsgBox 記錄修改成功！ , , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = True End Sub （ 9） 在【 取消】按鈕的 Click事件下添加代碼如下 ： Private Sub Command6_Click() On Error Resume Next 39。當(dāng)沒有添加數(shù)據(jù)的時(shí)候 處理異常 Lockctl = False: = False = True: = True = True: = True End Sub （ 10） 在【查詢】按鈕的 Click 事件下添加代碼如下 ： Private Sub Command4_Click() Dim st