1、中南大學(xué)CENTRAL SOUTH UNIVERSITY數(shù)據(jù)庫大作業(yè)信息科學(xué)與工程學(xué)院2016年12月圖書信息管理系統(tǒng)姓名：湯江波班級(jí)：電氣T1501學(xué)號(hào)：學(xué)08150305指導(dǎo)老師：韓華目錄1 .緒論 41.1 背景介紹 41.2 開發(fā)背景的選用及介紹 42 .需求分析 52.1 系統(tǒng)需求 52.2 功能需求 53 .概念設(shè)計(jì)階段 43.1 實(shí)體E-R圖 64 .邏輯結(jié)構(gòu)設(shè)計(jì)階段 64.1 E-R圖轉(zhuǎn)換為關(guān)系模型 64.2 數(shù)據(jù)字典 65數(shù)據(jù)庫實(shí)施與維護(hù) 71.1 創(chuàng)建數(shù)據(jù)庫、數(shù)據(jù)表 76 .應(yīng)用程序設(shè)計(jì) 86.1 圖書管理員管理處理 86.2 圖書查詢 126.3 用戶登錄 176.4 背

2、景設(shè)置 227 .心得體會(huì) 248 .參考文獻(xiàn) 241.緒論1.1 背景介紹隨著社會(huì)的發(fā)展，人們對(duì)于知識(shí)的需求也在不斷地增長。書籍作為人們獲取并增長知識(shí)的主要途徑，使得圖書館在人們生活中占有了一定位置。但是近幾年來，隨著書量的不斷增長，造成了書庫空間極度不足，圖書擠壓，管理不善。這些都直接影響了讀者對(duì)圖書館藏書的充分利用。這時(shí)圖書館就特別需要開發(fā)一套書刊租借管理系統(tǒng)，通過該系統(tǒng)來提高圖書館的管理效率，從而減少管理方面的工作流和成本。一個(gè)現(xiàn)代化的圖書館在正常運(yùn)營中總是面對(duì)大量的讀者信息，書籍信息以及兩者相互作用產(chǎn)生的借書信息，還書信息。面對(duì)圖書館數(shù)以萬計(jì)的圖書，紛繁復(fù)雜的讀者信息，頻繁更 替的借

3、還書信息，傳統(tǒng)的直接方法不但管理出現(xiàn)漏洞，造成損失。因此有一個(gè)智能化、 系統(tǒng)化、信息化的圖書管理系統(tǒng)十分重要的。充分利用計(jì)算機(jī)的功能實(shí)現(xiàn)對(duì)讀者管理、書籍管理，借閱管理等自動(dòng)化控制， 將會(huì)使圖書館的工作大大減弱。方便友好的圖形界面、 簡(jiǎn)便的操作、完善的數(shù)據(jù)庫管理。將會(huì)使得圖書館系統(tǒng)極大限度的應(yīng)用于現(xiàn)代化圖書管理中。1.2 開發(fā)背景的選用及介紹1.2.1 SQL Server 2008 R2 的簡(jiǎn)介SQL是英文(Structured Query Language )的縮寫，意思為結(jié)構(gòu)化查詢語言。SQL語言的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進(jìn)行溝通。SQL被作為關(guān)系型數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言。SQ

4、L語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)，從數(shù)據(jù)庫 中提取數(shù)據(jù)等。目前，絕大多數(shù)流行的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，如Oracle, Sybase,Microsoft SQL Server, Access等都采用了 SQL語言標(biāo)準(zhǔn)。SQL語言有以下幾個(gè)優(yōu)點(diǎn)：1 .非過程化語言SQL是一個(gè)非過程化的語言，因?yàn)樗淮翁幚硪粋€(gè)記錄，對(duì)數(shù)據(jù)提供自動(dòng)導(dǎo)航。SQL允許用戶在高層的數(shù)據(jù)結(jié)構(gòu)上工作，而不對(duì)單個(gè)記錄進(jìn)行操作，可操作記錄集，所有SQL語句接受集合作為輸入，返回集合作為輸出。SQL的集合特性允許一條 SQL語句的結(jié)果作為另一條SQL語句的輸入。SQL不要求用戶指定對(duì)數(shù)據(jù)的存放方法，這種特性使

