（3）.数据存储字典：
名称 说明 输入 输出
管理员信息 审核时需查看的信息 登陆处理1
工作人员信息 由管理员文护 管理员 登陆处理2
图书信息 由管理员或工作员文护 管理员，工作人员 图书
借书卡信息 由管理员或借书员文护 管理员，借书人员 登陆处理3和
借书卡
报表信息 由管理员文护；由所有人员查看 管理员 报表
借还信息 由工作人员文护 工作人员 图书
二、 系统设计
1. 模块结构设计
图书管理系统需要实现的功能主要有四大块：“日常工作管理”、“基本资料文护”、“查询”、“系统管理”模块。其中日常工作管理和基本资料文护是整个系统的核心。
1）“工作管理”模块：
<1> 结束处理：主要功能是记录借阅证编号和图书编号，进行结束过程。在数据库中插入一条街数记录，该记录包括读者学好、图书编号、结束日期、还书期限、操作员姓名。
<2> 还书处理：主要功能是输入借阅证编号、图书编号，在借阅登记表中找到相应的记录，将该记录的相应数据插入到还书记录中，同时将借书记录删除，并保存在借阅历史记录表中。
<3> 续借处理：当读者的节约状态满足条件，可以对图书进行续接操作，自动将当前日期加上借阅期限，生成新的归还日期，更新借阅信息，完成续借工作。
<4> 缴纳罚金：输入读者学号，显示该读者的姓名、图书编号、罚款金额和罚款原因，如果读者缴纳了罚金，则将借阅登记表的允许借阅标志置为“Y”。删除罚款记录表中该读者对应的记录。
2）“资料文护模块”：
<1> 图书资料文护：包括新书的入库，以及现有书籍资料的修改，删除。
<2> 读者资料文护：包括读者的资料入库，以及县有读者资料的修改和删除
3）“查询”模块：
<1> 图书资料查询：根据相应的图书信息对所有书籍进行所需查询。此查询包括：“图书分类”、“图书号”、“图书名称”、“作者”。
<2> 读者资料查询：根据相应的读者资料惊醒所需查询。次查询包括：“借阅证号”、“读者姓名”。
<3> 借阅历史记录查询：根据相应的借阅信息进行所需查询。此查询包括：“借阅证号”、“图书号”、“结束日期”、“还书日期”。
<4> 罚款历史记录查询：根据相应的罚款信息进行查询。此查询包括：“借阅证号”、“罚款日期”、“罚款原因”。
4）“系统管理”模块：
<1> 员工管理：包括员工信息的录入，密码的修改以及员工信息的删除。
<2> 数据备份：对现有的数据库信息的保存。
<3> 数据恢复：对数据库信息的恢复。
2. 代码设计（使用VB）
Splash界面：
其中时钟控制它只有2秒的显示状态
代码：
Private Sub Form_Click()
login.Show
Unload Me
End Sub
Private Sub Label1_Click(Index As Integer)
login.Show
Unload Me
End Sub
Private Sub Label2_Click(Index As Integer)
login.Show
Unload Me
End Sub
Private Sub Timer1_Timer()
login.Show
Unload Me
End Sub
登陆界面：
分别为4个不同用户登陆
代码：
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名或密码为空！", 48, "警告"
Else
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书馆"
Adodc1.RecordSource = "select * from 工作人员登陆 where 帐号='" & Trim(Text1.Text) & "' and 密码='" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "用户名或密码不正确，重新输入！", 48, "警告"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
borrow.Show
Unload Me
End If
End If
End Sub
Private Sub Command2_Click()
a = MsgBox("真的要退出吗?", 1 + 32, "提示")
If a = vbOK Then
Unload Me
End If
End Sub
Private Sub Command3_Click()
If Text3.Text = "" Or Text4.Text = "" Then
MsgBox "用户名或密码为空！", 48, "警告"
Else
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书馆"
Adodc1.RecordSource = "select 卡号 ,密码 from 借书卡表 where 卡号='" & Trim(Text3.Text) & "' and 密码='" & Text4.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "用户名或密码不正确，重新输入！", 48, "警告"
Text3.Text = ""
Text4.Text = ""
Text3.SetFocus
Else
card_in.Show
Unload Me
End If
End If
End SubPrivate Sub Command4_Click()528
上一页 [1] [2] [3] [4] [5] [6] 下一页