人机交互作业 图书管理系统的实现 091202053 刘希桐VIP免费

实验报告课程名称：人机交互与用户界面实验项目：图书管理界面的实现专业班级：软件工程0902班姓名：刘希桐学号：091202053实验室号：实验组号：实验时间：批阅时间：指导教师：成绩：沈阳工业大学报告专业班级：软件工程0902班学号：091202053姓名：刘希桐实验名称：图书管理系统1.实验目的：（1）利用数据库的基本知识；（2）利用VB可视化程序设计方法（3）利用C++Builder或VB或VC或PB等可视化开发工具连接数据库，访问数据库，实现数据库的增删改查等操作；2.实验内容：通过visualbasic连接access2003访问数据库，设计图书成绩管理系统，实现数据库的增加，插入，修改，查询。3.实验方案（程序设计说明）具体功能如下：实现读者的插删改功能实现图书的插删改功能实现图书查询功能实现图书借出归还功能实现借阅历史查询功能实现不同权限用户登录功能实现查看软件信息功能4.实验步骤或程序（经调试后正确的源程序）首先，实现代码的输入，功能见右图OptionExplicitPrivateSubMDIForm_Load()MDIForm1.Icon=LoadPicture(App.Path&"\SX.ico")EndSubPrivateSubmnuAbout_Click()frmAbout.ShowvbModalEndSubPrivateSubmnuAddNew_Click()frmAddNew.ShowvbModalEndSubPrivateSubmnuAddR_Click()frmAddR.ShowvbModalEndSubPrivateSubmnuBookAdd_Click()frmBookAdd.ShowvbModalEndSubPrivateSubmnuBookB_Click()frmBookB.ShowvbModalEndSubPrivateSubmnuBookDelete_Click()frmBookDelete.ShowvbModalEndSubPrivateSubmnuBookEdit_Click()frmBookEdit.ShowvbModalEndSubPrivateSubmnuBookFind_Click()frmBookFind.ShowEndSubPrivateSubmnuBookR_Click()frmBookR.ShowvbModalEndSubPrivateSubmnuEditP_Click()frmEditP.ShowvbModalEndSubPrivateSubmnuExit_Click()EndEndSubPrivateSubmnuRDelete_Click()frmRDelete.ShowvbModalEndSubPrivateSubmnuREdit_Click()frmREdit.ShowEndSubPrivateSubmnuSearch_Click()frmSearch.ShowEndSub2.实现借阅查询功能OptionExplicitPrivateSubcmdSearch_Click()OnErrorResumeNextrs1.Closers1.CursorLocation=adUseClientIfOpt1.Value=TrueThenrs1.Open"Select*From借阅记录Where读者编号='"&Text1.Text&"'",cn,adOpenKeyset,adLockOptimisticElsers1.Open"Select*From借阅记录Where书号='"&Text1.Text&"'",cn,adOpenKeyset,adLockOptimisticEndIfSetDataGrid1.DataSource=rs1EndSubPrivateSubForm_Load()cn.Open"Provider=Microsoft.Jet.oledb.4.0;DataSource="&App.Path&"\Library.mdb"Icon=LoadPicture(App.Path&"\SX.ico")EndSubPrivateSubForm_Unload(CancelAsInteger)cn.CloseEndSub3.实现读者编辑功能OptionExplicitPrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdEdit_Click()Iftxt(0).Text=""Ortxt(1).Text=""Ortxt(2).Text=""Ortxt(3).Text=""ThenMsgBox"请选择需要修改的读者数据行！",vbCritical,"警告"ExitSubElseIfrs1.Fields(0)<>txt(0).TextThenMsgBox"请单击行标选择需要修改的读者数据行！",vbCritical,"警告"ExitSubElseIfMsgBox("确认要修改么？",vbYesNo,"提示")=vbYesThenDimiAsIntegerFori=0To3rs1.Fields(i)=txt(i).TextNextirs1.UpdateBatchadAffectCurrentMsgBox"修改成功",,"提示"EndIfEndIfEndIfEndSubPrivateSubDataGrid1_Click()DimiAsIntegerFori=0To3txt(i)=rs1.Fields(i)NextiEndSubPrivateSubForm_Load()txt(0).Enabled=Falsecn.Open"Provider=Microsoft.Jet.oledb.4.0;DataSource="&App.Path&"\Library.mdb"rs1.CursorLocation=adUseClientrs1.Open"读者库",cn,adOpenKeyset,adLockOptimisticSetDataGrid1.DataSource=rs1Icon=LoadPicture(App.Path&"\SX.ico")EndSubPrivateSubForm_Unload(CancelAsInteger)rs1.Closecn.CloseEndSub4.实现读者删除OptionExplicitPrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdEdit_Click()Iftxt(0).Text=""Ortxt(1).Text=""Ortxt(2).Text=""Ortxt(3).Text=""ThenMsgBox"请单击行标选择需要修改的读者行！",vbCritical,"警告"ExitSubElseIfrs1.Fields(0...