科学生毕业文（设计）
题目 图书查询系统设计实现
学院 数学计算机科学学院
专业 计算机科学技术
学生姓名
学号 0415350
指导教师 职称
文字数 6380
完成日期 2006 年 04 月 27 日
目录
引言 4
二图书查询系统需求分析流程图 4
21 图书查询系统需求分析 4
22流程图 5
三系统分析设计关技术 6
31 系统总体结构 6
32 模块详细设计 6
321 户登录设计界面源代码 6
322图书查找显示设计 9
323图书阅界面设计源代码 13
324 信息显示清设计 15
33数库设计 16
34 系统设计中关技术 18
341 Visual Basic程序设计语言 18
342 Microsoft Access 18
343 Visual BasicAccess联接技术 19
四系统测试环境实例 19
41系统测试环境 19
42测试实例研究选择 19
五结束语 20
致谢： 20
参考文献： 20
图书查询系统设计实现
(**师范学数学计算机科学学院 ** **241000)
摘：着信息高速发展高科技普生产生活越越离开信息信息查询重性日渐现形谁更快查更更效信息谁竞争中处利位时代飞速发展信息时代行业中离开信息查询正计算机广泛应信息查询系统环境计算机处利够更快进行信息查询系统方便图书馆信息查询设计图书馆作种信息资源集散图书户阅资料繁图书查询尤重果图书处理手工操作**量出错率高出错易更改基点认必建立图书查询系统图书查询**规范化系统化程序化避免图书查询意性提高信息处理速度准确性够时准确效查询
关键词：图书查询系统图书数库Visual Basic语言
The design and realization of books inquiry system
Chen Baojun
(College of Mathematics and Computer Science Anhui Normal University WuHu 241000)
Abstract With the highspeed development of information and popularization of hightech people's production living is more and more due to the information so the importance of information inquiry reveals one's true features day by day who can find more effective information more quickly who will be in the favorable position in the competition It is due to the information inquiry in all trades and professions this is that a computer is widely used in the environment of information inquiry system The biggest advantage of the computer lies in utilizing it to carry on information inquiry faster This system is designed in order to help to the inquiry of the information of the library The library as the distributing center of a kind of information resources books and user borrow the materials variously the inquiry of the books is especially important if it is done by hand to deal with the books the work load is large the making mistakes rate is high the difficult change after making mistakes Because of this I think that it is necessary to set up a piece of books to inquire about the system make the books inquire the work is standardized systematized the procedure avoid random that books inquire pace and accuracy to raise information processing inquiry that can be prompt accurate effective
Keywords Books inquiry system Books database Visual Basic language
引言
实现科学技术现代化图书理**现代化极重科学技术断发展进步现代技术动态概念着时代发展计算机技术代表现代技术巨发展迅速变化发展中70年代期出现图书情报**联机革命计算机更广泛更效应角落发达国家较重视领域发展国尚存较差距说图书情报**计算机化提高国科学技术水项带重战略意义措施图书情报**现代化重标志
计算机技术现代技术部分图书动化图书馆现代化部分间部分整体关系计算机技术信息技术心脏现代社会骄子信息社会科技角图书馆现代技术中计算机技术处核心位现代化设备起控制连接转换作图书馆动化图书馆现代化核心导部分图书情报计算机理系统提高图书馆身理水代**员进行图书情报资料某加工处理**员繁重手工劳动重复劳动中解放出图书查询系统图书理系统中基子系统
总建立图书馆计算机动化理系统提高图书馆图书流通率推动社会文化生活进步通建立查询系统更加方便快捷找需知识
二图书查询系统需求分析流程图
21 图书查询系统需求分析
生物样软件诞生成长衰亡生存程称软件生存期根思想软件生存期六步骤制定计划需求分析软件设计程序编码测试运行维护
软件需求分析**软件生存期中重步决定性步通需求分析软件功性总体领描述具体软件需求规程说明奠定软件开发基础
数库需求分析进行系统功划分系统设计重环节根问题分析三数库表：图书信息表(bookmdb)学生信息表(personalmdb)
出信息表(BookFfmdb)系统需数项数结构情况
根调查图书馆业务情况实际应角度出发确定户提供实现功：
1登录功
2读者：提供直接查询（包括模糊查询）条件分类查询功
22流程图
窗口
出错 验证户身份 户书证号
出错信息 正确
显示户基信息
选择 退出
查找图书信息 清空户显示基信息
搜索
找出
输出查询信息
终端显示
图 图书查询系统流程图
三系统分析设计关技术
31 系统总体结构
图书查询系统根功划分：户登录图书查找显示图书阅信息显示清四模块系统结构图示：
户登录
图书查找显示
图书阅
信息显示清
身份验证
图书数库
图二 系统功结构图
户登录功：户合法性进行身份验证图书理系统针某特定图书馆授权户（校学生老师）操作时维护系统安全性需户身份进行验证保障合法户安全阻止合法户操作破坏
图书查找显示功：图书数库中搜索满足户需求图书信息合法户通出满足求图书信息图书查找模块图书数库连接中找满足条件图书信息提供显示户
图书阅功：利图书数库中提供图书信息没出图书进行阅产生新图书信息写入图书数库中合法户提供新图书信息作
信息显示清功：图书查找显示模块中显示图书信息清户次搜索提供台清图书查询系统操作台显示图书户登录信息保证户次操作台整洁避免显示时户操作错误
32 模块详细设计
321 户登录设计界面源代码
户登录界面中求输入书证号码确定钮取消钮通简单钮户方便进行操作户登录界面应源代码
图三 户登录界面图
ER模型
书证号码 确定
取消
书证号
户登录
姓名
1
验证
户基信息
班级
1
计欠费
Private Sub cmdOkCancel_Click(Index As Integer)
Select Case Index
Case 0
If txtBookIdText Then
MsgBox 请输入书证号码 0 + 48 错误
txtBookIdSetFocus
Exit Sub
Else
BookId txtBookIdText
LoginFlag True
Unload Me
End If
Case 1
LoginFlag False
Unload Me
End Select
End Sub
Private Sub Form_Load()
txtBookIdText
Set db Workspaces(0)OpenDatabase(DataBase\Datamdb False)
End Sub
322图书查找显示设计
图四 图书查找显示界面图
图书编号
书名
ER模型
出版社
图书查找
书日期
图书编号
书证号
1
搜索
图书基信息
书姓名
1
书名
否出
类
价格
LVListItemsClear
FindfrmMousePointer 11
If txtBookBian <> And txtBookName Then
rst1Seek txtBookBian
If rst1NoMatch Then
MsgBox 没找匹配记录 0 + 48 查找失败
FindfrmMousePointer 0
Exit Sub
End If
If rst1Fields(否出) True Then
rst2Seek txtBookBian
LVListItemsAdd rst1Fields(图书编号) & vbNullString
With LVListItems(1)
SubItems(1) rst1Fields(书名) & vbNullString
SubItems(2) rst1Fields(类) & vbNullString
SubItems(3) rst1Fields(价格) & Empty
SubItems(4) rst1Fields(出版社) & vbNullString
SubItems(5) rst1Fields(否出)
SubItems(6) rst2Fields(书证号) & vbNullString
SubItems(7) rst2Fields(姓名) & vbNullString
SubItems(8) rst2Fields(出日期)
End With
Else
LVListItemsAdd rst1Fields(图书编号) & vbNullString
With LVListItems(1)
SubItems(1) rst1Fields(书名) & vbNullString
SubItems(2) rst1Fields(类) & vbNullString
SubItems(3) rst1Fields(价格) & Empty
SubItems(4) rst1Fields(出版社) & vbNullString
SubItems(5) rst1Fields(否出)
End With
End If
ElseIf txtBookBian And txtBookName <> Then
FindStr select * from Book where 书名 like
FindStr FindStr & ' & txtBookName & '
qry1SQL FindStr
Set rst qry1OpenRecordset
If rstRecordCount 0 Then
MsgBox 没找匹配记录 0 + 48 查找失败
FindfrmMousePointer 0
Exit Sub
End If
rstMoveLast
RecNum rstRecordCount
rstMoveFirst
For i 1 To RecNum
If rstFields(否出) True Then
rst2Seek rstFields(图书编号)
LVListItemsAdd i rstFields(图书编号) & vbNullString
With LVListItems(i)
SubItems(1) rstFields(书名) & vbNullString
SubItems(2) rstFields(类) & vbNullString
SubItems(3) rstFields(价格) & Empty
SubItems(4) rstFields(出版社) & vbNullString
SubItems(5) rstFields(否出)
SubItems(6) rst2Fields(书证号) & vbNullString
SubItems(7) rst2Fields(姓名) & vbNullString
SubItems(8) rst2Fields(出日期)
End With
Else
LVListItemsAdd i rstFields(图书编号) & vbNullString
With LVListItems(i)
SubItems(1) rstFields(书名) & vbNullString
SubItems(2) rstFields(类) & vbNullString
SubItems(3) rstFields(价格) & Empty
SubItems(4) rstFields(出版社) & vbNullString
SubItems(5) rstFields(否出)
End With
End If
rstMoveNext
If rstEOF Then Exit For
Next
Else
MsgBox 请选择项进行查找 0 + 48 提示
txtBookBian
txtBookName
txtBookBianSetFocus
FindfrmMousePointer 0
Exit Sub
End If
Private Sub Form_Load()
Set db1 Workspaces(0)OpenDatabase(DataBase\Datamdb False)
Set rst1 db1OpenRecordset(Book dbOpenTable)
Set qry1 db1CreateQueryDef()
rst1Index 图书编号
Set db2 Workspaces(0)OpenDatabase(DataBase\Datamdb False)
Set rst2 db2OpenRecordset(BookFf dbOpenTable)
Set qry2 db2CreateQueryDef()
rst2Index 图书编号
txtBookBian
txtBookName
LVView lvwReport
LVGridLines False
LVColumnHeadersAdd 图书编号
LVColumnHeadersAdd 书名
LVColumnHeadersAdd 类
LVColumnHeadersAdd 价格
LVColumnHeadersAdd 出版社
LVColumnHeadersAdd 否出
LVColumnHeadersAdd 书证号
LVColumnHeadersAdd 书姓名
LVColumnHeadersAdd 书日期
End Sub
323图书阅界面设计源代码
图五 图书阅界面图
图书编号
ER模型
价格
阅
天日期
1
身份验证
编号
阅信息
1
书名
出版社
类
Private Sub txtBookBian_KeyPress(KeyAscii As Integer)
If KeyAscii 13 Then
If txtBookIdText Then
MsgBox 请先登录 0 + 48 提示
CmdLoginSetFocus
txtBookBianText
Exit Sub
End If
rst3Seek txtBookBianText
If rst3NoMatch Then
MsgBox 没图书编号请重新填写 0 + 48 填写错误
txtBookBianSetFocus
Frame4Visible False
Frame7Visible True
Exit Sub
End If
Frame4Visible True
Frame7Visible False
txtBookHaoText txtBookBianText
txtBookNameText rst3Fields(书名) & vbNullString
txtChuBanText rst3Fields(出版社) & vbNullString
txtCostText rst3Fields(价格) & Empty
txtLentDate Date
txtTypeText rst3Fields(类) & vbNullString
End If
End Sub
324 信息显示清设计
图六 信息显示清界面图
计欠费
姓名
价格
班级
ER模型
显示信息
书名
类
图书编号
天日期
书证号
出版社
姓名
1
清
初始界面
班级
1
书证号
计欠费
图书编号
Private Sub cmdKong_Click()
txtBookIdText
txtNameText
txtClassText
txtDepartText
txtBookHaoText
txtBookName
txtZhiCheng
txtFaText
txtBookBianText
Frame4Visible False
Frame7Visible True
LV2ListItemsClear
CmdLoginSetFocus
End Sub
33数库设计
信息系统务通量数获理需信息必须存储理量数建立良数组织结构数库整系统迅速方便准确调理需数衡量信息系统开发**坏指标数库设计进行数库逻辑设计数定分类分组系统逻辑层次组织起面户数库设计时需综合企业部门存档数数需求分析数间关系DBMS提供功描述工具设计出规模适正确反映数关系数冗余少存取效率高满足种查询求数模型
设计数库基步骤：
1确定**数库完成务总体设计
2规划该数库中需建立表
3确定表中需字段
4明确唯值字段
5确定表间关系
6优化设计
7输入数**数象
8 Microsoft Access分析工具设计输出报表
(1)图书数表建立
表
标识：Book建立Book表开ACCESS利表导创建表book者设计视图创建表图书数表包括图书编号书名价格类出版社书日期否出7字段表1示
(2)阅情况数表建立
表二
标识：BookFf建立BookFf表程类似建表程略表二示
阅情况数表包括书证号姓名图书编号书名价格类出版社出日期8字段
(3)户数表建立
表三
标识：Personal 表三示户数表包括书证号姓名班级罚款4字段
34 系统设计中关技术
341 Visual Basic程序设计语言
VB程序设计语言Microsoft 公司1991年推出Basic语言基础发展编程系统仅继承语言简单灵活易特点提供强视化设计工具户须花量时间界面设计方便设计出Windows环境运行应程序媒体数库网络等应程序开发样心应手具特点：
1具面象视化设计：程序数封装起视象象视程序员设计时利做类型象程序设计效率提高
2提供易学易应程序集成开发环境：VB集成开发环境中户设计界面编写代码调试程序应程序编译成执行文件直应程序制作**装盘便够脱离VB系统Windows环境中运行户提供友开发环境
3结构化程序设计：VB具丰富数类型众部函数模块化结构化程序设计语言结构清晰简单易学
4强数库功：VB中利数控件访问种数库系统Microsoft AccessSQLMicrosoft FoxPro等
5完备Help联机帮助功：VB中利帮助菜单F1功键户时方便需帮助信息VB帮助窗口中显示关示例代码通复制粘贴操作获取量示例代码户学提供捷径
342 Microsoft Access
Access 数库理系统Microsoft Office 套件重组成部分Access新版Windows 95环境运行Access适型商务活动存贮理商务活动需数Access仅数库具强数理功方便利种数源生成窗体（表单）查询报表应程序等
Access数库软件完成功：
1利表存储相应信息种类型信息创建表
2根需定义表间关系表中相关数机联系起
3创建查询检索符合户指定条件数利查询更新删条记录数执行种计算
4创建窗体直接查输入更改表格中数
5绘制报表分析数者数特定方式印出
6利宏编码种数库象连接起形成数库应系统
343 Visual BasicAccess联接技术
1ADO数访问接口Microsoft处理数库信息新技术种ActiveX象采称OLE DB数访问模式数访问象DAO远程数象RDO开放数库互连ODBC三种方式扩展ADO象模型定义编程分层象集合三象成员 ConnectionCommandRecordset象集合象ErrorsParameters
Fields等组成想程序中ADO象必须先前工程引ADO象库
2象链接嵌入OLE（Object linking and embedding）基Windows 应程序间够方便实现数交换通信VB应程序中OLE控件链接（linking）嵌入(embedding)应程序数OLE动化程序中控制源文档
四系统测试环境实例
41系统测试环境
1Visual Basic运行低环境求
硬件：486DX66 MHz更高处理器(推荐Pentium更高处理器)CDROM驱动器VGA分辨率更高监视器>16MBRAM鼠标定点设备
软件Windows95更高版WindowsNT351更高版
2Microsoft Access运行低环境求：
Pentium 75MHz 处理器计算机
Microsoft Windows 95 更新操作系统Microsoft Windows NT Workstation 操作系统 40 版 Service Pack 3
果您 Windows 95 Windows 98：操作系统 20 MB RAM Microsoft Access 额外 8 MB RAM
果您 Windows NT Workstation 40 版 Service Pack 3：操作系统 36 MB RAM Microsoft Access 额外8MBRAM
供 Microsoft Access 2000 硬盘空间（硬盘方式分区改变您 [定义] 安装时做选择系统会求较较少硬盘空间）：般安装：267MB
42测试实例研究选择
1户登录：输入数库中记录图书书号(001002003)没记录图书号(00900100011)测试否显示记录户基信息（书证号姓名计算机计欠费）显示错误信息话框
2查找：样输入数库中记录图书编号书名（100010011002）没记录图书号书名（10081009）测试否显示户需图书信息（图书编号价格类书名出版社否出书证号书姓名书日期）
3 清：点击清钮显示户基信息否清
五结束语
系统具相实功查找方面系统实现图书编号书名两关键字查询时查询利*’代字符实现记录查找户方面登录方便操作简单等项功
系统设计程中避免遇种样问题受种原限制系统利数库ACCESS应程序处系统中存储数量定限制
通次毕业设计学新东西发现量问题设计程中已解决进步学实践
致谢：
次毕业设计中指导老师身学东西认真负责**态度严谨治学精神深厚理水受益匪浅理实践中帮助少提高**学种巨帮助感谢耐心辅导
参考文献：
[1]龚**陆慰民杨志强Visual Basic 程序设计简明教程(60版)高等教育出版社
[2]段兴孙丽娜周峰Visual Basic 60控件实程序设计100例民邮电出版社
[3]Visual Basic 60中文版实编程技巧民邮电出版社六木**室编著
[4]齐治昌谭庆宁洪软件工程高等教育出版社
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
题目 图书查询系统设计实现
学院 数学计算机科学学院
专业 计算机科学技术
学生姓名
学号 0415350
指导教师 职称
文字数 6380
完成日期 2006 年 04 月 27 日
目录
引言 4
二图书查询系统需求分析流程图 4
21 图书查询系统需求分析 4
22流程图 5
三系统分析设计关技术 6
31 系统总体结构 6
32 模块详细设计 6
321 户登录设计界面源代码 6
322图书查找显示设计 9
323图书阅界面设计源代码 13
324 信息显示清设计 15
33数库设计 16
34 系统设计中关技术 18
341 Visual Basic程序设计语言 18
342 Microsoft Access 18
343 Visual BasicAccess联接技术 19
四系统测试环境实例 19
41系统测试环境 19
42测试实例研究选择 19
五结束语 20
致谢： 20
参考文献： 20
图书查询系统设计实现
(**师范学数学计算机科学学院 ** **241000)
摘：着信息高速发展高科技普生产生活越越离开信息信息查询重性日渐现形谁更快查更更效信息谁竞争中处利位时代飞速发展信息时代行业中离开信息查询正计算机广泛应信息查询系统环境计算机处利够更快进行信息查询系统方便图书馆信息查询设计图书馆作种信息资源集散图书户阅资料繁图书查询尤重果图书处理手工操作**量出错率高出错易更改基点认必建立图书查询系统图书查询**规范化系统化程序化避免图书查询意性提高信息处理速度准确性够时准确效查询
关键词：图书查询系统图书数库Visual Basic语言
The design and realization of books inquiry system
Chen Baojun
(College of Mathematics and Computer Science Anhui Normal University WuHu 241000)
Abstract With the highspeed development of information and popularization of hightech people's production living is more and more due to the information so the importance of information inquiry reveals one's true features day by day who can find more effective information more quickly who will be in the favorable position in the competition It is due to the information inquiry in all trades and professions this is that a computer is widely used in the environment of information inquiry system The biggest advantage of the computer lies in utilizing it to carry on information inquiry faster This system is designed in order to help to the inquiry of the information of the library The library as the distributing center of a kind of information resources books and user borrow the materials variously the inquiry of the books is especially important if it is done by hand to deal with the books the work load is large the making mistakes rate is high the difficult change after making mistakes Because of this I think that it is necessary to set up a piece of books to inquire about the system make the books inquire the work is standardized systematized the procedure avoid random that books inquire pace and accuracy to raise information processing inquiry that can be prompt accurate effective
Keywords Books inquiry system Books database Visual Basic language
引言
实现科学技术现代化图书理**现代化极重科学技术断发展进步现代技术动态概念着时代发展计算机技术代表现代技术巨发展迅速变化发展中70年代期出现图书情报**联机革命计算机更广泛更效应角落发达国家较重视领域发展国尚存较差距说图书情报**计算机化提高国科学技术水项带重战略意义措施图书情报**现代化重标志
计算机技术现代技术部分图书动化图书馆现代化部分间部分整体关系计算机技术信息技术心脏现代社会骄子信息社会科技角图书馆现代技术中计算机技术处核心位现代化设备起控制连接转换作图书馆动化图书馆现代化核心导部分图书情报计算机理系统提高图书馆身理水代**员进行图书情报资料某加工处理**员繁重手工劳动重复劳动中解放出图书查询系统图书理系统中基子系统
总建立图书馆计算机动化理系统提高图书馆图书流通率推动社会文化生活进步通建立查询系统更加方便快捷找需知识
二图书查询系统需求分析流程图
21 图书查询系统需求分析
生物样软件诞生成长衰亡生存程称软件生存期根思想软件生存期六步骤制定计划需求分析软件设计程序编码测试运行维护
软件需求分析**软件生存期中重步决定性步通需求分析软件功性总体领描述具体软件需求规程说明奠定软件开发基础
数库需求分析进行系统功划分系统设计重环节根问题分析三数库表：图书信息表(bookmdb)学生信息表(personalmdb)
出信息表(BookFfmdb)系统需数项数结构情况
根调查图书馆业务情况实际应角度出发确定户提供实现功：
1登录功
2读者：提供直接查询（包括模糊查询）条件分类查询功
22流程图
窗口
出错 验证户身份 户书证号
出错信息 正确
显示户基信息
选择 退出
查找图书信息 清空户显示基信息
搜索
找出
输出查询信息
终端显示
图 图书查询系统流程图
三系统分析设计关技术
31 系统总体结构
图书查询系统根功划分：户登录图书查找显示图书阅信息显示清四模块系统结构图示：
户登录
图书查找显示
图书阅
信息显示清
身份验证
图书数库
图二 系统功结构图
户登录功：户合法性进行身份验证图书理系统针某特定图书馆授权户（校学生老师）操作时维护系统安全性需户身份进行验证保障合法户安全阻止合法户操作破坏
图书查找显示功：图书数库中搜索满足户需求图书信息合法户通出满足求图书信息图书查找模块图书数库连接中找满足条件图书信息提供显示户
图书阅功：利图书数库中提供图书信息没出图书进行阅产生新图书信息写入图书数库中合法户提供新图书信息作
信息显示清功：图书查找显示模块中显示图书信息清户次搜索提供台清图书查询系统操作台显示图书户登录信息保证户次操作台整洁避免显示时户操作错误
32 模块详细设计
321 户登录设计界面源代码
户登录界面中求输入书证号码确定钮取消钮通简单钮户方便进行操作户登录界面应源代码
图三 户登录界面图
ER模型
书证号码 确定
取消
书证号
户登录
姓名
1
验证
户基信息
班级
1
计欠费
Private Sub cmdOkCancel_Click(Index As Integer)
Select Case Index
Case 0
If txtBookIdText Then
MsgBox 请输入书证号码 0 + 48 错误
txtBookIdSetFocus
Exit Sub
Else
BookId txtBookIdText
LoginFlag True
Unload Me
End If
Case 1
LoginFlag False
Unload Me
End Select
End Sub
Private Sub Form_Load()
txtBookIdText
Set db Workspaces(0)OpenDatabase(DataBase\Datamdb False)
End Sub
322图书查找显示设计
图四 图书查找显示界面图
图书编号
书名
ER模型
出版社
图书查找
书日期
图书编号
书证号
1
搜索
图书基信息
书姓名
1
书名
否出
类
价格
LVListItemsClear
FindfrmMousePointer 11
If txtBookBian <> And txtBookName Then
rst1Seek txtBookBian
If rst1NoMatch Then
MsgBox 没找匹配记录 0 + 48 查找失败
FindfrmMousePointer 0
Exit Sub
End If
If rst1Fields(否出) True Then
rst2Seek txtBookBian
LVListItemsAdd rst1Fields(图书编号) & vbNullString
With LVListItems(1)
SubItems(1) rst1Fields(书名) & vbNullString
SubItems(2) rst1Fields(类) & vbNullString
SubItems(3) rst1Fields(价格) & Empty
SubItems(4) rst1Fields(出版社) & vbNullString
SubItems(5) rst1Fields(否出)
SubItems(6) rst2Fields(书证号) & vbNullString
SubItems(7) rst2Fields(姓名) & vbNullString
SubItems(8) rst2Fields(出日期)
End With
Else
LVListItemsAdd rst1Fields(图书编号) & vbNullString
With LVListItems(1)
SubItems(1) rst1Fields(书名) & vbNullString
SubItems(2) rst1Fields(类) & vbNullString
SubItems(3) rst1Fields(价格) & Empty
SubItems(4) rst1Fields(出版社) & vbNullString
SubItems(5) rst1Fields(否出)
End With
End If
ElseIf txtBookBian And txtBookName <> Then
FindStr select * from Book where 书名 like
FindStr FindStr & ' & txtBookName & '
qry1SQL FindStr
Set rst qry1OpenRecordset
If rstRecordCount 0 Then
MsgBox 没找匹配记录 0 + 48 查找失败
FindfrmMousePointer 0
Exit Sub
End If
rstMoveLast
RecNum rstRecordCount
rstMoveFirst
For i 1 To RecNum
If rstFields(否出) True Then
rst2Seek rstFields(图书编号)
LVListItemsAdd i rstFields(图书编号) & vbNullString
With LVListItems(i)
SubItems(1) rstFields(书名) & vbNullString
SubItems(2) rstFields(类) & vbNullString
SubItems(3) rstFields(价格) & Empty
SubItems(4) rstFields(出版社) & vbNullString
SubItems(5) rstFields(否出)
SubItems(6) rst2Fields(书证号) & vbNullString
SubItems(7) rst2Fields(姓名) & vbNullString
SubItems(8) rst2Fields(出日期)
End With
Else
LVListItemsAdd i rstFields(图书编号) & vbNullString
With LVListItems(i)
SubItems(1) rstFields(书名) & vbNullString
SubItems(2) rstFields(类) & vbNullString
SubItems(3) rstFields(价格) & Empty
SubItems(4) rstFields(出版社) & vbNullString
SubItems(5) rstFields(否出)
End With
End If
rstMoveNext
If rstEOF Then Exit For
Next
Else
MsgBox 请选择项进行查找 0 + 48 提示
txtBookBian
txtBookName
txtBookBianSetFocus
FindfrmMousePointer 0
Exit Sub
End If
Private Sub Form_Load()
Set db1 Workspaces(0)OpenDatabase(DataBase\Datamdb False)
Set rst1 db1OpenRecordset(Book dbOpenTable)
Set qry1 db1CreateQueryDef()
rst1Index 图书编号
Set db2 Workspaces(0)OpenDatabase(DataBase\Datamdb False)
Set rst2 db2OpenRecordset(BookFf dbOpenTable)
Set qry2 db2CreateQueryDef()
rst2Index 图书编号
txtBookBian
txtBookName
LVView lvwReport
LVGridLines False
LVColumnHeadersAdd 图书编号
LVColumnHeadersAdd 书名
LVColumnHeadersAdd 类
LVColumnHeadersAdd 价格
LVColumnHeadersAdd 出版社
LVColumnHeadersAdd 否出
LVColumnHeadersAdd 书证号
LVColumnHeadersAdd 书姓名
LVColumnHeadersAdd 书日期
End Sub
323图书阅界面设计源代码
图五 图书阅界面图
图书编号
ER模型
价格
阅
天日期
1
身份验证
编号
阅信息
1
书名
出版社
类
Private Sub txtBookBian_KeyPress(KeyAscii As Integer)
If KeyAscii 13 Then
If txtBookIdText Then
MsgBox 请先登录 0 + 48 提示
CmdLoginSetFocus
txtBookBianText
Exit Sub
End If
rst3Seek txtBookBianText
If rst3NoMatch Then
MsgBox 没图书编号请重新填写 0 + 48 填写错误
txtBookBianSetFocus
Frame4Visible False
Frame7Visible True
Exit Sub
End If
Frame4Visible True
Frame7Visible False
txtBookHaoText txtBookBianText
txtBookNameText rst3Fields(书名) & vbNullString
txtChuBanText rst3Fields(出版社) & vbNullString
txtCostText rst3Fields(价格) & Empty
txtLentDate Date
txtTypeText rst3Fields(类) & vbNullString
End If
End Sub
324 信息显示清设计
图六 信息显示清界面图
计欠费
姓名
价格
班级
ER模型
显示信息
书名
类
图书编号
天日期
书证号
出版社
姓名
1
清
初始界面
班级
1
书证号
计欠费
图书编号
Private Sub cmdKong_Click()
txtBookIdText
txtNameText
txtClassText
txtDepartText
txtBookHaoText
txtBookName
txtZhiCheng
txtFaText
txtBookBianText
Frame4Visible False
Frame7Visible True
LV2ListItemsClear
CmdLoginSetFocus
End Sub
33数库设计
信息系统务通量数获理需信息必须存储理量数建立良数组织结构数库整系统迅速方便准确调理需数衡量信息系统开发**坏指标数库设计进行数库逻辑设计数定分类分组系统逻辑层次组织起面户数库设计时需综合企业部门存档数数需求分析数间关系DBMS提供功描述工具设计出规模适正确反映数关系数冗余少存取效率高满足种查询求数模型
设计数库基步骤：
1确定**数库完成务总体设计
2规划该数库中需建立表
3确定表中需字段
4明确唯值字段
5确定表间关系
6优化设计
7输入数**数象
8 Microsoft Access分析工具设计输出报表
(1)图书数表建立
表
标识：Book建立Book表开ACCESS利表导创建表book者设计视图创建表图书数表包括图书编号书名价格类出版社书日期否出7字段表1示
(2)阅情况数表建立
表二
标识：BookFf建立BookFf表程类似建表程略表二示
阅情况数表包括书证号姓名图书编号书名价格类出版社出日期8字段
(3)户数表建立
表三
标识：Personal 表三示户数表包括书证号姓名班级罚款4字段
34 系统设计中关技术
341 Visual Basic程序设计语言
VB程序设计语言Microsoft 公司1991年推出Basic语言基础发展编程系统仅继承语言简单灵活易特点提供强视化设计工具户须花量时间界面设计方便设计出Windows环境运行应程序媒体数库网络等应程序开发样心应手具特点：
1具面象视化设计：程序数封装起视象象视程序员设计时利做类型象程序设计效率提高
2提供易学易应程序集成开发环境：VB集成开发环境中户设计界面编写代码调试程序应程序编译成执行文件直应程序制作**装盘便够脱离VB系统Windows环境中运行户提供友开发环境
3结构化程序设计：VB具丰富数类型众部函数模块化结构化程序设计语言结构清晰简单易学
4强数库功：VB中利数控件访问种数库系统Microsoft AccessSQLMicrosoft FoxPro等
5完备Help联机帮助功：VB中利帮助菜单F1功键户时方便需帮助信息VB帮助窗口中显示关示例代码通复制粘贴操作获取量示例代码户学提供捷径
342 Microsoft Access
Access 数库理系统Microsoft Office 套件重组成部分Access新版Windows 95环境运行Access适型商务活动存贮理商务活动需数Access仅数库具强数理功方便利种数源生成窗体（表单）查询报表应程序等
Access数库软件完成功：
1利表存储相应信息种类型信息创建表
2根需定义表间关系表中相关数机联系起
3创建查询检索符合户指定条件数利查询更新删条记录数执行种计算
4创建窗体直接查输入更改表格中数
5绘制报表分析数者数特定方式印出
6利宏编码种数库象连接起形成数库应系统
343 Visual BasicAccess联接技术
1ADO数访问接口Microsoft处理数库信息新技术种ActiveX象采称OLE DB数访问模式数访问象DAO远程数象RDO开放数库互连ODBC三种方式扩展ADO象模型定义编程分层象集合三象成员 ConnectionCommandRecordset象集合象ErrorsParameters
Fields等组成想程序中ADO象必须先前工程引ADO象库
2象链接嵌入OLE（Object linking and embedding）基Windows 应程序间够方便实现数交换通信VB应程序中OLE控件链接（linking）嵌入(embedding)应程序数OLE动化程序中控制源文档
四系统测试环境实例
41系统测试环境
1Visual Basic运行低环境求
硬件：486DX66 MHz更高处理器(推荐Pentium更高处理器)CDROM驱动器VGA分辨率更高监视器>16MBRAM鼠标定点设备
软件Windows95更高版WindowsNT351更高版
2Microsoft Access运行低环境求：
Pentium 75MHz 处理器计算机
Microsoft Windows 95 更新操作系统Microsoft Windows NT Workstation 操作系统 40 版 Service Pack 3
果您 Windows 95 Windows 98：操作系统 20 MB RAM Microsoft Access 额外 8 MB RAM
果您 Windows NT Workstation 40 版 Service Pack 3：操作系统 36 MB RAM Microsoft Access 额外8MBRAM
供 Microsoft Access 2000 硬盘空间（硬盘方式分区改变您 [定义] 安装时做选择系统会求较较少硬盘空间）：般安装：267MB
42测试实例研究选择
1户登录：输入数库中记录图书书号(001002003)没记录图书号(00900100011)测试否显示记录户基信息（书证号姓名计算机计欠费）显示错误信息话框
2查找：样输入数库中记录图书编号书名（100010011002）没记录图书号书名（10081009）测试否显示户需图书信息（图书编号价格类书名出版社否出书证号书姓名书日期）
3 清：点击清钮显示户基信息否清
五结束语
系统具相实功查找方面系统实现图书编号书名两关键字查询时查询利*’代字符实现记录查找户方面登录方便操作简单等项功
系统设计程中避免遇种样问题受种原限制系统利数库ACCESS应程序处系统中存储数量定限制
通次毕业设计学新东西发现量问题设计程中已解决进步学实践
致谢：
次毕业设计中指导老师身学东西认真负责**态度严谨治学精神深厚理水受益匪浅理实践中帮助少提高**学种巨帮助感谢耐心辅导
参考文献：
[1]龚**陆慰民杨志强Visual Basic 程序设计简明教程(60版)高等教育出版社
[2]段兴孙丽娜周峰Visual Basic 60控件实程序设计100例民邮电出版社
[3]Visual Basic 60中文版实编程技巧民邮电出版社六木**室编著
[4]齐治昌谭庆宁洪软件工程高等教育出版社
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