5、用戶更易集中精力于要得到的結(jié)果； 所有SQL語句使用查詢優(yōu)化器，它是RDBMS勺一部分，由它決定對(duì)指定數(shù)據(jù)存取的最快速度的手段，查詢優(yōu)化器知道存在什么索引，在哪兒使用索引合適，而用戶則從不需要知道表是否有索引、有什么類型的索引。 2.統(tǒng)一的語言SQL可用于所有用戶的 DB活動(dòng)模型，包括系統(tǒng)管理員、數(shù)據(jù)庫管理員、應(yīng)用程序員、決策支持系統(tǒng)人員及許多其它類型的終端用戶。基本的SQL命令只需很少時(shí)間就能學(xué)會(huì)，最高級(jí)的命令在幾天內(nèi)便可掌握。 3.所有關(guān)系數(shù)據(jù)庫的公共語言 由于所有主要的關(guān)系數(shù)據(jù)庫管理系統(tǒng)都支持SQL語言，用戶可將使用SQL的技能從一個(gè)RDBM或系數(shù)據(jù)庫管理系統(tǒng))轉(zhuǎn)到另一個(gè)，所有用 SQL

6、編寫的程序都是可以移植的。1.2.2 VB6.0 的簡(jiǎn)介VB就是Visual Basic的意思，是一種常用的編程開發(fā)工具。它的基礎(chǔ)是編程語言Basic , Visual Basic簡(jiǎn)單點(diǎn)來說就是微軟為了更好的讓人們學(xué)習(xí)編程，應(yīng)用上 Basic 開發(fā)語言的一套工具，簡(jiǎn)稱就是VB。VB的面世使原本極其復(fù)雜困難的編程、 軟件開發(fā)的工作 變得簡(jiǎn)單。VB是Basic語言軟件開發(fā)者的首選編譯器，是學(xué)習(xí) Basic語言編程必須要接 觸而且是經(jīng)常接觸的一款整合型技術(shù)編譯器。2 .需求分析2.1 系統(tǒng)需求（包括圖書的編號(hào)、書名、作圖書管理系統(tǒng)的主要功能是用于查詢各項(xiàng)圖書的基本信息者、價(jià)格等），用戶對(duì)圖書的借閱，

7、歸還以及修改用戶密碼等操作。借閱信息 罰款圖書信息管理系統(tǒng)用戶信息圖書信息 =圖書查詢圖1-1圖書信息管理系統(tǒng)的需求分析2.2 功能需求1 .系統(tǒng)管理。系統(tǒng)管理功能是在該系統(tǒng)運(yùn)行結(jié)束后，用戶通過選擇“系統(tǒng)管理”-“退出”命令能正常退出系統(tǒng)，回到 Windows環(huán)境。2 .管理員登錄。管理員可以方便進(jìn)行圖書管理，用戶管理。圖書管理包括圖書信息的查詢， 添加，修改，刪除。用戶管理包括用戶信息的添查詢，添加，修改和刪除。3 .背景設(shè)置。設(shè)置背景和背景音樂。這是一個(gè)輔助功能，目的是讓操作者能在一個(gè)輕松、 愉快的環(huán)境下使用圖書管理系統(tǒng)。4 .圖書查詢。未注冊(cè)用戶讀者也可以瀏覽所有的圖書信息，但是無法借閱

8、。5 .幫助。關(guān)于中顯示有關(guān)圖書管理系統(tǒng)的信息。6 .用戶登錄。用戶通過卡號(hào)和密碼進(jìn)行登錄。登錄后用戶可進(jìn)行圖書的借閱，歸還，超期罰款，修改密碼和借閱信息的查詢等操作。3 .概念設(shè)計(jì)階段3.1實(shí)體E-R圖3.1.1管理員實(shí)體E-R圖3.1.2系統(tǒng)E-R圖4 .邏輯結(jié)構(gòu)設(shè)計(jì)階段4.1 E-R圖轉(zhuǎn)換為關(guān)系模型圖書信息（編號(hào)，書名,作者，價(jià)格，出版社，類型，庫存）讀者（忐上 姓名，性別，類型，登錄密碼，罰款，借書數(shù)量，余額，級(jí)別，單位）借閱（緬生卡號(hào)，借書時(shí)間,還書時(shí)間）管理員（賬戶，密碼）4.2 數(shù)據(jù)字典表4-2-1圖書信息表表中列名數(shù)據(jù)種類及長度可否為空編Rchar(10)Not null書名n

9、char(20)Not null作者nchar(20)Not null價(jià)格floatNull出版社nchar(20)Null回nchar(20)Not null庫存intNot null表4-2-2用戶表表中列名數(shù)據(jù)種類及長度可否為空char(10)Not null姓名nchar(10)null性別nchar(10)null回nchar(10)Null登錄密碼varchar(10)null罰款floatnull借書數(shù)量intnull余額floatnull級(jí)別nchar(20)null單位nchar(10)null表4-2-3借閱表表中列名數(shù)據(jù)種類及長度可否為空編Rchar(10)Not nul

