數(shù)據(jù)庫課程設(shè)計---圖書管理系統(tǒng)

1、目錄第1章緒論21. 1系統(tǒng)開發(fā)背景介紹21.2開發(fā)工具的選擇213系統(tǒng)主要內(nèi)容簡介2第2章需求分析32. 1 總體需求32.2管理員的需求分析32.3借閱/還書的需求分析32.4借閱者的需求分析32. 5 圖書信息的需求分析32.6實際功能4第3章 概念結(jié)構(gòu)設(shè)計53. 1 e-r圖簡介53. 2本系統(tǒng)的總體e-r圖6第4章數(shù)據(jù)庫設(shè)計74. 1數(shù)據(jù)庫表74. 1. 1圖書表74. 1.2日期限定表74. 1.3年級表84. 1.4學(xué)院表84. 1.5管理員表84. 1.6借閱者表94. 1. 7書種表9第5章 數(shù)據(jù)庫的實現(xiàn)與程序101012 錯誤！未定義書簽。31325. 1登錄界面設(shè)計一-5

2、. 2管理員信息設(shè)計一5. 3借閱/還書管理設(shè)計 課程設(shè)計總結(jié)學(xué)習(xí)休會致謝3334參考文獻第1章緒論11系統(tǒng)開發(fā)背景介紹現(xiàn)在隨著人們生活質(zhì)量的提高，人們對圖書的需求越來越來豐富，并且需要 圖書的數(shù)量也fi趨增加。隨著人們對圖書需求的增加，圖書管理者對圖書的管理 就口趨的困難，傳統(tǒng)的純手工記錄圖書記錄已經(jīng)發(fā)揮不了它原有的功能，反之， 還會影響圖書管理的功能，使用效率極低。在這樣的人們對圖書需求日趨增加的 情況下，電了記錄管理圖書就被廣泛應(yīng)用起來。所以圖書管理系統(tǒng)就應(yīng)用而生。1.2系統(tǒng)開發(fā)工具系統(tǒng)運行平臺：w i ndows7o系統(tǒng)前臺開發(fā)平臺即:visualbasic6. 0。系統(tǒng)后臺開發(fā)平臺即

3、數(shù)據(jù)庫管理系統(tǒng)軟件：sqlserver2000o13系統(tǒng)主要內(nèi)容簡介本系統(tǒng)主要是針對圖卩管理屮岀現(xiàn)的一些問題提供一些解決方法，并且應(yīng)運 計算機信息管理系統(tǒng)結(jié)合。其開發(fā)主耍包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng) 用程序的開發(fā)兩個方面。前臺我們采用功能強大的可視化開發(fā)軟件vb開發(fā)設(shè)計 主界面，利用sqlserver做為后臺數(shù)據(jù)庫。主耍分成登錄信息管理、管理員信息 管理、借閱/還書信息管理、借閱者信息管理、圖書信息管理等功能模塊。第2章需求分析2.1總體需求這一章將介紹本系統(tǒng)的各個部分的需求。2. 2管理員的需求分析管理者基本信息，包括管理者編號，管理者姓名，登陸密碼，電話號碼。其中本系統(tǒng)中還包含管理

4、者信息的修改，增加，刪除等功能。并且這個系統(tǒng)管理 員經(jīng)過登陸窗口才可進入。管理員在整個系統(tǒng)中起到統(tǒng)籌全局的功能，管理員可 以對系統(tǒng)中各個部分起到控制的作用，可以增加、修改、刪除借閱者信息，增加、 修改圖帖信息，并且可以查詢借閱與還帖情況，在本系統(tǒng)屮貫穿整個系統(tǒng)。2. 3借閱/還書的需求分析借閱基木信息包扌舌借閱者信息，借閱者已借閱書籍，借書日期，借書編號等 信息。述書基本信息包括借閱者編號，借閱者述書的編號，并且附帶有查詢功能, 查看借閱者借閱的圖書是否過期。2. 4借閱者的需求分析借閱者基本信息包括借閱者借閱卡號，借閱者姓名，借閱者學(xué)號，所在院校, 電話號碼等基本信息。其中本系統(tǒng)中還包含借閱

