任何一个角度反映整个数据表的信息。该模块将用SQL语言实现。
3)档案柜信息报表模块
该模块可以实现在数据库中满足指定条件的记录的输出报表。该模块输出特定条件的记录也将用SQL语言实现。由于VisualBasic6.0的报表功能的局限性,所以这里采用将检索结果到处到EXCEL,最后通过EXCEL实现最终的报表。
2.卷宗信息模块
1)卷宗信息编辑模块
该模块首先实现卷宗的创建。创建时用户选择卷宗的类比名和卷宗号。另外还包括卷宗的创建时间,创建人,备注等。创建以后还可以实现对卷宗包括卷宗号、卷宗名等记录的录入、修改、删除等操作。
2)卷宗信息检索模块
该模块是卷宗信息模块的重要组成部分。它能够用单一条件或组合条件两种方式对满足条件的卷宗记录以及卷宗里面的文档资料信息予以显示,检索字段包括卷宗号、卷宗名、入卷时间、文件号、文件名等。条件的匹配方式包括等于、不等于、大于、小于等等,条件的组合方式有与、或等,力图从数据的任何一个角度反映整个数据表的信息。该模块将用SQL语言实现。
3)卷宗信息分段统计模块
该模块主要完成对满足指定条件的卷宗库表和文档资料库表中的记录按照相同卷宗号进行文档资料数量的统计。统计的结果显示在表单中的网格表中。
3.文档资料模块
该模块实现文档资料信息的管理,又可分为文档资料编辑子模块、检索文档资料子模块、文档资料报表子模块。文档资料编辑子模块主要完成文档资料的录入、修改、删除等。检索评语子模块主要完成对文档资料从文件号、文件名等字段来设定检索条件。文档资料报表子模块主要完成设定条件的记录的输出报表。
4.系统用户登录模块
该模块实现系统对用户身份的识别,只有输入正确的用户名和密码,系统才会进入系统运行界面,非法用户登录给出警告,密码填写错误给出提醒。
非法用户不能进入系统。密码三次输入不正确,系统自动退出。
3·2、数据库表结构
根据分析阶段得出的实体一联系图(E-R图)的结论,结合本系统对有关数据的存储的需要,更加方便实现该动态档案系统的所有功能,现将本系统设计成3个数据库表,每个表的字段名、类型、宽度设计如下:
1.档案柜基本信息表:
该表用来存放档案柜基本信息。
字段名
类型
宽度
档案柜号
字符型
8
档案柜名
字符型
8
创建时间
日期型
8
创建人
字符型
8
修改时间
日期型
8
修改人
字符型
8
备注
备注型
无
设计说明:为方便编程以及人们工作习惯,这里将学号设计成字符型。并根据实际需要设计了相应的宽度。
2.卷宗信息表:
该表用来存放卷宗的创建时期的信息。
字段名
类型
宽度
卷宗号
文本型
8
卷宗名
文本型
8
创建人
文本型
8
创建时间
日期型
8
修改人
文本型
8
修改时间
日期型
8
备注
备注型
无
3.文档资料信息表:
用来存放学生在校期间的评语信息。
字段名
类型
宽度
文件号
字符型
8
文件名
字符型
8
作者
字符型
8
入库时间
日期型
8
内容摘要
备注型
无
卷号
字符型
8
卷名
字符型
8
入卷时间
日期型
8
状态
字符型
2
档案柜号
文本型
8
组卷人
文本型
8
4.登录表:用于存放系统用户登录姓名、密码。
字段名
类型
宽度
用户名
字符型
10
密码
字符型
10
以上是本系统的库表结构的设计简要说明。
第四章应用系统实现
按结构化的程序设计思想,在完成了系统分析、系统设计后,就可以进行系统实现阶段了,系统实现是每指把系统的物理模型转换成实际运行系统的全过程。其基本任务是:
a)前期准备
b)系统平台的安装与调试
c)程序的编制与调试
d)信息系统调试
e)数据库与文件的建立
f)系统转换
g)试运行、验收与维护
4.1创建卷名窗体的实现
1)运行时的窗体:
2)控件和事件
a)"节点刷新"按钮控件:click事件是将创建新节点后的数据库信息刷新到窗体中。控制主节点刷新的语句是:
IfLeft(adoPrimaryRS.Fields("卷号"),1)=0Then
Setmynod=TreeView1.Nodes.Add("sort",tvwChild,"sort"&Str$(i),adoPrimaryRS.Fields("卷名")&"("&adoPrimaryRS.Fields("卷号")&")")
b)"创建节点"按钮控件:click事件是将文本框信息加入到卷名库表中,这样达到创建新节点的目的,这里创建新节点填写卷号很重要,它直接决定了子节点的从属关系。读取文本框中的信息到数据库表中的主要的实现语句是:
adoPrimaryRS.AddNew
adoPrimaryRS.Fields("卷号")=Text1.Text
adoPrimaryRS.Fields("卷名")=Text2.Text
adoPrimaryRS.Fields("备注")=Text3.Text
adoPrimaryRS.Fields("创卷人员")="管理员"
adoPrimaryRS.Fields("创卷日期")=Date
adoPrimaryRS.Update
c)"编辑节点"按钮控件:click事件是将原先建立的节点名,节点号,节点的从属进行再编辑。从属关系是通过修改节点号(即卷号)来达到目的的。实现的原理是修改数据库中相应的记录值。删除前提醒用户是否确认删除。实现语句是:
adoPrimaryRS.Fields("卷号")=Text1.Text
adoPrimaryRS.Fields("卷名")=Text2.Text
adoPrimaryRS.Fields("备注")=Text3.Text
adoPrimaryRS.Update
d)"删除节点"按钮控件:click事件是已经建立的节点(卷名)删除。实现的原理是删除数据库中的相应记录值。它的实现语句是:
Delete=MsgBox("确实要删除该节点吗",vbOKCancel,"删除节点")
IfDelete=vbOKThen
adoPrimaryRS.Delete
h)"退出"按钮控件:click事件是释放当前窗体,返回主控系统。实现语句是:UnloadMe
4.2:档案柜资料窗体的实现
1)运行时的窗体:
2)控件和事件
a)"网格"容器控件:显示档案柜中的数据信息。数据源设定为档案柜表的查询记录集。在窗体的装载事件load中用语句控制。语句是:
adoPrimaryRS.Open"select档案柜号,建柜人员,建柜日期,备注fromdagOrderby档案柜号",db,adOpenStatic,adLockOptimistic
Text1.Text=adoPrimaryRS.Fields("档案柜号")
Text2.Text=adoPrimaryRS.Fields("备注")
SetDataGrid1.DataSource=adoPrimaryRS
b)"最首"按钮控件:click事件是将当前窗体中的网格控件中的信息和文本框控件中的信息指向数据库表查询记录集中的第一条记录。利用SQL语句实现在数据库中查询符合条件的所以记录,并在表单中的网格容器中显示。如果无相应的记录,系统将给出提示。实现关键语句如下:
adoPrimaryRS.MoveFirst
Text1.Text=adoPrimaryRS.Fields("档案柜号")
Text2.Text=adoPrimaryRS.Fields("备注")
c)"下一条"按钮控件:click事件是将网格中的,文本框中的信息同时指向当前记录的下一条记录。如果越界就给出已经是最后一条记录的提示,并将记录定位在最后一条记录。实现语句:
adoPrimaryRS.MoveNext
IfadoPrimaryRS.EOFThen
MsgBox("已经是第后一条记录了!")
adoPrimaryRS.MoveLast
Else
Text1.Text=adoPrimaryRS.Fields("档案柜号")
Text2.Text=adoPrimaryRS.Fields("备注")
d)"上一条"按钮控件:click事件是将网格中的,文本框中的信息同时指向当前记录的上一条记录。如果越界就给出已经是第一条记录的提示,并将记录定位在第一条记录。实现语句:
adoPrimaryRS.MovePrevious
IfadoPrimaryRS.BOFThen
MsgBox("已经是第一条记录了!")
adoPrimaryRS.MoveFirst
Else
Text1.Text=adoPrimaryRS.Fields("档案柜号")
上一篇:
VB文档管理信息系统(论文和程序)
下一篇:
哈弗F7 VS名爵HS,谁更懂得年轻人的心?