【正文】 rder by 票號 With If .RecordCount 0 Then .MoveLast If !票號 Then Dim lsph As String lsph = Right(Trim(!票號), 3) + 1 = $ amp。 P amp。 Format(lsph, 000) End If Else = $ amp。 P amp。 001 End If End With = $myerr:End SubDim conn As New Dim rs As New Dim connstring As StringPrivate Sub Combo1_lostfocus() connstring = Provider=。Password=ecc。Persist Security Inof=True。User ID=sa。Initial Catalog=purchaseandSale。Server=(local) If conn State 1 Then (connstring) End If Set rs = (select 產(chǎn)地，規(guī)格，包裝，單位 from product where 車輛名稱= amp。 Trim() amp。 ) With rs .MoveFirst Do While Not .EOF DoEvents = !規(guī)格 = !包裝 = !單位 = !產(chǎn)地 .MoveNext Loop End With End Sub Private Sub Text6_LostFocus() On Error GoTo myerr If And Then = Trim() * Trim() End If Exit Submyerr:myerr1:End SubPrivate Sub Picture1_Click() On Error GoTo err If Trim() = Then If MsgBox(車輛名稱字段是必須要輸入的！, vbExclamation, 提示！) = vbOK Then End If Else If = Then If MsgBox(數(shù)量字段是必須要輸入的！, vbExclamation, 提示！) = vbOK Then End If Else If = Then If MsgBox(進(jìn)價字段是必須要輸入的！, vbExclamation, 提示！) = vbOK Then End If Else If Trim() = Then If MsgBox(供應(yīng)商字段是必須要輸入的！, vbExclamation, 提示！) = vbOK Then End If Else If Trim() = Then If MsgBox(經(jīng)手人字段是必須要輸入的！, vbExclamation, 提示！) = vbOK Then End If Else connstring = Provider=。Password=ecc。Persist Security Inof=True。User ID=sa。Initial Catalog=purchaseandSale。Server=(local) If 1 Then (connstring) End If Dim sql As String sql = insert into purchase(車輛名稱，數(shù)量，進(jìn)價，金額，備注，供應(yīng)商，日期，經(jīng)手人，票號)values( amp。 Trim() amp。 , amp。 Trim() amp。 , amp。 Trim() amp。 , amp。 Trim() amp。 , amp。 Trim() amp。 , amp。 Trim() amp。 , amp。 Trim() amp。 , amp。 Trim() amp。 , amp。 Trim() amp。 ) (sql) If MsgBox(采購單成功生成！, vbExclamation, 提示！) = vbOK Then Unload Me End If End If End If End If End If End Iferr:End SubPrivate Sub Form_Unload(Cancel As Integer) = True End Sub采購查詢窗口主代碼Private Sub Form_Load() (車輛名稱) (供應(yīng)商) (經(jīng)手人) (票號) = 0 (=) () (=) () (=) () = 0 (And) (Or) = 0 (車輛名稱) (供應(yīng)商) (經(jīng)手人) (票號) = 0 (=) () (=) () (=) () = 0End SubPrivate Sub Command1_Click() On Error GoTo myerr If Trim() = Or Trim() = Then If MsgBox(請輸入查詢條件！, vbExclamation, 提示！) Then GoTo myerr End If = adCmdText = select* from product where amp。 Trim() amp。 Trim() amp。 amp。 Trim() amp。 amp。 amp。 Trim() amp。 amp。 Trim() amp。 Trim() amp。 amp。 Trim() amp。 myerr:End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) = True End SubPrivate Sub CGCX_Click() Load frmCGCX = FalseEnd Sub車輛管理窗口主代碼Private Sub Command1_Click() On Error GoTo AddErr = True = True = False Exit SubAddErr: MsgBox End SubPrivate Sub Command2_Click() On Error GoTo UpdateErr = False = False = True Exit SubUpdateErr: MsgBox End SubPrivate Sub Command3_Click() On Error GoTo DeleteErr = False = False With If MsgBox(刪除記錄將無法恢復(fù)，確實要刪除？, vbExclamation, 提示！) = vbYes Then .Delete .MoveNext If .EOF Then .MoveLast End If End With Exit SubDeleteErr: MsgBox End SubPrivate Sub Command4_Click() On Error GoTo UpdateErr adAffectAll = False = False = False Exit SubUpdateErr: MsgBox End SubPrivate Sub Command5_Click() Unload MeEnd SubPrivate Sub adoCLGL_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) = Record: amp。 CStr()End SubPrivate Sub Form_Unload(Cancel As Integer) = True End SubPrivate Sub CLGL_Click() Load frmCLGL = FalseEnd Sub客戶窗口主代碼Private Sub Form_Load() x = Array(客戶簡稱, 客戶全稱, 地址, 郵政編碼, 電話, 傳真, 聯(lián)系人) For i = 0 To 6 (x(i)) Next i = 0 If 0 Then For i = 0 To 10 If (i) Then gys(i).Text = (i) Else gys(i).Text = End If Next i End If = 0End SubPrivate Sub CmdFind_Click() = adCmdText = select*from supplier where amp。 Trim() amp。 like amp。 Trim() amp。 % If 0 Then For i = 0 To 10 If (i) Then gys(i).Text = (i) Else gys(i).Text = End If Next i End IfEnd SubPrivate Sub cmdMD_Click(Index As Integer) Select Case Index Case Is = 0 If Not Then Case Is = 1 If 0 Then If = False Then If = True Then End If Case Is = 2 If 0 Then If = False Then If = True Then End If Case Is = 3 If 0 Then If = False Then If = True Then