5、者的增添與刪除，可以實現(xiàn)新生 入學(xué)借閱的增加，畢業(yè)生的借閱信息的刪除功能。2. 5圖書信息的需求分析圖書基本信息包括圖書編號，圖書姓名，圖書作者，圖書isbn,圖書種類, 圖書數(shù)量等基木信息。木系統(tǒng)中增加了圖書庫存管理功能，可以查看圖書所在庫存的狀態(tài)，看是否 可以借閱。并且增加了圖書增加功能，圖書修改功能，圖卩查詢功能，可以查詢 圖書在庫各種信息，與借閱者的聯(lián)系也一口了然。2. 6實際功能圖21.圖書管理系統(tǒng)結(jié)構(gòu)圖第3章概念結(jié)構(gòu)設(shè)計3.1 e-r簡介實體聯(lián)系ffl(entity-relationdiagram)用來建立數(shù)據(jù)模型,在數(shù)據(jù)庫系統(tǒng)概論中 屬丁概念設(shè)計階段，形成-個獨立于機器，獨立于d

6、bms的er圖模型。通常將 它簡稱為er圖，和應(yīng)地可把用er圖描繪的數(shù)據(jù)模型稱為er模型。er圖提供了 表示實體(即數(shù)據(jù)對象)、屬性和聯(lián)系的方法，用來描述現(xiàn)實世界的概念模型。構(gòu)成er圖的基本要素是實體、屬性和聯(lián)系，其表示方法為：實體型：用矩形表示，矩形框內(nèi)寫明實體名；屬性：用橢圓形或圓角矩形表示，并用無向邊將其與相應(yīng)的實體連接 起來；多值屬性由雙線連接；主屬性名稱下加下劃線；聯(lián)系：用菱形表示，菱形框內(nèi)寫明聯(lián)系名，并用無向邊分別與有關(guān)實休連 接起來，同時在無向邊旁標(biāo)上聯(lián)系的類型在er圖中要明確表明1對多關(guān)系，1對1關(guān)系和多對多關(guān)系。1對1關(guān)系在兩個實體連線方向?qū)?;1對多關(guān)系在1的一方寫1，多的

7、一方寫n；多對多關(guān)系則是在兩個實休連線方向各寫n,m0實體與展性z間并沒有形式上可以截然劃分的界限，但可以給出兩條 準則：(1) 作為“屬性”不能再具有描述的性質(zhì)；(2) “屬性”不能與其他實體具有聯(lián)系。3.2本系統(tǒng)的e-r圖、圖3-1.圖書管理系統(tǒng)總e-r圖第4章數(shù)據(jù)庫設(shè)計4. 1數(shù)據(jù)庫表圖書管理數(shù)據(jù)庫含7個表，它們分別為：圖書表(book) ; 口期限定表 (dataresrict )；夠疲 (grade)；院 表(institute)；管理員表(lidrarian)； 借閱者表(borrower)；書種表(title)。我們來看一下表的結(jié)構(gòu)：4.1.1書表圖書表包括圖書編號、書名、狀態(tài)、

8、借閱卡號、被借閱時間屈性，齊個屬性的類型、長度、約束條件如表示表44圖書表4. 1.2日期限定表h期限定表包括書種、天數(shù)屈性，各個屈性的類型、長度、約束條件如表示表42.日期限定表逾 設(shè)計表'dates re strict"伍骨曇"lib"中."(i。“ir 上列名數(shù)據(jù)類型長度允詐空typechar10 es_restriet irit 44.1.3年級表年級表包括年級編號、名稱屈性，各個屈性的類型、長度、約束條件如表示表42.年級表協(xié)設(shè)計表"grade* 位置昱“l(fā)ib”中、上列名敎據(jù)類型長度允詐空?gradeldchar10grad