10、lchar(10)Not null借書時(shí)間datetimeNot null還書時(shí)間datetimenull表4-2-4管理員表表中列名數(shù)據(jù)種類及長度可否為空賬戶nchar(10)Not null密碼nchar(10)Not null5 .數(shù)據(jù)庫實(shí)施與維護(hù)5.1 創(chuàng)建數(shù)據(jù)庫，數(shù)據(jù)表5.1.1 創(chuàng)建book數(shù)據(jù)庫：!颯教能+1骰套零快照國J book5.1.2 創(chuàng)建圖書信息表AFOJE 703151114.book dbo.圖書儂列名利相弊己刈壬南| 2 1加好nchar(20)作價(jià)出者格版floatnctidH (20)n±ar(20) nt5.1.3 創(chuàng)建用戶表AFOJE 70315

11、U14.book dbm用戶 AFOJE-7031 51314.H00H000H0n網(wǎng)chat (10)姓名ndiar( ID)性別nchart tO)類出nchartlD)登錄密碼var(har(10)捐款float借例I量st余顆float級(jí)別nchar ：20)單位hchariO)列名5.1.4創(chuàng)建借閱表AFOJE 7031Ul<bcok - dire儲(chǔ)部 轉(zhuǎn)口后7。訃51*4上到包軸0類型允許方值 P1口>|ra| d(10)長號(hào)diar(lD)借書時(shí)間datetre還書時(shí)間date tune5.1.5創(chuàng)建管理員表AFOJE-703151314.boak dbo 型班 AF

12、O1E-70315131列名數(shù)據(jù)姓 祠Md值 G煙nchar(lfl)正嗎ndiartlO)口r6.應(yīng)用程序設(shè)計(jì)6.1 圖書管理員管理處理6.1.1 管理員處理流程圖6.1.2 管理員處理功能實(shí)現(xiàn)6.1.2.1管理員登錄輸入管理員賬戶以及密碼，按登錄鍵登錄，或者按Enter鍵快捷登陸，返回鍵返回Public try As Integer '登錄次數(shù) Private Sub Command1_Click() If Textl = "" ThenMsgBox "請(qǐng)輸入管理員賬戶""登錄"Text1.SetFocus Exit Su

13、b End If If Text2 = "" Then MsgBox ”請(qǐng)輸入密碼"一"登錄" Text2.SetFocus Exit Sub End Ifsqlstr = "select * from 管理員 where 賬戶='"& Trim(Textl) &"' and 密碼='"& Trim(Text2) &"”'AdodcI.RecordSource = sqlstr AdodcI.RefreshWith AdodcI.R

14、ecordsetIf Not .EOF Then guanliyuan.Show Unload MeElseMsgBox ”賬戶或密碼輸入錯(cuò)誤，請(qǐng)重新輸入。", vbOKOnly + vbExclamation,"警告"Textl =""Text2 =""Textl.SetFocus try = try + 1 If try > 2 Then MsgBox "三次輸入錯(cuò)誤，系統(tǒng)將關(guān)閉"一"登錄" End Else Exit SubEnd IfExit SubEnd IfEnd W

15、ithEnd SubPrivate Sub text2_keypress(keyascii As Integer)If keyascii = 13 ThenCommand1_ClickEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub6.1.2.2 管理員頁面管理員界面有對(duì)圖書和用戶的添加，查詢，修改，刪除操作。Private Sub books_add_Click() addbook.ShowEnd SubPrivate Sub books_dq_Click() bookmodify.ShowEnd SubPrivate Sub

16、 books_qur_Click() chaxun.ShowEnd SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub users_add_Click() adduser.ShowEnd SubPrivate Sub users_dq_Click() usersmodify.ShowEnd SubPrivate Sub users_qur_Click() chaxunl.ShowEnd Sub6.1.2.3 添加圖書/用戶對(duì)圖書的添加操作和對(duì)用戶的添加操作的實(shí)質(zhì)是相同的，只是表現(xiàn)的形式不同，這里以對(duì)圖書的添加為例。當(dāng)所有信息都輸

