1、1、概述為適應(yīng)教育現(xiàn)代化得迫切要求，提高高校圖書(shū)館得現(xiàn)代化管理水平 ，提高圖書(shū)館 使用效率，更好得配置圖書(shū)資源，降低工作人員勞動(dòng)強(qiáng)度；結(jié)合本人實(shí)際興趣及知 識(shí)，開(kāi)發(fā)了此軟件.2、詳細(xì)設(shè)計(jì)1.1、 系統(tǒng)功能模塊圖1.2、 數(shù)據(jù)流圖:統(tǒng)計(jì)好求查恂要充有效宣姆宴術(shù)H 1.橫史布曾柱無(wú)效輸入當(dāng)酊日期2封理數(shù)據(jù)管理有燃數(shù)掘管理要求R1為依統(tǒng)計(jì)好求薪升衰4出理統(tǒng)計(jì).統(tǒng)計(jì)表£3、數(shù)據(jù)庫(kù)設(shè)計(jì)3、1數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)3、 2數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)得設(shè)計(jì)包括有系統(tǒng)用戶表yong h u、讀者表d uzhe、圖書(shū)表t u s hu、借閱表ji e s h u> 設(shè)置表shezo圖書(shū)表tus h u字段名稱說(shuō)

2、明圖書(shū)編號(hào)文本書(shū)名文本作者文本出版社文本單價(jià)文本本數(shù)文本字段名稱說(shuō)明1讀后編P文本姓名文本班級(jí)文本電話號(hào)碼文本借閱次數(shù)文本已借本數(shù)文本已交罰款文本借閱表jiesh u字段名稱說(shuō)明1讀后編P文本圖書(shū)編號(hào)文本借書(shū)日期日期/時(shí)間還書(shū)日期日期/時(shí)間應(yīng)還日期日期/時(shí)間續(xù)借文本設(shè)置表s h e z字段名稱說(shuō)明還書(shū)期限_ 1整型續(xù)借期限整型最大借書(shū)數(shù)整型4、主要功能模塊設(shè)計(jì)4、1、系統(tǒng)登陸界面設(shè)計(jì)功能介紹:用戶選擇用戶名并輸入密碼，系統(tǒng)按用戶名查瞧 yonghu 表，若密碼正確，則按權(quán)限進(jìn)入圖書(shū)管理系統(tǒng)得主界面；若用戶密碼輸入不正確 , 則系統(tǒng)提示出錯(cuò)，要求重新輸入密碼否則不得進(jìn)入本系統(tǒng).(注：還定義了一個(gè)

3、模塊名為rnio dulel、 bas , pubyh與qu anxian都就是全局變量，一個(gè)保存用戶名，一個(gè)保存權(quán)限、 還有hsq x、xj q x 、zdjss用于保存還書(shū)期限、續(xù)借期限、最大借書(shū)數(shù)。)代碼實(shí)現(xiàn)：Pr i v ate Sub mand1_Clic k ()? Adodcl、Reco rd Source = " select * f r om yon g hu wh ere 用戶名='"& Data b o 1> Text & " a nd 密碼二/ "& Text1、Tex t & ii

