图书管理系统的设计—毕业设计论文

图书管理系统的设计—毕业设计论文内容摘要：

图书归还 逾期清单 图书罚款 读者管理 图书管理 图书流通管理 第 9 页 共 23 页 添加一个窗体，这个窗体共由 1个 form 控件、 4个 label 控件、 3 个 textbox控件和 2 个 button 控件组成。 窗体运行效果如图所示。 图 9 系统登陆窗体 主要代码设计： // 39。 判断用户输入密码的合法性 If () = () _ And UserPwd Then 39。 合法用户 39。 bResult = True 39。 UserName = () 39。 () Dim frmlogin As New frmMain () () Else 39。 密码错误 bResult = False (请确认你的用户名或密码是否正确 ) End If End Sub „„ „„ „„ „„ 在该窗体加载时候进行数据库的连接输入编号，如果编号正确，自动加载姓名，然后输入用户密码。 如果密码正确进入系统主窗体控件。 如果密码不正确，提示密码错误。 主窗体的设计 本窗体主要是由读者管理、图书管理、流通管理和退出系统等几个菜单控件组成。 选择主菜单中的各菜单项即可 进入相应的功能模块。 主窗体名为 frmMain，窗体运行效果如图 10所示。 第 10 页 共 23 页 图 10 系统主窗体 创建数据访问模块 因为各个窗体均需要对数据库进行访问，可以把数据库的一些操作通过一个类实现，这样就可以使对数据库的访问更加简单。 添加一个名为“ ”的类文件。 主要代码设计： Public Class DataBase 39。 实现接口 IDisposable Implements IDisposable 39。 数据库连接对象 Private SqlConn As SqlConnection Public Shared sConn As String = Persist Security Info=False。 Integrated Security=SSPI。 database=libbook。 server=本机数据库服务器名称。 Connect Timeout=30 „„ „„ „„ „„ Public Sub Open() If SqlConn Is Nothing = True Then 39。 建立数据库连接对象 SqlConn = New SqlConnection() 39。 打开数据库连接 () End If End Sub Public Sub Close() 39。 如果数据库连接对象不为空则关闭数据库连接 If SqlConn Is Nothing = False Then () 第 11 页 共 23 页 End If End Sub 创建数据操作窗体的父类窗体 因为系统中所有对数据库表进行维护的窗体界面及实现的功能大体都是一致的，可以把这些共同的部分抽取出来，生成一个父类窗体，其他数据库操作窗体均可以通过继承父类窗体获得数据维护的功能。 添加控件后窗体如图 11 所示。 图 11 基础窗体 主要代码设计： Case 首记录 39。 返回首记录 = 0 „„ „„ „„ „„ Case 删除 39。 弹出询问对话框 Dim dlgResult As DialogResult = _ (你确认删除此数据。 , _ 删除 , ) If dlgResult = Then DeleteData() End If Case 保存 SetToolBarState(True) SetTextBoxState(True) If bAdd = True Then 39。 为新增数据保存 SaveForAdd() Else 第 12 页 共 23 页 39。 为更新数据保存 SaveForUpdate() End If = True Case 取消 SetTextBoxState(True) SetToolBarState(True) = True SearchResult() Case 退出 39。 关闭本窗体 () End Select „„ „„ „„ „„ 读者类别设置模块 本窗体首先显示全部的读者类型。 它实现对读者类别的管理，如添加、修改、删除等操作。 也可以对输入的类型进行搜索操作。 当单击“添加”或者“修改”按扭时，激活“保存”和“取消”按扭。 可以把管理员对读者类 型表中各条信息所做的操作进行保存或者取消保存。 修改和保存过后的数据直接保存到数据库，窗体运行效果如图 12 所示。 图 12 读者类别设置功能窗体 主要代码实现如下： Dim dr As DataRow = (读者类型 ).NewRow() Try dr(类型 ) = dr(图书册书 ) = dr(续借次 数 ) = 第 13 页 共 23 页 dr(限制图书 ) = Catch ex As Exception 读者档案管理功能模块 本窗体功能和读者类别设置模块的功能几乎一致，只不过这里是对读者档案的设置信息。 同样具有添加，修改，删除以及保存和取消保存的功能。 窗体运行效果如图 13所 示。 图 13 读者档案管理功能窗体 主要代码的设计如下： Public Overrides Sub Prepare() = 读者档案管理 = 条形码 = 编号 = 姓名 Dim db As DataBase = New DataBase Dim dv As DataView = _ (select 类型 from 读者类型 ) 图 书类别设置的功能模块 本窗体功能和读者类别设置模块的功能一样，只不过这里是对图书的类别的设置信息。 同样具有搜索，添加，修改，删除以及保存和取消保存的功能。 窗体运行效果如图 14所示。 图 14图书类别设置功能窗体 第 14 页 共 23 页 主要代码实现如下： „„ „„ „„ „„ Dim dr As DataRow = (图书类型 ).NewRow() Try dr(类型编号 ) = dr(类型名 称 ) = () Dim iDays As Integer = CInt() dr(可借天数 ) = Catch ex As Exception (数据格式不正确。 ) Exit Sub „„ „„ „„ „„ 图书档案管理的功能模块 本窗体功能和读者档案管理模块的功能一样，只不过这里是对图书档案的设置信息。 同样具有添加，修改，删除以及保存和取消保存的功能。 窗体运行效果如图 15所示。 图 15图书档案管理功能窗体 主要代码实现如下： „„ „„ „„ „„ Public Overrides Sub Prepare() = 图书档案管理 = 条形码 = 编号 = 书名 Dim db As DataBase = New DataBase Dim dv As DataView = _ 第 15 页 共 23 页 (select 类型名称 from 图书类型 ) For Each dr As DataRow In (dr(0).) Next dv = (select 出版社名称 from 出版社 ) For Each dr As DataRow In (dr(0).) Next dv = (select 书架名称 from 书架 ) For Each dr As DataRow In (dr(0).) Next „„ „„ „„ „„ 图书征订的功能模块 完成图书馆对图书的征订和提交征订的功能，同样具有对征订的信息进行添加、修改、删除以及保存和取消保存的功能。 这里的“提交征订（验收）”按扭。 当单击它时系统调用“ sf_图书征订”存储过程，增加图书的在库数量，并将“是否验收”字段设置为 1，表示 征订记录已经验收。 征订编号为系统自动生成，输入图书编号自动显示出图书的名称，图书名称项文本框不可以用，此时的“搜索”图标也为可用状态，单击搜索图标显示出所有图书的信息表，双击任意一条图书消息即可选定它为要征订的图书。 窗体运行效果如图 16所示。 图 16 图书征订功能窗体 主要代码设计如下： Public Overrides Sub LoadData() 39。 清空 DataSet11 () = 第 16 页 共 23 页 Dim strSQL As String If = 0 Then strFilter = where 是否验收 = 0 Else strFilter = and 是否验收 = 0 End If _ = select * from 图书征订 + strFilter 39。 根据查询条件重新填充 DataSet11 (DataSet11) dtData = (图书征订 ) If (图书名称 ) = 1 Then (图书名称 ) End If 39。 为图书名称设置数据 SetBookName() bmData = (DataSet11, 图书征订 ) If 0 Then = 0 End If End Sub „„ „„ „„ „„ 图书借阅的功能模块 该功能完成对图书的借阅。 此功能支持条码借阅图书。 读者选择 和图书选择可以支持编码和条码输入，默认是编码，在“读者信息”编辑框中输入编码，回车后系统自动列出该读者的姓名、类型及已经借阅还未归还的图书清单，并且光标跳到“借阅图书信息”编辑框；在“图书借阅信息”编辑框中输入图书编号或者条码，。