VB图书管理系统

1、图书管理A员查询要求（图书管理系统_统计要求A一斑讦表当前日期系新时”罚款单使者当前日期2封国数损普理统计距求甫妓统计财求解计西4 .处理就卅无找输入1处理者柏城耍集一一”1 一梅4有效桃聃司那双枝海1、概述为适应教育现代化的迫切要求，提高高校图书馆的现代化管理水平，提高图书馆使用效率，更好的配置图书资源，降低工作人员劳动强度；结合本人实际兴趣及知识，开发了此软件。2、详细设计2. 1.系统功能模块图3. 2.数据流图：4. 数据库设计4.1 数据库概念结构设计:4.2 数据库逻辑结构的设计包括有系统用户表yonghu、读者表duzhe、图书表tushu、借阅表jieshu、设置表shezo图

2、书表tushu字段名称说明图书编号文本书名文本作者文本出版社文本单价文本本数文本已借出数文本借出次数文本读者表duzhe字段名称说明1读后编P文本姓名文本班级文本电话号码文本借阅次数文本已借本数文本已交罚款文本借阅表jieshu字段名称说明1读后编P文本图书编号文本借书日期日期/时间还书日期日期/时间应还日期日期/时间续借文本设置表shez字段名称说明还书期限1整型续借期限整型最大借书数整型14、主要功能模块设计4.1 .系统登陆界面设计功能介绍：用户选择用户名并输入密码，系统按用户名查看yonghu表，若密码正确，则按权限进入图书管理系统的主界面；若用户密码输入不正确，则系统提示出错,要求重

3、新输入密码否则不得进入本系统。(注：还定义了一个模块名为module1.bas,pubyh和quanxian都是全局变量，一个保存用户名，一个保存权限、还有hsqx、xjqx、zdjss用于保存还书期限、续借期限、最大借书数。)代码实现：PrivateSubCommand1_Click()Adodc1.RecordSource="select*fromyonghuwhere用户名='"&DataCombo1.Text&"'and密码='"&Text1.Text&"'"Ad

4、odc1.RefreshIfAdodc1.Recordset.EOF=FalseThenpubyh=DataCombo1.Textquanxian=Adodc1.Recordset.Fields("权限")Me.HideMDIForm1.ShowElseMsgBox"密码错误，请重新输入！",vbOKOnly+vbExclamation,"图书馆"Text1.Text=""CallForm_LoadEndIfEndSubPrivateSubForm_Load()Adodcl.ConnectionString=&qu

5、ot;Provider=Microsoft.Jet."&"OLEDB.4.0;DataSource="&App.Path&"kcsj.mdb;PersistSecurityInfo=False”'数据库的连接，使用相对路径AdodcI.RecordSource="select*fromyonghu”AdodcI.RefreshLabel5.Caption="日期:"&DateEndSub4.2 图书管理系统的主界面设计(a)界面设计:(b)功能介绍：主界面的功能有系统管理模块：系统设置

6、、用户管理、注销、退出。数据管理模块：借书管理、续借管理、还书管理、图书管理、读者管理。数据查询模块：借阅查询、图书查询、读者查询。统计排行模块：读者统计排行、图书统计排行。今日盘点模块：今日借出图书、今日归还图书、今日到期图书。使用了菜单、工具栏和状态栏。(c)代码实现:PrivateSubMDIForm_Activate()UnloadfrmloginAdodc1.ConnectionString="Provider=Microsoft.Jet."&"OLEDB.4.0;DataSource="&App.Path&"

7、kcsj.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromshezAdodc1.Refreshhsqx=Adodc1.Recordset.Fields（"还书期限"）xjqx=Adodc1.Recordset.Fields（"续借期限"）zdjss=Adodc1.Recordset.Fields（"最大借书数"）string1="当前还书期限:"&hsqx&"个月续借期限:"&