9、echar10/4.1.4學(xué)院表學(xué)院表包括學(xué)院編號、名稱屈性，各個屈性的類型、長度、約束條件如表示a 4-4.學(xué)院表冷 設(shè)計表-institute* ,位置昱"lib”中、7localf上列名敎擄類型長度允詐空?irtitut eldchar10institutechar10/4.1.5管理員表管理員包括編號、id、密碼、工作吋間、電話屬性，各個屬性的類型、長度、 約束條件如表示表45.管理員表険設(shè)計表"librarian* 位置星"lib"中、上列名 數(shù)據(jù)類型長度 允詐空seqirit4idchar10passwordchar10orjobtimech

10、ar10telephonechar204.1.6借閱者表借閱者包括借閱卡編號、學(xué)院編號、年級編號、姓名、學(xué)號、電話、已借書數(shù)目等屬性，各個屬性的類型、長度、約束條件如表示表46.借閱者表冷設(shè)計表"borrower< ©gg "lib"中、"(ioe上列名數(shù)據(jù)類型長度允許空?borrowerldchar10insti tuteldchar10vgradeldchar10vnamechar10vstudentntunchar10vtelenumberchar20vborrowbooknumirit4v4.1.7書種表書種表包括書名、作者、1s

11、bsn、種類、數(shù)目等屬性，各個屬性的類型、長度、約束條件如表示a 4-7.書種表険設(shè)計表ftle",位置是"lib”中、7localr上第5章數(shù)據(jù)庫的實現(xiàn)與程序5.1登陸界面設(shè)計輸入“用戶名”，“密碼”，點擊“確認”進入主題框;圖5-1登陸該登陸界而代碼如下所示： 源代碼：public ok as booleanprivate sub cmdcancel_click()ok = falseme. hideend subprivate sub cmdlogin_click()'檢驗數(shù)據(jù)的有效性tf trim(txtusername. text 二 “)then msg

12、box 請輸入用戶名！" txtusername setfocusexit subelself trim(txtpassword 二 “)then msgbox 請輸入密碼！ txtpassword setfocusexit subelsedim mydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydboper. db connect'定義查詢語商sql = "select * from librarian where id= + txtuscrnamc

13、+ and password二'"+ txtpassword +"set rst = mydboper. querysql(sql)if (not rst. eof) thenok 二 trueme. hidefrmmain show 0elsemsgbox 用戶名和密碼錯誤，請重新輸入.end tfrst.close'關(guān)閉連接mydboper. db disconnectend tfend subprivate sub formload()end subprivate sub labell_click()end sub5. 2管理員管理設(shè)計管理員窗口的設(shè)計

14、主要包扌舌“修改”、“添加”、“刪除”，“刷新”等功能。添加管理員是依照窗口的信息依次填寫，點擊“提交”即可;d回圖52進入管理員信息欄囹書堂丟統(tǒng) i苣珪員冒12|黃黃pm15389聯(lián)系電話:7891011123456烏囹書営理系統(tǒng)【苣理員信息'i宀回jqi至統(tǒng)管理信書卡業(yè)務(wù) 借齊業(yè)務(wù) 庫存管理 幫助管理員列表l- i rh j ihj *affl/pm):提交返回i圖5-3.添加管理者該管理者添加的代碼如下：源代碼：private sub cmdexit_click()me. hideend subprivate sub cmdsubmit_click()'檢驗數(shù)據(jù)的冇效性i

15、f trim(txtld) = thenmsgbox 請輸入登錄idexit subend ifif trim(txtpwd) = thenmsgbox 請輸入登錄密碼exit subend ifdim mydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydboper. db connect'定義查詢語句sql 二"select * from librarian where seq二' + trim(txtseq) + set rst 二 mydboper.

16、 querysql(sql)if rst eof = true thenwith rst.addnew!seq 二 me. txtseq!id 二 me.txttd(password = me. txtpwdlonjobtime = me.txttime!telephone = me. txtphone.updateend withmsgbox "信息添加成功"elsemsgbox 該編號已經(jīng)存在，請重新輸入.end ifrst. close'關(guān)閉連接 mydboper. db disconnectend subprivate sub form_load ()end

17、 subprivate sub framel_dragdrop(source as control, x as single, y as single)end subprivate sub label1_c1ick()end subprivate sub txtldchange()end subprivate sub txtpwd change ()end sub刪除圖書管理員是在管理員列表中點擊要刪除的那一行，點擊“刪除”即可;1管理員列表編輯區(qū)3lionhxyadmin56zh昱鋼躺彌?admin89am是co10聯(lián)系電話12678pm刪除長毛苣乘統(tǒng)苣珪罠信息專統(tǒng)管理借書卡業(yè)務(wù)借/還書業(yè)務(wù)

18、庫存管理幫助d8ssw0d adminid admin編號：f小施 黃黃圖54刪除管理者修改管理員首先在管理員列表小點擊要修改的管理員信息，在編輯區(qū)填寫要修改的信息，點擊“修改”即可;$烏晝毛苣淫票統(tǒng)-苣理員信息編號am2id碼間8jtm關(guān)閉891011121231212367856qwy123lionhxy123qaz 小蠱 黃黃y 予統(tǒng)管理 借書卡業(yè)務(wù) 備還書業(yè)務(wù) 庫存管理幫助管理員列表編輯區(qū)nini刷新iadminadminpasswordorjoblnini聯(lián)系電話:libmanageme.信息修改成加圖5-5修改管理者w1.圖5-6刷新管理員列表©

19、;'*' t a善p該管理者的修改、刪除代碼如下所示：源代碼：private sub cmdadd_click()frmaddmanager show 1 end subprivate sub cmddelete_click()dim tmpseq as stringif adodcl. recordset. bof 二 true thenmsgbox 請選擇記錄exit subend ifp 二 adodcl. recordset. absoluteposi tion tmpscq = trim(adodcl .recordsetfields(0)'確認刪除if ms

20、gbox(，z是否刪除當(dāng)前彳??？“，vbyesno, 確認)=vbyes thendim mydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydboper. db connect'定義查詢語商sql = z，select * from librarian where seq二'"+ trim(txtscq) + set rst = mydboper.querysql(sql)if (not rst.eof) thenwith rst.delete adaff

21、ectcurrent updateend withelsemsgbox 發(fā)生錯誤,請重新操作.”end tfrcfrcsh_datalistif p - 1 > 0 thenadodcl.recordset. move 0adodcl. recordset. move p - 1end tfend ifend subprivate sub cmdedit_click()'檢驗數(shù)據(jù)的有效性if trim(txtld) = thenmsgbox 請輸入登錄ictexit subend tfif trim(txtpwd) = thenmsgbox 請輸入登錄密碼exit subend

22、tfdim mydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydboper. db connect'定義查詢語句sql 二"select * from librarian where seq二' + trim(txtseq) + set rst 二 mydboper. querysql(sql)if (not rst. eof) thenrst!id = me.txtldrstpassword = me. txtpwdrst!onjobtime 二 me.

23、 txttimerst!tel ephone 二 me. txtphonerst. updatemsgbox "信息修改成功."elsemsgbox 發(fā)生錯誤,請重新輸入.”end tfrst close'關(guān)閉連接mydboper. db disconnectrefresh datali stend subprivate sub cmdexit_click() me. hideend subprivate sub cmdrefresh_click() refreshdatalistend subprivate sub datagridl_click()if adod

24、cl. recordset. bof = true thenmsgbox 請選擇記錄exit subend if'保存光標(biāo)位置p = adodcl. recordset. absoluteposition'讀取當(dāng)前記錄的各列數(shù)據(jù)me.txtseq 二 trim(adodcl. recordset. fields(0)me. txtld = trim(adodcl. recordset. fields (1)me. txtpwd = trim(adodcl. recordset. fields (2)me. txttime 二 trim(adodcl. recordset. fi

25、elds(3)me. txtphone = trim(adodcl. recordset. fields(4)refresh_datalist'恢復(fù)光葆位置adodcl. recordset. move 0adodcl.recordset. move p 一 1end subprivate sub refreshdatalist()'刷新管理員列表adodcl. recordsource 二"select * from librarian order by seqadodcl. refreshend subprivate sub formload()end subpr

26、ivate sub framei dragdrop (source as control, x as single, y as single)end subprivate sub label4_click()end sub5.3借閱/還書管理設(shè)計借閱圖帖時首先要輸入“借書卡號”，點擊“確定”，就會出來借閱者的一些 的基本信息，再在“借書登記欄”小輸入書刊編號查詢，如果在庫是，點擊“提交”即可;力匡毛営理童統(tǒng)借韋登汜q0s5 名統(tǒng)管理借書卡業(yè)務(wù)信/還書業(yè)箔陣存営理幫助查洵134關(guān)訶i借書卡號：|011確定！姓名：小沛學(xué)號：10067年級：犬一學(xué)院：電子學(xué)院電話號碼：123已借書刊信息借閱者信息書

27、刊編三1名稱昔書日期134|毛概2/13/2012書刊編是i名稱丨狀態(tài)isbsni歩型134【在庫毛澤東2345圖書i借書登記書刊編號:圖5-7借閱借閱其代碼如下;源代碼：private sub cmdexit_click()me. hideend subprivate sub cmdenter click()'檢驗數(shù)據(jù)的有效性if trim(txtborrld) = "" thenmsgbox "請輸入借書卡號exit subend ifdim mydboper as new dboperationdim rst as adodb. recordsetd

28、im sql as string'建立連接mydboper. db connect'定義查詢語句sql二"selectb. studentnum, b. name, i. institute, g. grade, b. telenumber, b. borrowbooknum+ "from borrower b,institutc i,grade g "+ "where b.instituteid=i. instituteld andb.gradetd=g. gradetd " _+ "and borrowerld=，

29、" + txtborrld +"set rst 二 mydboper.querysql(sql)if (not rst.eof) thenwith rst1 blstunum. caption = . fields (0)lblname.caption 二fields(l)lblinstitute. caption =fields(2)lblgrade. caption =fields(3)lblphone. ceiption = fields (4)end withrefresh datalistlelsemsgbox 用戶不存在，請重新操作.end tfrst.clos

30、e'關(guān)閉連接mydbopcr. db disconnectend subprivate sub cmdquery click ()'檢驗數(shù)據(jù)的有效性if trim(txtbookld) = thenmsgbox 請輸入書刊編號exit subend ifdim mydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydbopcr. db connect'定義查詢語句sql = "select b. booktd as 書刊編號,b. name as 名稱

31、,b. loan as 狀 態(tài), _+ author as 作者,t i sbsn as isbsn, t .type as 類 型,b. borrowdate as 借書日期"+ "from book b , title t where b. name=t. name and b. bookid二'+ trim(txtbookld) + '八"set rst 二 mydbopcrqucrysql(sql)if (not rst.eof) thenrefresh_datalist2 (sql)elsemsgbox "該w刊不存在,請重新操

32、作."end ifrst.close'關(guān)閉連接mydboper. db_disconnectend subprivate sub refresh_datalistl()dim sql as stringsql 二 zzselect bo. bookid as 書 刊 編號，bo. name as 名 稱，bo. borrowdate as 借書日期"_+ "from borrower b,book bo "+，zwhere b. borrowerid=bo. borrowerld and b. borrowerid=，z，_+ trim(txtb

33、orrtd) +adodcl. recordsource 二 sqladodcl. refreshset datagridl. datasource = adodcldeitagridl. rebindend subprivate sub refresh_datalist2(sql as string)adodc2 recordsource = sqladodc2. refreshset datagrid2. datasource = adodc2datagrid2. rebindend subprivate sub cmdsubmit_click()'檢驗數(shù)據(jù)的有效性if trim(

34、txtborrld) = thenmsgbox 請輸入借書卡號exit subend tfif trim(txtbookld) = "” thenmsgbox 請輸入書刊編號exit subend ifdim nowdate as new bookdatedim mydboper as new dboperationdim rst as adodb. rccordsctdim sql as stringdim updatel_sql as stringdim update2_sql as string'建立連接mydboper. db connect'定義查詢語句sq

35、l = "select loan from book where bookid二' + trim(txtbooktd)+ ，set rst 二 mydboper.querysql(sql)if trim(rst. fields (0)="在庫 then'更新數(shù)據(jù)庫表updatel_sql = "update book set loan 二'借出borrower id二' _+ trim(txtborrld) + ，z，, borrowdate二'+ nowdate. gctdate + where bookid二'+

36、 trim(txtbookld) +mydboper. executesql (updatel_sql)setupdate2_sql="updateborrowerborrowbooknum=borrowbooknum+1 where borrower i d=，z/+ trim(txtborrld) +mydboper. executesql (update2_sql)refresh_datali s11msgbox 操作成功."elsemsgbox 該書刊已經(jīng)借出，請重新操作.end tfrst. close'關(guān)閉連接mydboper. db disconnec

37、tend subprivate sub datagridlclick()end subprivate sub datagrid2_click()end subprivate sub label5 click()end sub還書時輸入書刊編號查詢，確認無誤后點擊“還書提交”即可;圖5-8.還書還書的代碼如下;源代碼：private sub cmdexit_click()me. hideend subprivatc sub cmdquery click()'檢驗數(shù)據(jù)的有效性tf trim(txtbooktd) = thenmsgbox 請輸入書刊編號exit subend ifdim m

38、ydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydboper. db connect,'定義查詢語句sql = "select * from book where bookid=， + trim(txtbookld)set rst 二 mydboper.querysql(sql)if (not rst.eof) thenrefresh datalist'顯示書刊類別以及借用期限dim type_rst as adodb. recordsetdim type

39、_sql as stringtype sql = "select t type,d dates restriet " _+ "from title t,datesrestrict d,book b "cind+ z，where d. type=t. type and t. ncime=b ncimeb.booktd= _+ trim(txtbookld) +set type rst 二 mydboper.querysql(type sql)with type rstlblbooktype =fields(0)lbldaterestrict = .fiel

40、ds(1)end withelsemsgbox 該書刊不存在，請重新操作end ifrst. close'關(guān)閉連接mydbopcr. db disconnectend subprivate sub refresh_datalist()dim sql as string'定義查詢語句sql = "select b. borrowcrid as 借閱者編號,b. borrowdatc as 借書 日期,b. bookid as書刊編號,b. name as名稱，"_+ z/b. loan as 狀態(tài)，t. author as 作者，t. isbsn as isb

41、sn, t. type as 類型"_+ "from book b , title t where b. name=t. name and b. bookid二'+ trim(txtbookld) +adodcl. recordsource = sqladodcl. refreshset datagridl. datasource = adodcldatagridl. rebindend subprivate sub cmdsubmit_click()'檢驗數(shù)據(jù)的有效性if trim(txtbookld) = "” thenmsgbox 請輸入書刊

42、編號exi t subend ifdim nowdatc as new bookdatcdim mydboper as new dboperationdim rst as adodb. recordsetdim sql as stringdim updatel sql as stringdim update2_sql as string'建立連接mydboper. db connect'定義查詢語句sql = z，select loan, borrower id from book where bookld=：trim(txtbookld) +set rst = mydboper. querysql(sql)if trim(