畢業(yè)論文-圖書(shū)館管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(編輯修改稿)

　

【文章內(nèi)容簡(jiǎn)介】 (5)統(tǒng)計(jì)內(nèi)容模塊：在‘讀者借閱情況統(tǒng)計(jì)’中，用戶可以統(tǒng)計(jì)出所有的讀者的基本信息和他借閱圖書(shū)的次數(shù)；而在‘圖書(shū)借閱情況統(tǒng)計(jì)’ 中，則可以統(tǒng)計(jì)出被讀者借閱過(guò)的圖書(shū)的借閱次數(shù)。 (6)關(guān)于模塊：次模塊中是關(guān)于本系統(tǒng)的基本信息。 運(yùn)行環(huán)境 (一 ) 開(kāi)發(fā)環(huán)境 硬件環(huán)境：奔騰，內(nèi)存 128M以上， 800x600及以上分辨率的顯示器。 10 軟件環(huán)境： Windows 9x/2022/NT/XP， Office 2022， Visual Basic 。 (二 ) 運(yùn)行環(huán)境 硬件環(huán)境：同開(kāi)發(fā)環(huán)境。 軟件環(huán)境： Windows 9x/2022/NT 數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì) 1．圖書(shū)信息表：包括圖書(shū)編號(hào)、圖書(shū)名稱(chēng)、作者姓名、出版社、出版日期、單價(jià)和類(lèi)別 等字段。 表 31 圖書(shū)信息表結(jié)構(gòu) 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 圖書(shū)編號(hào) 字符型 6 圖書(shū)入庫(kù)時(shí)自動(dòng)生成 2 圖書(shū)名稱(chēng) 字符型 20 3 作者姓名 字符型 10 4 出版社 字符型 20 5 出版日期 字符型 10 6 單價(jià) 字符型 10 圖書(shū)的價(jià)格 7 類(lèi)別 字符型 20 圖書(shū)屬于那一個(gè)種類(lèi) 2．讀者信息表：包括讀者編號(hào)、讀者姓名、性別、年齡、住址、電話、備注等字段。 表 32 讀者信息表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 讀者編號(hào) 字符型 6 讀者注冊(cè)時(shí)系統(tǒng)自 動(dòng)生成 2 讀者姓名 字符型 10 讀者的真實(shí)姓名 3 性別 字符型 2 4 年齡 字符型 2 5 住址 字符型 20 讀者的家庭住址 6 電話 字符型 15 能聯(lián)系到讀者的電話 7 備注 字符型 50 關(guān)于讀者的任何信息 3． 借閱信息表：包括編號(hào)、圖書(shū) 圖書(shū) 圖書(shū) 借閱時(shí)間、還書(shū)時(shí)間等。 表 33 借閱信息表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 編號(hào) 字符型 6 讀者的借閱編號(hào) 2 圖書(shū) 1 字符型 16 讀者借閱的第一本圖書(shū) 3 圖書(shū) 2 字符型 16 讀者借閱的第二本圖書(shū) 11 4 圖書(shū) 3 字符型 16 讀者借閱的第三本圖書(shū) 5 借閱時(shí)間 字符型 10 讀者借閱圖書(shū)的時(shí)間 6 還書(shū)時(shí)間 字符型 10 讀者歸還圖書(shū)的時(shí)間 4．讀者借閱信息表：包括讀者編號(hào)和借閱次數(shù)兩個(gè)字段。 表 34 讀者借閱信息表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 讀者編號(hào) 字符型 2 讀者的借閱編號(hào) 2 借閱次數(shù) 字符型 4 讀者借閱一次此值加一 5．圖書(shū)借閱信息表：包括圖書(shū)編號(hào)和借閱次數(shù)兩個(gè)字段。 表 35 圖書(shū)借閱信息表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 圖書(shū)編號(hào) 字符型 2 圖書(shū)的借閱編號(hào) 2 借閱次數(shù) 字符型 4 圖書(shū)被借閱一次此值加一 6．圖書(shū)借閱情況信息表：包括圖書(shū)編號(hào)和借閱情況兩個(gè) 字段。 表 36 圖書(shū)借閱情況信息表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 圖書(shū)編號(hào) 字符型 2 圖書(shū)的借閱編號(hào) 2 借閱情況 字符型 4 表示圖書(shū)是否被借出 7．用戶表：包括用戶名和密碼兩個(gè)字段。 表 37 用戶表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 用戶名 字符型 10 用戶注冊(cè)時(shí)的名 2 密碼 字符型 10 登錄系統(tǒng)是的密碼 3． 4 輸入輸出設(shè)計(jì) 本系統(tǒng)中的 圖書(shū)入庫(kù)數(shù)據(jù)是根據(jù)購(gòu)書(shū)單來(lái)錄入的，所以購(gòu)書(shū)單即為現(xiàn)行系統(tǒng)的圖書(shū)進(jìn)貨單。同表 31。 表 31 圖書(shū)購(gòu)貨單 日期 圖書(shū)名稱(chēng) 作者 出版社 單價(jià) 類(lèi)別 總數(shù) 11/23/05 防雷技術(shù) 林海 電子出版社 23． 5 電子技術(shù) 8 本系統(tǒng)報(bào)表輸出格式設(shè)計(jì)成圖 。 12 圖 13 第四章 系統(tǒng)實(shí)現(xiàn)技術(shù) 、程序流程 一個(gè)系統(tǒng)能夠正常運(yùn)行，則需要程序之間的調(diào)用。下面簡(jiǎn)單介紹一下程序的流程。 主程序流程圖如圖 。 開(kāi) 始管 理 員 登 陸是 否 合 法顯 示 主 界 面選 擇 操 作學(xué) 生 管 理 圖 書(shū) 管 理 借 閱 管 理 歸 還 管 理管 理 措 施設(shè) 置Y e sN o結(jié) 束管 理 員 注 銷(xiāo) 圖 主程序流程圖 (一 ) 模塊功能說(shuō)明 此登錄模塊是在進(jìn)入系統(tǒng)之前必經(jīng)之路，只有經(jīng)過(guò)用戶注冊(cè)的用戶才能通過(guò)用戶名和密碼正確的進(jìn)入本系統(tǒng)，是整個(gè)系統(tǒng)的安全屏障。 14 (二 ) 登錄界面設(shè)計(jì)如圖 圖 登陸界面 (三 )算法及實(shí)現(xiàn) 登錄窗體的 load事件代碼如下： Private Sub Form_Load() = 5000 = 3400 strSQL = select * from 用戶 = strSQL While Not (用戶名 ).Value Wend End Sub 此代碼功能是將 bo1控件當(dāng)中，供 用戶選擇進(jìn)入系統(tǒng)。 窗體的登錄按扭 (mand1)的代碼如下： Private Sub 登錄 _Click() If = Then MsgBox 請(qǐng)輸入用戶名。 , vbOKOnly + 48, 錯(cuò)誤提示 Exit Sub End If Mm = Yhm = strSQL = select * from 用戶 where 用戶名 =39。 amp。 Yhm amp。 39。 = strSQL If (密碼 ).Value = Mm Then Yongh = Yhm Unload Me Else MsgBox 您輸入的密碼錯(cuò)誤，請(qǐng)從新輸入。 , vbOKOnly + 48, 錯(cuò)誤提示 = End If 15 End Sub 其主要功能是當(dāng)點(diǎn)擊登錄按扭 (mand1)時(shí)，系統(tǒng)會(huì)根據(jù)用戶輸入的‘用戶名’來(lái)查找數(shù)據(jù)庫(kù)當(dāng)中的用戶表，校驗(yàn)用戶輸入的密碼是否正確。正確則可以順利的進(jìn)入系統(tǒng)，否則就會(huì)彈出對(duì)話框，提示用戶輸入的密碼有錯(cuò)誤。代碼中的‘ Yongh = Yhm’是將正確登錄到系統(tǒng)的用戶名付值給變量‘ yongh’，進(jìn)入系統(tǒng)后則顯示此用戶名。 系統(tǒng)主界面的設(shè)計(jì)與實(shí)現(xiàn) (一 )功能說(shuō)明 系統(tǒng)的主界面是整個(gè)系統(tǒng)的主題部分，所有的功能模塊都由它來(lái)啟動(dòng)和調(diào)用。所以它是系統(tǒng)的一根主線。 (二 ) 系統(tǒng)主界面設(shè) 計(jì)如圖 圖 (三 ) 算法及實(shí)現(xiàn) 主窗體的 load時(shí)間當(dāng)中的代碼如下： Private Sub Form_Load() (2) = Yongh End Sub 其主要的功能是將用戶登錄的用戶名添加到狀態(tài)欄當(dāng)中， (2)就是 狀態(tài)欄的參量， Yongh 為在登錄界面里傳遞過(guò)來(lái)的公共變量 用戶名。 當(dāng)用戶選擇要退出系統(tǒng)時(shí)，系統(tǒng)會(huì)詢問(wèn)用戶確定要退出系統(tǒng)，代碼見(jiàn)下。 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = 1 i= MsgBox(您真的要退出本系統(tǒng)嗎？退出請(qǐng)單擊確定 ,1 + 32, 退出提示 ) If i = 1 Then End Cancel = 0 16 Else Exit Sub End If End Sub ，當(dāng) 當(dāng)用戶要退出時(shí)，會(huì)彈出對(duì)話框，當(dāng)選擇‘取消’時(shí)， Cancel的參量值為 1，此時(shí)系統(tǒng)不會(huì)退出選擇‘確定’， Cancel的參量值為 0，此 時(shí)會(huì)退出系統(tǒng)。 在窗體的 Resize()事件中代碼如下 = = 讓 image1 控件和控件中的圖片來(lái)適合窗體的變化。 系統(tǒng)模塊的設(shè)計(jì)與實(shí)現(xiàn) (一 )功能說(shuō)明 該模塊分為用戶注冊(cè)、修改密碼、用戶注銷(xiāo)幾個(gè)部分。其中用戶注冊(cè)部分是 為了新用戶來(lái)管理系統(tǒng)而注冊(cè)用戶名和密碼的窗體；修改密碼部分是為了修改本用戶的密碼而設(shè)置的窗體；用戶注銷(xiāo)部分是刪除一個(gè)用戶時(shí)才用到的窗體。 (二 )系統(tǒng)維護(hù)模塊界面設(shè)計(jì)如圖 用戶注冊(cè) 修改密碼 用戶注銷(xiāo) 圖 . (三 ) 算法及實(shí)現(xiàn) 用戶注冊(cè)窗體的代碼實(shí)現(xiàn)，是通過(guò)‘確定’按扭來(lái)控制的。 Private Sub Command1_Click() If = Then MsgBox 輸入的‘用戶名’不能為空。 , vbOKOnly + 48, 錯(cuò)誤提示 Exit Sub End If If = Then 17 MsgBox 輸入的‘密碼’不能為空。 , vbOKOnly + 48, 錯(cuò)誤提示 Exit Sub End If strSQL = select * from 用戶 where 用戶名 =39。 amp。 amp。 39。 = strSQL If Not Then MsgBox 此‘用戶名’已經(jīng)存在，請(qǐng)重新輸入。 , vbOKOnly + 48,提示 = = Else = 用戶 (用戶名 ) = (密碼 ) = MsgBox 用戶注冊(cè)成功！ , vbOKOnly + 64, 注冊(cè)成功 Unload Me End If End Sub 當(dāng)按下‘確定’按扭時(shí)，系統(tǒng)會(huì)檢查‘用戶名’文本框和‘密碼 ’文本框是不是為空，如果是空的話，會(huì)有提示讓用戶全部輸入。然后系統(tǒng)會(huì)繼續(xù)檢查在數(shù)據(jù)庫(kù)的用戶表當(dāng)中是否有和輸入的用戶名相同的，因?yàn)橄嗤挠脩裘遣荒茏?cè)的。如果這些都結(jié)束后，系統(tǒng)會(huì)對(duì)注冊(cè)的用戶在數(shù)據(jù)庫(kù)表中添加記錄，在對(duì)數(shù)據(jù)原刷新，記錄添加成功后，系統(tǒng)會(huì)對(duì)用戶給出提示‘用戶注冊(cè)成功！’，到此用戶注冊(cè)工作結(jié)束。 修改密碼的具體功能實(shí)現(xiàn)如下： 在修改密碼的窗體的裝載的事件（ load）中有如下代碼。 18 Private Sub Form_Load() = 5800 = 4000 = Yongh strSQL = select * from 用戶 where 用戶名 =39。 amp。 Yongh amp。 39。 = strSQL End Sub 加載窗體時(shí)，讓本窗體的寬是 5800，高是 4000，讓文本框的內(nèi)容是在用戶登錄時(shí)傳遞過(guò)來(lái)的變量?jī)?nèi)容 用戶名。然后數(shù)據(jù)控件（ data1）會(huì)在數(shù)據(jù)庫(kù)的用戶表當(dāng)中去查找此用戶的記錄，在刷新數(shù)據(jù)原。 修改密碼的‘確定’按紐中的代碼是實(shí)現(xiàn)具體修改的，如下： Private Sub Command1_Click() If = Then MsgBox 輸入的‘舊密碼’不能為空。 , vbOKOnly + 48, 錯(cuò)誤提示 Exit Sub End If If = Then MsgBox 輸入的‘新密碼’不能為空。 , vbOKOnly + 48, 錯(cuò)誤提示 Exit Sub End If If (密碼 ) Then MsgBox 輸入的舊密碼錯(cuò)誤，請(qǐng)重新輸入。 , vbOKOnly + 48, 錯(cuò)誤提示 = = Else Xg = MsgBox(確定要修改密碼嗎？ , vbOKCancel + 32, 提示 ) 19 If Xg = 1 Then MsgBox 您對(duì)密碼的修改已經(jīng)成功！ , vbOKOnly + 64, 成功提示 = = Else = = Exit Sub End If End If End Sub 代碼的主要 功能是先檢查‘舊密碼’和‘新密碼’的文本框（ text）是不是為空的，如果是空的就不允許用戶修改密碼。當(dāng)它們都不是空，系統(tǒng)會(huì)檢查用戶輸入的‘舊密碼’和數(shù)據(jù)庫(kù)中用戶表中的密碼是不是一致，即密碼校驗(yàn)。