4、/ iiAdodcl、FRe freshIf Adodc 1、Reco rdset、EOF = False Th e npubyh = D atabo1、T ex tq uanxi an = Ado d c1、R e cord set、F i e 1 d s("權(quán)限 ”)？ Mb Hi d e?MD IFor m1> Show? E 1 se?Ms gBo x "密碼錯(cuò)誤，請(qǐng)重新輸入！ "， vbOKO n1 y + vb Exclam a t i on,"圖書(shū)館"?T e xt1 > Te x t =""?Ca

5、ll F o rm_Lo ad?En d I f?E n d Sub?Pr iva t e Sub For m_Load()Ad odc1> Connection St r ing = " Prov i der= Mi c ros o ft、 Jet、" & " OLE DB 4、0;Da t a S o ur c e="& App> Pa th & " k c sj >mdb; Persi s t Secur i ty Inf o =Fa Ise" '數(shù)據(jù)庫(kù)得連接，使用相對(duì)路徑 ?

6、Adodc1 、R e cordSou r ce = " s ele c t * fro m y o n ghu " ? Adodcl、Refres h ?Label5、Ca p t ion ="日期："& Dat e? End Sub4、 2 圖書(shū)管理系統(tǒng)得主界面設(shè)計(jì)(a) 界面設(shè)計(jì)：fine mQu rt«>!<«-忖pwhiu 3日平，wi> 毛干i| itVWA"Ml* ,當(dāng)li電書(shū)Uft%中，W?：:I,+J! *胃4t:/12:47*) “mw 1 4.餐工i f. |II1c .J K

7、M L(b)功能介紹:主界面得功能有系統(tǒng)管理模塊：系統(tǒng)設(shè)置、用戶管理、注銷、退出。數(shù)據(jù)管理模塊：借書(shū)管理、續(xù)借管理、還書(shū)管理、圖書(shū)管理、讀者管理。數(shù)據(jù)查詢模塊：借閱查詢、圖書(shū)查詢、讀者查詢。統(tǒng)計(jì)排行模塊：讀者統(tǒng)計(jì)排行、圖書(shū)統(tǒng)計(jì)排行。今日盤(pán)點(diǎn)模塊：今日借出圖書(shū)、今日歸還圖書(shū)、今日到期圖書(shū)。使用了菜單、工 具欄與狀態(tài)欄。(c )代碼實(shí)現(xiàn)：Priv ate Sub MDIForm_Ac ti vat e ()Un load fr ml o g i n?Adodcl、Co n n e c t io n Strin g = " P rov i d e r =Mi c ro s o f t、Je

8、t、" & " OLEDB4、0; Dat a Sourc e = " & App、Pat h & " kcsj、mdh P ersi s t S ecu r ity Info=Fals e ”? Adodc1、Rec or d Sou rce = " selec t * from shez"Adodc1、Re fres h ?hsq x = Ad odc1、Recor dse t、F ields 還”還書(shū)期限”)xjq x = Adodc1、R e c ordset、F ields ("續(xù)借期限&q

9、uot;)z d j s s = Adod c 1、Reco r d s et、F i e lds ("最大借書(shū)數(shù)")?Rtr i ngl = ”當(dāng)前還書(shū)期限：” & hsqx & "個(gè)月 續(xù)借期限：" & x jqx & ”個(gè)月 最大借書(shū)數(shù):"& z djss & "本"?S el e ct Case qua n x ian'根據(jù)權(quán)限分配功能得使用？Case "1"： beizu ="系統(tǒng)管理員："m e nuxts z、 En

10、a bled = True?？C ase "2" ： beizu = "操作員：”/權(quán)限為2得就是一般操作人員？menuxtsz、Ena bl e d = False ?Toolbarl 、Butto ns、Ite m (1)、Enabl ed = T rue ? Cas e "3" : beizu =讀者："'權(quán)限為3得就是讀者E nd S elect?S>t at us Ba r1 > Panel s (1)、Text= be izu + pubyh?Sta t usBa r1 > Pa nels(2)、

11、T ext = str i ng1?E n d Sub4、4借書(shū)管理模塊(a)界面設(shè)計(jì)b)功能介紹b = CInt( T e x t 6、T e'讀者得借閱次數(shù)？'圖書(shū)得本數(shù)？'圖書(shū)已借出數(shù)'圖書(shū)得借出次數(shù)該部分完成對(duì)讀者得借書(shū)管理并將借書(shū)信息寫(xiě)入j 1 e s hu表中，并修改duzhe 表中借閱次數(shù)、已借本數(shù)兩字段與tush u表中借出次數(shù)、已借本數(shù)兩字段，讀者 借書(shū)數(shù)超過(guò)系統(tǒng)參數(shù)設(shè)定得最多本數(shù)得不能再借。(c)代碼實(shí)現(xiàn)Pri vat e Sub man d 1Click( ) ?xt)'讀者已借圖書(shū)數(shù)？e = CI nt (Te xt5、Text)

