VB图书管理系统Word文档格式.docx
《VB图书管理系统Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB图书管理系统Word文档格式.docx(10页珍藏版)》请在冰豆网上搜索。
本数
已借出数
借出次数
读者表duzhe
读者编号
姓名
班级
电话号码
借阅次数
已借本数
已交罚款
借阅表jieshu
借书日期
日期/时间
还书日期
应还日期
续借
设置表shez
还书期限
整型
续借期限
最大借书数
4、主要功能模块设计
4.1.系统登陆界面设计
功能介绍:
用户选择用户名并输入密码,系统按用户名查看yonghu表,若密码正确,则按权限进入图书管理系统的主界面;
若用户密码输入不正确,则系统提示出错,要求重新输入密码否则不得进入本系统。
(注:
还定义了一个模块名为module1.bas,pubyh和quanxian都是全局变量,一个保存用户名,一个保存权限、还有hsqx、xjqx、zdjss用于保存还书期限、续借期限、最大借书数。
)
代码实现:
PrivateSubCommand1_Click()
Adodc1.RecordSource="
select*fromyonghuwhere用户名='
"
&
DataCombo1.Text&
"
'
and密码='
Text1.Text&
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
pubyh=DataCombo1.Text
quanxian=Adodc1.Recordset.Fields("
权限"
Me.Hide
MDIForm1.Show
Else
MsgBox"
密码错误,请重新输入!
vbOKOnly+vbExclamation,"
图书馆"
Text1.Text="
CallForm_Load
EndIf
EndSub
PrivateSubForm_Load()
Adodc1.ConnectionString="
Provider=Microsoft.Jet."
OLEDB.4.0;
DataSource="
App.Path&
kcsj.mdb;
PersistSecurityInfo=False"
'
数据库的连接,使用相对路径
select*fromyonghu"
Label5.Caption="
日期:
Date
EndSub
4.2图书管理系统的主界面设计
(a)界面设计:
(b)功能介绍:
主界面的功能有系统管理模块:
系统设置、用户管理、注销、退出。
数据管理模块:
借书管理、续借管理、还书管理、图书管理、读者管理。
数据查询模块:
借阅查询、图书查询、读者查询。
统计排行模块:
读者统计排行、图书统计排行。
今日盘点模块:
今日借出图书、今日归还图书、今日到期图书。
使用了菜单、工具栏和状态栏。
(c)代码实现:
PrivateSubMDIForm_Activate()
Unloadfrmlogin
Adodc1.ConnectionString="
select*fromshez"
hsqx=Adodc1.Recordset.Fields("
还书期限"
xjqx=Adodc1.Recordset.Fields("
续借期限"
zdjss=Adodc1.Recordset.Fields("
最大借书数"
string1="
当前还书期限:
hsqx&
个月 续借期限:
xjqx&
个月 最大借书数:
zdjss&
本"
SelectCasequanxian '
根据权限分配功能的使用
Case"
1"
:
beizu="
系统管理员:
menuxtsz.Enabled=True
……
2"
beizu="
操作员:
'
权限为2的是一般操作人员
menuxtsz.Enabled=False
Toolbar1.Buttons.Item
(1).Enabled=True
3"
读者:
'
权限为3的是读者
……
EndSelect
StatusBar1.Panels
(1).Text=beizu+pubyh
StatusBar1.Panels
(2).Text=string1
4.4借书管理模块
(a)界面设计
b)功能介绍
该部分完成对读者的借书管理并将借书信息写入jieshu表中,并修改duzhe表中借阅次数、已借本数两字段和tushu表中借出次数、已借本数两字段,读者借书数超过系统参数设定的最多本数的不能再借。
(c)代码实现
b=CInt(Text6.Text) ‘读者已借图书数
e=CInt(Text5.Text) ‘读者的借阅次数
c=CInt(Text17.Text) ‘图书的本数
d=CInt(Text18.Text) ‘图书已借出数
f=CInt(Text12.Text) ‘图书的借出次数
Ifzdjss-b<
=0Then
MsgBox"
你已借满图书了"
借书
ExitSub
Ifc-d<
MsgBox"
你要的图书已全部借出"
Adodc1.Recordset.Update"
已借本数"
Str(b+1)
借阅次数"
Str(e+1)
Text6.Text=Adodc1.Recordset.Fields("
Text5.Text=Adodc1.Recordset.Fields("
Adodc2.Recordset.Update"
已借出本数"
Str(d+1)
借出次数"
Str(f+1)
Text18.Text=Adodc2.Recordset.Fields("
Text12.Text=Adodc2.Recordset.Fields("
Adodc3.Recordset.AddNew
Adodc3.Recordset.Fields("
读者编号"
)=Text1.Text
图书编号"
)=Text16.Text
借书日期"
)=DTPicker1.Value
应还日期"
)=DTPicker2.Value
续借"
)="
0"
Adodc3.Recordset.Update
Adodc3.Refresh
select*fromduzhe"
……
DTPicker1.Value=Date
DTPicker2.Value=DateAdd("
m"
hsqx,DTPicker1) ‘hsqx是还书期限
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=13Then
Adodc1.Refresh
Adodc1.Recordset.Find"
读者编号='
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"
无此读者编号"
Text2.Text="
Adodc1.Refresh
ExitSub
EndIf
Text2.Text=Adodc1.Recordset.Fields("
姓名"
……
EndIf
PrivateSubText16_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=13