人机交互作业 图书的管理系统实现 091202053 刘希桐.docVIP

实验报告 课程名称： 人机交互与用户界面 实验项目： 图书管理界面的实现 专业班级： 软件工程0902班 姓 名： 刘希桐 学 号： 091202053 实验室号： 实验组号： 实验时间： 批阅时间： 指导教师： 成 绩： 沈阳工业大学报告 专业班级： 软件工程0902班 学号： 091202053 姓名： 刘希桐 实验名称：图书管理系统 1.实验目的： （1）利用数据库的基本知识； （2）利用VB可视化程序设计方法 （3）利用C++Builder或VB或VC或PB等可视化开发工具连接数据库，访问数据库，实现数据库的增删改查等操作； 2.实验内容： 通过visual basic连接access2003访问数据库，设计图书成绩管理系统，实现数据库的增加，插入，修改，查询。 3. 实验方案（程序设计说明） 具体功能如下： 实现读者的插删改功能 实现图书的插删改功能 实现图书查询功能 实现图书借出归还功能 实现借阅历史查询功能 实现不同权限用户登录功能 实现查看软件信息功能 4. 实验步骤或程序（经调试后正确的源程序） 首先，实现代码的输入，功能见右图 Option Explicit Private Sub MDIForm_Load() MDIForm1.Icon = LoadPicture(App.Path \SX.ico) End Sub Private Sub mnuAbout_Click() frmAbout.Show vbModal End Sub Private Sub mnuAddNew_Click() frmAddNew.Show vbModal End Sub Private Sub mnuAddR_Click() frmAddR.Show vbModal End Sub Private Sub mnuBookAdd_Click() frmBookAdd.Show vbModal End Sub Private Sub mnuBookB_Click() frmBookB.Show vbModal End Sub Private Sub mnuBookDelete_Click() frmBookDelete.Show vbModal End Sub Private Sub mnuBookEdit_Click() frmBookEdit.Show vbModal End Sub Private Sub mnuBookFind_Click() frmBookFind.Show End Sub Private Sub mnuBookR_Click() frmBookR.Show vbModal End Sub Private Sub mnuEditP_Click() frmEditP.Show vbModal End Sub Private Sub mnuExit_Click() End End Sub Private Sub mnuRDelete_Click() frmRDelete.Show vbModal End Sub Private Sub mnuREdit_Click() frmREdit.Show End Sub Private Sub mnuSearch_Click() frmSearch.Show End Sub 2.实现借阅查询功能 Option Explicit Private Sub cmdSearch_Click() On Error Resume Next rs1.Close rs1.CursorLocation = adUseClient If Opt1.Value = True Then rs1.Open Select * From 借阅记录 Where 读者编号 = Text1.Text , cn, adOpenKeyset, adLockOptimistic Else rs1.Open Select * From 借阅记录 Where 书号 = Text1.Text , cn, adOpenKeyset, adLockOptimistic End If Set DataGrid1.DataSource = rs1