12、c = CInt (Text17、Te x t)d = CInt (Text 18、Text)? f = CInt (Text 12> Te xt)? I f zd j s s - b <= 0 Then?MsgBox "您已借滿圖書(shū)了", 借書(shū) ?Exi t S ub? E n d I fIf c - d <= 0 Th enMsgBo x u您要得圖書(shū)已全部借出u , 借書(shū)? Exit S ub? End If ? A d o del、Re c ordset、Upd ate "已借本數(shù)” ，St r （b + 1） ?Adodcl、Rec o

13、rds e t、Update ”借閱次數(shù)",St r（e + 1 ） ? Tc xt6、Text = Ad odcl、Reco r d s et、Fields （"已借本數(shù)”）Text5 、Tex t = Adodcl、Recor dsct、Fields （"借閱次數(shù)"）Ado de 2、Recordset、U pdate "已借出本數(shù)” ，S tr （d + 1 ） ?Ad odc2、Re c o r d set、Update "借出次數(shù)"，Str （f + 1）? Text18、Text = Adodc2、Records

14、et、Fie 1 ds （"已借出本數(shù)"）? T c xt 1 2、Tex t = Ad o dc2、Reco rds e t > F i e lds（"借出次數(shù)"）? Adodc 3、Rec 0rdset、A d dNeW? Adodc 3、Recor d s e t > Fields（"讀者編號(hào)"）=Text 1、Text? Adodc3、Recordset、Fields （"圖書(shū)編號(hào)"）=Tex t 16、Text? Adod c 3、Recordset > F ie Ids （"

15、借書(shū)日期"）=D T Pickerl、V a 1 ueAdodc 3、Re cord set、F i e Ids 還"應(yīng)還日期"）=D T Pick 6 r2、Va lue ? Adodc3、Recor d set、F ields（" 續(xù)借"）="0" ?A d o d c3、Reco r ds e t > Updat e? Adodc 3、Ref resh ?End S ub?Pr i vate Sub For m_Load （）? Ado d cl、Connect i o nString =" P ro

16、v ide r =Mi crosoft、J c t、"& "OL E DB 4、0; Data So urc e=" & App、Pat h & "kcs j、mdh Pc rsist Security Info= F alse " ? Adod c 1、RecordSour c e = "select * fromduzh e "?Adodc 1、Refresh? DTPicker1、Value = Date?DTPick 6 r 2、Val u e = DateAd d （"m"

17、; , hsqx, DTPic k e r 1）' hs qx就是還書(shū)期限?En d Sub?PrivateSu b Text 1 _Kc yDown （KcyCode As Integer ,Shift As I n t ege r ）I f KeyCode = 1 3 Then?Adodcl、Ref resh?Adod cl、Recordset、Find "讀者編號(hào)='"& Textl、Text & " 7 "If A dodcl、Reco rdse t、EOF = True ThenM s gBox "無(wú)此

18、讀者編號(hào)”，借書(shū)？ T c x t 2、Text = "” ？? Adod c1、Ref r e shExit SubEnd If?Tex t2、Text = Adodc1、Re c ord s e t > Fi e lds ("姓名")?End IfEnd Sub?P ri v ate Sub T e x t 16_Kc yDown(KeyCocb A s Int e g e r, Shif t As Int e g e r )If KeyCode = 13 Then?d odc2、Re fres h ?kd o dc2、Recor d se t、Fin

19、d ”圖書(shū)編號(hào) ='u & Text 16、Tc xt & 口 ？?i f Adodc2、Recor d sc t、EOF = True Th e nM sgBo x ”無(wú)此圖書(shū)編號(hào)”，借書(shū)?Text 1 5、Text = " " ?Adod c2、Re f resh?Exit Sub ?End I f?Te xt15、T e xt = A d odc 2、Reco rdse t、F ields(書(shū)名)？? ?End I f?End S ub4、5圖書(shū)查詢(a)界面設(shè)計(jì)：(b)功能介紹：對(duì)圖書(shū)可根據(jù)不同得條件進(jìn)行查詢(圖書(shū)編號(hào)、書(shū)名、作者、出 版社)。(c)代碼實(shí)現(xiàn)：Priv ate Sub mandl_ Cli c k ()S e 1 e c t Case b o 1、List Index?Case 0?Ad o d