教材管理系统设计说明书

1、.TOC o 1-3 h u HYPERLINK l _Toc19587 教科书管理系统 PAGEREF _Toc19587 2 HYPERLINK l _Toc23122 第一章 系统开发概述 PAGEREF _Toc23122 3 HYPERLINK l _Toc25746 1.1 构建系统的必要性 PAGEREF _Toc25746 3 HYPERLINK l _Toc1209 1.2 可行性 PAGEREF _Toc1209 研究3 HYPERLINK l _Toc6593 第 2 章 系统分析 PAGEREF _Toc6593 4 HYPERLINK l _Toc9126 2.1 业

2、务流程分析 PAGEREF _Toc9126 4 HYPERLINK l _Toc28334 图 2.1.1 业务流程图 PAGEREF _Toc28334 6 HYPERLINK l _Toc18525 2.2 数据流分析 PAGEREF _Toc18525 7 HYPERLINK l _Toc31869 2.3 数据字典 PAGEREF _Toc31869 7 HYPERLINK l _Toc16217 第 3 章 系统设计 PAGEREF _Toc16217 13 HYPERLINK l _Toc27967 3.1 系统功能设计 PAGEREF _Toc27967 13 HYPERLIN

3、K l _Toc32657 图 3.1.1 教材管理系统功能模块设计 图 PAGEREF _Toc32657 14 HYPERLINK l _Toc13883 3.2 数据结构和数据库设计 PAGEREF _Toc13883 14 HYPERLINK l _Toc17479 3.3 代码设计 PAGEREF _Toc17479 17 HYPERLINK l _Toc21301 3.4 界面设计 PAGEREF _Toc21301 18 HYPERLINK l _Toc19878 第 4 章 系统实现 PAGEREF _Toc19878 35 HYPERLINK l _Toc12628 4.1

4、登录界面的测试 PAGEREF _Toc12628 36 HYPERLINK l _Toc29496 4.2系统维护 PAGEREF _Toc29496 36 HYPERLINK l _Toc29939 第 5 章 结论 PAGEREF _Toc29939 36 HYPERLINK l _Toc12031 参考文献 PAGEREF _Toc12031 36.主题：教科书管理系统本系统主要实现教材信息的管理。分为管理员登录和教师登录两个模块。管理员操作部分主要是教材管理、用户管理、订单管理；教师登录后的主要操作是教材查询模块。.第一章系统开发概述1.1 建立制度的必要性教材管理是每所学校的一项复

5、杂繁琐的工作，是高校教务管理的重要组成部分。由于高校专业众多，各专业开设的课程种类繁多，其业务不仅涉及出版系，还要面对全校各院系的教师，以及各班的学生。图书部门和管理所涉及的图书进出图书种类繁多，涉及人员广泛，工作量大。而且，近年来，随着我国高等教育规模的不断扩大和在校学生人数的迅速增加，教材的管理工作更加繁重。因此，需要一个自动化的工具进行整体管理，以便及时准确地反映教科书的订阅状态。1.2 可行性研究1.2.1 技术可行性分析Visual Basic 6.0是一种可视化、面向对象和事件驱动的结构化高级编程，可用于在 Windows 下开发应用程序。易学、高效、功能强大，堪比Windows专

6、业开发工具SDK 。在Visual Basic 6.0环境下，采用事件驱动的编程机制，新颖易用的可视化设计工具，利用Windows部门的应用程序编程接口（API）函数与动态库（DLL）进行通信、动态数据交换（DDE）、对象嵌入（OLE）、开放数据访问（ODBC）等技术可以在Windows环境下高效、快速地开发出功能强大、图形界面丰富的应用软件系统。 ACCESS 数据库是最易访问的新一代个人、部门和业务管理数据数据库。它兼容传统数据库，同时进一步增强了对Web的支持，具有Web特有的信息共享功能。跨平台工作和共享数据非常方便。它不仅具有数据库管理系统应有的功能，而且是一种面向对象、具有时间驱动

