VB圖書管理系統(tǒng)

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

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

3、模塊名為rnio dulel、 bas , pubyh與qu anxian都就是全局變量，一個保存用戶名，一個保存權限、 還有hsq x、xj q x 、zdjss用于保存還書期限、續(xù)借期限、最大借書數(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("權限 ”)？ Mb Hi d e?MD IFor m1> Show? E 1 se?Ms gBo x "密碼錯誤，請重新輸入！ "， vbOKO n1 y + vb Exclam a t i on,"圖書館"?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ù)庫得連接，使用相對路徑 ?

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 圖書管理系統(tǒng)得主界面設計(a) 界面設計：fine mQu rt«>!<«-忖pwhiu 3日平，wi> 毛干i| itVWA"Ml* ,當li電書Uft%中，W?：:I,+J! *胃4t:/12:47*) “mw 1 4.餐工i f. |II1c .J K

7、M L(b)功能介紹:主界面得功能有系統(tǒng)管理模塊：系統(tǒng)設置、用戶管理、注銷、退出。數(shù)據(jù)管理模塊：借書管理、續(xù)借管理、還書管理、圖書管理、讀者管理。數(shù)據(jù)查詢模塊：借閱查詢、圖書查詢、讀者查詢。統(tǒng)計排行模塊：讀者統(tǒng)計排行、圖書統(tǒng)計排行。今日盤點模塊：今日借出圖書、今日歸還圖書、今日到期圖書。使用了菜單、工 具欄與狀態(tài)欄。(c )代碼實現(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 還”還書期限”)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ù)")?Rtr i ngl = ”當前還書期限：” & hsqx & "個月 續(xù)借期限：" & x jqx & ”個月 最大借書數(shù):"& z djss & "本"?S el e ct Case qua n x ian'根據(jù)權限分配功能得使用？Case "1"： beizu ="系統(tǒng)管理員："m e nuxts z、 En

10、a bled = True?？C ase "2" ： beizu = "操作員：”/權限為2得就是一般操作人員？menuxtsz、Ena bl e d = False ?Toolbarl 、Butto ns、Ite m (1)、Enabl ed = T rue ? Cas e "3" : beizu =讀者："'權限為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借書管理模塊(a)界面設計b)功能介紹b = CInt( T e x t 6、T e'讀者得借閱次數(shù)？'圖書得本數(shù)？'圖書已借出數(shù)'圖書得借出次數(shù)該部分完成對讀者得借書管理并將借書信息寫入j 1 e s hu表中，并修改duzhe 表中借閱次數(shù)、已借本數(shù)兩字段與tush u表中借出次數(shù)、已借本數(shù)兩字段，讀者 借書數(shù)超過系統(tǒng)參數(shù)設定得最多本數(shù)得不能再借。(c)代碼實現(xiàn)Pri vat e Sub man d 1Click( ) ?xt)'讀者已借圖書數(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 "您已借滿圖書了", 借書 ?Exi t S ub? E n d I fIf c - d <= 0 Th enMsgBo x u您要得圖書已全部借出u , 借書? 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（"讀者編號"）=Text 1、Text? Adodc3、Recordset、Fields （"圖書編號"）=Tex t 16、Text? Adod c 3、Recordset > F ie Ids （"

15、借書日期"）=D T Pickerl、V a 1 ueAdodc 3、Re cord set、F i e Ids 還"應還日期"）=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就是還書期限?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 "讀者編號='"& Textl、Text & " 7 "If A dodcl、Reco rdse t、EOF = True ThenM s gBox "無此

18、讀者編號”，借書？ 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 ”圖書編號 ='u & Text 16、Tc xt & 口 ？?i f Adodc2、Recor d sc t、EOF = True Th e nM sgBo x ”無此圖書編號”，借書?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(書名)？? ?End I f?End S ub4、5圖書查詢(a)界面設計：(b)功能介紹：對圖書可根據(jù)不同得條件進行查詢(圖書編號、書名、作者、出 版社)。(c)代碼實現(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