图书借阅管理系统课程设计报告 第6页

图书借阅管理系统课程设计报告 第6页
.Fields("费用") = .Fields("费用") - 0.5 * e
       .Update
       End With
       End If
   MsgBox "此书已还回！", 64, "提示"
   End If
End If
End Sub

Private Sub Command3_Click()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书馆"
Adodc1.RecordSource = "select * from 借还信息 where 卡号='" & Text1.Text & "'and  编号='" & Text2.Text & "'"
Adodc1.Refresh
Set Text3.DataSource = Adodc1
Text3.DataField = "借书日期"
End Sub

Private Sub Command4_Click()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书馆"
Adodc1.RecordSource = "select * from 借书卡表 where 卡号='" & Text1.Text & "'"
Adodc1.Refresh
If Text1.Text = "" Then
  MsgBox "请输入卡号！", 64, "提示"
  Else
   If Adodc1.Recordset.EOF Then
   MsgBox "无此借书卡！", 48, "警告"
   Else
   MsgBox "此借书卡费用为" & Trim(Adodc1.Recordset.Fields("费用")) & "元！", 64, "费用查询"
   End If
End If
End Sub
  由此，可以由上代码显示出输入和输出的设计思路。其中输入设备是键盘和鼠标，输出设备是显示器。
三．收获和体会
通过两周左右的学习和设计，我深刻的体会到为一个项目设计有效地信息系统是十分复杂和困难的，这需要不多的尝试和总结，然后得到合适的结论。有时候想和做是十分不同的，必须亲自动手，并且在运行过程中找错误，不断的调试，才能有现在这个作品。通过这次学习，我也充分认识到信息系统的强大作用，创造者给应用者带去了方便和快捷，充分说明了利用信息系统可以使得一个项目变得轻松而简便还不易出错。
这段时间里，是我提高了操作能力，从以前的理论运用到了实践，从感性认识上升到了理性认识，真正做到学有所用，也锻炼了我遇到困难努力克服的意志。总之受益匪浅，这对我以后的学习和工作是一种巨大的帮助。

上一页  [1] [2] [3] [4] [5] [6] 

图书借阅管理系统课程设计报告 第6页下载如图片无法显示或论文不完整，请联系qq752018766