图书管理系统的设计的报告书-VB编程毕业设计

1、计算机计算机 1 1 班班 2525 号邱利荣号邱利荣 图书管理系统的设计与实现图书管理系统的设计与实现 目录目录 一、序言 4 二、需求分析说明书 4 2.1 系统介绍.4 2.2 系统面向的用户群体.4 2.3 系统的功能性需求.4 2.4 系统的非功能性需求.5 2.4.1 用户界面需求.5 2.4.2 软硬件环境需求.5 2.4.3 软件质量需求.5 三、可行性分析报告 5 3.1 技术可行性.5 3.2 人员可能性.5 3.3 时间、设备可能性.5 3.4 系统工作量.5 3.5 代码工作量.5 3.6 文档要求.5 四、开发环境与项目规划 5 4.1 开发环境.5 4.2 项目规划

2、与管理.5 4.2.1 开发人员安排.5 4.2.2 开发进度安排.6 五、软件界面设计标准与规范 6 5.1 编写目的.6 5.2 界面设计思想.6 5.3 界面设计原则.6 5.4 界面设计样式.6 5.5 常见提示信息样式.6 5.6 常见错误信息样式.7 5.7 其他界面约定.7 六、软件编码设计标准与规范 7 6.1 对象命名约定.7 6.2 常量和变量命名约定.8 6.3 结构化编码约定.8 6.4 数据源的约定.9 6.5 数据库访问约定.9 6.6 其他约定.9 七、数据库分析与设计 10 7.1 数据库环境说明.10 1 7.2 数据库命名标准与规范.10 7.3 数据库逻辑

3、设计.10 7.4 数据库物理设计.10 7.4.1 表、视图汇总.10 7.4.2 各表、视图设计详解.11 八、软件体系结构设计说明书 15 8.1 系统概述.15 8.2 设计约束.15 8.3 设计策略.15 8.4 系统概要设计说明书.16 8.4.1 图例说明.16 8.4.2 系统总体结构图.16 8.5 系统详细设计说明书.17 8.5.1 系统模块汇总.17 8.5.2 系统核心模块详解.18 8.5.3 系统模块详解.28 九、用户界面设计报告 42 9.1 界面设计规范.42 9.2 系统窗体汇总.42 9.3 主界面设计.43 9.4 子界面设计.43 9.5 界面资源

4、设计.44 十、软件测试分析报告 44 10.1 测试范围与主要内容.44 10.2 测试方法.44 10.3 测试报告.44 10.4 改进建议与措施.45 十一、软件使用说明书 45 11.1 软件概述.45 11.2 使用说明.45 11.2.1 系统登陆.45 11.2.2 系统退出.46 11.2.3 图书类别管理. 46 11.2.4 图书信息管理.48 11.2.5 查询图书信息.48 11.2.6 读者类别管理.49 11.2.7 读者信息管理.49 11.2.8 查询读者信息.50 11.2.9 借书管理.50 11.2.10 还书管理.50 参考资料 51 一、序言一、序言

5、 2 图书管理系统的设计与推出是多方面原因促成的,比如学校的图书管理,日常管理工作都 是人工操作,历史数据很难保存和利用。而其他的小型图书馆大多如此。针对这种状况,我计 划开发一个面向小型图书馆的图书管理系统,实现对人员、物流的全面管理,以帮助这些图书 馆早日实现书店管理信息化。 为了系统的顺利开发和维护,特编制如下技术文档: 二、二、需求分析说明书需求分析说明书 2.1 系统介绍系统介绍 本系统定位于小型图书馆,暂时考虑单机环境下的实现；操作系统选择目前常用的 Windows 98/20XX。系统性质为 MIS(管理信息系统)或财务软件。 本系统采用会员制管理,系统功能应包含图书管理、读者管

6、理、图书借阅管理、系统管 理等。系统界面力求简洁、易用,在标准化的基础上考虑界面的美观和新颖。 2.22.2 系统面向的用户群体系统面向的用户群体 系统面向小型图书馆,用户群体为这些图书馆的学生、老师或者工作人员等。 2.32.3 系统的功能性需求系统的功能性需求 功能序号功能名称功能说明 1 图书管理包含图书类别、信息管理、查询图书信息等 2 读者管理管理包含读者类别、读者信息、查询读者信息等 3 图书借阅管理包含借书管理、还书管理 4 系统管理系统退出 2.42.4 系统的非功能性需求系统的非功能性需求 2.4.12.4.1 用户界面需求 简洁、易用、易懂,美观、大方、标准,具备一定的兼容

