VB图书管理系统_第1页
VB图书管理系统_第2页
VB图书管理系统_第3页
VB图书管理系统_第4页
VB图书管理系统_第5页
已阅读5页,还剩6页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、1、概述为适应教育现代化的迫切要求,提高高校图书馆的现代化管理水平,提高图书馆使用效率,更好的配置图书资源,降低工作人员劳动强度;结合本人实际兴趣及知识,开发了此软件。2、详细设计21.系统功能模块图22. 数据流图:3.数据库设计3.1 数据库概念结构设计:3.2数据库逻辑结构的设计包括有系统用户表yonghu、读者表duzhe、图书表tushu、借阅表jieshu、设置表shez。图书表tushu字段名称类型说明图书编号文本书名文本作者文本出版社文本单价文本本数文本已借出数文本借出次数文本读者表duzhe字段名称类型说明读者编号文本姓名文本班级文本电话号码文本借阅次数文本已借本数文本已交罚

2、款文本借阅表jieshu字段名称类型说明读者编号文本图书编号文本借书日期日期/时间还书日期日期/时间应还日期日期/时间续借文本设置表shez字段名称类型说明还书期限整型续借期限整型最大借书数整型4、主要功能模块设计4.1.系统登陆界面设计功能介绍:用户选择用户名并输入密码,系统按用户名查看yonghu表,若密码正确,则按权限进入图书管理系统的主界面;若用户密码输入不正确,则系统提示出错,要求重新输入密码否则不得进入本系统。(注:还定义了一个模块名为module1.bas ,pubyh和quanxian都是全局变量,一个保存用户名,一个保存权限、还有hsqx 、xjqx 、zdjss用于保存还书

3、期限、续借期限、最大借书数。)代码实现:Private Sub Command1_Click() Adodc1.RecordSource = select * from yonghu where 用户名= & DataCombo1.Text & and 密码= & Text1.Text & Adodc1.Refresh If Adodc1.Recordset.EOF = False Then pubyh = DataCombo1.Text quanxian = Adodc1.Recordset.Fields(权限) Me.Hide MDIForm1.Show Else MsgBox 密码错误,

4、请重新输入!, vbOKOnly + vbExclamation, 图书馆 Text1.Text = Call Form_Load End IfEnd SubPrivate Sub Form_Load() Adodc1.ConnectionString = Provider=Microsoft.Jet. & OLEDB.4.0;Data Source= & App.Path & kcsj.mdb;Persist Security Info=False数据库的连接,使用相对路径 Adodc1.RecordSource = select * from yonghu Adodc1.Refresh L

5、abel5.Caption = 日期: & Date End Sub4.2图书管理系统的主界面设计(a)界面设计:(b)功能介绍:主界面的功能有系统管理模块:系统设置、用户管理、注销、退出。数据管理模块:借书管理、续借管理、还书管理、图书管理、读者管理。数据查询模块:借阅查询、图书查询、读者查询。统计排行模块:读者统计排行、图书统计排行。今日盘点模块:今日借出图书、今日归还图书、今日到期图书。使用了菜单、工具栏和状态栏。(c)代码实现:Private Sub MDIForm_Activate()Unload frmloginAdodc1.ConnectionString = Provider=

6、Microsoft.Jet. & OLEDB.4.0;Data Source= & App.Path & kcsj.mdb;Persist Security Info=False Adodc1.RecordSource = select * from shez Adodc1.Refresh hsqx = Adodc1.Recordset.Fields(还书期限) xjqx = Adodc1.Recordset.Fields(续借期限) zdjss = Adodc1.Recordset.Fields(最大借书数)string1 = 当前还书期限: & hsqx & 个月续借期限: & xjqx

7、& 个月最大借书数: & zdjss & 本Select Case quanxian 根据权限分配功能的使用Case 1: beizu = 系统管理员: menuxtsz.Enabled = True Case 2:beizu = 操作员: 权限为2的是一般操作人员 menuxtsz.Enabled = False Toolbar1.Buttons.Item(1).Enabled = True Case 3: beizu = 读者: 权限为3的是读者 End SelectStatusBar1.Panels(1).Text = beizu + pubyhStatusBar1.Panels(2).

8、Text = string1End Sub4.4 借书管理模块(a) 界面设计b)功能介绍该部分完成对读者的借书管理并将借书信息写入jieshu表中,并修改duzhe表中借阅次数、已借本数两字段和tushu表中借出次数、已借本数两字段,读者借书数超过系统参数设定的最多本数的不能再借。(c)代码实现Private Sub Command1_Click() b = CInt(Text6.Text)读者已借图书数 e = CInt(Text5.Text)读者的借阅次数 c = CInt(Text17.Text)图书的本数 d = CInt(Text18.Text)图书已借出数 f = CInt(Te

9、xt12.Text)图书的借出次数 If zdjss - b = 0 Then MsgBox 你已借满图书了, 借书 Exit Sub End If If c - d = 0 Then MsgBox 你要的图书已全部借出, 借书 Exit Sub End If Adodc1.Recordset.Update 已借本数, Str(b + 1) Adodc1.Recordset.Update 借阅次数, Str(e + 1) Text6.Text = Adodc1.Recordset.Fields(已借本数) Text5.Text = Adodc1.Recordset.Fields(借阅次数) A

10、dodc2.Recordset.Update 已借出本数, Str(d + 1) Adodc2.Recordset.Update 借出次数, Str(f + 1) Text18.Text = Adodc2.Recordset.Fields(已借出本数) Text12.Text = Adodc2.Recordset.Fields(借出次数)Adodc3.Recordset.AddNew Adodc3.Recordset.Fields(读者编号) = Text1.Text Adodc3.Recordset.Fields(图书编号) = Text16.Text Adodc3.Recordset.Fi

11、elds(借书日期) = DTPicker1.Value Adodc3.Recordset.Fields(应还日期) = DTPicker2.Value Adodc3.Recordset.Fields(续借) = 0 Adodc3.Recordset.Update Adodc3.RefreshEnd SubPrivate Sub Form_Load() Adodc1.ConnectionString = Provider=Microsoft.Jet. & OLEDB.4.0;Data Source= & App.Path & kcsj.mdb;Persist Security Info=Fal

12、se Adodc1.RecordSource = select * from duzhe Adodc1.Refresh DTPicker1.Value = Date DTPicker2.Value = DateAdd(m, hsqx, DTPicker1) hsqx是还书期限End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenAdodc1.RefreshAdodc1.Recordset.Find 读者编号 = & Text1.Text & If Adodc1.Reco

13、rdset.EOF = True Then MsgBox 无此读者编号, 借书 Text2.Text = Adodc1.Refresh Exit Sub End IfText2.Text = Adodc1.Recordset.Fields(姓名)End IfEnd SubPrivate Sub Text16_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenAdodc2.RefreshAdodc2.Recordset.Find 图书编号 = & Text16.Text & If Adodc2.Recordset.E

14、OF = True Then MsgBox 无此图书编号, 借书Text15.Text = Adodc2.Refresh Exit SubEnd IfText15.Text = Adodc2.Recordset.Fields(书名)End IfEnd Sub4.5图书查询(a)界面设计:(b)功能介绍:对图书可根据不同的条件进行查询(图书编号、书名、作者、出版社)。(c)代码实现:Private Sub Command1_Click()Select Case combo1.ListIndexCase 0Adodc1.Recordset.Find 图书编号 = & Text8.Text & If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find 图书编号 = & Text8.Text & End IfCase 1 书名采用模糊查询Adodc1.Recordset.Find 书名 like * & Text8.T

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论