【文章內(nèi)容簡(jiǎn)介】 ① 圖 書圖 書 名 稱圖 書 編 號(hào)圖 書 出 版 社圖 書 編 號(hào)圖 書 作 者圖 書 I S B N 號(hào)圖 書 數(shù) 量 圖 書 類 別 ② 管 理 員編 號(hào)姓 名 密 碼加 入 時(shí) 間 ③ (1) 分 ER 圖 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 14 M1MN管 理 員學(xué) 生 管 理學(xué) 生借 閱歸 還圖 書NN圖 書 管 理1N (2) 總 ER 圖 圖 概念結(jié)構(gòu)設(shè)計(jì) ER 圖 實(shí)體：圖書（圖書編號(hào)，書名，作者，出版社，定價(jià)，圖書類別，圖書 ISBN 號(hào)，圖書數(shù)量） 學(xué) 生（學(xué)生學(xué)號(hào)，學(xué)生姓名，性別，入校時(shí)間，畢業(yè)時(shí)間） 管理員（編號(hào)，名字，密碼，加入時(shí)間） 聯(lián)系：學(xué)生管理（圖書管理員，學(xué)生姓名，學(xué)生密碼） 圖書管理（圖書管理員，借閱號(hào)，歸還號(hào)） 查詢（圖書編號(hào)，借閱證號(hào)，圖書管理員，學(xué)生） 數(shù)據(jù)庫的物理設(shè)計(jì) 依據(jù)數(shù)據(jù)庫的原理，并結(jié)合以上 ER 圖，經(jīng)過轉(zhuǎn)化，即可進(jìn)行數(shù)據(jù)庫的物理設(shè)計(jì)?；谝陨蠑?shù)據(jù)庫的邏輯設(shè)計(jì)，考慮程序設(shè)計(jì)的簡(jiǎn)易性，同時(shí)考慮題目的時(shí)間，該系統(tǒng)的數(shù)據(jù)庫采用 Microsoft SQL Server 2020。本系統(tǒng) 決定采用一個(gè)數(shù)據(jù)庫，在其下創(chuàng)建 5個(gè)數(shù)據(jù)表，其結(jié)構(gòu)分別如下： （ tBook），其字段列表如表 41 所示。 表 41 圖書信息表的結(jié)構(gòu) 序號(hào) 字段名稱 字段說明 類型 位數(shù) 屬性 備注 1 cBooksID 圖 文 7 必 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 15 書編號(hào) 本 須非空 2 cBooksName 圖書名稱 文本 20 必須非空 3 cBooksISBN 圖書ISBN號(hào) 文本 15 可為空 4 cBooksAuthor 圖書作者 文本 10 可為空 5 cBooksPublisher 圖書出版社 文本 20 可為空 6 cBooksType 圖書類型 文本 16 可為空 7 smBooksPrice 圖書貨幣 可為 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 16 價(jià)格 空 8 iBooksStoreQuan 圖書庫存量 整數(shù) 可為空 9 iBooksLeftQuant 圖書副本數(shù)量 整數(shù) 可為空 10 iBooksTotalQuan 圖書總數(shù) 整數(shù) 可為空 （ tBorrow），其字段列表如表 42 所示。 表 42 圖書 借閱登記 表的結(jié)構(gòu) 序號(hào) 字段名稱 字段說明 類型 位數(shù) 屬性 備注 1 cBorrowID 借書編號(hào) 文本 6 必須非空 2 cVipID 學(xué)生文本 6 必須 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 17 編號(hào) 非空 3 cBooksID 圖書編號(hào) 文本 7 必須非空 4 cBorrwTime 借書時(shí)間 時(shí)間日期 可為空 5 cReturnTime 還書時(shí)間 時(shí)間日期 可為空 6 cReturn 是否歸還 文本 1 可為空 （ tReturn），其字段列表如表 43 所示。 表 43 圖書 歸還登記 表的結(jié)構(gòu) 序號(hào) 字段名稱 字段說明 類型 位數(shù) 屬性 備注 1 cBorrowID 借書編號(hào) 文本 6 必須非空 2 cVipID 學(xué) 文 6 必 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 18 生編號(hào) 本 須非空 3 cBooksID 圖書編號(hào) 文本 7 必須非空 4 cBorrwTime 借書時(shí)間 時(shí)間日期 可為空 5 cReturnTime 還書時(shí)間 時(shí)間日期 必須非空 6 cReturn 是否歸還 文本 1 必須非空 7 cNoReturn 歸還異常 文本 8 可為空 （ tVip），其字段列表如表 44 所示。 表 44 學(xué)生信息 表的結(jié)構(gòu) 序號(hào) 字段名稱 字段說明 類型 位數(shù) 屬性 備注 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 19 1 cVipID 學(xué)生編號(hào) 文本 6 必須非空 2 cVipName 學(xué)生姓名 文本 10 必須非空 4 cVipSex 學(xué)生性別 文本 1 可為空 5 vipAddTime 學(xué)生入學(xué)時(shí)間 時(shí)間日期 必須非空 6 vipEndTime 學(xué)生畢業(yè)時(shí)間 時(shí)間日期 必須非空 （ tOperators），其字段列表如表 45 所示。 表 45 管理員 信息表的結(jié)構(gòu) 序 字段名稱 字 類 位 屬 備計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 20 號(hào) 段說明 型 數(shù) 性 注 1 cOperatorID 管理員編號(hào) 文本 5 必須非空 2 cOperatorName 管理員姓名 文本 10 必須非空 3 cOperatorPassword 密碼 文本 6 必須非空 4 cOperatorAddTime 管理員加入時(shí)間 時(shí)間日期 10 必須非空 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 21 第五 章 編碼實(shí)現(xiàn) 程序編碼 登陸界面如圖 所示。 圖 登陸界面 程序代碼如下： Function Check_Password(ByVal UserName As String, ByVal UserPassword As String) As Integer On Error GoTo ER2: If ConnectToServer = True Then Set objRs = New Recordset StrSql = select cOperatorPassword from tOperators where cOperatorName=39。 amp。 Trim() amp。 39。 GetData StrSql 39。Reference function to get data If Then Check_Password = 0 39。This Operator not exist Else If Trim((cOperatorPassword).Value) Then Check_Password = 1 39。 password error 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 22 Else Check_Password = 2 39。password ok CurrentOpname = Trim() CurrentOppassword = (cOperatorPassword).Value 39。Here can save a operator grade for expand End If End If Exit Function ER2: MsgBox Check_Password = 255 End If End Function Private Sub cmdCancel_Click() Unload Me End End Sub Private Sub cmdOK_Click() Dim intCheck As Integer 39。Static intLogTimes to save user login times Static intLogTimes As Integer intLogTimes = intLogTimes + 1 39。Save login times If intLogTimes MaxLogTimes Then 39。Over allowed login times then list information MsgBox You have over allowed loghin times,login failure !, vbCritical, LoginError Unload Me Else intCheck = Check_Password(Trim(txtPassword), Trim(cboName)) Select Case intCheck Case 0 MsgBox Your are not a system user !, vbInformation + vbOKOnly, LoginError Case 1 MsgBox Password error ,please check your password !, vbInformation + vbOKOnly, LoginError Case 2 Unload Me If CurrentOpname = Admin And CurrentOppassword = 1 Then = True Else = False End If Load MainWin 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 23 End Select End If End Sub 主界面如圖 所示。 圖 程序主界面 程序代碼如下： Option Explicit Private Sub MDIForm_Activate() If CurrentOpname = Admin Then (1).Text = 管理員： amp。 CurrentOpname (1).Visible = True (2).Visible = True Else (1).Text = 操作員： amp。 CurrentOpname (1).Visible = False (2).Visible = False End If End Sub Private Sub