7、性。 2.4.22.4.2 软硬件环境需求 软件环境:兼容当前主流操作系统 Windows 95/98/NT/Me/20XX/XP 等。 硬件环境:386 以上计算机。 2.4.32.4.3 软件质量需求 易用、健壮、兼容性好、运行稳定、有一定安全保障。 三三、可行性分析报告、可行性分析报告 3.13.1 技术可行性技术可行性 系统的性质为 MIS 或财务软件,因而数据库的设计与操纵是系统设计的核心。我在 20XX 年 6 月至 20XX 年 7 月曾经成功完成了“图书管理系统“的开发,具备一定的系统分析与设 计能力,熟悉数据库的设计与操纵；因而该系统的实现在技术上是可行的。 3.23.2 时

8、间、设备可能性时间、设备可能性 系统设计与开发工作预计耗时一个星期。实验设备如:计算机。 3.33.3 代码工作量代码工作量 预计需 7 天左右。 3.43.4 文档要求文档要求 依据国家计算机软件产品开发文件编制指南和管理信息系统基础与开发技术 的理论与原则编制标准的软件技术文档。 3 四、开发环境与项目规划四、开发环境与项目规划 4.14.1 开发环境开发环境 前台开发环境:Microsoft Visual Basic 6.0 后台数据库环境:Microsoft Access 20XX/20XX 4.2 项目规划与管理 11 月 29 日至 11 月 30 日:系统分析,进行需求定义,定义

9、系统概况 11 月 1 日至 12 月 2 日:数据库分析与设计 12 月 3 日至 12 月 4 日:软件体系结构设计 12 月 5 日至 12 月 6 日:软件编码 12 月 6 日至 12 月 6 日:系统测试 五、软件界面设计标准与规范五、软件界面设计标准与规范 5.1 编写目的 制定界面设计标准规范的目的是为了规范和统一软件界面设计制定软件界面设计标准 与规范。 5.2 界面设计思想 首先考虑标准化,在标准化的基础上进行界面的美工设计。 5.3 界面设计原则 简单易用、简洁明了、兼容性好、标准、规范。 5.4 界面设计样式 采用简单的界面. 图 1.系统界面 六、软件编码设计标准与规

10、范六、软件编码设计标准与规范 4 6.16.1 对象命名约定对象命名约定 对象名对象类型命名约定(前缀码) Form窗体Form Command按钮Command Label标签Label TextBox文本框TextBox ComboBox组合框ComboBox ListBox列表框ListBox Adodb数据库访问对象Adodb DataGrid数据表格显示组件DataGrid Frame框架Frame Option单选框Option CheckBox复选框CheckBox CommonDialog通用对话框组件CommonDialog Menu菜单Menu 6.26.2 结构化编码约定

11、结构化编码约定 编码应清晰、可读性好,运用缩进、空行,结合大小写区别等方法保持程序结构良好。 凡与数据库操作相关的模块一律加上容错代码,涉及多表操作的模块应运用“事务”处理, 以保持数据完整性。 编码风格参照下例进行: Private Sub cmdCancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() 检查正确的密码 If txtPassword = user Then 将代码放在这里传递 成功到 calling 函数 设置全局变量时最容易的

12、LoginSucceeded = True Me.Hide Form1.Show Else MsgBox 无效的密码,请重试!, , 登录 txtPassword.SetFocus SendKeys Home+End End If End Sub 6.36.3 数据源的约定数据源的约定 需用数据源的组件如:DataGrid 一律采用 Adodb 控件。有特殊需求的情况如:身份验证 5 应引用 DAO(数据访问对象)。 6.46.4 数据库访问约定数据库访问约定 数据库引擎采用 Microsoft.Jet.OLEDB.4.0,由 Adodb 组件进行数据库的访问,并为其他 组件提供数据源。特殊情

