【正文】 手編輯中，我學(xué)會了運用 VB 解決實際工作的能力，圖書館管理系統(tǒng)設(shè)計了很多數(shù)據(jù)庫、數(shù)組控件、循環(huán)等很多方面的內(nèi)容，符合設(shè)計的基本要求，實現(xiàn)了鐵路運輸設(shè)備的查詢功能，可以方便的查詢數(shù)據(jù)，實現(xiàn)了從系統(tǒng)中編輯數(shù)據(jù)記錄，包括保存、刪除、清除等，實現(xiàn)了生成報表的功能。 圖書館管理系統(tǒng)這一課程設(shè)計的完成，有效的加強了我的基礎(chǔ)知識。 從此次課程設(shè)計中，給我留下最深印象的就是如果自己有了興趣，就趕緊著手去做，交通運輸學(xué)院課程設(shè)計 27 這種心境卻是是難能可貴的，也許，我這么做了，以后走更少的彎路，尋找更多的捷徑。 交通運輸學(xué)院課程設(shè)計 28 附件（程序源代碼） main_Startup 源代碼 Private Sub Timer1_Timer() Unload Me End Sub frmLogin 源代碼 Option Explicit Dim rs As New Private Sub Combo_Click() = End Sub Private Sub Combo_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Form_Load() = Dim rec Dim i As Integer select * from usertb, n, adOpenKeyset, adLockOptimistic rec = ReDim Asc(rec 1) For i = 1 To rec (名稱 ) Asc(i 1) = Val((密碼 )) If Then Exit For Next End Sub Private Sub labExit_Click() End End Sub Private Sub labLogin_Click() = select * from usertb where 名稱 =39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 39。 39。 39。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 39。 39。 39。 39。 39。 39。% + temp1 + %39。% + temp1 + %39。 amp。 39。 39。 39。 39。 39。 amp。 amp。 amp。 Text7 amp。 Text9 amp。 39。 Text12 amp。 If 0 Then (0) = (1) = (2) = Text2 交通運輸學(xué)院課程設(shè)計 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 驗收成功！ , vbInformation End If = select * from rkb = select * from newtb where 訂單號 =39。 If 0 Then (UPDATE newtb SET 是 否 驗 收 = 39。 where 訂單號 =39。, n, adOpenKeyset, adLockOptimistic If 0 Then (復(fù)本數(shù) ) = (復(fù)本數(shù) ) + Val() Else (insert into books values(39。,39。,39。,39。, amp。 Text9 amp。 Text10 amp。 Text11 amp。 Text12 amp。 Text13 amp。 like + 39。 Combo3 amp。 Chr(35) amp。 Chr(35) amp。 amp。 Chr(35) amp。 and amp。 ) Case Is = = = select * from rkb where (rkb. amp。 and between amp。 and amp。 ) Case Is = = select * from rkb where (rkb. amp。 and between amp。 and amp。 ) Case Is = = select * from rkb where (rkb. amp。 and between amp。 and amp。 ) Case Is = = = select * from rkb where (rkb. amp。 and between amp。 and amp。 ) Case Is = = = select * from rkb where (rkb. amp。 and between amp。 and 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 交通運輸學(xué)院課程設(shè)計 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 訂單號 =39。 If 0 Then = select * from rkb where 訂單號 =39。 = amp。 amp。 amp。 , amp。 Text3 amp。 ,39。,39。, amp。 DTPicker1 amp。 DTPicker2 amp。 ,39。, amp。 amp。 amp。 交通運輸學(xué)院課程設(shè)計 45 If 0 Then x = Val(( 復(fù) 本 數(shù) )) + Val((借書數(shù)量 )) y = Val(( 借書數(shù)量 )) Val((借書數(shù)量 )) hs1 = update books set 復(fù)本數(shù) =39。,借書數(shù)量 =39。where 條碼號 =39。 (hs1) End If End If js = update dzjstb set 借 =39。 where 條碼號 =39。 (js) MsgBox 還書成功！ , vbOKOnly Else On Error Resume Next End If End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub DTPicker3_Change() = If = Then = 0 Else = End If End Sub Private Sub Form_Load() = = select * from hsstb = = set rs = New select * from hsstb, n, adOpenStatic, adLockOptimistic = amp。 交通運輸學(xué)院課程設(shè)計 46 = Date 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 If = Then MsgBox 輸入不能為空 !, vbCritical Else = True End If End If End Sub Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text1_LostFocus() = select * from dzjstb where 條碼號 =39。and 讀者編號 =39。 On Error Resume Next If 0 Then = (0) = (3) = (1) = (4) = (6) = (7) = (5) = (10) = (11) = If = Then = 0 Else