8、xjqx&"个月最大借书数:"&zdjss&"本"SelectCasequanxian'根据权限分配功能的使用Case"1":beizu="系统管理员:"menuxtsz.Enabled=TrueCase"2":beizu="操作员:"'权限为2的是一般操作人员menuxtsz.Enabled=FalseToolbar1.Buttons.Item（1）.Enabled=TrueCase"3":beizu="

9、读者:"'权限为3的是读者EndSelectStatusBar1.Panels（1）.Text=beizu+pubyhStatusBar1.Panels(2).Text=string1EndSub4.4借书管理模块(a)界面设计b)功能介绍该部分完成对读者的借书管理并将借书信息写入jieshu表中,并修改duzhe表中借阅次数、已借本数两字段和tushu表中借出次数、已借本数两字段，读者借书数超过系统参数设定的最多本数的不能再借。(c)代码实现PrivateSubCommand1_Click()读者已借图书数读者的借阅次数图书的本数图书已借出数图书的借出次数b=CInt(Te

10、xt6.Text)e=CInt(Text5.Text)c=CInt(Text17.Text)d=CInt(Text18.Text)f=CInt(Text12.Text)Ifzdjss-b<=0ThenMsgBox"你已借满图书了",借书ExitSubEndIfIfc-d<=0ThenMsgBox"你要的图书已全部借出",借书ExitSubEndIfAdodc1.Recordset.Update"已借本数",Str（b+1）Adodc1.Recordset.Update"借阅次数",Str（e+1）Tex

11、t6.Text=Adodc1.Recordset.Fields（"已借本数"）Text5.Text=Adodc1.Recordset.Fields（"借阅次数"）Adodc2.Recordset.Update"已借出本数",Str（d+1）Adodc2.Recordset.Update"借出次数",Str（f+1）Text18.Text=Adodc2.Recordset.Fields（"已借出本数"）Text12.Text=Adodc2.Recordset.Fields（"借出次数&q

12、uot;）Adodc3.Recordset.AddNewAdodc3.Recordset.Fields（"读者编号"）=Text1.TextAdodc3.Recordset.Fields（"图书编号"）=Text16.TextAdodc3.Recordset.Fields（"借书日期"）=DTPicker1.ValueAdodc3.Recordset.Fields（"应还日期"）=DTPicker2.ValueAdodc3.Recordset.Fields（"续借"）="0"

13、Adodc3.Recordset.UpdateAdodc3.RefreshEndSubPrivateSubForm_Load（）Adodc1.ConnectionString="Provider=Microsoft.Jet."&"OLEDB.4.0;DataSource="&App.Path&"kcsj.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromduzhe"Adodc1.RefreshDTPicker1.Val

14、ue=Date'hsqX!还书期DTPicker2.Value=DateAdd("m",hsqx,DTPicker1)限EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenAdodc1.RefreshAdodc1.Recordset.Find"读者编号='"&Text1.Text&"'"IfAdodc1.Recordset.EOF=TrueThenMsgBox"无此读者编号"

15、;,借书Text2.Text=""Adodc1.RefreshExitSubEndIfText2.Text=Adodc1.Recordset.Fields("姓名")EndIfEndSubPrivateSubText16_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenAdodc2.RefreshAdodc2.Recordset.Find"图书编号='"&Text16.Text&皿IfAdodc2.Recordset.EOF=TrueThenMsg

16、Box%此图书编号"，借书Text15.Text=""Adodc2.RefreshExitSubEndIfText15.Text=Adodc2.Recordset.Fields（"书名"）EndIfEndSub4.5图书查询(a)界面设计:(b)功能介绍：对图书可根据不同的条件进行查询(图书编号、书名、作者、出版社)。代码实现：PrivateSubCommand1_Click()SelectCasecombo1.ListIndexCase0Adodc1.Recordset.Find"图书编号='"&Text8.Text&"'"IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find"图书编号='"&Text8.Text&"'"EndIfCase1'书名采用模糊查询Adodc1.Recordset.Find"书名like'*"&Text8.Text&&