13、况、身份验证等由 DAO 访问数据库。 6.56.5 其他约定其他约定 无需数据显示的情况由 DAO 提供数据库支持,有数据显示的情况由 ADODB 组件提供数据 库支持。 七、数据库分析与设计七、数据库分析与设计 7.17.1 数据库环境说明数据库环境说明 考虑该系统的定位与现有技术力量,决定采用 Microsoft Access 20XX/20XX 作为系统 的后台数据库开发环境。 7.27.2 数据库命名标准与规范数据库命名标准与规范 说明:下表所列为数据库及各表的命名方法,具体信息请参阅 7.4.1 表、视图汇总。 名称类型命名办法约定 Db1 系统数据库字母 表基本表汉字或字母 查询

14、查询汉字 字段字段汉字或字母 7.37.3 数据库逻辑设计数据库逻辑设计 图 4.数据库逻辑结构图 7.47.4 数据库物理设计数据库物理设计 7.4.17.4.1 表 视图/表名类型说明 dzlb 基本表读者类别信息 useruser 用户 ID 读者信息读者信息 读者类别 图书管理图书管理 图书类别 BookBook 图书信息 读者表读者表 图书借阅图书借阅 借书 还书 查询图书查询图书 图书编号 6 dzxx 基本表读者信息 jyxx 基本表借阅信息 sjxx 基本表书籍信息 tslb基本表图书类别信息 7.4.27.4.2 各表设计详解 说明说明:空缺位置表示无要求,主键在约束栏注明。

15、 基本表:dzlb 字段类型长度格式约束 种类名称文本50主键 借书数量数字长整型 借书期限数字长整型 有限期限备注 基本表:dzxx 字段类型长度格式约束 读者姓名文本50主键 读者编号文本50主键 性别文本2 读者类别文本50 工作单位文本50 家庭住址文本50 TEL 号码文本12 登记日期日期/时间 已借书数量数字长整型 基本表:jyxx 字段类型长度格式约束 借阅编号自动编号长整型主键 读者编号文本50 读者姓名文本50 书籍编号文本50 书籍名称文本50 出借日期日期/时间 还书日期日期/时间 基本表:sjxx 字段类型长度格式约束 图书编号文本50主键 书名文本50 类别文本50

16、 作者文本250 出版社文本 出版日期日期/时间 登记日期日期/时间 是否被借出文本2 基本表:tslb 7 字段类型长度格式约束 类别名称文本50主键 类别编号文本50 八、软件体系结构设计说明书八、软件体系结构设计说明书 8.18.1 系统概述系统概述 在单机环境下进行系统安全的考虑,有必要进行用户权限的划分与控制,因而系统在总 体上应包含安全子系统之下的各类用户工作环境。用户权限的合理划分与有效控制是本系 统体系结构设计的核心。 8.28.2 设计约束设计约束 系统将实现人员、物流的全面管理,而物流管理是系统的核心部件,怎样实现二者的共 存,互不干扰,是本系统设计的难点。本系统必须实现对

17、用户权限的有效合理控制。 8.38.3 系统概要设计说明书系统概要设计说明书 8.3.18.3.1 图例说明 1.处理过程: 2.数据流:(单向) 3.数据流:(双向) 8.3.28.3.2 系统总体结构图 图 10.系统总体结构图 8.3.38.3.3 图书管理流程图 过程、模块 图书类别图书信息查询图书息 读者管理 图 书 管 理 系 统 图书管理 图书借阅管理 退出系统 图书类别管理 图书信息管理 查询图书信息 读者类别管理 读者信息管理 查询读者信息 借书管理 还书管理 添加借书信息 查询借书信息 图书管理 8 图 11. 图书管理流程图 8.3.48.3.4 读者管理流程图 图 12

18、. 读者管理流程图 8.3.58.3.5 图书借阅流程图 图 13. 图书借阅流程图 8.48.4 系统详细设计说明书系统详细设计说明书 8.4.18.4.1 系统核心模块详解 全局变量定义: Option Explicit Public conn As New ADODB.Connection Public select_menu As String Public userID As String Public userpow As String Public book_num As String Private Sub cmdCancel_Click() 读者管理 读者类别管理读者信息管理

