【正文】 的信息, , 提示信息 Exit SubEnd IfDim i As IntegerDim j As IntegerOn Error Resume NextFor i = 1 To 1 = i For j = 1 To 1 = j = Trim((j 1)) Next j Next iElse MsgBox 請先完成添加任務(wù)?。。?！, , 提示信息 End IfEnd SubPrivate Sub cmdqueryNum_Click()If = 添加 Then = = False = False = False = Falsesql = select * from client where client_number like 39。% amp。 %39。order by client_idExecuteSql sql = + 1 = + 1 = 0 = 0(0) = 300 = 1 = 客戶ID(1) = 800 = flexAlignCenterCenter = 2 = 客戶名稱(2) = 1000 = flexAlignCenterCenter = 3 = 客戶電話(3) = 1000 = flexAlignCenterCenter = 4 = 客戶任務(wù)(4) = 1000 = flexAlignCenterCenter = 5 = 牌照號碼(5) = 1000 = flexAlignCenterCenter = 6 = 任務(wù)地點(diǎn)(6) = 1000 = flexAlignCenterCenter = 7 = 任務(wù)開始時(shí)間(7) = 1000 = flexAlignCenterCenter = 8 = 任務(wù)結(jié)束時(shí)間(8) = 1000 = flexAlignCenterCenter = 9 = 任務(wù)備注(9) = 1000 = flexAlignCenterCenterIf 1 Then txtId = = = = = = = Date = = MsgBox 沒有找到你要找的信息, , 提示信息 Exit SubEnd IfDim i As IntegerDim j As IntegerOn Error Resume NextFor i = 1 To 1 = i For j = 1 To 1 = j = Trim((j 1)) Next j Next iElse MsgBox 請先完成添加任務(wù)！?。? , 提示信息 End IfEnd SubPrivate Sub cmdSave_Click()If 1 Then MsgBox 沒有要修改的內(nèi)容，請“按添加按鈕”添加新內(nèi)容！?。?！, vbInformation, 提示信息 Exit Sub End If If MsgBox(確定要修改嗎！！, vbQuestion + vbYesNo, 修改) = vbYes Then If checkdata = True Then Call savedata MsgBox 修改成功, , 提示信息 Call Form_Load End If End IfEnd SubPrivate Sub Form_Load()ConnectToServerfilldataIf 0 Then showdataElse txtId = = = = = = = Date = = End If = LoadPicture( amp。 \pics\)End Sub 車輛維護(hù)模塊管理員車輛維護(hù)添加維護(hù)車輛信息修改維護(hù)車輛信息刪除維護(hù)車輛信息查詢維護(hù)車輛信息 本模塊主要是對維護(hù)中車輛信息的進(jìn)行錄入,主要含有以下信息：維護(hù)ID、維護(hù)事項(xiàng)、牌照號、維護(hù)日期，備注等等主要信息,本模塊有添加,修改,修改，查詢功能. 本模塊界面如下所示: 本模塊代碼如下：Private Sub cmdAdd_Click()If = 添加 Then = False = False = False = False ExecuteSql1 select top 1 mt_ID from Maintenance order by mt_ID desc If 0 Then = MT amp。 Format(Val(Right((0).Value, 4)) + 1, 0) Else = MT0001 End If = = = Date = = 保存 = False = False = False Exit Sub End If If = 保存 Then If checkdata = False Then Exit Sub End If If MsgBox(確定要保存嗎?, vbQuestion + vbYesNo, 保存) = vbYes Then Call savedata MsgBox 保存成功, , 提示信息 Call Form_Load = 添加 = True = True = True = True = True = True = True Exit Sub End IfEnd IfEnd SubPrivate Sub cmdDelete_Click()If 2 Then MsgBox 請選擇你要刪除的行！, , 提示信息 Exit Sub End If If MsgBox(你確定要刪除嗎？, vbYesNo + vbInformation, 刪除) = vbYes Then (adAffectCurrent) MsgBox 刪除完成, , 提示信息 End If Call Form_LoadEnd SubPrivate Sub cmdFullshow_Click()If = 添加 Then = = Call Form_Load = True = True = True = TrueElse MsgBox 請先完成添加任務(wù)！?。? , 提示信息End IfEnd SubPrivate Sub cmdqueryDate_Click()If = 添加 Then = = False = False = False = FalseIf Then If Trim() Like Then MsgBox 你查詢的日期為 amp。 Trim() Else MsgBox 輸入的日期格式不正確 amp。 vbCrLf amp。 _ 日期的格式為年月日 amp。 vbCrLf amp。 _ 例如20050101, vbCritical + vbOKOnly, 提示信息 = Exit SubEnd IfDim sql As Stringsql = select * from Maintenance where mt_date= amp。 amp。 order by mt_idExecuteSql sql = + 1 = + 1 = 0 = 0(0) = 300 = 1 = 維護(hù)ID(1) = 800 = flexAlignCenterCenter = 2 = 維護(hù)車輛牌照號(2) = 1800 = flexAlignCenterCenter = 3 = 維護(hù)事項(xiàng)(3) = 1000 = flexAlignCenterCenter = 4 = 維護(hù)時(shí)間(4) = 1000 = flexAlignCenterCenter = 5 = 備注(5) = 1000 = flexAlignCenterCenterIf 1 Then = = = = Date = MsgBox 沒有找到你要找的信息, , 提示信息 Exit SubEnd IfDim i As IntegerDim j As IntegerOn Error Resume NextFor i = 1 To 1 = i For j = 1 To 1 = j = Trim((j 1)) Next j Next iElse MsgBox 查詢內(nèi)容不能為空, , 提示信息 End If Exit SubElse MsgBox 請先完成添加任務(wù)?。?！, , 提示信息End IfEnd SubPrivate Sub cmdqueryNum_Click()If = 添加 Then = = False = False = False = FalseDim sql As Stringsql = select * from Maintenance where mt_number like 39。% amp。 Trim() amp。 %39。order by mt_idExecuteSql sql = + 1 = + 1 = 0 = 0(0) = 300 = 1 = 維護(hù)ID(1) = 800 = flexAlignCenterCenter = 2 = 維護(hù)車輛牌照號(2) = 1800 = flexAlignCenterCenter = 3 = 維護(hù)事項(xiàng)(3) = 1000 = flexAlignCenterCenter = 4 = 維護(hù)時(shí)間(4) = 10