图书馆管理系统示范.docx
- 文档编号:10959730
- 上传时间:2023-05-28
- 格式:DOCX
- 页数:58
- 大小:968.03KB
图书馆管理系统示范.docx
《图书馆管理系统示范.docx》由会员分享,可在线阅读,更多相关《图书馆管理系统示范.docx(58页珍藏版)》请在冰点文库上搜索。
图书馆管理系统示范
宿舍图书馆管理系统
本系统采用SQLServer2000作后台数据库,VisualBasic6.0作前台界面。
一、系统需求分析
1、需求分析
2、概念模型设计
3、逻辑结构设计
二、系统设计(系统总体设计,数据库设计)
1、系统界面及代码设计
(1)工程的结构
该图书馆系统由19个窗体,1个标准模块(Module1.Bas)和1个设计器组成,如图所示:
(2)模块程序(Module1)
模块的代码如下:
OptionExplicit
PubliccnnAsADODB.Connection'定义连接数据库对象
PubliccmdAsADODB.Command
Publiccmd1AsADODB.Command'定义执行sql语句对象
PublicrstAsNewADODB.Recordset'定义打开表对象
Publicrst1AsNewADODB.Recordset
Publicrst2AsNewADODB.Recordset
PubliccntAsInteger'定义用户登录次数值
(3)连接数据库(Form1)
①“连接数据库”窗体的设计界面如下图:
②窗体中各控件的属性设置。
其caption属性与文本框的text属性如表:
“连接数据库”窗体控件属性
Name属性
其他属性
Label1(0)
Caption=”服务器”
Label1
(1)
Caption=”数据库”
Command1
Caption=”连接”
Command2
Caption=”返回”
Form1
Caption=”连接数据库”
Text1
Text2
③“连接数据库”窗体的代码如下:
PrivateSubCommand1_Click()
IfText1.Text=""Then
MsgBox"没有填写服务器",vbOKOnly+vbExclamation,""
Text1.SetFocus
ElseIfText2.Text=""Then
MsgBox"没有填写数据库",vbOKOnly+vbExclamation,""
Text2.SetFocus
Else
cnn="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog='"&Text2.Text&"';DataSource='"&Text1.Text&"'"
cnn.Opencnn
UnloadMe
login.Show
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Setcnn=NewADODB.Connection
EndSub
(4)登录(login)
①“登录”窗体的设计界面如下图:
②窗体中各控件的属性设置。
其caption属性与文本框的text属性如表:
Name属性
其他属性
Label1(0)
Caption=”用户名”
Label1
(1)
Caption=”密码”
Command1
Caption=”确定”
Command2
Caption=”返回”
login
Caption=”连接数据库”
Text1
Text2
Passwordchar=”*”
③“登录”窗体的代码如下:
PrivateSubCommand1_Click()
IfText1.Text=""Then'判断输入的用户名是否为空
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
Else
Ifrst.State=1Then
rst.Close
EndIf
rst.Open"select*from用户where用户名='"&Text1.Text&"'",cnn,adOpenKeyset,adLockPessimistic
Ifrst.EOF=TrueThen
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
rst.Close
Text1.Text=""
Text1.SetFocus
Else'检验密码是否正确
IfTrim(rst.Fields("密码").Value)=Trim(Text2.Text)Then
rst.Close
UnloadMe
menu.Show
Else
MsgBox"密码不正确",vbOKOnly+vbExclamation,""
rst.Close
Text2.Text=""
Text2.SetFocus
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
ExitSub
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Setcmd=NewADODB.Command
cmd.ActiveConnection=cnn
cmd.CommandType=adCmdText
Setcmd1=NewADODB.Command
cmd1.ActiveConnection=cnn
cmd1.CommandType=adCmdText
cnt=0
EndSub
(5)图书馆系统(menu)
①“图书馆系统”窗体的设计界面如下图:
②根据图书管理系统的功能,主窗体上设计有“用户系统”,“读者管理系统”,“图书管理系统”,“借阅管理系统”及“登录退出系统”共5个主菜单,主菜单中又包含菜单项和子菜单项,各级菜单的菜单级别及属性如下表:
标题
名称
用户系统
yh
增加用户
addyh
修改口令
xgyh
删除用户
deyh
读者管理系统
dzgl
增加读者信息
adddz
修改读者信息
xgdz
删除读者信息
dedz
查找读者信息
Indz
图书管理系统
tsgl
增加图书
addts
修改图书
xgts
删除图书
dets
查询图书
cxts
借阅管理系统
jy
借书
zs
还书
hs
借阅情况
zqk
登陆退出系统
退出
切换用户
等
完全退出
完全
③“图书馆系统”窗体的代码如下:
PrivateSubadddz_Click()
UnloadMe
addread.Show
EndSub
PrivateSubaddts_Click()
UnloadMe
addbooks.Show
EndSub
PrivateSubaddyh_Click()
UnloadMe
addlogin.Show
EndSub
PrivateSubcxts_Click()
UnloadMe
searchbook.Show
EndSub
PrivateSubdedz_Click()
UnloadMe
deleteread.Show
EndSub
PrivateSubdets_Click()
UnloadMe
deletebook.Show
EndSub
PrivateSubdeyh_Click()
UnloadMe
deletelogin.Show
EndSub
PrivateSubhs_Click()
UnloadMe
backbook.Show
EndSub
PrivateSubindz_Click()
UnloadMe
searchread.Show
EndSub
PrivateSubxgdz_Click()
UnloadMe
insertread.Show
EndSub
PrivateSubxgts_Click()
UnloadMe
insertbook.Show
EndSub
PrivateSubxgyh_Click()
UnloadMe
insertlogin.Show
EndSub
PrivateSubzqk_Click()
UnloadMe
searchborrow.Show
EndSub
PrivateSubzs_Click()
UnloadMe
borrowbook.Show
EndSub
PrivateSub等_Click()
UnloadMe
login.Show
EndSub
PrivateSub完全_Click()
UnloadMe
EndSub
(6)增加用户(addlogin)
①“增加用户”窗体的设计界面如下图:
②窗体中各控件的属性设置。
其caption属性与文本框的text属性如表:
Name属性
其他属性
Label1(0)
Caption=”用户名”
Label1
(1)
Caption=”密码”
Label1
(2)
Caption=”密码确认”
Command1
Caption=”确定”
Command2
Caption=”退出”
addlogin
Caption=”增加用户”
Text1
Text2
Passwordchar=”*”
Text3
Passwordchar=”*”
③“增加用户”窗体的代码如下:
PrivateSubCommand1_Click()
IfText1.Text=""Then
MsgBox"没有填写用户名!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
ElseIfText2.Text=""Then
MsgBox"没有填写密码!
",vbOKOnly+vbExclamation,""
Text2.SetFocus
ElseIfText3.Text=""Then
MsgBox"没有填写确定密码!
",vbOKOnly+vbExclamation,""
Text3.SetFocus
ElseIfText2.Text=Text3.TextThen
cmd.CommandText="insertinto用户(用户名,密码)values('"&Text1.Text&"','"&Text2.Text&"')"
MsgBox"添加用户信息成功!
",vbOKOnly,""
cmd.Execute
Else
MsgBox"添加用户信息失败!
",vbOKOnly+vbExclamation,""
Text2.SetFocus
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
menu.Show
EndSub
(7)修改用户(insertlogin)
①“修改用户”窗体的设计界面如下图:
②窗体中各控件的属性设置。
其caption属性与文本框的text属性如表:
Name属性
其他属性
Label1(0)
Caption=”用户名”
Label1
(1)
Caption=”原密码”
Label1
(2)
Caption=”新密码”
Label1(3)
Caption=”密码确认”
Command1
Caption=”确定”
Command2
Caption=”返回”
insertlogin
Caption=”修改用户”
Text1
Text2
Passwordchar=”*”
Text3
Passwordchar=”*”
Text4
Passwordchar=”*”
③“修改用户”窗体的代码如下:
PrivateSubCommand1_Click()
DimrstAsNewADODB.Recordset
Ifrst.State=1Then
rst.Close
EndIf
IfText3.Text=""Then
MsgBox"没有填写新密码!
",vbOKOnly+vbExclamation,""
Text3.SetFocus
ElseIfText4.Text=""Then
MsgBox"没有填写新确定密码!
",vbOKOnly+vbExclamation,""
Text4.SetFocus
Else
rst.Open"select*from用户where用户名='"&Text1.Text&"'",cnn,adOpenKeyset,adLockPessimistic
Ifrst.EOF=TrueThen
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
Else'检验密码是否正确
IfTrim(rst.Fields("密码").Value)=Trim(Text2.Text)Then
IfText3.Text=Text4.TextThen
rst.Close
cmd.CommandText="update用户set密码='"&Text3.Text&"'where用户名='"&Text1.Text&"'and密码='"&Text2.Text&"'"
cmd.Execute
MsgBox"修改成功!
",vbOKOnly,""
Else
MsgBox"用户新密码不正确!
",vbOKOnly+vbExclamation,""
Text3.Text=""
Text4.Text=""
Text3.SetFocus
EndIf
Else
MsgBox"用户密码不正确!
",vbOKOnly+vbExclamation,""
Text2.Text=""
Text2.SetFocus
EndIf
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
menu.Show
EndSub
(8)删除用户(deletelogin)
①“删除用户”窗体的设计界面如下图:
②窗体中各控件的属性设置。
其caption属性与文本框的text属性如表:
Name属性
其他属性
Label1(0)
Caption=”用户名”
Label1
(1)
Caption=”密码”
Command1
Caption=”确定”
Command2
Caption=”返回”
deletelogin
Caption=”删除用户”
Text1
Text2
Passwordchar=”*”
③“删除用户”窗体的代码如下:
PrivateSubCommand1_Click()
DimrstAsNewADODB.Recordset
Ifrst.State=1Then
rst.Close
EndIf
IfText1.Text=""Then
MsgBox"没有填写用户名!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
ElseIfText2.Text=""Then
MsgBox"没有填写密码!
",vbOKOnly+vbExclamation,""
Text2.SetFocus
ElseIfText1.Text<>""AndText2.Text<>""Then
rst.Open"select*from用户where用户名='"&Text1.Text&"'",cnn,adOpenKeyset,adLockPessimistic
Ifrst.EOF=TrueThen
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
rst.Close
Text1.Text=""
Text1.SetFocus
Else'检验密码是否正确
IfTrim(rst.Fields("密码").Value)=Trim(Text2.Text)Then
rst.Close
cmd.CommandText="deletefrom用户where用户名='"&Text1.Text&"'"
Dimstr2AsVbMsgBoxResult
str2=MsgBox("确定要删除?
",vbYesNo+vbInformation,"")
Ifstr2=vbYesThen
cmd.Execute
MsgBox"删除成功!
",vbOKOnly,""
UnloadMe
menu.Show
EndIf
Else
MsgBox"要删除的用户密码不正确!
",vbOKOnly+vbExclamation,""
Text2.Text=""
Text2.SetFocus
EndIf
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
Ifrst.State=1Then
rst.Close
EndIf
UnloadMe
menu.Show
EndSub
(9)增加读者信息(addread)
①“增加读者信息”窗体的设计界面如下图:
②窗体中各控件的属性设置。
其caption属性与文本框的text属性如表:
Name属性
其他属性
Label1(0)
Caption=”读者编号”
Label1
(1)
Caption=”读者名称”
Label1
(2)
Caption=”性别”
Label1(3)
Caption=”读者类别”
Label1(4)
Caption=”工作单位”
Label1(5)
Caption=”家庭住址”
Label1(6)
Caption=”联系电话”
Command1
Caption=”确定”
Command2
Caption=”退出”
addread
Caption=”增加读者信息”
Text1
Text2
Text3
Text4
Text5
Frame1
Caption=”输入要增加的读者信息”
③“增加读者信息”窗体的代码如下:
PrivateSubCommand2_Click()
Ifrst.State=1Then
rst.Close
EndIf
IfText1.Text=""Then
MsgBox"没有填写读者编号!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Else
rst.Open"select*from读者基本信息where读者编号='"&Text1.Text&"'",cnn,adOpenKeyset,adLockPessimistic
IfNotrst.EOF=TrueThen
MsgBox"读者编号已存在!
",vbOKOnly+vbExclamation,""
Text1.Text=""
Text1.SetFocus
Else
rst.Close
cmd.CommandText="insertinto读者基本信息(读者编号,读者名称,性别,读者类别,工作单位,家庭住址,联系电话)values('"&Text1.Text&"','"&Text2.Text&"','"&Combo1.Text&"','"&Combo2.Text&"','"&Text3.Text&"','"&Text4.Text&"','"&Text5.Text&"')"
MsgBox"添加读者基本信息信息成功!
",vbOKOnly,""
cmd.Execute
UnloadMe
menu.Show
EndIf
EndIf
EndSub
PrivateSubCommand3_Click()
UnloadMe
menu.Show
EndSub
PrivateSubForm_Load()
Combo2.AddItem"老师"
Combo2.AddItem"学生"
Combo2.AddItem"其他"
Combo1.AddItem"男"
Combo1.AddItem"女"
EndSub
(10)修改读者信息
①“修改读者信息”窗体的设计界面如下图:
②窗体中各控件的属性设置。
其caption属性与文本框的text属性如表:
Name属性
其他属性
Label1(0)
Caption=”读者编号”
Label1
(1)
Caption=”读者名称”
Label1
(2)
Caption=”性别”
Label1(3)
Caption=”读者类别”
Label1(4)
Caption=”工作单位”
Label1(5)
Caption=”家庭住址”
Label1(6)
Caption=”联系电话”
Command1
Caption=”确定”
Command2
Caption=”修改”
Command3
Caption=”返回”
addread
Caption=”修改读者信息”
Text1
Text2
Text3
Text4
Text5
Frame1
③“修改读者信息”窗体的代码如下:
IfText1.Text=""Then
MsgBox"没有填写读者编号!
",vbOKOnly+vbExclamation,""
Else
IfText2.Text<>""Then
cmd.CommandText="update读者基本信息set读者名称='"&Text2.Text&"'where读者编号='"&Text1.Text&"'"
cmd.Execute
EndIf
IfCombo1.Text<>""Then
cmd.CommandText="update读者基本信息
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图书馆 管理 系统 示范