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

1、人机交互作业 图书管理系统的实现 09153 刘希桐实验报告课程名称： 人机交互与用户界面 实验项目： 图书管理界面的实现 专业班级： 软件工程0902班 姓 名： 刘希桐 学 号： 091202053 实验室号： 实验组号： 实验时间： 批阅时间: 指导教师: 成 绩： 沈阳工业大学报告专业班级： 软件工程0902班 学号: 091202053 姓名： 刘希桐 实验名称：图书管理系统1。实验目的：（1）利用数据库的基本知识；（2）利用VB可视化程序设计方法（3）利用C+Builder或VB或VC或PB等可视化开发工具连接数据库，访问数据库，实现数据库的增删改查等操作;2.实验内容：通过vis

2、ual basic连接access2003访问数据库,设计图书成绩管理系统,实现数据库的增加，插入,修改，查询。3。 实验方案（程序设计说明）具体功能如下:实现读者的插删改功能实现图书的插删改功能实现图书查询功能实现图书借出归还功能实现借阅历史查询功能实现不同权限用户登录功能实现查看软件信息功能4. 实验步骤或程序（经调试后正确的源程序）首先，实现代码的输入，功能见右图Option ExplicitPrivate Sub MDIForm_Load() MDIForm1。Icon = LoadPicture（App。Path ”SX。ico）End SubPrivate Sub mnuAbout

3、_Click() frmAbout。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

4、（） frmBookDelete.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(） EndE

5、nd SubPrivate 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

6、= 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 = rs1End SubPrivate Sub Form_Load（) cn.Open Provider=Microsoft。Jet.

7、oledb.4。0;Data 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 = ”