7、机制的新型关系数据库管理系统。它有丰富的信息管理和分析工具，可以通过ODBC连接到其他数据库。数据交换和共享数据库的实现是信息管理的基础。ACCESS 可以以两种方式使用：作为独立应用程序来创建个人或部门数据库，或者作为接口客户端连接到更强大和可扩展的后端数据库。无论选择何种后端数据源，最终用户都将受益于流行的桌面数据库客户端的易用性。1.2.2 经济可行性在教材管理系统中，可以实现教材信息的管理，提高工作效率，减少人为错误，提供良好的管理平台。极低成本的数据处理、信息查询、信息录入等，可实现教材需求信息、订单管理、教材进出管理、库存管理等功能。从目前校园网和教材管理系统的推广和运行来看，该系

8、统不需要增加过多的硬件投资和应用培训，经济成本非常低。1.2.3 管理可行性分析经领导批准，方可开发实施。第二章系统分析2.1 业务流程分析通过业务流程分析，进一步分析教材管理系统。教研室老师提出了要在写作中使用的教材名称。提交后，由部门领导审核。审核通过后，由教学秘书清点所需数量并提交给教材部。教科书科会处理教科书订单，确定本学期教科书的数量（库存订单除外），同时完善教科书的基本信息，以保证新课本的要求。教研室存在基本教科书信息。教材科将根据库存情况发放教材。如有库存，教材管理员将打印出教材领取通知书到教研室，通知教材领取。如果库存缺货，打印下单给买家，买家根据下单制定补货清单发给相应的供应

9、商。供应商将交货通知致给买方。购买者购买并存放课本，打印收据，交给课本部（见图2.1.1）教研室教研室领教材通知单教材需求单领教材通知单教材需求单学生领导学生领导领教材通知单批准教材需求单领教材通知单批准教材需求单领书通知单领书通知单教学秘书教学秘书教材需求单教材需求单教材科教材科入库单入库单订书单订书单采购员采购员提货通知单补货单提货通知单补货单供书商供书商图 2.1.1 业务流程图P1教材科2.2 数据流分析P1教材科出库订单教材出入库管理入站订单教材出入库管理图2.2.1 教材管理子系统顶层流程图入库单教材需求单3教材需求单2已批准教材需求单出库单入库单订书单教材需求单1P1.4教材出库

10、处理库存台帐F1P1.2判定教材处理方式教材科教研室 库存台账F1教材采购处理P1.3制定学生教材使用计划P1.1入库单教材需求单3教材需求单2已批准教材需求单出库单入库单订书单教材需求单1P1.4教材出库处理库存台帐F1P1.2判定教材处理方式教材科教研室 库存台账F1教材采购处理P1.3制定学生教材使用计划P1.1图2.2.2 教科书管理子系统第二层数据流程图2.3 数据字典数据项描述资料编号：I-BOOK1数据项名称：课本号简要说明：存储每本教科书的信息简要说明：学校教科书编码类型和长度：数字，4位取值范围：00019999资料编号：I-BOOK2数据项名称：教材名称简要说明：存储有关每

11、本教科书名称的信息简要说明：学校课本名称类型及长度：字符型，320位取值范围：表 2.3.1表 2.3.2资料编号：I-TC1数据项名称：教师编号简要说明：存储教师信息简要说明：学校教师编号类型和长度：字符，3位数字取值范围：001999表 2.3.3资料编号：I-TC2数据项名称：教师简要说明：存储教师信息简要说明： 学校教师姓名类型及长度：字符型，24位取值范围：表 2.3.4数据结构描述数据结构编号：DS001数据结构名称：收据简要说明：教材入库表格数据结构组成：课本编号+课本名称+数量+存储时间+存储来源+备注表 2.3.5数据结构编号：DS002数据结构名称：出库单简要说明：用于存储

