【正文】 VB數(shù)據(jù)庫項目設(shè)計模塊化教程 作 者：劉玉山 劉寶山 編著 出 版 社： 機械工業(yè)出版社 出版時間： 20218 交通運輸學院課程設(shè)計 26 設(shè)計體會 三周的課程設(shè)計，到今天接近尾聲了 。 設(shè)計開始，不斷鼓勵自己，給自我以 心理暗示， just do it，也就如此，認識到了自己以前的事業(yè)太狹小了，我們周圍還有好多我們可以利用的資源，書籍、網(wǎng)站。從理論到實踐，三周的時間，不進溫習鞏固了以前的舊知識，也在不斷地摸索和探求中體會到了自學能力培養(yǎng)的重要性，自學的魅力是無窮的。 39。 39。 39。 39。 39。 39。 amp。 amp。 amp。039。 39。 39。 39。 39。 39。 amp。 amp。 amp。039。039。 amp。 amp。 Text4 amp。 39。 amp。 Text11 amp。 and 是否驗收 = 39。) End If select * from books where 書籍名稱 =39。 Text4 amp。 Text6 amp。,39。,39。,0)) End If End If End Sub Private Sub Command2_Click() = 0 Unload Me End Sub 交通運輸學院課程設(shè)計 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。 + + 39。 Chr(35) amp。 Chr(35) amp。 = 39。 amp。 amp。 39。 amp。 amp。 = 39。 amp。 If 0 Then MsgBox 該訂單已經(jīng)入庫 ,不能夠再進行入庫操作 ,請輸入其他的入庫訂單號 , vbInformation Else str = = 0 = 2 1 = 驗收入庫 = Val((訂購價格 )) * Val((復本數(shù) )) End If Else MsgBox 沒有此訂單號的信息 ,請您確認后重新輸入 , 32 = End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Command1_Click End If End Sub 交通運輸學院課程設(shè)計 42 frmdzjsgl 源代碼 Private Sub Form_Activate() = Date End Sub Private Sub Form_Load() = = = = select * from dzjstb where 借 =39。 If 0 Then = (1) Else MsgBox 沒有該讀者信息！ , vbOKOnly = End If End If End Sub Private Sub Text1_LostFocus() If = Then MsgBox 請輸入讀者編號！ Exit Sub End If 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 交通運輸學院課程設(shè)計 43 Private Sub Text3_LostFocus() = select * from books where 條碼號 =39。 ,39。 Text6 amp。 ,39。, amp。 )) = select * from hsstb = select * from books where 條碼號 =39。 and 讀者編號 =39。 y amp。,借書數(shù)量 =39。 (2).Text = select * from dzjstb where 借 =39。 and 借 =39。 amp。 amp。 amp。 x amp。 If 0 Then = select * from dzjstb where 條碼號 =39。 DTPicker3 amp。,39。 Text7 amp。, amp。 On Error Resume Next If 0 Then = (書籍名稱 ) = (訂購價格 ) = (規(guī)定天數(shù) ) = (出版社 ) = (作者 ) = (類別代碼 ) = + Val() Else MsgBox 沒有該書籍信息！ , vbOKOnly = = = = = = = End If Set rs = Nothing 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 交通運輸學院課程設(shè)計 44 Private Sub Text9_LostFocus() If = Then MsgBox 借書數(shù)量不能為空 !, vbInformation Else = select * from sz If 0 Then If Val() Val((0)) Then MsgBox 借書數(shù)量大于系統(tǒng)所規(guī)定的借出數(shù)量 ,請您查看系統(tǒng)管理當中的系統(tǒng)設(shè)置后再重新輸入借書數(shù)量的信息 , vbOKOnly = End If End If End If End Sub Frmdzhsgl 源代碼 Dim rs As Private Sub Command1_Click() Dim hs, js, i As String Dim hs1, sz1 As String Dim x, y, z As Integer If = Or = Then MsgBox 請輸入讀者編號和條碼號 , vbInformation Else i = MsgBox(確認歸還該圖書嗎！ , vbYesNo + vbOKOnly) If i = vbYes Then Set rs = (insert into hsstb values( amp。 (2).Text End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then = select * from dzxxtb where 讀者編號 =39。 End If If 0 Then = (0) = (訂購日期 ) = (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() = = 交通運輸學院課程設(shè)計 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 Su