【正文】 Sub End If Command1(0).Caption = 添加 39。 aDays amp。還了一本書，就把相應(yīng)的借書信息刪除 借書編號 =39。 If Then MsgBox 沒有這條還書信息 !, , 提示 Else xm = MsgBox(確認(rèn)刪除嗎？ , vbYesNo) If xm = vbYes Then MsgBox 刪除成功 !, , 提示 End If End If Case 2 If Command1(0).Caption = 確認(rèn) Then = = = = = = = Command1(0).Caption = 添加 End If Case 3 If Command1(3).Caption = 修改 Then Command1(3).Caption = 確認(rèn) Else Command1(3).Caption = 修改 MsgBox (修改成功！ ) End If Case 4 Dim str As String If = vbChecked Then str = 讀者姓名 =39。 Trim(Text10 amp。 39。 ) amp。 Trim(Text11 amp。 39。 ) amp。 39。 Trim(Text11 amp。 and 還書編號 =39。 39。 Else MsgBox 你沒有借這本書！ , , 提示 Exit Sub End If End If Case 1 Dim nn As String nn = InputBox$(請輸入待刪除的還 書編號 , 查找窗 ) 還書編號 = 39。 amp。 amp。 ) amp。 amp。 Trim(Text10 amp。 ) amp。 amp。 If Not () Then 39。 Trim( amp。 If Not () And ( 1) Then MsgBox 此書已被別人借走！ , , 提示 Exit Sub End If 39。 39。 39。 Trim(Text12 amp。 and 序號 =39。 39。 Trim(Text10 amp。如果找到 xm = MsgBox(確認(rèn)刪除嗎？ , vbYesNo) If xm = vbYes Then MsgBox (刪除成功！ ) End If Else MsgBox (查不到這本書！ ) End If Case 2 If Command1(0).Caption = 確認(rèn) Then = = = = = = = Label10 = 0 Command1(0).Caption = 修改 End If Case 3 If Command1(3).Caption = 修改 Then Command1(3).Caption = 確認(rèn) Else Command1(3).Caption = 修改 MsgBox (修改成功！ ) End If Case 4 Dim str As String If = vbChecked Then str = 書類編號 =39。 ) amp。 amp。末記錄按鈕 Case 9 39。查找按鈕 Dim mm As String mm = InputBox$(請輸入讀者編號 , 查找窗 ) 讀者編號 = 39。添加按鈕 If Command1(0).Caption = 添加 Then Command1(0).Caption = 確認(rèn) Else If = Then MsgBox 讀者編號不能為空！ Exit Sub ElseIf = Then MsgBox 讀者姓名不能為空！ Exit Sub ElseIf = Then MsgBox 電話號碼不能為空！ Exit Sub ElseIf = Then MsgBox 系別不能為空！ Exit Sub ElseIf IsDate() Then = Format(, yyyymmdd) Else MsgBox 借書日期應(yīng)輸入日期（ yyyymmdd）！ , 1 + vbExclamation, 警告 Exit Sub End If Command1(0).Caption = 添加 MsgBox (添加成功！ ) End If Case 1 39。 圖 6 圖 7 圖 8 圖 9 圖 10 單擊“借閱信息管理” — “還書信息管理”即可還書，還了一本書就會將此本書的借書記錄從 brrow表中刪除，按照一般圖書館的規(guī)定，借的書最長不能超過一個月（這里按 30天計(jì)算），如果過期則按 ，在添加的同時(shí)，把罰款信息添加在這位讀者的欠款信息中。如果想修改信息，先定位到那一條記錄，單擊“修改”，修改完后，單擊“確認(rèn)”，即可完成。 ┉┉ 讀者登記 基本信息輸入 讀者信息管理 書籍類別的設(shè)置 基本信息輸入 書籍信息管理 書籍登記 基本信息輸入 借閱信息輸入 借閱信息管理 讀者信息實(shí)體 電話號碼 讀者編號 欠款 讀者姓名 書籍類別信息實(shí) 體 ER 圖如下圖所示： 書籍信息實(shí)體 ER 圖如下圖所示： ┉┉ 借書信息實(shí)體 ER 圖如下圖所示： ┉┉ 還書信息實(shí)體 ER 圖如下圖所示： ┉┉ 實(shí)體之間相互關(guān)系 ER 圖如下圖所示： 書籍類別信息實(shí)體 類編號 類名稱 備 注 書籍信息實(shí)體 類編號 序 號 書 名 價(jià) 格 借書信息實(shí)體 讀者編號 讀者姓別 借書編號 借書名稱 還書信息實(shí)體 讀者編號 讀者姓名 還書編號 還書日期 讀者信息登記 讀者信息管理 書籍信息登記 書籍信息管理 借閱書籍 借閱信息管理 3．?dāng)?shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì) 圖書館管理信息系統(tǒng)的各個表格的設(shè)計(jì)如下面表格所示： reader 讀者信息表格 列 名 數(shù)據(jù)類型 寬度 讀者編號 text 6