12、教科书出库信息的表格数据结构构成：课本编号+课本名称+数量+发货时间+发货目的地+备注表 2.3.6数据结构编号：DS003数据结构名称：教材要求1描述：学生在课堂上需要的教材类型数据结构构成：课本编号+课本名称+时间+老师+备注表 2.3.7数据结构编号：DS004数据结构名称：批准的教科书要求简要说明：领导批准的教科书申请表数据结构构成：课本编号+课本名称+时间+老师+备注表 2.3.8数据结构编号：DS005数据结构名称：订单列表简要说明：教科书部制定的教科书购买表数据结构构成：课本编号+课本名称+时间+备注表 2.3.9数据流描述数据流号：D01数据流名称：教材要求1描述：学生在课堂上

13、需要的教材类型数据流来源：教研室数据流向：制定教科书使用计划数据流构成：课本号+课本名+作者+时间数据流量：16份/年表 2.3.10数据流号：D02数据流名称：批准的教科书要求简要说明：领导批准的教科书要求表数据流的来源：制定教材使用计划数据流向：教材部数据流构成：课本号+课本名+作者+时间+老师名数据流量：16份/年表 2.3.11数据流号：D03数据流名称：教材要求2简要说明： 所需教材数量由教材部门确定数据流来源：教科书部分数据流向：确定教科书的处理方式数据流构成：课本编号+数量+课本名称+作者+时间+教师姓名数据流量：16份/年表 2.3.12数据流号：D04数据流名称：订单简要说明

14、：教科书部制定的教科书购买表数据流源：确定如何处理教科书数据流向：教材采购处理数据流构成：课本号+课本名+作者+时间+数量数据流量：16份/年数据流号：D05数据流名称：教材要求3简要说明：教科书部确定的教科书数量数据流源：确定如何处理教科书数据流向：教材交付处理数据流构成：课本号+课本名+作者+时间+数量+老师数据流量：16份/年表 2.3.13数据流号：D06数据流名称：出库单简要说明：用于存储教科书出库信息的表格数据流来源：教科书出站处理数据流向：存货账本数据流构成：课本号+课本名+作者+时间+数量+老师数据流量：16份/年表 2.3.14数据流号：D07数据流名称：入站订单简要说明：教

15、材存储信息的形式数据流来源：教材采购处理数据流向：存货账本数据流构成：课本号+课本名+作者+时间+数量数据流量：16份/年表 2.3.15表 2.3.16处理逻辑说明处理逻辑名称：制定学生教科书计划处理数： P 1.1简要说明：根据老师的课堂内容，确定学生需要使用的教材类型输入数据流：教研室制定的教学计划输出数据流：教科书申请表表 2.3.17处理逻辑名称：确定教材的处理方法处理数： P 1.2简要说明：教科书板块统计使用的教科书数量，确定需要购买的教科书数量输入数据流：教材申请表输出数据流：订单清单+教材需求清单表 2.3.18加工名称：课本采购加工处理数： P 1.3简要说明：采购人根据订

16、单采购教材输入数据流：订单输出数据流：订单列表加工名称：教材派送加工处理数： P 1.4简要说明：根据教材需求清单分发教材输入数据流：教材请求列表输出数据流：出库单表 2.3.19表 2.3.20数据存储描述数据存储数：F1数据存储名称：库存分类帐简要说明：记录教材的种类、数量和单价数据存储构成：课本编号+课本名称+数量+作者+。关键词：课本号相关处理：P1.3、P1.4、表 2.3.21外部实体描述外部实体编号：W1外部实体名称：教科书科简要说明：管理学校教科书的订购和分发输入数据流：批准的教材申请表输出数据流：教科书要求表 2表 2.3.22外部实体编号：W2对外单位名称：教研室描述：确定

