【正文】 借 39。 + + 39。 39。 amp。還 39。 amp。 39。 amp。039。還 39。 39。 amp。 39。 amp。 39。 amp。 + + 39。 39。 amp。 39。 amp。 Text10 amp。 39。 amp。 Text9 amp。 39。 amp。 39。 amp。 Text8 amp。 39。 amp。 39。 amp。 amp。 39。 amp。 Text2 amp。 Text1 amp。 39。 amp。 39。 amp。 amp。借 39。 + + 39。 + + 39。 + str + 39。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 + + 39。 amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 + + 39。 amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 + + 39。 amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 + + 39。 amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 + + 39。 amp。 Chr(35) amp。 Chr(35) amp。 39。 amp。and between amp。 like 39。 ElseIf = 1 And = 1 Then Select Case Case Is = Like = select * from rkb where(rkb. amp。 DTPicker4 amp。 and amp。 DTPicker3 amp。 End If ElseIf = 0 And = 1 Then = select * from rkb where 訂購日期 between amp。 + 39。 amp。% + + %39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 + Text3 + 39。 + + 39。 + + 39。139。039。 + Text1 + 39。 )) Dim rs As New select * from rkb, n, adOpenKeyset, adLockOptimistic 39。 , amp。 , amp。, amp。 Text10 amp。 ,39。 , amp。 , amp。, amp。 Text6 amp。,39。 DTPicker2 amp。,39。 Text5 amp。 ,39。, amp。 Text3 amp。,39。 Text2 amp。,39。 DTPicker1 amp。,39。 Text1 amp。 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。 Trim() amp。 (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 Sub clear() = : = : = : = : = : = : = : = : = : = : = : = End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text3_LostFocus() If Not IsNumeric() Then Exit Sub Else MsgBox 書籍名稱不能為數(shù)字 , vbInformation = End If End Sub Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text9_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 交通運輸學(xué)院課程設(shè)計 35 End Sub Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub frmupdate 源代碼 Dim rs1 As New Dim rs2 As New Private Sub bo1_Click() = select * from lbtb where 書籍類別 =39。 order by 訂單號 Set = Adodc2 clear End Sub Private Sub Form_Load() = amp。 order by 訂單號 If 0 Then = Val((訂單號 )) + 1 Else = temp1 + 0001 End If = select * from newtb where 是否驗收 =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 訂單號 If 0 Then = Val((訂單號 )) + 1 Else = temp1 + 0001 End If = select * from newtb where 是否驗收 =39。 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。) (sql) MsgBox 數(shù)據(jù)保存成功 !, 64