下载后可任意编辑1、 概述为适应教育现代化的迫切要求, 提高高校图书馆的现代化管理水平, 提高图书馆使用效率, 更好的配置图书资源, 降低工作人员劳动强度; 结合本人实际兴趣及知识, 开发了此软件。2、 详细设计2．1.系统功能模块图2．2. 数据流图: 3.数据库设计3.1 数据库概念结构设计: 下载后可任意编辑3.2 数据库逻辑结构的设计包括有系统用户表 yonghu、 读者表 duzhe、 图书表 tushu、 借阅表 jieshu、 设置表 shez。图书表 tushu字段名称类型说明图书编号文本 书名文本 作者文本 出版社文本 单价文本 本数文本 已借出数文本 借出次数文本 读者表 duzhe字段名称类型说明读者编号文本 姓名文本 班级文本 电话号码文本 借阅次数文本 已借本数文本 已交罚款文本 借阅表 jieshu字段名称类型说明读者编号文本 图书编号文本 借书日期日期/时间 下载后可任意编辑还书日期日期/时间 应还日期日期/时间 续借文本 设置表 shez字段名称类型说明还书期限整型 续借期限整型 最大借书数整型 4、 主要功能模块设计4.1.系统登陆界面设计功能介绍: 用户选择用户名并输入密码, 系统按用户名查看 yonghu 表, 若密码正确, 则按权限进入图书管理系统的主界面; 若用户密码输入不正确, 则系统提示出错,要求重新输入密码否则不得进入本系统。( 注: 还定义了一个模块名为 module1.bas ,pubyh 和 quanxian都是全局变量, 一个保存用户名, 一个保存权限、 还有 hsqx 、 xjqx 、 zdjss 用于保存还书期限、 续借期限、 最大借书数。) 代码实现: 下载后可任意编辑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 "密码错误, 请重新输入! ", 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.Rec...
