VB图书管理系统

1、1、概述为适应教育现代化得迫切要求，提高高校图书馆得现代化管理水平 ，提高图书馆 使用效率，更好得配置图书资源，降低工作人员劳动强度；结合本人实际兴趣及知 识，开发了此软件.2、详细设计1.1、 系统功能模块图1.2、 数据流图:统计好求查恂要充有效宣姆宴术H 1.横史布曾柱无效输入当酊日期2封理数据管理有燃数掘管理要求R1为依统计好求薪升衰4出理统计.统计表£3、数据库设计3、1数据库概念结构设计3、 2数据库逻辑结构得设计包括有系统用户表yong h u、读者表d uzhe、图书表t u s hu、借阅表ji e s h u> 设置表shezo图书表tus h u字段名称说

2、明图书编号文本书名文本作者文本出版社文本单价文本本数文本字段名称说明1读后编P文本姓名文本班级文本电话号码文本借阅次数文本已借本数文本已交罚款文本借阅表jiesh u字段名称说明1读后编P文本图书编号文本借书日期日期/时间还书日期日期/时间应还日期日期/时间续借文本设置表s h e z字段名称说明还书期限_ 1整型续借期限整型最大借书数整型4、主要功能模块设计4、1、系统登陆界面设计功能介绍:用户选择用户名并输入密码，系统按用户名查瞧 yonghu 表，若密码正确，则按权限进入图书管理系统得主界面；若用户密码输入不正确 , 则系统提示出错，要求重新输入密码否则不得进入本系统.(注：还定义了一个

3、模块名为rnio dulel、 bas , pubyh与qu anxian都就是全局变量，一个保存用户名，一个保存权限、 还有hsq x、xj q x 、zdjss用于保存还书期限、续借期限、最大借书数。)代码实现：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" '数据库得连接，使用相对路径 ?

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 图书管理系统得主界面设计(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)功能介绍:主界面得功能有系统管理模块：系统设置、用户管理、注销、退出。数据管理模块：借书管理、续借管理、还书管理、图书管理、读者管理。数据查询模块：借阅查询、图书查询、读者查询。统计排行模块：读者统计排行、图书统计排行。今日盘点模块：今日借出图书、今日归还图书、今日到期图书。使用了菜单、工 具栏与状态栏。(c )代码实现：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 ("续借期限&q

9、uot;)z d j s s = Adod c 1、Reco r d s et、F i e lds ("最大借书数")?Rtr i ngl = ”当前还书期限：” & hsqx & "个月 续借期限：" & x jqx & ”个月 最大借书数:"& z djss & "本"?S el e ct Case qua n x ian'根据权限分配功能得使用？Case "1"： beizu ="系统管理员："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'读者得借阅次数？'图书得本数？'图书已借出数'图书得借出次数该部分完成对读者得借书管理并将借书信息写入j 1 e s hu表中，并修改duzhe 表中借阅次数、已借本数两字段与tush u表中借出次数、已借本数两字段，读者 借书数超过系统参数设定得最多本数得不能再借。(c)代码实现Pri vat e Sub man d 1Click( ) ?xt)'读者已借图书数？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 "已借本数” ，St r （b + 1） ?Adodcl、Rec o

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

14、et、Fie 1 ds （"已借出本数"）? T c xt 1 2、Tex t = Ad o dc2、Reco rds e t > F i e lds（"借出次数"）? 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（" 续借"）="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)功能介绍：对图书可根据不同得条件进行查询(图书编号、书名、作者、出 版社)。(c)代码实现：Priv ate Sub mandl_ Cli c k ()S e 1 e c t Case b o 1、List Index?Case 0?Ad o d