【正文】 lOn Error GoTo err1 ExecuteSql1 = True Exit Functionerr1: MsgBox ExecuteSql1 = FalseEnd Function第五章 系統(tǒng)測(cè)試系統(tǒng)開發(fā)完畢，還必須對(duì)對(duì)每個(gè)模塊進(jìn)行測(cè)試來驗(yàn)證系統(tǒng)的穩(wěn)定性，和可靠必，下面主要對(duì)系統(tǒng)中幾個(gè)主要模塊進(jìn)行測(cè)試。 \pics\) = TrueEnd SubPrivate Sub Grdtab_Click() = 1orientation = If 2 Then = False Exit SubEnd IfDim sql As StringWhile = False If (0).Value = orientation Then39。 %39。 amp。 vbCrLf amp。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 = 牌照號(hào)碼(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 請(qǐng)先完成添加任務(wù)?。?！, , 提示信息 End IfEnd SubPrivate Sub cmdSave_Click()If 1 Then MsgBox 沒有要修改的內(nèi)容，請(qǐng)“按添加按鈕”添加新內(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。 %39。 vbCrLf amp。保存記錄Public Function savedata()On Error Resume Next (0).Value = Trim() (1).Value = Trim() (2).Value = Trim() (3).Value = Trim() (4).Value = Trim() (5).Value = Trim() (6).Value = Trim() End FunctionPublic Function ExecuteSql1(sql As String) As Boolean Set rs = New = con = adUseClient = adLockOptimistic = adOpenDynamic = sql On Error GoTo err1 ExecuteSql1 = True Exit Functionerr1: MsgBox ExecuteSql1 = FalseEnd FunctionFunction checkdata() As Boolean If = Then MsgBox 請(qǐng)輸入車輛名稱!, vbInformation + vbOKOnly, 提示 Exit Function End If If = Then MsgBox 請(qǐng)輸入車輛顏色!, vbInformation + vbOKOnly, 提示 Exit Function End If If = Then MsgBox 請(qǐng)輸入車輛牌照號(hào)碼!, vbInformation + vbOKOnly, 提示 Exit Function End If If = Then MsgBox 請(qǐng)輸入車輛描述信息!, vbInformation + vbOKOnly, 提示 Exit Function End If If = Then MsgBox 請(qǐng)輸入車輛保險(xiǎn)時(shí)間!, vbInformation + vbOKOnly, 提示 Exit Function End If If txtBuyDate = Then MsgBox 請(qǐng)輸入車輛購入時(shí)間!, vbInformation + vbOKOnly, 提示 Exit Function End If checkdata = TrueEnd Function 客戶明細(xì)模塊 本模塊主要是對(duì)用車客戶信息的進(jìn)行錄入,主要含有以下信息：客戶ID、客戶姓名、客戶電話、客戶任務(wù)、牌照號(hào)、任務(wù)地點(diǎn)、任務(wù)開始時(shí)間、任務(wù)結(jié)束時(shí)間，備注等等主要信息,本模塊有添加,修改,刪除，:管理員客戶信息添加客戶信息修改客戶信息刪除客戶信息 本模塊界面如下所示:本模塊代碼如下：Private Sub cmdAdd_Click() If = 添加 Then = False = False = False = False ExecuteSql1 select top 1 client_ID from client order by client_ID desc If 0 Then = client amp。 = CStr((0).Value)39。 orientation amp。End IfEnd SubPrivate Sub Grdtab_Click() = 4orientation = If 1 Then = False Exit SubEnd IfDim sql As StringWhile = False If (3).Value = orientation Then39。If ConnectToServer = True And ExecuteSql(sql) = True Then39。 If 0 Then MsgBox 牌照不可能一樣！請(qǐng)重新輸入！?。? vbInformation, 提示 = Exit Sub End If If MsgBox(確定要保存嗎?, vbQuestion + vbYesNo, 保存) = vbYes Then Call savedata MsgBox 保存成功, , 提示信息 Call Form_Load CmdEdit(0).Caption = 添加 CmdEdit(1).Enabled = True CmdEdit(2).Enabled = True = True = True = True = True = True Exit Sub End Iferr2: MsgBox 日期的格式不對(duì)?。。?amp。 Format(Val(Right((0).Value, 3)) + 1, 0) Else = car001 End If = = = = = = CmdEdit(0).Caption = 保存 CmdEdit(1).Enabled = False CmdEdit(2).Enabled = False = False Exit Sub End If If CmdEdit(0).Caption = 保存 Then On Error GoTo err2 If checkdata = False Then