《人机交互作业 图书管理系统的实现 091202053 刘希桐.doc》由会员分享，可在线阅读，更多相关《人机交互作业 图书管理系统的实现 091202053 刘希桐.doc（18页珍藏版）》请在金锄头文库上搜索。
1、实验报告课程名称： 人机交互与用户界面 实验项目： 图书管理界面的实现 专业班级： 软件工程0902班 姓 名： 刘希桐 学 号： 091202053 实验室号： 实验组号： 实验时间： 批阅时间： 指导教师： 成 绩： 沈阳工业大学报告专业班级： 软件工程0902班 学号： 091202053 姓名： 刘希桐 实验名称：图书管理系统1.实验目的：（1）利用数据库的基本知识；（2）利用VB可视化程序设计方法（3）利用C+Builder或VB或VC或PB等可视化开发工具连接数据库，访问数据库，实现数据库的增删改查等操作；2.实验内容：通过visual basic连接access2003访问数据库
2、，设计图书成绩管理系统，实现数据库的增加，插入，修改，查询。3. 实验方案（程序设计说明）具体功能如下：l 实现读者的插删改功能l 实现图书的插删改功能l 实现图书查询功能l 实现图书借出归还功能l 实现借阅历史查询功能l 实现不同权限用户登录功能l 实现查看软件信息功能4. 实验步骤或程序（经调试后正确的源程序）首先，实现代码的输入，功能见右图Option ExplicitPrivate Sub MDIForm_Load() MDIForm1.Icon = LoadPicture(App.Path & SX.ico)End SubPrivate Sub mnuAbout_Click() fr
3、mAbout.Show vbModalEnd SubPrivate Sub mnuAddNew_Click() frmAddNew.Show vbModalEnd SubPrivate Sub mnuAddR_Click() frmAddR.Show vbModalEnd SubPrivate Sub mnuBookAdd_Click() frmBookAdd.Show vbModalEnd SubPrivate Sub mnuBookB_Click() frmBookB.Show vbModalEnd SubPrivate Sub mnuBookDelete_Click() frmBookD
4、elete.Show vbModalEnd SubPrivate Sub mnuBookEdit_Click() frmBookEdit.Show vbModalEnd SubPrivate Sub mnuBookFind_Click() frmBookFind.ShowEnd SubPrivate Sub mnuBookR_Click() frmBookR.Show vbModalEnd SubPrivate Sub mnuEditP_Click() frmEditP.Show vbModalEnd SubPrivate Sub mnuExit_Click() EndEnd SubPriva
5、te Sub mnuRDelete_Click() frmRDelete.Show vbModalEnd SubPrivate Sub mnuREdit_Click() frmREdit.ShowEnd SubPrivate Sub mnuSearch_Click() frmSearch.ShowEnd Sub2.实现借阅查询功能Option ExplicitPrivate Sub cmdSearch_Click() On Error Resume Next rs1.Close rs1.CursorLocation = adUseClient If Opt1.Value = True Then
6、 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 = rs1End SubPrivate Sub Form_Load() cn.Open Provider=Microsoft.Jet.oledb.4.0;D
7、ata Source= & App.Path & Library.mdb Icon = LoadPicture(App.Path & SX.ico)End SubPrivate Sub Form_Unload(Cancel As Integer) cn.CloseEnd Sub3.实现读者编辑功能Option ExplicitPrivate Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdEdit_Click() If txt(0).Text = Or txt(1).Text = Or txt(2).Text = Or txt(3).Te
8、xt = Then MsgBox 请选择需要修改的读者数据行！, vbCritical, 警告 Exit Sub Else If rs1.Fields(0) txt(0).Text Then MsgBox 请单击行标选择需要修改的读者数据行！, vbCritical, 警告 Exit Sub Else If MsgBox(确认要修改么？, vbYesNo, 提示) = vbYes Then Dim i As Integer For i = 0 To 3 rs1.Fields(i) = txt(i).Text Next i rs1.UpdateBatch adAffectCurrent MsgB
9、ox 修改成功, , 提示 End If End If End IfEnd SubPrivate Sub DataGrid1_Click() Dim i As Integer For i = 0 To 3 txt(i) = rs1.Fields(i) Next iEnd SubPrivate Sub Form_Load() txt(0).Enabled = False cn.Open Provider=Microsoft.Jet.oledb.4.0;Data Source= & App.Path & Library.mdb rs1.CursorLocation = adUseClient rs
10、1.Open 读者库, cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 Icon = LoadPicture(App.Path & SX.ico)End SubPrivate Sub Form_Unload(Cancel As Integer) rs1.Close cn.CloseEnd Sub4.实现读者删除Option ExplicitPrivate Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdEdit_Click() If txt(0).Text
11、 = Or txt(1).Text = Or txt(2).Text = Or txt(3).Text = Then MsgBox 请单击行标选择需要修改的读者行！, vbCritical, 警告 Exit Sub Else If rs1.Fields(0) txt(0).Text Then MsgBox 请单击行标选择需要修改的读者数据行！, vbCritical, 警告 Exit Sub Else If MsgBox(确认删除读者么？, vbYesNo, 提示) = vbYes Then rs1.Delete adAffectCurrent rs1.UpdateBatch adAffect
12、Current rs1.MoveLast Dim i As Integer For i = 0 To 3 txt(i) = Next i End If MsgBox 删除成功！, , 提示 End IfEnd IfEnd SubPrivate Sub DataGrid1_Click() Dim i As Integer For i = 0 To 3 txt(i) = rs1.Fields(i) Next iEnd SubPrivate Sub Form_Load() txt(0).Enabled = False cn.Open Provider=Microsoft.Jet.oledb.4.0;
13、Data Source= & App.Path & Library.mdb rs1.CursorLocation = adUseClient rs1.Open 读者库, cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 Icon = LoadPicture(App.Path & SX.ico)End SubPrivate Sub Form_Unload(Cancel As Integer) rs1.Close cn.CloseEnd Sub5.实现界面登录功能Option ExplicitDim strA As StringDim intA As IntegerDim intCount As IntegerDim intTimer As IntegerPrivate Sub cmdCancel_Click() EndEnd SubPrivate Sub cmdOk_Click() If T