19、 查询读者信息 图书借阅管理 借书管理 读者管理 还书管理 添加借书信息查询还书信息 9 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() 检查正确的密码 If txtPassword = user Then 将代码放在这里传递 成功到 calling 函数 设置全局变量时最容易的 LoginSucceeded = True Me.Hide Form1.Show Else MsgBox 无效的密码,请重试!, , 登录 txtPassword.SetFocus Send

20、Keys Home+End End If End Sub b 窗体名:Form1 代码: Private Sub A11_Click() Form2.Show End Sub Private Sub A12_Click() Form3.Show End Sub Private Sub A13_Click() Form4.Show End Sub Private Sub B11_Click() Form5.Show End Sub Private Sub B12_Click() Form6.Show End Sub 10 Private Sub B13_Click() Form7.Show En

21、d Sub Private Sub C12_Click() Form4.Show End Sub Private Sub C13_Click() Form9.Show End Sub Private Sub C15_Click() Form10.Show End Sub Private Sub exit_Click() End End Sub 窗体名:Form2 代码: Private Sub Command1_Click() On Error GoTo command1error Command2.Enabled = False Command3.Enabled = False Comman

22、d1.Enabled = False Command4.Enabled = True Command5.Enabled = True DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Exit Sub command1error: MsgBox Err.Description End Sub Private Sub Command2_Click() On Error GoTo Command2 Command1.Enabled = False Command2.Enabled = False Command3.Enabled =

23、 False Command1.Enabled = True Command4.Enabled = True Command5.Enabled = True 11 DataGrid1.AllowUpdate = True Command2: If Err.Number 0 Then MsgBox Err.Description End If End Sub Private Sub Command3_Click() Dim answer As String On Error GoTo command3error answer = MsgBox(确定要删除吗?, vbYesNo, ) If ans

24、wer = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveLast End If DataGrid1.Refresh MsgBox 删除成功!, vbOKCancel + vbExclamation, DataGrid1.AllowDelete = False Else Exit Sub command3error: If Err.Number 0 Then MsgBox Err.Description End If End Sub Private Sub Command4_Click() If Not IsNull(DataG

25、rid1.Bookmark) Then DataGrid1.Refresh End If Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command5.Enabled = False Command4.Enabled = False DataGrid1.AllowUpdate = False DataGrid1.AllowAddNew = False MsgBox 操作成功!, vbOKCancel + vbExclamation, End Sub Private Sub Command5_Cl

26、ick() DataGrid1.Refresh DataGrid1.AllowAddNew = False Command2.Enabled = True 12 Command1.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False End Sub Private Sub Form_Load() Command4.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False Data

27、Grid1.AllowUpdate = False If userpow = guest Then Frame2.Enabled = False End If Exit Sub loaderror: MsgBox Err.Description End Sub Private Sub Form_Unload(Cancel As Integer) Set DataGrid1.DataSource = Nothing End Sub 窗体名:Form3 代码: Private Sub Command1_Click() Command1.Enabled = False Command2.Enable

28、d = False Command3.Enabled = False Command4.Enabled = True Command5.Enabled = True DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Exit Sub command1error: MsgBox Err.Description End Sub Private Sub Command2_Click() On errror GoTo Command2 Command1.Enabled = False Command3.Enabled = False C

29、ommand2.Enabled = False Command1.Enabled = True 13 Command4.Enabled = True Command5.Enabled = True DataGrid1.AllowUpdate = True Command2: If Err.Number 0 Then MsgBox Err.Description End If End Sub Private Sub Command3_Click() Dim answer As String On Error GoTo command3error answer = MsgBox(确定要删除吗?,

30、vbYesNo, ) If answer = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End If DataGrid1.Refresh MsgBox 成功删除!, vbOKCancel + vbExclamation, DataGrid1.AllowDelete = False Else Exit Sub End If command3error: If Err.Number 0 Then

31、MsgBox Err.Description End If End Sub Private Sub Command4_Click() If Not IsNull(DataGrid1.Bookmark) Then DataGrid1.Refresh End If Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowUp

32、date = False MsgBox 操作成功!, vbOKCancel + vbExclamation, End Sub 14 Private Sub Command5_Click() DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False End S

