人机交互作业 图书管理系统的实现 09153 刘希桐.docx
《人机交互作业 图书管理系统的实现 09153 刘希桐.docx》由会员分享，可在线阅读，更多相关《人机交互作业 图书管理系统的实现 09153 刘希桐.docx（30页珍藏版）》请在冰豆网上搜索。
人机交互作业图书管理系统的实现09153刘希桐
实验报告
课程名称：
人机交互与用户界面
实验项目：
图书管理界面的实现
专业班级：
软件工程0902班
姓名：
刘希桐学号：
091202053
实验室号：
实验组号：
实验时间：
批阅时间:
指导教师:
成绩：
沈阳工业大学报告
专业班级：
软件工程0902班学号:
091202053姓名：
刘希桐
实验名称：
图书管理系统
1。
实验目的：
（1）利用数据库的基本知识；
（2）利用VB可视化程序设计方法
（3）利用C++Builder或VB或VC或PB等可视化开发工具连接数据库，访问数据库，实现数据库的增删改查等操作;
2.实验内容：
通过visualbasic连接access2003访问数据库,设计图书成绩管理系统,实现数据库的增加，插入,修改，查询。
3。
实验方案（程序设计说明）
具体功能如下:
●实现读者的插删改功能
●实现图书的插删改功能
●实现图书查询功能
●实现图书借出归还功能
●实现借阅历史查询功能
●实现不同权限用户登录功能
●实现查看软件信息功能
4.实验步骤或程序（经调试后正确的源程序）
首先，实现代码的输入，功能见右图
OptionExplicit
PrivateSubMDIForm_Load（）
MDIForm1。
Icon=LoadPicture（App。
Path＆”\SX。
ico"）
EndSub
PrivateSubmnuAbout_Click（）
frmAbout。
ShowvbModal
EndSub
PrivateSubmnuAddNew_Click（）
frmAddNew。
ShowvbModal
EndSub
PrivateSubmnuAddR_Click（）
frmAddR。
ShowvbModal
EndSub
PrivateSubmnuBookAdd_Click（）
frmBookAdd。
ShowvbModal
EndSub
PrivateSubmnuBookB_Click（）
frmBookB.ShowvbModal
EndSub
PrivateSubmnuBookDelete_Click（）
frmBookDelete.ShowvbModal
EndSub
PrivateSubmnuBookEdit_Click（）
frmBookEdit。
ShowvbModal
EndSub
PrivateSubmnuBookFind_Click（）
frmBookFind.Show
EndSub
PrivateSubmnuBookR_Click（）
frmBookR。
ShowvbModal
EndSub
PrivateSubmnuEditP_Click（）
frmEditP。
ShowvbModal
EndSub
PrivateSubmnuExit_Click（）
End
EndSub
PrivateSubmnuRDelete_Click（）
frmRDelete。
ShowvbModal
EndSub
PrivateSubmnuREdit_Click（）
frmREdit。
Show
EndSub
PrivateSubmnuSearch_Click（）
frmSearch。
Show
EndSub
2.实现借阅查询功能
OptionExplicit
PrivateSubcmdSearch_Click（）
OnErrorResumeNext
rs1.Close
rs1.CursorLocation=adUseClient
IfOpt1.Value=TrueThen
rs1.Open"Select*From借阅记录Where读者编号='”&Text1。
Text&”’",cn,adOpenKeyset，adLockOptimistic
Else
rs1。
Open"Select＊From借阅记录Where书号=’”&Text1。
Text＆”’”，cn，adOpenKeyset,adLockOptimistic
EndIf
SetDataGrid1。
DataSource=rs1
EndSub
PrivateSubForm_Load（）
cn.Open"Provider=Microsoft。
Jet.oledb.4。
0;DataSource="＆App.Path＆”\Library.mdb"
Icon=LoadPicture（App。
Path＆"\SX。
ico”）
EndSub
PrivateSubForm_Unload（CancelAsInteger）
cn.Close
EndSub
3.实现读者编辑功能
OptionExplicit
PrivateSubcmdCancel_Click（）
UnloadMe
EndSub
PrivateSubcmdEdit_Click（）
Iftxt（0）.Text=””Ortxt
（1）。
Text=”"Ortxt
（2）。
Text="”Ortxt（3）。
Text=””Then
MsgBox"请选择需要修改的读者数据行！
"，vbCritical,"警告"
ExitSub
Else
Ifrs1。
Fields（0）〈〉txt（0）。
TextThen
MsgBox"请单击行标选择需要修改的读者数据行！
”，vbCritical,"警告”
ExitSub
Else
IfMsgBox（”确认要修改么？
"，vbYesNo,”提示”）=vbYesThen
DimiAsInteger
Fori=0To3
rs1.Fields（i）=txt（i）.Text
Nexti
rs1.UpdateBatchadAffectCurrent
MsgBox”修改成功",，”提示”
EndIf
EndIf
EndIf
EndSub
PrivateSubDataGrid1_Click（）
DimiAsInteger
Fori=0To3
txt（i）=rs1。
Fields（i）
Nexti
EndSub
PrivateSubForm_Load（）
txt（0）.Enabled=False
cn。
Open”Provider=Microsoft。
Jet.oledb。
4。
0；DataSource=”＆App.Path＆"\Library.mdb"
rs1。
CursorLocation=adUseClient
rs1.Open"读者库”,cn，adOpenKeyset,adLockOptimistic
SetDataGrid1。
DataSource=rs1
Icon=LoadPicture（App.Path&"\SX。
ico”）
EndSub
PrivateSubForm_Unload（CancelAsInteger）
rs1。
Close
cn。
Close
EndSub
4。
实现读者删除
OptionExplicit
PrivateSubcmdCancel_Click（）
UnloadMe
EndSub
PrivateSubcmdEdit_Click（）
Iftxt（0）.Text=”"Ortxt
（1）.Text=”"Ortxt
（2）.Text=””Ortxt（3）。
Text=””Then
MsgBox”请单击行标选择需要修改的读者行！
",vbCritical，”警告"
ExitSub
Else
Ifrs1。
Fields（0）〈>txt（0）。
TextThen
MsgBox”请单击行标选择需要修改的读者数据行!
",vbCritical,”警告”
ExitSub
Else
IfMsgBox（"确认删除读者么？
”,vbYesNo,"提示”）=vbYesThen
rs1.DeleteadAffectCurrent
'rs1。
UpdateBatchadAffectCurrent
rs1.MoveLast
DimiAsInteger
Fori=0To3
txt（i）=””
Nexti
EndIf
MsgBox”删除成功!
”，，"提示”
EndIf
EndIf
EndSub
PrivateSubDataGrid1_Click（）
DimiAsInteger
Fori=0To3
txt（i）=rs1。
Fields（i）
Nexti
EndSub
PrivateSubForm_Load（）
txt（0）。
Enabled=False
cn。
Open”Provider=Microsoft.Jet。
oledb.4.0;DataSource="&App。
Path&"\Library.mdb"
rs1。
CursorLocation=adUseClient
rs1。
Open”读者库"，cn，adOpenKeyset，adLockOptimistic
SetDataGrid1.DataSource=rs1
Icon=LoadPicture（App.Path＆"\SX.ico”）
EndSub
PrivateSubForm_Unload（CancelAsInteger）
rs1.Close
cn。
Close
EndSub
5。
实现界面登录功能
OptionExplicit
DimstrAAsString
DimintAAsInteger
DimintCountAsInteger
DimintTimerAsInteger
PrivateSubcmdCancel_Click（）
End
EndSub
PrivateSubcmdOk_Click（）
IfText1。
Text="”OrText2.Text=”"Then
MsgBox"请输入完整的用户名及密码！
",vbCritical,”警告"
Else
rs1.Open”Select*From系统设置Where用户名=’”＆Text1.Text&"'",cn,adOpenKeyset，adLockOptimistic
strA=rs1。
Fields
（1）
intA=rs1。
RecordCount
rs1.Close
IfintA=0Then
MsgBox”无此用户！
”,vbCritical，”警告”
ExitSub
Else
IfText2.Text=strAThen
MDIForm1。
Show
rs1。
Open"Select权限From系统设置Where用户名=’"＆Text1。
Text&"’",cn,adOpenKeyset，adLockOptimistic
Ifrs1.Fields（0）="Guest”Then
BlnQX=False
CallQX
EndIf
rs1。
Close
UnloadMe
Else
MsgBox"密码错误！
”，vbCritical,"提示"
intCount=intCount+1
IfintCount=3Then
MsgBox”密码错误登录次数超过限制次数！
"，vbCritical,"警告”
End
EndIf
ExitSub
EndIf
EndIf
EndIf
EndSub
PrivateSubForm_Load（）
intCount=0
intTimer=1
Label3。
Caption=Date＆””&Time（）
cn.Open"Provider=Microsoft.Jet.oledb.4。
0;DataSource="&App。
Path&”\Library.mdb”
Icon=LoadPicture（App。
Path＆"\SX。
ico"）
EndSub
PrivateSubForm_Unload（CancelAsInteger）
cn.Close
EndSub
PrivateSubTimer1_Timer（）
Label3。
Caption=Date&””＆Time（）
IfintTimer=1Then
Label3.Left=Label3。
Left—20
IfLabel3。
Left〈0ThenintTimer=2
EndIf
IfintTimer=2Then
Label3。
Left=Label3。
Left+20
IfLabel3.Left〉2500ThenintTimer=1
EndIf
EndSub
7。
实现修改密码功能
OptionExplicit
DimrsAsNewADODB。
Recordset
PrivateSubcmdNo_Click（）
UnloadMe
EndSub
PrivateSubcmdOk_Click（）
Iftxt（0）.Text="”Ortxt
（1）。
Text=""Ortxt
（2）.Text=""Then
MsgBox”请输入完整的信息！
",vbCritical,”警告”
Else
rs.Open”Select密码From系统设置Where用户名='”＆txt（0）。
Text&”'"，cn，adOpenKeyset,adLockOptimistic
Iftxt
（1）.Text〈〉rs.Fields（0）Then
MsgBox”用户名或原密码错误!
"，vbCritical，”警告”
rs。
Close
ExitSub
Else
rs。
Fields（0）=txt
（2）。
Text
rs.Update
rs.Close
MsgBox”密码修改成功！
"，，”恭喜"
EndIf
EndIf
EndSub
PrivateSubForm_Load（）
cn.Open"Provider=Microsoft.Jet。
oledb。
4.0；DataSource=”＆App。
Path&”\Library.mdb”
Icon=LoadPicture（App。
Path＆”\SX。
ico"）
EndSub
PrivateSubForm_Unload（CancelAsInteger）
cn.Close
EndSub
8。
实现图书归还功能
OptionExplicit
PrivateSubcmdCancel_Click（）
UnloadMe
EndSub
PrivateSubcmdR_Click（）
rs4。
Open"Select＊From书库Where书号='"＆Text1.Text&”’”，cn，adOpenKeyset，adLockOptimistic
Ifrs4.Fields（6）="No"Then
rs4.Close
IfText1。
Text="”OrText2.Text=””OrText3.Text=""Then
MsgBox”请输入完整的数据!
",vbCritical,”警告"
Else
rs2.Open”Select＊From借阅记录Where书号='”＆Text1。
Text&”'And读者编号='”＆Val（Text2。
Text）＆”'"，cn,adOpenKeyset，adLockOptimistic
rs2。
Fields（4）=Text3.Text
rs2.UpdateBatchadAffectCurrent
rs2.Close
rs4.Open”Select*From书库Where书号='”&Text1。
Text&”'"，cn,adOpenKeyset,adLockOptimistic
rs4。
Fields（6）=”Yes"
rs4。
UpdateBatchadAffectCurrent
rs4.Close
MsgBox"已经办理好归还手续！
"，，”提示”
EndIf
Else
MsgBox"该书已在库！
"，vbCritical,"提示”
rs4。
Close
EndIf
EndSub
PrivateSubForm_Load（）
cn。
Open”Provider=Microsoft.Jet.oledb。
4.0；DataSource=”＆App.Path＆”\Library.mdb"
Text3。
Text=Date
Text3。
Enabled=False
Icon=LoadPicture（App。
Path＆"\SX.ico”）
EndSub
PrivateSubForm_Unload（CancelAsInteger）
cn.Close
EndSub
9。
实现图书查询功能
OptionExplicit
PrivateSubcmdSearch_Click（）
OnErrorResumeNext
rs1.Close
rs1.CursorLocation=adUseClient
rs1。
Open”Select＊From书库Where"＆Combo1。
Text&”='”&txt_Search.Text＆”'”,cn,adOpenKeyset，adLockOptimistic
SetDataGrid1.DataSource=rs1
Ifrs1。
RecordCount=0ThenMsgBox”查无此书”
EndSub
PrivateSubForm_Load（）
cn.Open"Provider=Microsoft.Jet。
oledb。
4.0；DataSource=”&App。
Path&"\Library.mdb”
Combo1.AddItem”书号"
Combo1.AddItem"书名”
Combo1。
AddItem"作者”
Combo1.AddItem”出版社"
Combo1.AddItem”类别”
Icon=LoadPicture（App.Path&”\SX.ico”）
EndSub
PrivateSubForm_Unload（CancelAsInteger）
cn.Close
EndSub
10。
实现图书编辑功能
OptionExplicit
PrivateSubcmdCancel_Click（）
UnloadMe
EndSub
PrivateSubcmdEdit_Click（）
Iftxt（0）。
Text=”"Ortxt
（1）=””Ortxt
（2）=""Ortxt（3）="”Ortxt（4）=””OrCombo1。
Text="”Then
MsgBox"请单击行标选择需要修改的图书行”,vbCritical,"提示"
ExitSub
Else
Iftxt（0）<>rs1.Fields（0）Then
MsgBox"请单击行标选择需要修改的图书行",vbCritical,”提示"
Else
IfMsgBox（”确认要修改么?
”，vbYesNo，"提示"）=vbYesThen
DimiAsInteger
Fori=0To4
rs1。
Fields（i）=txt（i）.Text
Nexti
rs1。
Fields（5）=Combo1.Text
rs1.UpdateBatchadAffectCurrent
MsgBox”修改成功"，，”提示”
EndIf
EndIf
EndIf
EndSub
PrivateSubDataGrid1_Click（）
DimiAsInteger
Fori=0To4
txt（i）。
Text=rs1。
Fields（i）
Nexti
Combo1.Text=rs1.Fields（5）
EndSub
PrivateSubForm_Load（）
cn.Open”Provider=Microsoft。
Jet.oledb.4.0；DataSource=”&App。
Path＆"\Library.mdb”
rs1.CursorLocation=adUseClient
rs1.Open"书库"，cn,adOpenKeyset,adLockOptimistic
SetDataGrid1。
DataSource=rs1
txt（0）。
Enabled=False
Icon=LoadPicture（App.Path&”\SX.ico”）
EndSub
PrivateSubForm_Unload（CancelAsInteger）
rs1.Close
cn.Close
EndSub
11.实现图书删除功能
OptionExplicit
PrivateSubcmdCancel_Click（）
UnloadMe
EndSub
PrivateSubcmdDelete_Click（）
Iftxt（0）.Text="”Ortxt
（1）="”Ortxt
（2）="”Ortxt（3）=”"Ortxt（4）="”OrCombo1。
Text=”"Then
MsgBox"请单击行标选择需要修改的图书行”，vbCritical，”提示”
ExitSub
Else
Iftxt（0）<〉rs1。
Fields（0）Then
MsgBox”请单击行
升级会员 