ass圖書館管理系統(tǒng)設(shè)計(jì)報(bào)告-文庫吧
2025-04-21 20:29 本頁面
【正文】 ft Office Access 20xx來設(shè)計(jì)數(shù)據(jù)庫，并使用當(dāng)前優(yōu)秀的開發(fā)工具 — Microsoft Visual Basic ，它有著最為靈活的數(shù)據(jù)庫結(jié)構(gòu)，對(duì)數(shù)據(jù)庫應(yīng)用有著良好的支持。 4 數(shù)據(jù)設(shè)計(jì) 概念結(jié)構(gòu)設(shè)計(jì) 為了把數(shù)據(jù)清晰明確地表達(dá)出來，要建立一個(gè)概念性的數(shù)學(xué)模型，概念性數(shù)學(xué)模型 5 是一種面向問題的數(shù)學(xué)模型，通常用的表示概念性的數(shù)據(jù)模型的方法是實(shí)體聯(lián)系方法。 運(yùn)用 Access 建立表： 讀 者類別（ 類別編號(hào) 、類別名稱、最大借閱量、最長(zhǎng)借閱時(shí)間） 讀者信息表（ 借閱證號(hào) 、類別編號(hào)、讀者姓名、部門、日期） 6 館藏圖書信息（ 書籍編號(hào) 、索書號(hào)、書籍名稱、作者、出版社、出版日期、入館時(shí)間、是否可借、借閱室名） 圖書管理員（ 編號(hào) 、口令、權(quán)限） 7 圖書借閱（ 書籍編號(hào)、借閱證號(hào) 、借出時(shí)間、還書時(shí)間、超出天數(shù)、罰款金額） ER 圖設(shè)計(jì)： 邏輯結(jié)構(gòu)設(shè)計(jì) 讀者信息表 讀者類別 屬于 借閱 館藏圖書信息 借出時(shí)間 還書時(shí)間 屬于圖書管理員 管理 超出天數(shù) 罰款金額 8 系統(tǒng)總體結(jié)構(gòu)圖 數(shù)據(jù)庫連接方法 數(shù)據(jù)庫連接采用了 ADODC控件，通過 ADODC控件達(dá)到數(shù)據(jù)庫與程序的連接。 具體方法是：在窗體上放置一個(gè) datagrid網(wǎng)格控件和一個(gè) adodc控件，將 adodc控件的屬性與建立的數(shù)據(jù)庫相鏈接，記錄源設(shè)置為 select * from 表名， datagrid 的 datasource 屬性讀者管理 圖書管理系統(tǒng) 圖書管理 圖書借閱管理 退出系統(tǒng) 添加圖書信息 刪除圖書信息 查詢圖書信息 還書管理 讀者管理圖書管理系統(tǒng)圖書管理系統(tǒng)管理借書管理 讀者類別管理 讀者信息管理 添加借書信息 查詢借書信息 圖書借閱管理 添加圖書信息刪除圖書信息 查詢圖書信息 讀者管理 圖書管理系統(tǒng) 圖書管理 9 設(shè)置為 adodc。 5 軟件詳細(xì)開發(fā) （ 1）關(guān)于我的應(yīng)用程序 界面 （ 2）圖書管理員登陸界面設(shè)計(jì) 系統(tǒng)登錄代碼實(shí)現(xiàn) ： Private Sub Command1_Click() 10 Dim s As String, p As String s = Trim() p = Trim() = select * from 圖書管理員表 where 編號(hào) =39。 + s + 39。 If = 0 Then MsgBox 非系統(tǒng)管理員 ! Else 口令 =39。 + p + 39。 If = True Then MsgBox 密碼錯(cuò)誤！ Else MsgBox 歡迎登陸西安理工大學(xué)圖書館管理系統(tǒng)！ End If End If End Sub Private Sub Command2_Click() End End Sub （ 3）圖書管理系統(tǒng)界面設(shè)計(jì) 11 圖書館管理系統(tǒng)主頁代碼設(shè)計(jì)： Private Sub dzgl_Click() Unload Me End Sub Private Sub glygl_Click() Unload Me End Sub Private Sub hs_Click() Unload Me End Sub Private Sub js_Click() Unload Me End Sub Private Sub tc_Click() End End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Is = dzgl 12 dzgl_Click Case Is = glygl glygl_Click Case Is = tsgl tugl_Click Case Is = dzgl dzgl_Click End End Select End Sub Private Sub tugl_Click() Unload Me End Sub Private Sub Form_Load() Show End Sub （ 4）圖書信息管理界面設(shè)計(jì) （ 3）圖書管理代碼設(shè)計(jì)（實(shí) 現(xiàn)圖書信息的添加、刪除、查詢的功能） Private Sub Command2_Click() Dim Y As Integer 13 Y = MsgBox(你確認(rèn)要?jiǎng)h除該記錄？ , 36, 刪除記錄 ) If Y = 6 Then If Then End If End If End Sub Private Sub Command3_Click() Dim Findstr As String Findstr = InputBox(請(qǐng)輸入書籍編號(hào) :, 查找 , )
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1