【文章內容簡介】 ● 詳細設計 ● ER 圖 得到上面的數據項和數據結構以后，就可以設計出能夠滿足用戶需求的 各種實體，以及它們之間的關系，為后面的邏輯結構設計打下基礎。這些實體包含各種具體信息，通過相互之間的作用形成數據的流動。 本系統根據上面的設計規(guī)劃出的實體有：圖書實體、工作人員實體、管理員實體、查閱人員實體 。各個實體具體的描述 ER 圖如下所示。 圖書 ER 圖： ER 圖的基本符號 ： ： 管理人員 ER 圖： 圖書 圖書信息 圖書位置 報表信息 借還信息 實體 屬性 聯系 20 工作人員 ER 圖： 查閱人員 ER 圖： 查閱人員 卡號 密碼 姓名 借書權限 性別 班級 住址 電話 工作人員 帳號 密碼 姓名 性別 管理人員 帳號 密碼 姓名 性別 21 實體與實體之間的關系 ER 圖： 借書人 員 借 閱 m n 圖 書 借書日期 工作 人員 管理人員 管 理 編 輯 做必要修改 添 加 刪 除 編 輯 更 新 編 輯 m n n m m n m 更 新 添 加 刪 除 刪 除 n 添 加 更 新 22 ● 程序流程圖 ： 總體： 管理系統： 系統界面 查閱系統 管理系統 工作系統 借書卡系統 查詢圖書信息 生成報表 管理圖書信息 對圖書信息借書卡信息借還信息做必要調整 查看個人信息及修改部分信息 退出 幫助 23 工作系統： 管理人員 登陸 進入管理界面 Y N 添加 刪除 更新 關閉 24 借書卡系統： 工作人員 登陸 Y N 進入工作界面 借出圖書 還回圖書 圖書是否存在 借 書 卡 是否存在 圖 書 是 否借出 借書卡借書數目是否達到最大 N Y Y Y 借書人員 N Y N N 借書卡信息 圖書信息 借還信息 圖書編號和卡號是否存在對應關系 是否過期 圖書是否存在 借 書 卡 是否存在 N Y N Y Y N 25 查閱系統： 數據庫課程設計報告（ 三 ） 借書人員 登陸 N Y 查看個人信息 修改部分個人信息 全部信息 密碼、家庭住址、電話號碼 查閱人員 查閱條件 圖書信息、圖書位置 基本信息報表 填寫時間條件 基本信息 26 —— 圖書借閱管理系統 班級：計算機 0352 班 學號： 202120210229 姓名： 陶策憲 指導老師： 李鷗 設計日期： ~ ■ 界面 及程序代碼 Splash 界面 ： 27 其中時鐘控制它只有 2 秒的顯示狀態(tài) 代碼： Private Sub Form_Click() Unload Me End Sub Private Sub Label1_Click(Index As Integer) Unload Me End Sub Private Sub Label2_Click(Index As Integer) Unload Me End Sub Private Sub Timer1_Timer() Unload Me End Sub 登陸界面： 分別為 4 個不同用戶登陸 28 代碼： Private Sub Command1_Click() If = Or = Then MsgBox 用戶名或密碼為空！ , 48, 警告 Else = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=圖書館 = select * from 工作人員登陸 where 帳號 =39。 amp。 Trim() amp。 39。 and 密碼 =39。 amp。 amp。 39。 If Then MsgBox 用戶名或密碼不正確，重新輸入！ , 48, 警告 = = Else Unload Me End If End If End Sub Private Sub Command2_Click() a = MsgBox(真的要退出嗎 ?, 1 + 32, 提示) If a = vbOK Then Unload Me End If End Sub Private Sub Command3_Click() If = Or = Then MsgBox 用戶名或密碼為空！ , 48, 警告 Else = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=圖書館 = select 卡號 ,密碼 from 借書卡表 where 卡號 =39。 amp。 Trim() amp。 39。 and 密碼 =39。 amp。 amp。 39。 29 If Then MsgBox 用戶名或密碼不正確，重新輸入！ , 48, 警告 = = Else Unload Me End If End If End Sub Private Sub Command4_Click() a = MsgBox(真的要退出嗎 ?, 1 + 32, 提示) If a = vbOK Then Unload Me End If End Sub Private Sub Command5_Click() If = Or = Then MsgBox 用戶名或密碼為空！ , 48, 警告 Else = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=圖書館 = select * from 管理人員登陸 where 帳號 =39。 amp。 Trim() amp。 39。 and 密碼 =39。 amp。 amp。 39。 If Then MsgBox 用戶名或密碼不正確，重新輸入！ , 48, 警告 = = Else Unload Me End If End If End Sub Private Sub Command6_Click() a = MsgBox(真的要退出嗎 ?, 1 + 32, 提示) If a = vbOK Then Unload Me End If End Sub Private Sub Command7_Click() Unload Me End Sub Private Sub Command8_Click() End Sub 30 查詢圖書信息界面： 代碼： Private Sub Command1_Click() n = MsgBox(確認借出此書！ , 64 + 1, 提示) If n = vbOK Then = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=圖書館 = select * from 借書卡表 where 卡號 =39。 amp。 amp。 39。 If = Or = Or = Then MsgBox 輸入不完整！ , 64, 提示 Else If Then MsgBox 無此卡號！ , 48, 警告 Else If (借書數目) = 5 Then MsgBox 此卡以達最大借書數目，不能再借書！ , 48, 警告 Else With .Fields(書籍編號 ) = .Fields(借書數目 ) = .Fields(借書數目 ) + 1 .Update End With = select * from 圖 書 信 息 where 編號 =39。 amp。 amp。 39。 If Then MsgBox 無此圖書編號！ , 48, 警告 Else If (是否借出 ) = 是 Then MsgBox 此書已借出?。?！ , 16, 錯誤 31 Else With .Fields(是否借出 ) = 是 .Update End With = select * from 借還信息 With .AddNew .Fields(卡號 ) = .Fields(編號 ) = .Fields( 借書日期 ) = .Update End With End If End If End If End If End If End If