实验报告课程名称：人机交互与用户界面实验项目：图书管理界面的实现专业班级：软件工程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...
