人机交互作业 图书管理系统的实现 09153 刘希桐.docx
- 文档编号:9857987
- 上传时间:2023-02-07
- 格式:DOCX
- 页数:30
- 大小:189.77KB
人机交互作业 图书管理系统的实现 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”请单击行
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 人机交互作业 图书管理系统的实现 09153 刘希桐 人机交互 作业 图书 管理 系统 实现
![提示](https://static.bdocx.com/images/bang_tan.gif)