【文章內(nèi)容簡(jiǎn)介】 修改、刪除車輛檔案信息。車輛檔案的添加、修改、刪除可以通過(guò)ADO對(duì)象實(shí)現(xiàn)，這其中都使用了AddNew、Update和Delete方法。1. 窗體界面設(shè)計(jì)新建一窗體，設(shè)置該窗體的名稱為“frmchelu”，Caption屬性為“車輛檔案錄入窗體”，BorderStyle屬性為“1Fixed Single”，MDIChild的屬性為“True”。添加Adodc控件，由于該控件屬于ActiveX控件，在使用前應(yīng)首先將其添加到工具箱中。具體添加辦法如下：由于該控件屬于ActiveX控件，要想添加Adodc控件，在使用前應(yīng)首先將其添加到工具箱中，具體的添加方法是：?jiǎn)螕簟肮ぞ摺?“部件”菜單項(xiàng)，打開“部件”對(duì)話框。在“部件”對(duì)話框中勾選“Microsoft Ado Data Controls （SP4）”選項(xiàng)，然后單擊[確定]按鈕。此時(shí)，ADO控件將出現(xiàn)在工具箱中。在窗體上添加1個(gè)ADO控件，默認(rèn)名為“Adodc1”。Adodc1控件的RecordSource屬性為“select * from 車輛檔案表”在Adodc1控件上單擊鼠標(biāo)右鍵選擇“Adodc屬性進(jìn)行數(shù)據(jù)庫(kù)連接和數(shù)據(jù)表鏈接”，鏈接方法：。為了方便用戶能夠填入正確的時(shí)間格式，DTPicker控件提供了格式化好的日期格式。所以在本系統(tǒng)中添加了DTPicker控件，由于該控件屬于ActiveX控件，在“部件”對(duì)話框中勾選“Microsoft Windows Common Controls2 （SP4）”選項(xiàng)，然后單擊[確定]按鈕。此時(shí)，ADO控件將出現(xiàn)在工具箱中。在窗體上添加Label、Text、Commandbutton、ComboBox、DTPicker控件。 圖35 車輛檔案錄入窗體2. 程序代碼設(shè)計(jì)（1）在窗體裝載前定義一個(gè)數(shù)值型變量。 Dim i As Integer（2）設(shè)計(jì)一個(gè)Lockct1過(guò)程功能為設(shè)置控件不可用。Private Sub Lockctl() = False: = False = False: = False = False: = False: = False End Sub （3）設(shè)計(jì)一個(gè)Unlockct1過(guò)程功能為設(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語(yǔ)句刪除車輛信息。在【刪除】按鈕的Click事件下添加代碼如下：Private Sub Command3_Click()If MsgBox(您確實(shí)要?jiǎng)h除記錄嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then (delete from 車輛檔案表 where 車號(hào)=39。 amp。 Text1 amp。 39。) MsgBox 記錄已刪除！, , 系統(tǒng)提示 End IfEnd Sub（8）通過(guò)一個(gè)變量i控制車輛檔案的添加和修改，添加通過(guò)SQL中Inser into語(yǔ)句實(shí)現(xiàn)，修改通過(guò)SQL中的Update語(yǔ)句實(shí)現(xiàn)。在【確定】按鈕的Click事件下添加代碼如下：Private Sub Command4_Click()Select Case i Case 1 If Text1 = Then MsgBox 車號(hào)不能為空, , 系統(tǒng)提示 Exit Sub End If If = Then MsgBox 車輛類型不能為空, , 系統(tǒng)提示 Exit Sub End If Dim rs As New Set rs = (select * from 車輛檔案表 where 車號(hào)=39。 amp。 amp。 39。) If = False Then MsgBox 此車號(hào)已經(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。,購(gòu)置日期=39。 amp。 amp。 39。,來(lái)段時(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: = TrueEnd Sub（9）在【取消】按鈕的Click事件下添加代碼如下：Private Sub Command5_Click() On Error Resume Next Lockctl = False: = False = True: = True = True: = TrueEnd 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)沒(méi)有添加數(shù)據(jù)的時(shí)候 處理異常 = (0) = (1) = (2) = (3) = (4) = (5) = (6) = True: = True Else MsgBox 沒(méi)有你需要的信息！, , 系統(tǒng)提示 = False: = False End IfEnd Sub（11）在【退出】按鈕的Click事件下添加代碼如下：Private Sub Command6_Click()(1).Text = Unload MeEnd Sub車輛檔案錄入操作窗體以用于添加、修改、刪除車輛檔案信息。車輛檔案的添加、修改、刪除可以通過(guò)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過(guò)程使控件不可用，該過(guò)程如下： Private Sub Lockctl() = False: = False: = False = False: = False: = False = False: = False: = False = False: = False: = False = False: = FalseEnd Sub（3）設(shè)計(jì)一個(gè)Unlockct1過(guò)程使控件可用，該過(guò)程如下：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）在【刪除