33、ub Private Sub Form_Load() Command4.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False If userpow = guest Then Frame2.Enabled = False End If Exit Sub loaderror: MsgBox Err.Description End Sub Private Sub Form_Unload(Cancel As Integer) Set DataGr

34、id1.DataSource = Nothing End Sub 窗体名:Form4 代码: Private Sub Command1_Click(Index As Integer) Dim sql As String If Check1.Value = vbChecked Then sql = 书名 & Trim(Text1.Text & ) & End If If Check2.Value = vbcheckde Then If Trim(sql) = Then sql = 类别= & Trim(Combo1.Text & ) & Else sql = sql & and 书名= & Tr

35、im(Combo1.Text & ) & End If End If If Check3.Value = vbcheckde Then 15 If Trim(sql) = Then sql = 作者= & Trim(Text2.Text & ) & Else sql = sql & and 作者= & Trim(Text2.Text & ) & End If End If If Check4.Value = vbChecked Then If Trim(sql) = Then sql = 出版社= & Trim(Text3.Text & ) & Else sql = sql & and 出版社

36、= & Trim(Text3.Text & ) & End If End If If Check5.Value = vbChecked Then If Trim(sql) = Then sql = 书籍编号= & Trim(Text4.Text & ) & Else sql = sql & and 书籍编号= & Trim(Text4.Text & ) & End If End If If Trim(sql) = Then MsgBox 请选择查询方式!, vbOKOnly + vbExclamation Exit Sub End If Adodc1.RecordSource = select

37、 * from sjxx where & sql Adodc1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() If Trim(book_num) = Then MsgBox 请选择要借阅的图书!, vbOKOnly + vbExclamation Exit Sub End If I

38、f panduan = 是 Then MsgBox 此书已被借出!, vbOKOnly + vbExclamation Exit Sub End If 16 Form9.Show End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If Not Adodc1.Recordset.EOF And Adodc1.Recordset.EOF Then book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark) p

39、anduan = DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark) End If End Sub Private Sub Form_Load() Dim i As Integer Dim sql As String Combo1.Clear Adodc2.Recordset.MoveFirst For i = 0 To Adodc2.Recordset.RecordCount - 1 Combo1.AddItem Adodc2.Recordset.Fields(0).Value Adodc2.Recordset.MoveNext Next C

40、ombo1.ListIndex = 0 End Sub 窗体名:Form5 代码: Private Sub Command1_Click() On Error GoTo command1error Command2.Enabled = False Command3.Enabled = False Command4.Enabled = True Command5.Enabled = True DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Exit Sub commanderror: MsgBox Err.Description

41、 End Sub Private Sub Command2_Click() On Error GoTo Command2 Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = True Command5.Enabled = True DataGrid1.AllowUpdate = True 17 Command2: If Err.Number 0 Then MsgBox Err.Description End If End Sub Private Sub Com

42、mand3_Click() Dim answer As String On Error GoTo command3error answer = MsgBox(确定要删除吗?, vbYesNo, ) If answer = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End If DataGrid1.Refresh MsgBox 成功删除!, vbOKOnly + vbExclamation, D

43、ataGrid1.AllowDelete = False Else Exit Sub End If command3error: If Err.Number 0 Then MsgBox Err.Description End If End Sub Private Sub Command4_Click() If Not IsNull(DataGrid1.BackColor) Then DataGrid1.Refresh End If Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.E

44、nabled = False Command5.Enabled = False MsgBox 操作成功!, vbOKOnly + vbExclamation, End Sub Private Sub Command5_Click() DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False 18 Command2.Enabled = True Command1.Enabled = True Command3.Enabled = True Command4.Enabled = False Comma

45、nd5.Enabled = False End Sub Private Sub Form_Load() Command4.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False If userpow = guest Then Frame2.Enabled = False End If Exit Sub loaderror: MsgBox Err.Description End Sub 窗体名:Form6 代码: Private Sub Co

46、mmand1_Click() On Error GoTo commanderror Command2.Enabled = False Command3.Enabled = False Command1.Enabled = False Command4.Enabled = True Command5.Enabled = True DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Exit Sub command1error: MsgBox Err.Description End Sub Private Sub Command2_C

