VB图书管理系统

1 概述 为适应教育现代化的迫切要求 提高高校图书馆的现代化管理水平 提高图书 馆使用效率 更好的配置图书资源 降低工作人员劳动强度 结合本人实际兴 趣及知识 开发了此软件 2 详细设计 2 1 系统功能模块图 2 2 数据流图 3 数据库设计 3 1 数据库概念结构设计 3 2 数据库逻辑结构的设计 包括有系统用户表 yonghu 读者表 duzhe 图书表 tushu 借阅表 jieshu 设 置表 shez 图书表 tushu 2 字段名称类型说明 图书编号文本 书名文本 作者文本 出版社文本 单价文本 本数文本 已借出数文本 借出次数文本 读者表 duzhe 字段名称类型说明 读者编号文本 姓名文本 班级文本 电话号码文本 借阅次数文本 已借本数文本 已交罚款文本 借阅表 jieshu 字段名称类型说明 读者编号文本 图书编号文本 借书日期日期 时间 还书日期日期 时间 应还日期日期 时间 续借文本 设置表 shez 字段名称类型说明 还书期限整型 续借期限整型 最大借书数整型 4 主要功能模块设计 4 1 系统登陆界面设计 3 功能介绍 用户选择用户名并输入密码 系统按用户名查看 yonghu 表 若密码正确 则按 权限进入图书管理系统的主界面 若用户密码输入不正确 则系统提示出错 要 求重新输入密码否则不得进入本系统 注 还定义了一个模块名为 module1 bas pubyh 和 quanxian 都是全局变量 一个保存用户名 一个保存 权限 还有 hsqx xjqx zdjss 用于保存还书期限 续借期限 最大借书数 代码实现 Private Sub Command1 Click Adodc1 RecordSource select from yonghu where 用户名 Data Source Persist Security Info False 数据库的连接 使用相对路径 Adodc1 RecordSource select from yonghu Adodc1 Refresh Label5 Caption 日期 Data Source Persist Security Info False Adodc1 RecordSource select from shez Adodc1 Refresh hsqx Adodc1 Recordset Fields 还书期限 xjqx Adodc1 Recordset Fields 续借期限 zdjss Adodc1 Recordset Fields 最大借书数 string1 当前还书期限 Data Source Persist Security Info False Adodc1 RecordSource select from duzhe Adodc1 Refresh DTPicker1 Value Date DTPicker2 Value DateAdd m hsqx DTPicker1 hsqx 是还 书期限 End Sub Private Sub Text1 KeyDown KeyCode As Integer Shift As Integer If KeyCode 13 Then Adodc1 Refresh Adodc1 Recordset Find 读者编号 Text1 Text If Adodc1 Recordset EOF True Then MsgBox 无此读者编号 借书 Text2 Text Adodc1 Refresh Exit Sub 9 End If Text2 Text Adodc1 Recordset Fields 姓名 End If End Sub Private Sub Text16 KeyDown KeyCode As Integer Shift As Integer If KeyCode 13 Then Adodc2 Refresh Adodc2 Recordset Find 图书编号 Text16 Text If Adodc2 Recordset EOF True Then MsgBox 无此图书编号 借书 Text15 Text Adodc2 Refresh Exit Sub End If Text15 Text Adodc2 Recordset Fields 书名 End If End Sub 4 5 图书查询 a 界面设计 10 b 功能介绍 对图书可根据不同的条件进行查询 图书编号 书名 作者 出 版社 c 代码实现 Private Sub Command1 Click Select Case combo1 ListIndex Case 0 Adodc1 Recordset Find 图书编号 Text8 Text If Adodc1 Recordset EOF Then Adodc1 Recordset MoveFirst Adodc1 Recordset Find 图书编号 Text8 Text End If Case 1 书名采用模糊查询 Adodc1 Recordset Find 书名 like Text8 Text If Adodc1 Recordset EOF Then Adodc1 Recordset MoveFirst Adodc1 Recordset Find 书名 like Text8 Text End If 11 End