数据库论文基于cs模式的图书管理系统设计(编辑修改稿)

数据库论文基于cs模式的图书管理系统设计(编辑修改稿)内容摘要：

籍信息进行维护操作。 书籍信息维护窗体如图 所示。 18 图 书籍信息窗体 单击“输入 /查看借阅信息”，就会显示“借阅信息”窗体，在该窗体中可以对出版社信息进行维护操作。 出版社信息维护窗体如图所示。 图 借阅信息窗体 单击“输入 /查看出版社信息”，就会显示“出版社信息”窗体，在该窗体中可以对借阅信息进行维护操作。 借阅信息维护窗体如图 所示。 19 图 出版社信息窗体 单击“输 入 /查看管理者信息”，结果如图 所示。 图 管理者信息窗体 在主窗体上单击“显示报表”，那么就可以查看反映读者信息和借阅信息的报表，借阅信息的报表如图所示。 图 报表窗体 如果用户在运行的主窗体上单击“综合查询”，那么就可以查看针对不同的数据表进行查询操作。 选择查询依据为“出版社信息”表查看其中的所有信息，结果如图 所示。 20 图 综合查询窗体 结论 在这 个系统的开发过程中，值得注意的几点有： (1)数据报表的实现 .报表是数据库应用程序的重要组成部分 ,通过报表 ,可以把数据库中内容经过组织以后生动地展示给用户， 提供的Crystal Report 可以大大提高报表的设计效率。 (2)复杂查询的实现。 在程序运行过程中，单击窗体中的“综合查询”按钮，就会弹出一个对话框，在该对话框中设置查询条件，根据查询条件从记录集中筛选出所需记录，所指定的查询条件包括查询的依据，排序的依据，运算符等等。 第四章 结束语 通过做课程设计，有几点感想， 归纳 如下。 1. 扎实的 理论 基础。 如果不掌握 它 们，很难写出高水平的程序。 而这一点又是我们所缺乏的。 2. 不钻牛角尖。 当遇到障碍的时候 ， 暂时远离电脑，当重新开始工作的时候， 也许 会发现那些难题现在竟然可以迎刃而解。 3. 多与别人交流。 三人行必有我师。 4. 良好的编程风格。 注意养成良好的习惯，代码的缩进编排，变量的命名规则要始终保持一致。 如果注释和代码不一致，那就更加糟糕。 最后 ,特别要感谢史开宗老师在软件工程和数据库课程中认真负责的教学，才使得我能结合所学的知识完成这一课程设计。 21 参考文献 1 萨师煊，王珊，数据库系统 概论（第三版） . 北京：高等教育出版社， 20xx 2 齐治昌，谭庆平，宁洪，软件工程（第二版） .北京：高等教育出版社， 20xx 3 David ， Visual 编程导论 . 电子工业出版社， 20xx 附录：源代码清单 附 ： Public Class 主窗体 Inherits Region Windows 窗体设计器生成的代码 ‘此处省略主窗体设计代码 End Region Dim sender As Dim e As Public Sub LoadDataSet() Dim objDataSetTemp As 图书馆管理 .Lib管理者信息 objDataSetTemp = New 图书馆管理 .Lib管理者信息 39。 临时数据集 objDataSetTemp保存从 FillDataSet()函数调用中返回的记录 39。 如果未出错则填充到主 数据集 objLib管理者信息 中 Try (objDataSetTemp) Catch eFillDataSet As Throw eFillDataSet End Try Try objLib管理者信息 .Clear() objLib管理者信息 .Merge(objDataSetTemp) Catch eLoadMerge As Throw eLoadMerge End Try End Sub Public Sub FillDataSet(ByVal dataSet As 图书馆管理 .Lib管理者信息 ) 39。 实现打开连接，将 OleDbDataAdapter1中的数据添加到数据集，关闭连接。 = False Try () (dataSet) Catch fillException As 22 Throw fillException Finally = True () End Try End Sub Private Sub Label1_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub LinkLabel_退出 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_退出 .LinkClicked End End Sub Private Sub LinkLabel_读者信息 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_读者信息 .LinkClicked btn_读者信息 _Click(sender, e) End Sub Private Sub LinkLabel_书籍信息 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_书籍信息 .LinkClicked btn_书籍信息 _Click(sender, e) End Sub Private Sub 主窗体 _Load(ByVal sender As , ByVal e As ) Handles End Sub Private Sub LinkLabel_出版社信息 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_出版社信息 .LinkClicked btn_出版社信息 _Click(sender, e) End Sub Private Sub LinkLabel_借阅信息 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_借阅信息 .LinkClicked btn_借阅信息 _Click(sender, e) End Sub Private Sub LinkLabel_查询 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_查询 .LinkClicked btn_查询 _Click(sender, e) End Sub Private Sub LinkLabel_报表 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_报表 .LinkClicked btn_报表 _Click(sender, e) End Sub Private Sub LinkLabel_管理者信息 _LinkClicked(ByVal sender As , ByVal e As ) Handles LinkLabel_管理者信息 .LinkClicked btn_管理者信息 _Click(sender, e) End Sub 23 Function UserCheck(ByVal sender As , ByVal e As ) As Boolean Dim dlg_Login As Login dlg_Login = New Login If ( = ) Then Try () Catch eLoad As () End Try Dim i As Integer (objLib管理者信息 , 管理者信息 ).Position = 0 For i = 0 To (objLib管理者信息 , 管理者信息 ).Count 1 If Not (objLib管理者信息 , 管理者信息 ). Is GetType(DataRowView) Then Exit For End If Dim drv As DataRowView = CType((objLib管理者信息 , 管理者信息 ).Current, DataRowView) If Trim(drv(用户名称 )) = .Text Then If Trim(drv(密码 )) = .Text Then Return True End If End If (objLib管理者信息 , 管理者信息 ).Position += 1 Next End If UserCheck = False End Function Private Sub btn_读者信息 _Click(ByVal sender As , ByVal e As ) Handles btn_读者信息 .Click If UserCheck(sender, e) Then Dim dlg As 读者信息 dlg = New 读者信息 () Else (登录失败。 , 登录 , , _ ) End If End Sub Private Sub btn_书籍信息 _Click(ByVal sender As , ByVal e As ) Handles btn_书籍信息 .Click If UserCheck(sender, e) Then Dim dlg As 书籍信息 dlg = New 书籍信息 24 () Else (登录失败。 , 登录 , , _ ) End If End Sub Private Sub btn_出版社信息 _Click(ByVal sender As , ByVal e。