【正文】 okID = If MsgBox(你確定要刪除編號為 + BookID + _ 的書籍信息嗎？ , vbInformation + vbOKCancel, 刪除 ) = vbOK Then = 8 lent = If lent = 1 Then If MsgBox(此書尚未還回館內(nèi)，你是否繼續(xù)刪除操作？ , vbInformation + vbOKCancel, 提示 ) = vbOK Then With .Delete If Not .EOF Then .MoveNext Else .MoveLast End If End With MsgBox 編號為 + BookID + 的書籍信息已經(jīng)刪除！ , vbInformation + vbOKOnly, 提示 Exit Sub Else Exit Sub End If End If With .Delete 。 amp。 End If Else strcon(5) = End If If = True Then If = 0 Then strcon(6) = 登記日期 = amp。 Else strcon(5) = 作者姓名 like39。 End If Else strcon(4) = End If If = True Then If = 0 Then strcon(5) = 作者姓名 =39。 Else strcon(4) = 出版社 like39。 End If Else strcon(3) = End If If = True Then If = 0 Then strcon(4) = 出版社 =39。 Else strcon(3) = 類別代碼 like 39。 End If Else strcon(2) = End If If = True Then If = 0 Then strcon(3) = 類別代碼 =39。 Else strcon(2) = 書籍名稱 like 39。 End If Else strcon(1) = End If If = True Then If = 0 Then strcon(2) = 書籍名稱 =39。 Else strcon(1) = 書籍編號 like 39。 and bookinfo.類別代碼 = and 還書日期 is null Set g_rs = (g_strsql) If Not Then = g_rs!書籍名稱 = g_rs!讀者編號 = g_rs!書籍類別 = g_rs!書籍頁碼 = g_rs!讀者姓名 = g_rs!借書日期 = g_rs!借出天數(shù) = Date = CStr(Date g_rs!借書日期 ) If CInt() CInt() 0 Then = CStr(CInt() CInt()) Else = 0 End If Set g_rs = Nothing Set g_rs = (select * from setinfo) = g_rs!罰款 * CInt() Set g_rs = Nothing = True Else Set g_rs = Nothing MsgBox 沒有該圖書信息或該圖書尚未借出，請返回！ , vbInformation + vbOKOnly, 信息 = = = = = = = = = = = = End If ElseIf keyascii = 13 And = Then MsgBox 請輸入需要返還的圖書編號！ , vbInformation + vbOKOnly, 信息 End If End Sub 查找圖書窗體 Private Sub Command1_Click() Dim findsql As String Dim strcon(6) As String Dim x As Integer findsql = select * from bookinfo where If = False And = False And = False And _ = False And = False And = False Then MsgBox 請選擇查詢方式 , vbInformation + vbOKOnly, 警告 = True Exit Sub End If If = Then MsgBox 請?zhí)?寫查詢內(nèi)容！ , vbInformation + vbOKOnly, 警告 Exit Sub End If If = True Then If = 0 Then strcon(1) = 書籍編號 =39。 and =39。 , , ,lentinfo.借書日期 , _ amp。 amp。 _ amp。and 讀者編號 = 39。Jet OLEDB:Database Password=xgg2213 = adUseClient = adCmdText = StrSQL = CStr() g_strsql = select * from setinfo Set g_rs = (g_strsql) strcount = g_rs!借出冊數(shù) = CStr(strcount) End Sub 還書窗體 Private Sub Command1_Click() g_strsql = select * from lentinfo where 書籍編號 =39。 amp。 39。 where = and 籍編號 = and _ amp。 and = Set g_rs = (g_strsql) If Not Then = g_rs!書籍價格 = g_rs!書籍類別 = g_rs!書籍名稱 = g_rs!作者姓名 = g_rs!書籍頁碼 = g_rs!出版社 If g_rs!是否借出 = True Then MsgBox 對不起，該書已經(jīng)借出！ , vbInformation + vbOKOnly, 信息 = False Set g_rs = Nothing Exit Sub Else = True End If Else MsgBox 對不起，館內(nèi)沒有該書信息！ , vbInformation + vbOKOnly, 提示 = = = = = = = End If Set g_rs = Nothing ElseIf keyascii = 13 And = Then MsgBox 請先輸入 讀者編號！ , vbInformation + vbOKOnly, 提示 Exit Sub ElseIf keyascii = 13 And And = Then MsgBox 請先輸入書籍編號！ , vbInformation + vbOKOnly, 提示 Exit Sub End If End Sub Public Sub StrDataGrid() Dim StrSQL As String Dim strcount As Integer StrSQL = select , , 別 , , _ amp。 where 書籍編號 =39。 39。 39。 備份卡 amp。 Set itmX = (, , key, 1) strstring = Date SaveString HKEY_CURRENT_USER, RegData, Date, strstring End If End If If = True Then 39。 Date amp。獲取路徑 End Sub Private Sub Command1_Click() Dim strstring As String Dim m As Date On Error Resume Next If = True Then 39。 \ amp。 amp。 amp。 amp。 amp。這種連接 是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復數(shù)據(jù)的組合字段。讓工作人員或圖書館管理員按照用戶名和密碼進行登錄，并且跟據(jù)用戶名檢查數(shù)據(jù)表中的“權限”字段，以分辯進入圖書館管理人員模塊還是進入工作人員模塊。 設計全局 ER模式的目的不在于把若干局部 ER模式形式上合并為一個 ER模式，而在于消除沖突，使之成為能夠被所有用戶共同理解和接受的同一的概念模型。在這一步中我們僅根據(jù)實體類型名和鍵來認定公共實體類型。聯(lián)系定義 ,解釋如下： u 一個借閱者（用戶）只能具有一種身份，而一種身份可被多個借閱者所具有； u 一本圖書只能屬于一種圖書類別（類別），而一種圖書類別可以包含多本圖書； u 一個用戶可以借閱多本不同的書，而一本書也可以被多個不同的用戶所借閱。 （ 1） 設計局部 ER模式 實體和屬性的定義： 圖書（圖書編號，圖書名稱，作者，出版社，出版日期，備注，價格，數(shù)量，） 借閱者（借書證號，姓名，性別，身份證，聯(lián)系電話） 圖書類別（圖書類別 編號，類別描述） ER模型的 “ 聯(lián)系 ” 用于刻畫實體之間的關聯(lián)。 系統(tǒng)總體流程圖 用戶登錄 超級管理員 圖書管理員 書 籍 管 理 讀者 管 理 系統(tǒng)設置