【正文】 VB數(shù)據(jù)庫(kù)項(xiàng)目設(shè)計(jì)模塊化教程 作 者：劉玉山 劉寶山 編著 出 版 社： 機(jī)械工業(yè)出版社 出版時(shí)間： 20218 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 26 設(shè)計(jì)體會(huì) 三周的課程設(shè)計(jì)，到今天接近尾聲了 。 設(shè)計(jì)開始，不斷鼓勵(lì)自己，給自我以 心理暗示， just do it，也就如此，認(rèn)識(shí)到了自己以前的事業(yè)太狹小了，我們周圍還有好多我們可以利用的資源，書籍、網(wǎng)站。從理論到實(shí)踐，三周的時(shí)間，不進(jìn)溫習(xí)鞏固了以前的舊知識(shí)，也在不斷地摸索和探求中體會(huì)到了自學(xué)能力培養(yǎng)的重要性，自學(xué)的魅力是無窮的。 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 是否驗(yàn)收 = 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 交通運(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。 + + 39。 Chr(35) amp。 Chr(35) amp。 = 39。 amp。 amp。 39。 amp。 amp。 = 39。 amp。 If 0 Then MsgBox 該訂單已經(jīng)入庫(kù) ,不能夠再進(jìn)行入庫(kù)操作 ,請(qǐng)輸入其他的入庫(kù)訂單號(hào) , vbInformation Else str = = 0 = 2 1 = 驗(yàn)收入庫(kù) = Val((訂購(gòu)價(jià)格 )) * Val((復(fù)本數(shù) )) End If Else MsgBox 沒有此訂單號(hào)的信息 ,請(qǐng)您確認(rèn)后重新輸入 , 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 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 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 請(qǐng)輸入讀者編號(hào)！ 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 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 43 Private Sub Text3_LostFocus() = select * from books where 條碼號(hào) =39。 ,39。 Text6 amp。 ,39。, amp。 )) = select * from hsstb = select * from books where 條碼號(hào) =39。 and 讀者編號(hào) =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 條碼號(hào) =39。 DTPicker3 amp。,39。 Text7 amp。, amp。 On Error Resume Next If 0 Then = (書籍名稱 ) = (訂購(gòu)價(jià)格 ) = (規(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 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 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ù)量 ,請(qǐng)您查看系統(tǒng)管理當(dā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 請(qǐng)輸入讀者編號(hào)和條碼號(hào) , vbInformation Else i = MsgBox(確認(rèn)歸還該圖書嗎！ , 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 讀者編號(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 Su