47、lick() On Error GoTo Command2 Command1.Enabled = False Command3.Enabled = False Command2.Enabled = False Command4.Enabled = True Command5.Enabled = True Command1.Enabled = True 19 DataGrid1.AllowUpdate = True Command2: If Error.Number 0 Then MsgBox Err.Description End If End Sub Private Sub Command3

48、_Click() Dim answer As String On Error GoTo command3error answer = MsgBox(确定要删除吗:, vbYesNo, ) If answer = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext End If DataGrid1.Refresh MsgBox 成功删除!, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = False Else Exit Sub command3error: If Err.Nu

49、mber 0 Then MsgBox Err.Description End If End Sub Private Sub Command4_Click() If Not IsNull(DataGrid1.Bookmark) Then DataGrid1.Refresh End If Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False DataGrid1.AllowAddNew = False DataG

50、rid1.AllowUpdate = False MsgBox 操作成功!, vbOKOnly + vbExclamation, End Sub Private Sub Command5_Click() DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False 20 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False End Sub Private Sub

51、 Form_Load() Command4.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False If userpow = guest Then Frame2.Enabled = False End If Exit Sub loaderror: MsgBox Err.Description End Sub Private Sub Form_Unload(Cancel As Integer) Set DataGrid1.DataSource

52、 = Nothing End Sub 窗体名:Form7 代码: Private Sub Command1_Click() Dim rs_findreader As New ADODB.Recordset Dim sql As String If Check1.Value = vbChecked Then sql = 读者编号= & Trim(Text1.Text & ) & End If If Check2.Value = vbChecked Then If Trim(sql) = Then sql = 读者姓名= & Trim(Text2.Text & ) & Else sql = sql

53、 & and 读者姓名= & Trim(Text2.Text & ) & End If End If If Check3.Value = vbChecked Then If Trim(sql) = Then sql = 读者类别= & Trim(Combo1.Text & ) & Else sql = sql & and 读者类别= & Trim(Combo1.Text & ) & End If 21 End If If Trim(sql) = Then MsgBox 请选择查询方式!, vbOKOnly + vbExclamation Exit Sub End If Adodc1.Recor

54、dSource = select * from dzxx where & sql Adodc1.Refresh DataGrid1.ReBind DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim i As Integer Dim sql As String Combo1.Clear Adodc2.Rec

55、ordset.MoveFirst For i = 0 To Adodc2.Recordset.RecordCount - 1 Combo1.AddItem Adodc2.Recordset.Fields(0).Value Adodc2.Recordset.MoveNext Next Combo1.ListIndex = 0 End Sub 窗体名:Form8 代码: Private Sub Combo1_Change() Combo2.ListIndex = Combo1.ListIndex End Sub Private Sub Combo2_Change() Combo1.ListInde

56、x = Combo2.ListIndex End Sub Option Explicit Dim leibie As String Dim qixian As Integer Dim shumn As Integer Dim maxnum As Integer 22 Private Sub Command1_Click() Dim rs_borrowbook As New ADODB.Recordset Dim sql As String Adodc1.RecordSource = select * from 读者信息 where 读者编号= & Combo1.Text & , Adodc1.

57、Refresh leibie = Adodc1.Recordset.Fields(3) shumu = Adodc1.Recordset.Fields(8) Adodc1.RecordSource = select * from 读者类别 where 种类名称= & leibie & Adodc1.Refresh qixian = Adodc1.Recordset.Fields(2) maxnum = Adodc1.Recordset.Fields(1) If shumu = maxnum Then MsgBox 该读者借书数额已满!, vbOKOnly + vbExclamation Exi

58、t Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim i As Integer Adodc2.RecordSource = select * from 书籍信息 where 书籍编号= & book_num & Adodc2.Refresh Label8.Caption = Adodc2.Recordset.Fields(0) Label9.Caption = Adodc2.Recordset.Fields(1) Label10.Caption = Adodc2.Recordset.Fields(2) Label11.Caption = Adodc2.Recordset.Fields(3) Label12.Caption = Adodc2.Recordset.Fields(4) Label13.Caption = Adodc2.Recordset.Fields(5) Label14.Caption = Adodc2.Recordset.Fields(6) Combo1.Clear Combo2