【正文】 word) = (密碼 ).Value Then 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 29 (2).Text = 當(dāng)前系統(tǒng)用戶： amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。039。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。039。% + temp1 + %39。039。% + temp1 + %39。039。 amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 Text4 amp。 amp。 39。 amp。 39。 amp。 39。 Text7 amp。 amp。 Text9 amp。 amp。 39。 Text11 amp。 Text12 amp。 Text13 amp。 If 0 Then (0) = (1) = (2) = Text2 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 36 (3) = Text3 (4) = Text4 (5) = Text5 (6) = DTPicker2 (7) = Text6 (8) = Text7 (9) = (10) = Text9 (11) = Text10 (12) = Text11 (13) = Text12 (14) = Text13 MsgBox 驗(yàn)收成功！ , vbInformation End If = select * from rkb = select * from newtb where 訂單號(hào) =39。 and 是否驗(yàn)收 = 39。 If 0 Then (UPDATE newtb SET 是 否 驗(yàn) 收 = 39。, 復(fù) 本 數(shù) =39。 where 訂單號(hào) =39。) End If select * from books where 書籍名稱 =39。, n, adOpenKeyset, adLockOptimistic If 0 Then (復(fù)本數(shù) ) = (復(fù)本數(shù) ) + Val() Else (insert into books values(39。 Text3 amp。,39。 Text4 amp。,39。 Text5 amp。,39。 Text6 amp。, amp。 ,39。 Text9 amp。,39。 Text10 amp。,39。 Text11 amp。,39。 Text12 amp。,39。 Text13 amp。,0)) End If End If End Sub Private Sub Command2_Click() = 0 Unload Me End Sub 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 37 Private Sub Command3_Click() Dim Counter As Integer Dim workarea(100) As String Counter = 0 = For Counter = LBound(workarea) To UBound(workarea) If = 1 And = 0 Then If = Like Then = select * from rkb where amp。 like + 39。 Else = select * from rkb where amp。 Combo3 amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 amp。% + + %39。 Chr(35) amp。 Chr(35) amp。 and amp。 amp。 ) Case Is = = = select * from rkb where (rkb. amp。 = 39。 and between amp。 amp。 and amp。 amp。 ) Case Is = = select * from rkb where (rkb. amp。 39。 and between amp。 amp。 and amp。 amp。 ) Case Is = = select * from rkb where (rkb. amp。 39。 and between amp。 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 38 amp。 and amp。 amp。 ) Case Is = = = select * from rkb where (rkb. amp。 = 39。 and between amp。 amp。 and amp。 amp。 ) Case Is = = = select * from rkb where (rkb. amp。 = 39。 and between amp。 amp。 and amp。 amp。 ) End Select End If = Counter Next Counter = = 0 End Sub Private Sub Command4_Click() = 0 Unload Me End Sub Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DTPicker2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DTPicker3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Form_Load() = = = select * from rkb = = select * from rkb 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 39 = = select * from newtb = lbtb, n, adOpenStatic, adLockOptimistic, adCmdTable If 0 Then End If If str = Then = select * from newtb Else = select * from newtb where 訂單號(hào) =39。 End If If 0 Then = (0) = (訂購(gòu)日期 ) = (2) = (3) = (4) = (5) = (出版日期 ) = (7) = (8) = (9) = (10) = (11) = (12) = (13) = (14) End If On Error Resume Next If = Then = 0 = select * from lbtb where 類別代碼 = + + If 0 Then = (書籍類別 ) End If End Sub Sub clear() = = 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 40 = = = = = = = = = = = End Sub Private Sub Form_Unload(Cancel As Integer) = 0 End Sub Private Sub SSTab1_Click(PreviousTab As Integer) If = 1 Then = 1 = 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 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 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 41 Private Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text12_Key