【導(dǎo)讀】為倍行距；頁邊距：左、右cm、上cm、下cm。本次開發(fā)圖書管理信息系統(tǒng)的目的就是為了讓我們及時了解圖書館各類圖書的存。庫、借閱等情況，更好地適應(yīng)當前學(xué)生的借閱需求。??第二章系統(tǒng)需求分析--------------------------------------------------6. 現(xiàn)行系統(tǒng)存在的問題分析-------------------------------------------7. 第三章系統(tǒng)邏輯方案--------------------------------------------------9. 第四章系統(tǒng)總體結(jié)構(gòu)設(shè)------------------------------------------------12. 軟件模塊結(jié)構(gòu)設(shè)計-------------------------------------------------12. 系統(tǒng)的安全性和可靠性設(shè)計---------------------------------------17. 第五章系統(tǒng)詳細設(shè)計--------------------------------------------------18. 借書證信息查詢-------------------------------------------------25. 第六章系統(tǒng)測試與維護------------------------------------------------29. 附錄:部分程序源代碼--------------------------------------------------33. 隨著電子計算機和通信技術(shù)的發(fā)展，人類已經(jīng)逐漸地進入信息化社會。

　　

【正文】 ox 無效的用戶名或者密碼，請重新登錄 , vbCritical End If Set db = Nothing Set rs = Nothing Unload Me End Sub Private Sub Form_Load() End Sub 借書登記界面（ ） ： Option Explicit Private db1 As Database Private rs1 As Recordset Private rs2 As Recordset Private Sub Command1_Click() Dim db As Database Dim rs As Recordset Dim strSQL As String Dim i As Integer 39。首先檢查輸入是否有效 If = Then MsgBox 請輸入用戶 ID，按回車以后檢查用戶名字是否正確 , vbInformation Exit Sub End If If Not IsNumeric() Then MsgBox 請輸入有效的數(shù)字 , vbCritical = 0 = Len() 33 Exit Sub End If 39。然后判斷用戶是否有效 Set db = OpenDatabase(DB_NAME) Set rs = (select * from tblCard where CardId= amp。 ) If 0 Then If rs!Enabled = False Then MsgBox 用戶的借書證已經(jīng)被停用 , vbCritical Set db = Nothing Set rs = Nothing Exit Sub End If End If 39。判斷用戶已經(jīng)借了多少本書，是否還能夠借書 Set rs = (select count(*) as c from tblLoan where CardId= amp。 ) If 0 Then i = rs!c Set rs = (select MaxBookNum from tblCard where CardId= amp。 ) If 0 Then If i = rs!MaxBookNum Then MsgBox 該用戶最多只能借出 amp。 i amp。 本書 amp。 Chr(13) amp。 該用戶必須先還書，然后才能重新借書 , vbCritical Set rs = Nothing Exit Sub End If End If End If i = MsgBox(你確定要借出 amp。 Chr(34) amp。 !書名 amp。 Chr(34) amp。 嗎？ , vbQuestion + vbYesNo) If i = vbYes Then strSQL = insert into tblLoan (CardId,BookId,LoanDate,ReturnDate,Operator) values ( strSQL = strSQL amp。 amp。 , amp。 !圖書編號 amp。 , strSQL = strSQL amp。 Chr(34) amp。 Format(Now, yyyymmdd hh:mm) amp。 Chr(34) amp。 , strSQL = strSQL amp。 Chr(34) amp。 Format(Now + 30, yyyymmdd hh:mm) amp。 Chr(34) amp。 , 34 strSQL = strSQL amp。 amp。 ) strSQL strSQL End If Set db = Nothing Set rs = Nothing Command2_Click End Sub Private Sub Command2_Click() If Then If IsNumeric() Then = select * from qryLoanBook where 圖書編號 in (select BookId from tblLoan where CardId = amp。 amp。 ) Else MsgBox 無效的用戶 ID，請重新輸入 , vbCritical = 0 = Len() End If Else MsgBox 請輸入用戶 ID, vbCritical End If End Sub Private Sub Form_Load() = Provider=。Data Source= amp。 DB_NAME amp。 。Persist Security Info=False = Provider=。Data Source= amp。 DB_NAME amp。 。Persist Security Info=False = select * from qryBook End Sub Private Sub txtCardId_KeyDown(KeyCode As Integer, Shift As Integer) Dim db As Database Dim rs As Recordset 35 If KeyCode = 13 Then If Then If IsNumeric() Then Set db = OpenDatabase(DB_NAME) Set rs = (select * from tblCard where CardId = amp。 ) If 0 Then = 用戶名稱： amp。 rs!Name = select * from qryLoanBook where 圖書編號 in (select BookId from tblLoan where CardId = amp。 amp。 ) Else MsgBox 用戶不存在，請重新輸入 , vbCritical = 0 = Len() End If Set rs = Nothing Set db = Nothing End If End If End If End Sub 新書入庫界面（ ）： Option Explicit Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() Dim db As Database Dim str1, str2 As String Dim i As Integer If = Then MsgBox 請輸入編號 , vbInformation 36 Exit Sub End If str1 = LibID str2 = Chr(34) amp。 amp。 Chr(34) If = Then MsgBox 請輸入書名 , vbInformation Exit Sub End If str1 = str1 amp。 ,BookName str2 = str2 amp。 , amp。 Chr(34) amp。 amp。 Chr(34) str1 = str1 amp。 ,Author str2 = str2 amp。 , amp。 Chr(34) amp。 amp。 Chr(34) str1 = str1 amp。 ,Publisher str2 = str2 amp。 , amp。 Chr(34) amp。 amp。 Chr(34) str1 = str1 amp。 ,PublishDate str2 = str2 amp。 , amp。 Chr(34) amp。 amp。 Chr(34) If Then If Not IsNumeric() Then = 0 = Len() MsgBox 請輸入有效的數(shù)字 , vbInformation Exit Sub End If str1 = str1 amp。 ,Price str2 = str2 amp。 , amp。 Else str1 = str1 amp。 ,Price str2 = str2 amp。 ,0 End If If Then If Not IsNumeric() Then = 0 = Len() 37 MsgBox 請輸入有效數(shù)字 , vbInformation Exit Sub End If str1 = str1 amp。 ,Amount str2 = str2 amp。 , amp。 Else str1 = str1 amp。 ,Amount str2 = str2 amp。 ,0 End If str1 = str1 amp。 ,Memo str2 = str2 amp。 , amp。 Chr(34) amp。 amp。 Chr(34) Set db = OpenDatabase(DB_NAME) str1 = str1 amp。 ,Operator,CreateDate str2 = str2 amp。 , amp。 Str() amp。 , str2 = str2 amp。 Chr(34) amp。 Format(Now, yyyymmdd hh:mm) amp。 Chr(34) str1 = insert into tblbook ( amp。 str1 amp。 ) values ( amp。 str2 amp。 ) On Error GoTo Err_Handler str1 (str1) Set db = Nothing i = MsgBox(新書入庫成功，繼續(xù)入庫嗎？ , vbInformation + vbYesNo) If i = vbYes Then = = = = = = = = Exit Sub Else Unload Me Exit Sub End If Err_Handler: 38 MsgBox 數(shù)據(jù) 添加