利用計算機網絡實現圖書管理系統論文-資料下載頁

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

　　

【正文】 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 請輸入有效的數字 , 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 用戶的借書證已經被停用 , vbCritical Set db = Nothing Set rs = Nothing Exit Sub End If End If 39。判斷用戶已經借了多少本書，是否還能夠借書 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 請輸入有效的數字 , 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 請輸入有效數字 , 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(新書入庫成功，繼續入庫嗎？ , vbInformation + vbYesNo) If i = vbYes Then = = = = = = = = Exit Sub Else Unload Me Exit Sub End If Err_Handler: 38 MsgBox 數據 添加