17、入后，執(zhí)行添加操作，則會(huì)顯示添加完成。如果信息不完整，則會(huì)顯示請(qǐng)輸入完整信息，同時(shí)將鼠標(biāo)鍵入空信息欄。注意：編號(hào)設(shè)置為主鍵，故不 能添加相同的編號(hào)信息6.1.2.4 修改，刪除圖書/用戶對(duì)圖書的修改，刪除操作和對(duì)用戶的操作的實(shí)質(zhì)是相同的，只是表現(xiàn)的形式不同， 這里以對(duì)圖書的修改和刪除操作為例。 首先，你可以通過圖書編號(hào)對(duì)圖書信息查詢， 然后改動(dòng)你 所需要改動(dòng)的信息。對(duì)圖書的刪除只需按刪除按鈕即可刪除6.2.2圖書查詢功能實(shí)現(xiàn)管理員中的圖書查詢操作與此相同，如將二者合一，同時(shí)，對(duì)圖書的查詢操作和對(duì)用戶的操作的實(shí)質(zhì)是相同的， 只是表現(xiàn)的形式不同， 故不再重復(fù)對(duì)用戶的查詢操作。 在查詢操作 中，可以

18、選擇按編號(hào)，書名，作者和類型四種方式查詢，可以選擇自己輸入也可下拉菜單查詢，查詢結(jié)果顯示在下方Option Explicit'在模塊級(jí)別中使用，強(qiáng)制顯式聲明模塊中的所有變量。Public sqlstr As String窗體載入時(shí)初始化4個(gè)組合框，通過ADO數(shù)據(jù)控件獲取各數(shù)據(jù)記錄表Private Sub Form_Load()initbhinitsminitzzinitlxEnd Sub'在組合框cbobh的列表中列出所有的編號(hào)Sub initbh()Adodc1.RecordSource = "select 編號(hào) from 圖書信息”Adodc1.RefreshWh

19、ile Not Adodc1.Recordset.EOFcbobh.AddItem Adodc1.Recordset.Fields("編號(hào)")Adodc1.Recordset.MoveNextWendEnd Sub'在組合框cbosm的列表中列出所有的書名Sub initsm()dodc1.RecordSource = "select 書名 from 圖書信息Adodc1.RefreshWhile Not Adodc1.Recordset.EOFcbosm.AddItem Adodc1.Recordset.Fields("書名") Ad

20、odcI.Recordset.MoveNextWend End Sub'在組合框cbozz的列表中列出所有的作者Sub initzz()Adodc1.RecordSource = "select 作者 from 圖書信息”Adodc1.RefreshWhile Not Adodc1.Recordset.EOFcbozz.AddItem Adodc1.Recordset.Fields("作者") Adodc1.Recordset.MoveNextWendEnd Sub'在組合框cbolx的列表中列出所有的類型Sub initlx()Adodc1.Re

21、cordSource = "select distinct 類型 from 圖書信息Adodc1.RefreshWhile Not Adodc1.Recordset.EOFcbolx.AddItem Adodc1.Recordset.Fields("類型")Adodc1.Recordset.MoveNext WendEnd Sub'選擇Private Sub cbobh_click() Option1.Value = TrueEnd SubPrivate Sub cbosm_click() Option2.Value = TrueEnd SubPrivat

22、e Sub cbozz_click() Option3.Value = TrueEnd SubPrivate Sub cbolx_click() Option4.Value = TrueEnd Sub'查詢Private Sub Command1_Click() querybooks'調(diào)用 querybooks 子過程End Sub根據(jù)選擇的條件查詢圖書信息Sub querybooks()sqlstr = "select編號(hào)，書名，作者，價(jià)格，出版社，類型，庫存"_&"from 圖書信息&"where"If Op

23、tionl.Value = True Thensqlstr = sqlstr &"編號(hào)='"& Trim(cbobh.Text) &""' End IfIf Option2.Value = True Thensqlstr = sqlstr &"書名='"& Trim(cbosm.Text) &""'End IfIf Option3.Value = True Thensqlstr = sqlstr &"作者='&

24、quot;& Trim(cbozz.Text) &""'End IfIf Option4.Value = True Thensqlstr = sqlstr &"類型='"& Trim(cbolx.Text) &""'End Ifsqlstr = sqlstr &"order by 編號(hào)”Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.RecordCount = 0 ThenMsg

25、Box "沒有查找至ij滿足條件的數(shù)據(jù)!", vbExclamation,"提示"ElseSet DataGrid1.DataSource = Adodc1DataGrid1.Columns(0).Width = 1000DataGrid1.Columns(1).Width = 2000DataGrid1.Columns(2).Width = 1000DataGrid1.Columns(3).Width = 1000DataGrid1.Columns(4).Width = 1300DataGrid1.Columns(5).Width = 1000Data

