计算机毕业设计：文卷档案管理系统
卷名 入卷时间 状态 档案柜号 组卷人
字符型 日期型 字符型 文本型 文本型 8 8 2 8 8 4． 登录表：用于存放系统用户登录姓名、密码。 字段名 用户名 密码
类型 字符型 字符型 宽度 10 10 以上是本系统的库表结构的设计简要说明。
第 21 页 共 63 页
计算机毕业设计：文卷档案管理系统
第四章 应用系统实现
按结构化的程序设计思想，在完成了系统分析、系统设计后，就可以进行系统实现阶段了，系统实现是每指把系统的物理模型转换成实际运行系统的全过程。其基本任务是： a) 前期准备
b) 系统平台的安装与调试 c) 程序的编制与调试 d) 信息系统调试 e) 数据库与文件的建立 f) 系统转换
g) 试运行、验收与维护
4.1创建卷名窗体的实现
1）运行时的窗体：
第 22 页 共 63 页
计算机毕业设计：文卷档案管理系统
2）控件和事件
a) “节点刷新”按钮控件：click事件是将创建新节点后的数据库信息刷新到窗体中。控制主节点刷新的语句是：
If Left(adoPrimaryRS.Fields(\卷号\
Set mynod = TreeView1.Nodes.Add(\tvwChild, \& Str$(i), adoPrimaryRS.Fields(\卷名\& \& adoPrimaryRS.Fields(\卷号\& \
b) “创建节点”按钮控件：click事件是将文本框信息加入到卷名库表中，这样达到创建新节点的目的，这里创建新节点填写卷号很重要，它直接决定了子节点的从属关系。读取文本框中的信息到数据库表中的主要的实现语句是：
adoPrimaryRS.AddNew
adoPrimaryRS.Fields(\卷号\adoPrimaryRS.Fields(\卷名\adoPrimaryRS.Fields(\备注\adoPrimaryRS.Fields(\创卷人员\管理员\adoPrimaryRS.Fields(\创卷日期\adoPrimaryRS.Update
c）“编辑节点”按钮控件：click事件是将原先建立的节点名，节点号，节点的从属进行再编辑。从属关系是通过修改节点号（即卷号）来达到目的的。实现的原理是修改数据库中相应的记录值。删除前提醒用户是否确认删除。实现语句是：
adoPrimaryRS.Fields(\卷号\
第 23 页 共 63 页
计算机毕业设计：文卷档案管理系统
adoPrimaryRS.Fields(\卷名\ adoPrimaryRS.Fields(\备注\ adoPrimaryRS.Update
d）“删除节点”按钮控件：click事件是已经建立的节点（卷名）删除。实现的原理是删除数据库中的相应记录值。它的实现语句是：
Delete = MsgBox(\确实要删除该节点吗\删除节点\
If Delete = vbOK Then adoPrimaryRS.Delete
h）“退出”按钮控件：click事件是释放当前窗体，返回主控系统。实现语句是：Unload Me
4.2：档案柜资料窗体的实现
1）运行时的窗体：
2）控件和事件
a）“网格”容器控件：显示档案柜中的数据信息。数据源设定为档案柜表的查询记
第 24 页 共 63 页
计算机毕业设计：文卷档案管理系统
录集。在窗体的装载事件load中用语句控制。语句是：
adoPrimaryRS.Open \ 档案柜号,建柜人员,建柜日期,备注 from dag Order by 档案柜号 \ Text1.Text = adoPrimaryRS.Fields(\档案柜号\ Text2.Text = adoPrimaryRS.Fields(\备注\ Set DataGrid1.DataSource = adoPrimaryRS
b）“最首”按钮控件：click事件是将当前窗体中的网格控件中的信息和文本框控件中的信息指向数据库表查询记录集中的第一条记录。利用SQL语句实现在数据库中查询符合条件的所以记录，并在表单中的网格容器中显示。如果无相应的记录，系统将给出提示。实现关键语句如下： adoPrimaryRS.MoveFirst
Text1.Text = adoPrimaryRS.Fields(\档案柜号\Text2.Text = adoPrimaryRS.Fields(\备注\
c）“下一条”按钮控件：click事件是将网格中的，文本框中的信息同时指向当前记录的下一条记录。如果越界就给出已经是最后一条记录的提示，并将记录定位在最后一条记录。实现语句：
adoPrimaryRS.MoveNext If adoPrimaryRS.EOF Then
MsgBox (\已经是第后一条记录了！\adoPrimaryRS.MoveLast Else
Text1.Text = adoPrimaryRS.Fields(\档案柜号\Text2.Text = adoPrimaryRS.Fields(\备注\
d）“上一条” 按钮控件：click事件是将网格中的，文本框中的信息同时指向当前记录的上一条记录。如果越界就给出已经是第一条记录的提示，并将记录定位在第一条记录。实现语句：
adoPrimaryRS.MovePrevious If adoPrimaryRS.BOF Then
MsgBox (\已经是第一条记录了！\adoPrimaryRS.MoveFirst Else
第 25 页 共 63 页