17、教育材料需求类型的部门输入数据流：教材接收输出数据流：教材请求列表表 2.3.23第三章系统设计3.1 系统功能设计该系统是基于教科书管理业务设计开发的。教科书部的日常运作一般包括以下几项：1.教材预约。教科书类型的预订基本上由教师或管理员完成。教材科向各系下发课本订阅通知（轮转阅读），各系为拟开设的课程选择和订阅课本，填写预约表，通过本系向教材科报告，部。教科书部门准备并填写正式订单，并将其致到每个学校。2.教材分发。专业和等级书籍在预订时发行。书籍通常以班级为单位收集。3.查询。这项工作包括四个内容，一是查询预订，了解各部门教科书的订购情况；二是检查入库情况，及时了解入库情况；三是查看库存

18、状态：打印和报告，主要用于订购书籍和书籍的打印。4、系统管理主要包括用户的更改、密码和用户的添加。教材管理系统管理员管理教材管理系统管理员管理教师管理教师管理教材库存查询教材征订用户管理教材管理教材库存查询教材征订用户管理教材管理修改用户信息添加用户订单管理库存信息管理入库管理出库管理修改用户信息添加用户订单管理库存信息管理入库管理出库管理图 3.1.1 教科书管理系统功能模块设计图3.2 数据结构和数据库设计1. ER模型设计教材编号教材编号 教材教材名称教材教材作者图 3.2.1 教科书实体 ER 图教材编号教材编号仓库教材入库数量入库时间入库单价图 3.2.2 仓库实体 ER 图班级班级

19、班级编号班级名称图3.2.3 类实体ER图供应商代号供应商代号供应商 名称 地址 图 3.2.4 供应商实体 ER 图教材教材仓库供应商班级入库1NNMNM出库订货出库订货图 3.2.4 整体 ER 图2 数据库设计在系统数据库中，有用户管理表、教科书交付表、教科书存储表、教科书订阅表和教科书库存表。3.2.1。用户管理表：字段名称数据类型文本密码文本内容文本3.2.2.教材交付表：字段名称数据类型课本名称文本部门文本班级文本单价数字数量数字总额数字交货时间日期3.2.3。教科书订阅表格：字段名称数据类型课本名称文本作者文本文本发布日期日期数量数字订阅时间日期订户文本3.2.4。课本收纳桌字段

20、名称数据类型课本名称文本作者文本文本发布日期日期图书类别文本单价数量数量数量总额数量处理程序文本库存日期日期3.2.5。教材库存表字段名称数据类型课本名称文本作者文本文本发布日期日期单价日期图书类别文本库存数量数量3.3 代码设计设计问题是一个科学管理问题。设计好的代码方案对系统的开发极为有利。它可以让很多机器处理（比如一些统计、校对查询等）变得非常方便，也可以让一些现阶段计算机难以处理的任务变得非常简单。代码就是用数字或字符来表示各种客观实体。现实世界中有很多东西如果我们不给它们贴上标签是无法区分的，机器很难处理它们。因此，是否唯一标识以前无法确定的事物是编译代码的首要任务。以课本编号为例。

21、在教材管理中，不难发现有些书名相同，但出版日期和作者不同。为了区分此类书籍，编制了教科书代码（教科书编号：001001 001002 001003 001004 001005）。唯一性是代码设计的首要任务。但是如果我们只是为了唯一性而编写代码，那么代码可能会变得杂乱无章，无法识别，使用起来也不方便。比如管理系统中关于计算机的书籍以“01 ”开头，其中“ 01001 ”代表计算机硬件书籍，01002代表计算机软件书籍，“01003 ”代表计算机信息管理书籍。对于专业书籍非常方便。（专业书籍）代码：01001 01002 01003 02002 03003 04004）为了保持系统的合理性，设置代

22、码时也要注意系统规则，比如001表示秘书所在区域的图书数量从001001到001070，添加新书时，会自动生成书号001071（区号：001 002 003 004）比如教材代码设计=教材编号+教材类别+班主任=0001（数理统计）001（数学）001（机械工业）001（胡磊）3.4 界面设计登录界面包括，权限和密码，与数据库用户管理表连接如图3.1图 3.1代码设计；私有子 Command1_Click()Adodc1.RecordSource = select * from user management where user= & Trim(DataCombo1.Text) & Adod