26、Grid1.Columns(6).Width = 1000DataGrid1.RefreshEnd IfLabel2.Caption ="共查詢至U "& Adodc1.Recordset.RecordCount &"條記錄" End SubPrivate Sub Command2_Click()Unload MeEnd Sub6.3用戶登錄6.3.1用戶登錄流程圖我 要 借 書借 閱 信 息超期罰款6.3.2用戶登錄功能實(shí)現(xiàn)6.3.2.1 我要借書用戶可以通過選擇書的編號(hào)進(jìn)行借閱，借閱之后會(huì)在借閱表中產(chǎn)生借閱信息。根據(jù)用戶不同，借書數(shù)量

27、不同，老師為10本，學(xué)生為5本，當(dāng)庫存不足時(shí)會(huì)顯示庫存不足，這時(shí)借113102閱會(huì)失敗。借書大功！第認(rèn)完成6.3.2.2 我要還書用戶可以通過選擇書的編號(hào)進(jìn)行還書，還書之后會(huì)在借閱表中產(chǎn)生還書信息6.3.2.3 借閱信息將借閱表中的信息顯示出來6.3.2.4 超期罰款當(dāng)借閱的時(shí)間超過規(guī)定時(shí)間（教師為90天，學(xué)生為60天），便會(huì)產(chǎn)生超期罰款，超期時(shí)間，每天罰款0.1元3超或燈款6.3.2.5 修改密碼用戶可在此進(jìn)行密碼修改，當(dāng)新密碼和確認(rèn)密碼不相同時(shí)，確認(rèn)按鈕則會(huì)變成不可以狀態(tài)，且確認(rèn)密碼右側(cè)會(huì)有“兩次密碼不同，請(qǐng)確認(rèn)密碼”的提示，只有當(dāng)新密碼和確認(rèn)密碼 相同時(shí)，確認(rèn)按鈕才會(huì)變成可用狀態(tài)g密有不

28、向，遒確認(rèn)取消Private Sub Command1_Click()If Textl = "" ThenMsgBox ”請(qǐng)輸入賬戶"一"登錄"Textl.SetFocusExit SubEnd IfIf Text2 = "" ThenMsgBox ”請(qǐng)輸入密碼"一"登錄"Text2.SetFocusExit SubEnd IfIf Text3 = "" ThenMsgBox "請(qǐng)輸入新密碼"一"登錄"Text3.SetFocusExi

29、t SubEnd Ifsqlstr = "select * from 用戶 where 卡號(hào)='"& Trim(Text1) &"' and 登錄密碼='"& Trim(Text2) &"”'Adodc1.RecordSource = sqlstrAdodc1.RefreshWith Adodc1.RecordsetIf Not .EOF Then.Fields("登錄密碼")=Trim(Text4).UpdateMsgBox ”密碼修改成功！!”Text1 =

30、""Text2 =""Text3 =""Text4 =""Unload MeElseMsgBox ”賬戶或密碼輸入錯(cuò)誤，請(qǐng)重新輸入。", vbOKOnly + vbExclamation,"警告"Text1 =""Text2 =""Text3 =""Text4 =""Text1.SetFocusExit SubEnd IfEnd WithEnd SubPrivate Sub Command2_Click()

31、Unload MeEnd SubPrivate Sub Text4_Change()Commandl.Enabled = FalseIf Trim(Text4) = Trim(Text3) ThenLabel5.Caption ="兩次密碼相同"Command1.Enabled = TrueElseLabel5.Caption ="兩次密碼不同，請(qǐng)確認(rèn)密碼"Exit SubEnd IfEnd SubPrivate Sub text4_keypress(keyascii As Integer)If keyascii = 13 ThenCommand1_Cl

32、ickEnd IfEnd Sub6.4背景設(shè)置tn圖三者理窿一 口乂 莫維吉理際廣智理 苜同理 的吃圖書查詢©* * 用戶登錄Private Sub Form_Load()'窗體居中顯示Me.Light(0).Enabled = TrueMe.Light(1).Enabled = FalseMe.Music(0).Enabled = TrueMe.Music.Enabled = False'準(zhǔn)備播放音樂IsMusicOn = FalseWindowsMediaPlayerl.URL = App.Path &"/bg.mp3"'歌曲的

33、位置WindowsMediaPlayeluiMode = "mini"'播放器界面模式WindowsMediaPlayelsettings.volume = 100'音量，0-100WindowsMediaPlayer1.settings.playCount = 100'播放次數(shù)WindowsMediaPlayer1.Controls.stopMsgBox "歡迎使用中南大學(xué)圖書館管理系統(tǒng)"End SubPrivate Sub Form_Unload(Cancel As Integer)退出時(shí)檢查并關(guān)閉音樂If IsMusicOn = True ThenWindowsMediaPlayer1.Controls.stop End IfEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub背景圖片控制 Private Sub Light_Click(Index As Integer) Light(Index).Enabled = FalseIf Index