8、 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 Dim i As Integer For i = 0 To 3 rs1.Fields(i） = txt(i）.Text Next i rs1.UpdateBatch

9、adAffectCurrent MsgBox ”修改成功, ， ”提示” 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。CursorLoca

10、tion = 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 Sub4。实现读者删除Option ExplicitPrivate Sub cmdCancel_Click（）Unload MeEnd SubPrivate Sub cmdEdit

11、_Click(） If txt(0）.Text = ” 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 ad

12、AffectCurrent rs1。UpdateBatch adAffectCurrent 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 = Fals

13、e cn。Open ”Provider=Microsoft.Jet。oledb.4.0;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。Close

14、End Sub5。实现界面登录功能Option ExplicitDim strA As StringDim intA As IntegerDim intCount As IntegerDim intTimer As IntegerPrivate Sub cmdCancel_Click() EndEnd SubPrivate Sub cmdOk_Click（) If Text1。Text = ” Or Text2.Text = ” Then MsgBox 请输入完整的用户名及密码！, vbCritical, ”警告 Else rs1.Open ”Select * From 系统设置 Where

15、用户名=” Text1.Text & , cn, adOpenKeyset， adLockOptimistic strA = rs1。Fields(1) intA = rs1。RecordCount rs1.Close If intA = 0 Then MsgBox ”无此用户！”, vbCritical， ”警告” Exit Sub Else If Text2.Text = strA Then MDIForm1。Show rs1。Open Select 权限 From 系统设置 Where 用户名= Text1。Text & , cn, adOpenKeyset， adLockOptimis

16、tic If rs1.Fields(0） = Guest” Then BlnQX = False Call QX End If rs1。Close Unload Me Else MsgBox 密码错误！”， vbCritical, 提示 intCount = intCount + 1 If intCount = 3 Then MsgBox ”密码错误登录次数超过限制次数！， vbCritical, 警告” End End If Exit Sub End If End If End IfEnd SubPrivate Sub Form_Load() intCount = 0 intTimer =

17、1 Label3。Caption = Date ” ” & Time（） cn.Open Provider=Microsoft.Jet.oledb.4。0;Data Source= & App。Path & ”Library.mdb” Icon = LoadPicture（App。Path SX。ico)End SubPrivate Sub Form_Unload(Cancel As Integer) cn.CloseEnd SubPrivate Sub Timer1_Timer(） Label3。Caption = Date & ” ” Time（) If intTimer = 1 Then

18、 Label3.Left = Label3。Left 20 If Label3。Left 0 Then intTimer = 2 End If If intTimer = 2 Then Label3。Left = Label3。Left + 20 If Label3.Left 2500 Then intTimer = 1 End IfEnd Sub7。实现修改密码功能Option ExplicitDim rs As New ADODB。RecordsetPrivate Sub cmdNo_Click（)Unload MeEnd SubPrivate Sub cmdOk_Click(） If t

19、xt（0）.Text = ” Or txt(1）。Text = Or txt(2).Text = Then MsgBox ”请输入完整的信息！, vbCritical, ”警告” Else rs.Open ”Select 密码 From 系统设置 Where 用户名=” txt（0)。Text & ”， cn， adOpenKeyset, adLockOptimistic If txt（1).Text rs.Fields(0) Then MsgBox ”用户名或原密码错误!， vbCritical， ”警告” rs。Close Exit Sub Else rs。Fields（0） = txt(

20、2)。Text rs.Update rs.Close MsgBox ”密码修改成功！， ， ”恭喜 End If End IfEnd SubPrivate Sub Form_Load（） cn.Open Provider=Microsoft.Jet。oledb。4.0；Data Source=” App。Path & ”Library.mdb” Icon = LoadPicture（App。Path ”SX。ico)End SubPrivate Sub Form_Unload(Cancel As Integer) cn.CloseEnd Sub8。实现图书归还功能Option Explicit

21、Private Sub cmdCancel_Click（）Unload MeEnd SubPrivate Sub cmdR_Click(） rs4。Open Select From 书库 Where 书号= Text1.Text & ”， cn， adOpenKeyset， adLockOptimistic If rs4.Fields(6） = No Then rs4.Close If Text1。Text = ” Or Text2.Text = ” Or Text3.Text = Then MsgBox ”请输入完整的数据!, vbCritical, ”警告 Else rs2.Open ”S

22、elect From 借阅记录 Where 书号=” Text1。Text & ” And 读者编号=” Val(Text2。Text) ”， cn, adOpenKeyset， adLockOptimistic rs2。Fields（4) = Text3.Text rs2.UpdateBatch adAffectCurrent rs2.Close rs4.Open ”Select * From 书库 Where 书号=” & Text1。Text & ”， cn, adOpenKeyset, adLockOptimistic rs4。Fields（6) = ”Yes rs4。UpdateBa

23、tch adAffectCurrent rs4.Close MsgBox 已经办理好归还手续！， ， ”提示” End If Else MsgBox 该书已在库！， vbCritical, 提示” rs4。Close End IfEnd SubPrivate Sub Form_Load() cn。Open ”Provider=Microsoft.Jet.oledb。4.0；Data Source=” App.Path ”Library.mdb Text3。Text = Date Text3。Enabled = False Icon = LoadPicture（App。Path SX.ico”）

24、End SubPrivate Sub Form_Unload(Cancel As Integer） cn.CloseEnd Sub9。实现图书查询功能Option ExplicitPrivate Sub cmdSearch_Click（） On Error Resume Next rs1.Close rs1.CursorLocation = adUseClient rs1。Open ”Select From 书库 Where Combo1。Text & ” =” & txt_Search.Text ”, cn, adOpenKeyset， adLockOptimistic Set DataGr

25、id1.DataSource = rs1 If rs1。RecordCount = 0 Then MsgBox ”查无此书” End SubPrivate Sub Form_Load（） cn.Open Provider=Microsoft.Jet。oledb。4.0；Data Source=” & App。Path & Library.mdb” Combo1.AddItem ”书号 Combo1.AddItem 书名” Combo1。AddItem 作者” Combo1.AddItem ”出版社 Combo1.AddItem ”类别” Icon = LoadPicture（App.Path

26、& ”SX.ico”)End SubPrivate Sub Form_Unload(Cancel As Integer） cn.CloseEnd Sub10。实现图书编辑功能Option ExplicitPrivate Sub cmdCancel_Click(） Unload MeEnd SubPrivate Sub cmdEdit_Click()If txt（0）。Text = ” Or txt（1) = ” Or txt（2） = Or txt(3) = ” Or txt（4) = ” Or Combo1。Text = ” Then MsgBox 请单击行标选择需要修改的图书行”, vbC

27、ritical, 提示 Exit SubElse If txt（0） rs1.Fields（0) Then MsgBox 请单击行标选择需要修改的图书行, vbCritical, ”提示 Else If MsgBox(”确认要修改么?”， vbYesNo， 提示） = vbYes Then Dim i As Integer For i = 0 To 4 rs1。Fields（i） = txt(i）.Text Next i rs1。Fields（5) = Combo1.Text rs1.UpdateBatch adAffectCurrent MsgBox ”修改成功， ， ”提示” End If

28、 End IfEnd IfEnd SubPrivate Sub DataGrid1_Click(） Dim i As Integer For i = 0 To 4 txt（i)。Text = rs1。Fields（i) Next i Combo1.Text = rs1.Fields(5)End SubPrivate Sub Form_Load(） cn.Open ”Provider=Microsoft。Jet.oledb.4.0；Data Source=” & App。Path Library.mdb” rs1.CursorLocation = adUseClient rs1.Open 书库，

29、 cn, adOpenKeyset, adLockOptimistic Set DataGrid1。DataSource = rs1 txt(0)。Enabled = False Icon = LoadPicture(App.Path & ”SX.ico”）End SubPrivate Sub Form_Unload（Cancel As Integer) rs1.Close cn.CloseEnd Sub11.实现图书删除功能Option ExplicitPrivate Sub cmdCancel_Click（) Unload MeEnd SubPrivate Sub cmdDelete_Click（)If txt(0）.Text = ” Or txt（1) = ” Or txt(2） = ” Or txt（3) = ” Or txt(4） = ” Or Combo1。Text = ” Then MsgBox 请单击行标选择需要修改的图书行”， vbCritical， ”提示” Exit SubElse If txt(0） rs1。Fields(0) Then MsgBox ”请单击行