【正文】 eyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Command11_Click() If = Or = Or = Or = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 輸入的信息不能為空 !, vbCritical ElseIf IsNumeric() = False Or IsNumeric() = False Or IsNumeric() = False Or IsNumeric() = False Or IsNumeric(Text13) = False Or IsNumeric(Text12) = False Then MsgBox 輸入的信息類型不正確！ , vbInformation Else = select * from newtb where 條 碼 號 =39。 If 0 Then MsgBox 此條碼號已經(jīng)存在 !, vbCritical = select * from newtb Else select * from newtb where 訂單號 =39。, n, adOpenKeyset, adLockOptimistic If 0 Then MsgBox 訂單號已存在！ , vbInformation Else Dim sql, temp As String temp = 0 sql = insert into newtb values(39。,39。,39。,39。,39。,39。,39。,39。,39。, amp。 Text9 amp。 Text10 amp。 Text11 amp。 Text12 amp。 Text13 amp。 temp amp。 order by 訂單號 End If 交通運輸學(xué)院課程設(shè)計 31 End If End If End Sub Private Sub Command1_Click() If = Or = Or = Or = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 輸入的信息不能為空 !, vbCritical ElseIf IsNumeric() = False Or IsNumeric() = False Or IsNumeric() = False Or IsNumeric() = False Or IsNumeric(Text13) = False Or IsNumeric(Text12) = False Then MsgBox 輸入的信息類型不正確！ , vbInformation Else = select * from newtb where 條碼號 =39。 If 0 Then MsgBox 此條碼號已經(jīng)存在 !, vbCritical = select * from newtb Else select * from newtb where 訂單號 =39。, n, adOpenKeyset, adLockOptimistic If 0 Then MsgBox 訂單號已存在！ , vbInformation Else Dim sql, temp As String temp = 0 sql = insert into newtb values(39。,39。,39。,39。,39。,39。,39。,39。,39。, amp。 Text9 amp。 Text10 amp。 Text11 amp。 Text12 amp。 Text13 amp。 temp amp。 order by 訂單號 End If End If End If End Sub Private Sub Command2_Click() 交通運輸學(xué)院課程設(shè)計 32 clear End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() If = False Then c = MsgBox(您確認(rèn)要刪除該記錄嗎 ?, 17) If c = vbOK Then Unload Me End If Else MsgBox 當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄 , 64 End If End Sub Private Sub Command5_Click() clear Dim temp1 temp1 = Format(Now, yyyymmdd) = select * from newtb where 訂單 號 like 39。 order by 訂單號 End Sub Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DT1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End If 交通運輸學(xué)院課程設(shè)計 33 End Sub Private Sub DTPicker2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DT2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End Sub Private Sub Form_Activate() = = Dim temp1 temp1 = Format(Now, yyyymmdd) = select * from newtb where 訂單號 like 39。 order by 訂單號 Set = Adodc2 clear End Sub Private Sub Form_Load() = amp。 Trim() amp。 Text1 amp。 DTPicker1 amp。 Text2 amp。 Text3 amp。 ,39。,39。,39。, amp。 , amp。 Text10 amp。 , amp。 )) Dim rs As New select * from rkb, n, adOpenKeyset, adLockOptimistic 39。039。 + + 39。 + Text3 + 39。 39。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 End If ElseIf = 0 And = 1 Then = select * from rkb where 訂購日期 between amp。 and amp。 ElseIf = 1 And = 1 Then Select Case Case Is = Like = select * from rkb where(rkb. amp。and between amp。 39。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 + + 39。借 39。 amp。 amp。 Text1 amp。 amp。 amp。 39。 39。 amp。 amp。 Text9 amp。 39。 amp。 amp。 + + 39。 39。 39。 39。039。 39。還 39。 39。借 39。 + + 39。 amp。 amp。 amp。還 39。 amp。 amp。 amp。 39。 39。 Text10 amp。 amp。 39。 39。 Text8 amp。 amp。 amp。 39。 Text2 amp。 39。 39。 amp。 + + 39。 + str + 39。 Chr(35) amp。 Chr(35) amp。 amp。 Chr(35) amp。 Chr(35) amp。 amp。 Chr(35) amp。 Chr(35) amp。 amp。 Chr(35) amp。 Chr(35) amp。 amp。 Chr(35) amp。 Chr(35) amp。 amp。 Chr(35) amp。 amp。 like 39。 DTPicker4 amp。 DTPicker3 amp。 + 39。% + + %39。 39。 39。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 + + 39。139。 + Text1 + 39。 , amp。, amp。 ,39。 , amp。 Text6 amp。 DTPicker2 amp。 Text5 amp。, amp。,39。,39。,39。 If 0 Then = (2) End If End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Command1_Click() Dim myval As String myval = MsgBox(是否驗收訂單！ , vbYesNo + vbOKOnly) If myval = vbYes Then (insert into rkb values(39。 (2).Text lbtb, n, adOpenStatic, adLockOptimistic, adCmdTable If 0 Then Do While = False (書籍類別 ) If Then Exit Do Loop End If clear = Date Set = Adodc2 End Sub 交通運輸學(xué)院課程設(shè)計 34