23、c1.Refresh点$如果 Trim(DataCombo1.Text) = 那么MsgBox 用户名不能为空！, , 错误DataCombo1.SetFocus退出子万一如果 Adodc1.Recordset.EOF 那么MsgBox 用户不存在！, , 错误DataCombo1.Text = Text3.Text = Adodc1.RecordSource = 从用户管理中选择 *Adodc1.Refresh数据组合1.刷新DataCombo1.SetFocus别的=修剪（DataCombo1.Text）如果 Adodc1.Recordset.Fields(qx) RTrim(Combo1

24、.Text) 那么MsgBox 权限错误, , 错误Combo1.SetFocusAdodc1.RecordSource = 从用户管理中选择 *Adodc1.Refresh数据组合1.刷新DataCombo1.Text =别的如果 Trim(Text3.Text) Trim(Adodc1.Recordset.Fields(password) 那么如果 mi = 2 那么MsgBox 密码输入三遍错误 + Chr(13) + Chr(10) + 自动关闭系统, , 学生教材管理软件卸载我别的MsgBox 密码错误！, , 错误米 = 米 + 1Adodc1.RecordSource = 从用户

25、管理中选择 *Adodc1.RefreshDataCombo1.Text =Text3.Text = Text3.SetFocus万一别的如果 Trim(Combo1.Text) = Admin 那么卸载我主窗体.Show别的卸载我主窗体.Show带主窗体.mnuyhgl.Enabled = 假.mnujcrk.Enabled = False.mnujcchk.Enabled = False结束于万一万一万一万一结束子私有子 Command2_Click()卸载我结束子私有子 Form_Activate()米 = 0结束子私人子Form_Load()mi = 0结束子私有子 Form_Load

26、()结束子主界面在登录界面输入正确的权限和密码后，进入主界面，包括系统管理和教材管理两个模块。系统管理包括用户管理和退出；教科书管理包括教科书订阅、教科书存储、教科书交付和教科书库存。查询。图 3.2图 3.2教师界面A 教科书订阅：选择主界面教科书订阅，进入教科书订阅界面。订阅时输入教科书名称、作者、出版时间、订阅时间、订阅人及数量。图 3.3图 3.3代码设计：私有子 Command1_Click()昏暗 i%, j%, m%选择案例 Command1.Caption案例“继续”Command1.Caption = 订阅Command5.Enabled = FalseCommand6.En

27、abled = FalseCommand7.Enabled = 假Command2.Enabled = TrueCombo1.SetFocus案例“订阅”i = Len（修剪（Text1.Text）如果 Combo1.Text = 或 Combo4.Text = 或 Trim(Text1.Text) = 那么MsgBox 信息不完整！, vbOKOnly + vbInformation: Combo1.SetFocusElseIf Trim(Text1.Text) Then米 = 1对于 j = 1 到 i如果 Asc(Mid$(Trim(Text1.Text), j, 1) 57 那么Msg

28、Box 请正确输入数据！, vbOKOnly + vbInformationText1.Text = Text1.SetFocus米 = 0退出万一下一个 j如果 m 那么Adodc1.RecordSource = 从教科书订阅表单中选择 *，其中教科书名称 = & Trim(Combo1.Text) & and author= & Trim(Combo2.Text) & and = & Trim(Combo3 .Text) & and Publication Date=# & Trim(Str$(DTPicker2.Value) & #Adodc1.Refresh如果 Adodc1.Reco

29、rdset.RecordCount = 0 那么Adodc1.RecordSource = 从教科书订阅表中选择 *Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = Trim(Combo1.Text)Adodc1.Recordset.Fields(1) = Trim(Combo2.Text)Adodc1.Recordset.Fields(2) = Trim(Combo3.Text)Adodc1.Recordset.Fields(3) = DTPicker2.ValueAdodc1.Recordset.Fields

30、(4) = Trim(Text1.Text)Adodc1.Recordset.Fields(5) = DTPicker1.ValueAdodc1.Recordset.Fields(6) = Trim(Combo4.Text)Adodc1.Recordset.UpdateAdodc1.Refresh别的Adodc1.Recordset.Fields(4) = Adodc1.Recordset.Fields(4) + Val(Text1.Text)Adodc1.Recordset.UpdateAdodc1.Refresh万一Adodc1.RecordSource = 从教科书订阅表中选择 *Ado

31、dc1.RefreshText1.Text = 组合1 = 组合 2 = 组合3 = 万一万一结束选择结束子私有子 Command2_Click()zd = 1教科书订阅查询。显示结束子私有子 Command3_Click()卸载我结束子私有子 Command5_Click()昏暗 i%, j%, m%i = Len（修剪（Text1.Text）如果 Combo1.Text = 或 Combo4.Text = 或 Trim(Text1.Text) = 那么MsgBox 信息不完整，请重新输入！, vbOKOnly + vbInformation: Combo1.SetFocus别的米 = 1对

32、于 j = 1 到 i如果 Asc(Mid$(Trim(Text1.Text), j, 1) 57 那么MsgBox 请正确输入数据！, vbOKOnly + vbInformationText1.Text = Text1.SetFocus米 = 0退出万一下一个 j如果 m 那么Adodc1.Recordset.Fields(0) = Trim(Combo1.Text)Adodc1.Recordset.Fields(1) = Trim(Combo2.Text)Adodc1.Recordset.Fields(2) = Trim(Combo3.Text)Adodc1.Recordset.Fiel

33、ds(3) = DTPicker2.ValueAdodc1.Recordset.Fields(4) = Trim(Text1.Text)Adodc1.Recordset.Fields(5) = DTPicker1.ValueAdodc1.Recordset.Fields(6) = Trim(Combo4.Text)万一Command1.Caption = 订阅Command5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = 假Command2.Enabled = TrueCombo1.SetFocus万一结束子私有子 Comm

34、and6_Click()出错时继续下一步Command1.Caption = 继续Command5.Enabled = 真Command6.Enabled = 真Command7.Enabled = 真Command2.Enabled = 假Combo1.Text = Adodc1.Recordset.Fields(0)Combo2.Text = Adodc1.Recordset.Fields(1)Combo3.Text = Adodc1.Recordset.Fields(2)DTPicker2.Value = Adodc1.Recordset.Fields(3)Text1.Text = Ad

35、odc1.Recordset.Fields(4)DTPicker1.Value = Adodc1.Recordset.Fields(5)Combo4.Text = Adodc1.Recordset.Fields(6)Command1.Caption = 订阅Command5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = 假Command2.Enabled = TrueCombo1.SetFocus结束子私有子 Command7_Click()出错时继续下一步Adodc1.Recordset.DeleteAdodc1.Refr

36、eshAdodc1.RecordSource = 从教科书订阅表中选择 *Adodc1.RefreshCommand1.Caption = 继续Command5.Enabled = 真Command6.Enabled = 真Command7.Enabled = 真Command2.Enabled = 假Combo1.Text = Adodc1.Recordset.Fields(0)Combo3.Text = Adodc1.Recordset.Fields(1)Combo2.Text = Adodc1.Recordset.Fields(2)DTPicker2.Value = Adodc1.Rec

37、ordset.Fields(3)Text1.Text = Adodc1.Recordset.Fields(4)DTPicker1.Value = Adodc1.Recordset.Fields(5)Combo4.Text = Adodc1.Recordset.Fields(6)结束子私有子 DataGrid1_Click()Command1.Caption = 继续Command5.Enabled = 真Command6.Enabled = 真Command7.Enabled = 真Command2.Enabled = 假结束子Private Sub DataGrid1_RowColChang

38、e（LastRow 作为变体，ByVal LastCol 作为整数）出错时继续下一步如果 Me.cmdadd.Enabled = True 那么Combo1.Text = Trim(Adodc1.Recordset.Fields(0)Combo2.Text = Trim(Adodc1.Recordset.Fields(1)Combo3.Text = Trim(Adodc1.Recordset.Fields(2)DTPicker2.Value = Trim(Adodc1.Recordset.Fields(3)Text1.Text = Trim(Adodc1.Recordset.Fields(4)

39、DTPicker1.Value = Trim(Adodc1.Recordset.Fields(5)Combo4.Text = Adodc1.Recordset.Fields(6)txtydjl.Text = Trim(Adodc1.Recordset.Fields(7)万一结束子私有子 Form_Load()出错时继续下一步Dim i As Integer, bz As Integer, As IntegerDim i1 As Integer, bz1 As Integer,1 As IntegerDim i2 As Integer, bz2 As Integer,2 As IntegerDi

40、m i3 As Integer, bz3 As Integer,3 As IntegerCombo1.清除Combo2.清除Combo3.清除不做 Adodc2.Recordset.EOFbz = 0对于 i = 0 到 Combo1.ListCountIf Adodc2.Recordset.Fields(Textbook Name) = Combo1.List(i) 那么 bz = 1下一个If bz = 0 Then Combo1.AddItem Trim(Adodc2.Recordset.Fields(textbook name)bz = 0对于 i = 0 到 Combo1.ListC

41、ount如果 Adodc2.Recordset.Fields(Author) = Combo2.List(i) 那么 bz = 1下一个如果 bz = 0 那么 Combo2.AddItem Adodc2.Recordset.Fields(Author)bz = 0对于 i = 0 到 Combo1.ListCount如果 Adodc2.Recordset.Fields() = Combo3.List(i) 那么 bz = 1下一个如果 bz = 0 那么 Combo3.AddItem Adodc2.Recordset.Fields()Adodc2.Recordset.MoveNext环形不做

42、 Adodc1.Recordset.EOFAdodc2.Recordset.MoveFirst= Adodc2.Recordset.RecordCountbz = 0对于 i = 1 到如果 Trim(Adodc1.Recordset.Fields(Textbook Name) = Trim(Adodc2.Recordset.Fields(Textbook Name) 那么 bz = 1Adodc2.Recordset.MoveNext接下来我如果 bz = 0 那么bz = 0对于 i = 0 到 Combo1.ListCountIf Adodc1.Recordset.Fields(Text

43、book Name) = Combo1.List(i) 那么 bz = 1下一个If bz = 0 Then Combo1.AddItem Trim(Adodc1.Recordset.Fields(textbook name)万一Adodc2.Recordset.MoveFirst1 = Adodc2.Recordset.RecordCountbz1 = 0对于 i1 = 1 To1如果 Trim(Adodc1.Recordset.Fields(Author) = Trim(Adodc2.Recordset.Fields(Author) 那么 bz1 = 1Adodc2.Recordset.M

44、oveNext下一个 i1如果 bz = 0 那么bz = 0对于 i = 0 到 Combo1.ListCount如果 Adodc1.Recordset.Fields(Author) = Combo2.List(i) 那么 bz = 1下一个If bz = 0 Then Combo2.AddItem Trim(Adodc1.Recordset.Fields(Author)万一Adodc2.Recordset.MoveFirst2 = Adodc2.Recordset.RecordCountbz2 = 0对于 i2 = 1 To2如果 Trim(Adodc1.Recordset.Fields(

45、) = Trim(Adodc2.Recordset.Fields() 那么 bz2 = 1Adodc2.Recordset.MoveNext下一个 i2如果 bz = 0 那么bz = 0对于 i = 0 到 Combo1.ListCount如果 Adodc1.Recordset.Fields() = Combo3.List(i) 那么 bz = 1下一个If bz = 0 Then Combo3.AddItem Trim(Adodc1.Recordset.Fields()万一Adodc2.Recordset.MoveFirst3 = Combo4.ListCountbz3 = 0对于 i3

46、= 1 To3如果 Trim(Adodc1.Recordset.Fields(Subscriber) = Trim(Combo4.List(i3) 那么 bz3 = 1下一个 i3如果 bz3 = 0 那么bz = 0对于 i = 0 到 Combo1.ListCount如果 Adodc1.Recordset.Fields(Subscriber) = Combo4.List(i) 那么 bz = 1下一个If bz = 0 Then Combo4.AddItem Trim(Adodc1.Recordset.Fields(Subscriber)万一Adodc1.Recordset.MoveNex

47、t环形DTPicker1 = 日期结束子按条件查询：订阅后，可选择按条件查询已订阅的图书，可查询图书、作者、出版时间、订阅人。图 3.4图 3.4B订阅查询：选择主界面订阅查询，进入订阅查询界面。图 3.5图 3.5B 教科书存量查询：选择主界面教科书存量查询，进入该界面，显示存量图书。图 3.6图 3.6按条件查询：单击“查询”，可以按条件查询库存账簿。图 3.7图 3.7管理界面如果是管理员，除了普通用户外，还有独特的功能A 用户管理：可以修改、添加和删除用户。图 3.8图 3.8代码设计：选项显式私有子 Command1_Click()Text1.Text = : Text3.Text

48、= : Text5.Text = : Text6.Text = Text1.SetFocusCommand1.Enabled = 假Command3.Enabled = FalseCommand2.Enabled = 假Command5.Enabled = 真Command6.Enabled = 真Command5.Caption = 确定添加Command6.Caption = 取消添加Adodc1.Recordset.AddNew结束子私有子 Command2_Click()将 aa 变暗为整数aa = MsgBox(您确定要删除吗？, 32 + 1)如果 aa = 1 那么Adodc1.

49、Recordset.DeleteAdodc1.Recordset.MoveFirstText1.Text = Adodc1.Recordset.Fields(用户)Combo1.Text = Adodc1.Recordset.Fields(qx)万一结束子私有子 Command3_Click()Text1.SetFocusFrame3.Visible = TrueCommand5.Enabled = 真Command6.Enabled = 真Command1.Enabled = 假Command2.Enabled = 假Command3.Enabled = FalseText3.Text =

50、结束子私有子 Command4_Click()卸载我结束子私有子 Command5_Click()如果 Command5.Caption = OK 修改 则如果 Text3.Text Adodc1.Recordset.Fields(password) 那么MsgBox 旧密码错误，请重新输入！, vbOKOnly + vbInformation: Text3.Text = : Text3.SetFocus别的如果 Text5.Text Text6.Text 那么MsgBox 两次输入的密码不一致，请重新输入！, vbOKOnly + vbInformation: Text5.SetFocus:

51、 Text5.Text = Text6.Text = 别的Adodc1.Recordset.Fields(密码) = Trim(Text5.Text)Text3.Text = Frame3.Visible = FalseCommand1.Enabled = 真Command2.Enabled = TrueCommand5.Enabled = FalseCommand6.Enabled = FalseCommand3.Enabled = True万一Text5.Text = Text6.Text = 万一万一If Command5.Caption = OK to add Then如果 Trim(

52、Text1.Text) = 那么MsgBox(用户名不能为空，请输入您的用户名！): Text1.SetFocus别的Adodc1.Recordset.Fields(user) = Trim(Text1.Text)Adodc1.Recordset.Fields(qx) = Trim(Combo1.Text)Adodc1.Recordset.Fields(密码) = Trim(Text3.Text)Adodc1.Recordset.UpdateCommand3.Enabled = TrueCommand2.Enabled = TrueCommand1.Enabled = 真Command5.Caption = 确认修改Command6.Caption = 取消修改Command5.Enabled = FalseCommand6.Enabled = False万一万一结束子私