计算机信息管理毕业论文计算机图书管理系统数据库.doc

计算机信息管理毕业论文计算机图书管理系统数据库 高等教育自学考试毕业设计论文说明书计算机及应用专业本科市 地_准考证号_姓 名_提 纲一数据库设计 一 数据库概念 二计算机图书管理系统数据库三 利用data 控件访问数据库 二计算机图书管理系统数据 一 数据库与VB的连接 二 关闭数据对象和连接对象三 显示数据库的内容 四 计算机图书管理系统数据流程图 三 计算机图书管理系统2008 一 开发计算机图书管理系统的目的 二 开发图书管理系统的思路 四计算机图书管理系统模块设计 一 界面设计规范及流程图二关键字Keywords信息管理系统MIS数据库Visual Basic60面向对象Object计算机图书管理系统图书馆管理系统是我国大部分院校或其它部门不可缺少的部分书籍是人类精神食粮尤其对一些学校图书馆来说非常重要在软件开发中以计算机图书为主称计算机图书管理系统 计算机图书管理系统能够为用户实现借阅图书管理等随着科学技术的不断提高计算机科学日渐成熟其强大的功能已为人们深刻认识它已进入人类社会的各个领域并发挥着越来越重要的作用作为计算机应用的一部分使用计算机对图书资源信息进行管理具有着手工管理所无法比拟的优点例如查阅迅速安全性高可靠性高存储量大保密性好成本低等计算机图书管理系统能够单一定向计算机图书方面具有实用精简功能等效率这些优点能够极大地提高图书馆管理的效率也是企业学校的科学化正规化管理与世界接轨的重要条件因此开发这样一套管理软件是很有必要 本案例开发的是计算机图书管理系统一 数据库设计 mdb 一 数据的概念办公软件Office套件中最为广大用户熟悉的是Word和Excel因为它们功能强大且方便易用更因为它们不仅可用于办公还可用于个人写作和家庭记帐理财等同为Office套件中一部分的Access虽然有着同样强大的功能但使用的人却相对少些不像Word和Excel那样广泛事实上真正用过Access的用户对其强大功能和灵活应用均称赞有加 Access 数据库管理系统是Microsoft Office 套件的重要组成部分适用于小型商务活动用以存贮和管理商务活动所需要的数据Access不仅是一个数据库而且它具有强大的数据管理功能它可以方便地利用各种数据源生成窗体表单查询报表和应用程序等 有结构的数据集合它与一般的数据文件不同 其中的数据是无结构的 是一串文字或数字流数据库中的数据可以是文字图象声音等 ccess一种关系式数据库关系式数据库由一系列表组成表又由一系列行和列组成每一行是一个记录每一列是一个字段每个字段有一个字段名字段名在一个表中不能重复图1是一个产品表的例子产品表由10个记录组成一个记录占一行每一个记录由产品ID产品名称库存量订货量单价和折扣率6个字段组成产品ID是字段名其下面的12等是字段的值 表与表之间可以建立关系或称关联连接以便查询相关联的信息Access数据库以文件形式保存文件的扩展名是MDB Access 数据库由六种对象组成它们是表查询窗体报表宏和模块 表是数据库的基本对象是创建其他5种对象的基础表由记录组成记录由字段组成表用来存贮数据库的数据故又称数据表 查询可以按索引快速查找到需要的记录按要求筛选记录并能连接若干个表的字段组成新表 窗体提供了一种方便的浏览输入及更改数据的窗口还可以创建子窗体显示相关联的表的内容窗体也称表单 报表的功能是将数据库中的数据分类汇总然后打印出来以便分析宏相当于DOS中的批处理用来自动执行一系列操作Access列出了一些常用的操作供用户选择使用起来十分方便 模块的功能与宏类似但它定义的操作比宏更精细和复杂用户可以根据自己的需要编写程序模块使用Visual Basic编程模式定义了数据库的结构表关系域和业务规则数据库模式是一种设计数据库和应用正是建立在此基础上的域是一列可能拥有的值的集合必须为每一个表的每一列确定域除了数据的物理必填字段外还需要确定是否有些域对表来说是唯一的模式的最后一个要素是业务规则它是对需要反映在数据库和数据库应用程序中的业务活动的允许空字符串业务规则是模式的一个重要部分因为他们指定了无论什么数据变化到达DBMS引擎允许的数据值必须满足的允许空字符串不管无效的数据变化请求是来自窗体的用户查询修改请求还是应用程序DBMS都应该拒绝遗憾的是不同的DBMS产品用不同的方法实施业务规则在某些情况下DBMS产品不具备实施必要业务规则的能力必须以代码形式把它们编入应用程序这里的数据库采用Access用ADO作为连接数据对象启动Access建立一个空的数据库ComputerBookmanage如图8所示使用程序设计器建立系统需要的表图书表读者表用户借书表用户表2连接数据在Visual Basic环境下选择工程引用命令在随后出现的对话框中选择Microsoft ActiveX Data Objects 20 Library然后单击确定按钮如图引用ADO连接数据库在程序设计的公共模块中先定义ADO连接对象语句如下Public conn As New ADODBConnection 标记连接对象然后在子程序中用如下的语句即可打开数据库Dim connectionstring As Stringconnectionstring provider MicrosoftJetoledb40 _data source ComputerBookmanage connOpen connectionstring40 设置ODBCVB的ADO对象是通过ODBC来访问数据库所以还要建立ODBC数据引擎接口打开面板中的管理工具数据源 ODBC 出现如图所示的对话框图17 ODBC对话框单击添加按钮出现创建新数据源对话框如图18所示选择Microsoft Access Driver mdb 单击完成按钮出现如图19所示对话框在数据源名文本框中添加一个名字单击确定按钮完成系统默认连接设置然后在ODBC对话框中单击确定按钮完成ODBC设置1基本表书籍 book字段类型字段大小必填字段允许空字符串管理人员文本50否是图书编号文本12是否图书名称文本16否是作者文本8否是出版社文本20否是库存量数字小数是是入库时间日期时间自动否无2基本表用户表 user_table字段类型字段大小必填字段允许空字符串登录名文本16否是密码文本16否是身份文本50否是权限数字1否是3基本表读者表字段类型字段大小必填字段允许空字符串读者姓名文本8是主键读者编号数字50是否性别文本2否是读者类别文本50否是工作单位文本50否是家庭地址文本50否否电话号码文本50自动自动登记日期日期时间自动自动自动已借书数量数字自动自动自动4基本表职工信息 worker字段类型字段大小必填字段允许空字符串管理人员文本50否是工号数字50是否姓名文本8否是性别文本2否是电话数字13否是住址5基本表借阅信息 reader字段类型字段大小必填字段允许空字符串序号自动编号长整型主键工号文本250图书编号文本250借阅时间日期时间长日期ADO中的数据对象通常保存的是查询结果Record Set是ADO中最复杂的对象有许多属性和方法Record Set保存的是一行行的记录并标有一个当前记录以下是创建方法可以直接利用DATA控件直接绑定在DATA控件的属性中的RECORDSOURCE对数据表进行连接Set Record Set DBOpenrecordset sqtStr 这条语句创建并打开了对象Record Set其中db是先前创建的链接对象sqtStr是一个字串代表一条标准的SQL语句例如 sqlStr SELECT FROM table1Set Record Set DBOpenrecordset sqtStr 执行后对象Record Set中就保存了表table1中的所有记录二 计算机图书管理系统数据一 数据库与VB的连接当数据设置好后就应用VB当中去步骤新建一个模块命名 Database 在Database 添加代码 数据库与VB的连接代码 由于代码很长见光盘code目录下 databasetxt 二关闭数据对象和链接对象在使用了ADO对象之后要关闭它因为它使用了一定的服务器资源通过调用方法close实现关闭然后再释放它Record SetcloseSet Record Set Nothing关闭创建的数据对象mConncloseSet mConn Nothing关闭创建的链接对象三显示数据库中的内容利用MSFLEGRID控件来显示数据库中的内容可以直接通过DATA控件来实现操作也可以利用代码来完成相关的操作 sql select from book where 图书信息 Text1 0 Text If sql Then Set rs dbOpenRecordset sql 四计算机图书管理系统数据流程图三开发图书管理系统2008一开发计算机图书管理系统的目的计算机图书馆管理系统是我国大部分院校或其它部门不可缺少的部分书籍是人类精神食粮尤其对一些学校图书馆来说非常重要图书馆管理系统能够为用户实现借阅图书期刊试卷合订本等随着科学技术的不断提高计算机科学日渐成熟其强大的功能已为人们深刻认识它已进入人类社会的各个领域并发挥着越来越重要的作用作为计算机应用的一部分使用计算机对图书资源信息进行管理具有着手工管理所无法比拟的优点例如查阅迅速安全性高可靠性高存储量大保密性好成本低等这些优点能够极大地提高图书馆管理的效率也是企业学校的科学化正规化管理与世界接轨的重要条件因此开发这样一套管理软件是很有必要 二开发计算机图书管理系统的思路单从这一方面开发图书管理系统需要从以下几个构思方面着手遐想遐想即大胆地思维想象在脑海形成一个框架怎样去开发如何去开发开发有什么好处即影响开发会遇到什么问题怎样去解决绘图即将遐想的用图象勾画出来呈现模拟系统的功能3准备材料准备事先制作好材料如软件中所需要的图片代码软件图标Ico页面图片 bmpjpg 4 开发粮草好了就动兵马 意思是现实开发系统如新建窗体模块等四计算机图书管理系统模块设计一界面设计规范以及流程图 详细见页面 主界面菜单栏工具条工作区本系统采用SSTab页框状态栏等二系统窗体汇总 窗体名称窗体类型简要说明FrmLogIn启动窗体系统登陆Form1MDI主窗体系统主窗体Form2模式窗体图书信息录入Form3MDI子窗体职工信息录入Form4模式窗体借书管理Form5模式窗体还书管理Form6模式窗体使用帮助Frm_sys_set模式窗体账号管理frmAbout模式窗体关于软件frmMsgMDI子窗体友情提示名称类型模块说明Database数据类型数据连接xp_canvas窗体窗体移动Xpcmdbutton按钮个性按钮Xphelp系统系统帮助Xptopbuttons系统最大化最小化关闭xpcmdbutton1按钮借书Xpcmdbutton2按钮还书Xpcmdbutton3按钮图书录入Xpcmdbutton4按钮职工录入Xpcmdbutton5按钮图书查询Xpcmdbutton6按钮借阅查询三主窗体界面设计 主界面的设计采用标准无标题主窗口样式自上而下依次为菜单栏工具条工作区本系统采用SSTab页框状态栏等所有系统用户拥有相似的主界面主界面包含基本的或共享的功能如书目浏览与检索基本统计等代码见code目录下maintxt主界面如代码所示Option Explicit定义查询字段的窗体级变量定义查询的字段窗体变量Dim sfield As String 查询的关键词Dim seachtext As String 查询函数定义 1桉书号查询则采用具体查询办法 2按书名查询则采用模糊查询办法Function open_seach table_name As String sfield As String seachtext As String As IntegerDim sqlstr As StringDim str As String 建立数据库连接 Set con New ADODBConnection Set rst New ADODBRecordset conCursorLocation adUseClient sqlstr Provider MicrosoftJetOLEDB40 Data Source AppPath dataComputerBookmanagemdb Persist Security Info False conOpen sqlstr 查询办法选择 If Option1Value True Then str select from table_name where sfield seachtext Else str select from table_name where sfield like Trim Text1Text End If If Option3Value True Then str select from table_name where sfield seachtext Else str select from table_name where sfield like Trim Text1Text End If rstOpen str con adOpenDynamic adLockOptimistic rstRequery If rstRecordCount 0 Then open_seach 1 返回一个值1代表有查询结果 Else open_seach 0 返回一个值0代表没有查询结果 End If End FunctionPrivate Sub Check4_Click 选择查询的字段Select Case TabStrip1SelectedItem Case 图书信息浏览 sfield 出版社End SelectEnd SubPrivate Sub Command1_Click If rstBOF True ThenfrmMsgShowfrmMsginfoVisible True frmMsgText1Text 已经到达第一条记录了Exit SubElserstMovePreviousEnd IfEnd SubPrivate Sub Command2_Click 后一记录If rstEOF True ThenfrmMsgShowfrmMsginfoVisible True frmMsgText1Text 已经到达最后一条记录了Exit SubElserstMoveNextEnd IfEnd SubPrivate Sub DataGrid2_Click Call connect_dbopen_connection book 连接book表 tablename book If privilege 1 Then 如果只是普通用户无法查询员工信息 frmMsgShow frmMsgerrorVisible True frmMsgText1Text 对不起您没有查阅的权限 Exit Sub End If open_connection worker 连接worker表 tablename worker open_connection record 连接record表 tablename record Set DataGrid1DataSource rst End Sub Private Sub Command4_Click Dim ret As IntegerIf Command4Caption 查 询 Then Command4Caption 确 定Else If Option1Value False And Option2Value False And Option3Value False And Option4Value False Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 请选择查询项 Exit Sub End If If Text1Text Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 请输入查询内容 Text1SetFocus Exit Sub End If seachtext Trim Text1Text ret open_seach tablename sfield seachtext If ret 0 Then frmMsgShow frmMsgerrorVisible True frmMsgText1Text 对不起没有你要的记录 Option1Value False Option2Value False Text1Text rstClose Set rst Nothing Set DataGrid1DataSource rst Command1Enabled False 上一条下一条按钮为灰 Command2Enabled False Command4Caption 查 询 Exit Sub End If Command1Enabled True Command2Enabled True Set DataGrid1DataSource rst Text1Text Option1Value False Option2Value False Command4Caption 查 询End If End SubPrivate Sub DataGrid1_Click Call connect_dbopen_connection book 连接book表 tablename book If privilege 1 Then 如果只是普通用户无法查询员工信息 frmMsgShow frmMsgerrorVisible True frmMsgText1Text 对不起您没有查阅的权限 Exit Sub End If open_connection worker 连接worker表 tablename worker open_connection record 连接record表 tablename record Set DataGrid1DataSource rstEnd SubPrivate Sub Form_Load Option1Caption 书号Option2Caption 书名Option3Caption 出版社Option4Caption 作者Label2Caption frmLoginText1TextTimer1Interval 1000tablename bookCall connect_dbopen_connection book Set DataGrid1DataSource rstTabStrip1TabsItem 1 图书信息浏览TabStrip1TabsItem 2 员工信息浏览TabStrip1TabsItem 3 图书借阅情况浏览Text1Text open_connection book Set DataGrid1DataSource rstfrmLoginShowEnd SubPrivate Sub Image1_Click End SubPrivate Sub Option1_Click Select Case TabStrip1SelectedItem Case 图书信息浏览 sfield 图书编码 Case 员工信息浏览 sfield 工号 Case 图书借阅情况浏览 sfield 图书编码End SelectEnd SubPrivate Sub Option2_Click 选择查询的字段Select Case TabStrip1SelectedItem Case 图书信息浏览 sfield 图书名称 Case 员工信息浏览 sfield 姓名 Case 图书借阅情况浏览 sfield 工号End SelectEnd SubPrivate Sub Option3_Click 选择查询的字段Select Case TabStrip1SelectedItem Case 图书信息浏览 sfield 出版社End SelectEnd SubPrivate Sub Option4_Click 选择查询的字段Select Case TabStrip1SelectedItem Case 图书信息浏览 sfield 作者End SelectEnd SubPrivate Sub Text2_Change Text1Text TimeEnd SubPrivate Sub TabStrip1_Click Call connect_dbSelect Case TabStrip1SelectedItem Case 图书信息浏览 open_connection book 连接book表 tablename book Option1Caption 书号 Option2Caption 书名 Set DataGrid1DataSource rst Case 员工信息浏览 If privilege 1 Then 如果只是普通用户无法查询员工信息 frmMsgShow frmMsgerrorVisible True frmMsgText1Text 对不起您没有查阅的权限 Exit Sub End If open_connection worker 连接worker表 Option1Caption 工号 Option2Caption 姓名 tablename worker Set DataGrid1DataSource rst Case 图书借阅情况浏览 open_connection record 连接record表 Option1Caption 书号 Option2Caption 工号 tablename record Set DataGrid1DataSource rstEnd SelectEnd SubPrivate Sub Timer1_Timer Label3Caption NowEnd SubPrivate Sub xpcmdbutton1_Click Form4ShowEnd SubPrivate Sub xpcmdbutton12_Click Form6ShowEnd SubPrivate Sub xpcmdbutton13_Click frmAboutShowEnd SubPrivate Sub xpcmdbutton14_Click Unload MefrmLoginShowEnd SubPrivate Sub xpcmdbutton15_Click open_connection readertablename readerSet DataGrid1DataSource rstEnd SubPrivate Sub xpcmdbutton2_Click Form5ShowEnd SubPrivate Sub xpcmdbutton3_Click Form2ShowEnd SubPrivate Sub xpcmdbutton4_Click Form3ShowEnd SubPrivate Sub xpcmdbutton5_Click open_connection book tablename recordSet DataGrid1DataSource rstEnd SubPrivate Sub xpcmdbutton6_Click open_connection record tablename recordSet DataGrid1DataSource rstEnd SubPrivate Sub xpcmdbutton7_Click open_connection worker tablename workerSet DataGrid1DataSource rstEnd SubPrivate Sub xpcmdbutton8_Click Frm_sys_setShowEnd SubPrivate Sub xpmin_Click MeWindowState 1End SubPrivate Sub xpclose_Click Unload MefrmLoginShowEnd SubPrivate Sub xptopbuttons1_Click Unload MeEnd SubPrivate Sub xptopbuttons2_Click MeWindowState 1End Sub用户登陆 该窗体主要完成用户管理登陆功能也是进入系统的一个重要的门槛该门槛是有权限限制根据不同的用户帐号功能也截然不同这就是本系统的一个关键点默然读者帐号reader 密码008代码见code目录下logintxtPrivate Sub Form_Load 连接用户表Call open_connection user_table xpcmdbutton1Caption 登陆xpcmdbutton2Caption 注销End SubPrivate Sub Image1_Click End SubPrivate Sub xpcmdbutton1_Click 登录系统Dim sql As StringIf Trim Text1Text Then 如果文本框为空则给出提示 frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 请输入用户登录账号 Exit SubElse sql select from user_table where 登录名 Trim Text1Text 查找用户登录名 rstClose rstOpen sql con adOpenDynamic adLockOptimistic If rstRecordCount 0 Then frmMsgShow frmMsgerrorVisible True frmMsgText1Text 用户名不存在 Exit Sub End If 用户合法性检测并赋予一定的权限级别 If LCase Trim rst登录名 LCase Trim Text1Text Then If Trim rst密码 Trim Text2Text Then privilege rst权限 Call check_privage privilege 权限分配 Else frmMsgShow frmMsgerrorVisible True frmMsgText1Text 密码错误请重新输入 Exit Sub End If End IfEnd IfEnd SubPrivate Sub xpcmdbutton2_Click 退出系统EndEnd SubPrivate Sub xptopbuttons1_Click EndEnd SubPrivate Sub xptopbuttons2_Click Index As Integer MeWindowState 1End Sub如果用户名错误或者密码错误 友情提示窗体就会响应传送信息给用户提示1提示22借书 该窗体主要完成读者借阅功能也是最重要的一项功能读者借阅图书与职工人员管理人员才能完成借阅功能借阅后系统信息将保存以便管理员能核对一下以免出错假如你已经超过最大的借阅量系统还会自动提醒管理员该读者已经不能继续借书了该阅子模块简单计算机图书综合信息以图书编号归拢在一起方便借阅代码见code目录下 borrowtxt窗体代码Option ExplicitPrivate Sub Command1_Click 借出图书Dim sql sql1 sql2 As StringDim num As Integersql select from recordsql1 select from worker where 工号 sql2 select from book where 图书编码 Dim param1 param2 param3 param4 As ADODBParameterDim cmd1 cmd2 cmd3 cmd4 As ADODBCommandSet cmd1 New ADODBCommandSet cmd2 New ADODBCommandSet cmd3 New ADODBCommandSet cmd4 New ADODBCommandSet param1 New ADODBParameterSet param2 New ADODBParameterSet param3 New ADODBParameterSet param4 New ADODBParameter工号及书号检测检验工号及书号的合法性 With param1 Direction adParamInput Type adBSTR Size 8 Value Text1Text End With cmd1ParametersAppend param1 cmd1CommandText sql1 cmd1CommandType adCmdText Set cmd1ActiveConnection con Set rst cmd1Execute If rstRecordCount 0 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 没有此工号 Exit Sub End If With param2 Direction adParamInput Type adBSTR Size 8 Value Text2Text End With cmd2ParametersAppend param2 cmd2CommandText sql2 cmd2CommandType adCmdText Set cmd2ActiveConnection con Set rst1 cmd2Execute If rst1RecordCount 0 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 没有此图书编号 Exit Sub End If sql2 select from record where 图书编码 rst1Close With param3 Direction adParamInput Type adBSTR Size 8 Value Text2Text End With cmd3ParametersAppend param3 cmd3CommandText sql2 cmd3CommandType adCmdText Set cmd3ActiveConnection con Set rst1 cmd3Execute 图书状态检测 If rst1RecordCount 0 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 此图书已经被借阅 Exit Sub End If sql1 select from record where 工号 rstClose With param4 Direction adParamInput Type adBSTR Size 8 Value Text1Text End With cmd4ParametersAppend param4 cmd4CommandText sql1 cmd4CommandType adCmdText Set cmd4ActiveConnection con Set rst cmd4Execute 规定可借阅图书数目检测 If rstRecordCount 0 Then num rstRecordCount 1 Label3Caption str num ElseIf rstRecordCount 3 Then num rstRecordCount 1 Label3Caption str num ElseIf rstRecordCount 3 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 借阅图书已超限 4 Label3Caption str rstRecordCount Exit Sub End If rstClose rstOpen sql con adOpenDynamic adLockOptimistic rstAddNew rst工号 Text1Text rst图书编码 Text2Text rst借阅时间 Date rstUpdate frmMsgShow frmMsginfoVisible True frmMsgText1Text 借阅成功End SubPrivate Sub Command2_Click Unload MeEnd SubPrivate Sub Form_Load Dim sql1 sql2 As Stringsql1 select from booksql2 select from workerSet rst New ADODBRecordsetSet rst1 New ADODBRecordsetCall connect_dbrstOpen sql2 con adOpenDynamic adLockOptimisticrst1Open sql1 con adOpenDynamic adLockOptimisticEnd SubPrivate Sub Image1_Click End SubPrivate Sub xptopbuttons1_Click Unload MeEnd SubPrivate Sub xptopbuttons2_Click MeWindowState 1End Sub3 还书 还书这一环节也同样关键用户在知道工号的前提下只要知道借书信息的图书编号就能方便的还书代码见code目录下 recordtxtOption ExplicitPrivate Sub Command1_Click Dim sql1 sql2 As StringDim num As Integer检测用户名及书号正确否sql1 select