|
第四章 应用系统实现 按结构化的程序设计思想，在完成了系统分析、系统设计后，就可以进行系统实现阶段了，系统实现是每指把系统的物理模型转换成实际运行系统的全过程。其基本任务是： http://www.paper51.com a) 前期准备 paper51.com b) 系统平台的安装与调试 http://www.paper51.com c) 程序的编制与调试 http://www.paper51.com d) 信息系统调试 paper51.com e) 数据库与文件的建立 内容来自论文无忧网 www.paper51.com
f) 系统转换 内容来自论文无忧网 www.paper51.com g) 试运行、验收与维护 copyright paper51.com 4.1创建卷名窗体的实现 内容来自论文无忧网 www.paper51.com 1）运行时的窗体： 内容来自www.paper51.com
内容来自www.paper51.com 2）控件和事件 内容来自论文无忧网 www.paper51.com a) “节点刷新”按钮控件：click事件是将创建新节点后的数据库信息刷新到窗体中。控制主节点刷新的语句是： http://www.paper51.com If Left(adoPrimaryRS.Fields("卷号"), 1) = 0 Then 内容来自论文无忧网 www.paper51.com Set mynod = TreeView1.Nodes.Add("sort", tvwChild,"sort" & Str$(i), adoPrimaryRS.Fields("卷名") & "(" &adoPrimaryRS.Fields("卷号") & ")") 内容来自论文无忧网 www.paper51.com b) “创建节点”按钮控件：click事件是将文本框信息加入到卷名库表中，这样达到创建新节点的目的，这里创建新节点填写卷号很重要，它直接决定了子节点的从属关系。读取文本框中的信息到数据库表中的主要的实现语句是： paper51.com
adoPrimaryRS.AddNew 内容来自www.paper51.com
adoPrimaryRS.Fields("卷号") = Text1.Text 内容来自www.paper51.com adoPrimaryRS.Fields("卷名") = Text2.Text paper51.com adoPrimaryRS.Fields("备注") = Text3.Text 内容来自论文无忧网 www.paper51.com adoPrimaryRS.Fields("创卷人员") = "管理员" 内容来自www.paper51.com adoPrimaryRS.Fields("创卷日期") = Date 内容来自www.paper51.com
adoPrimaryRS.Update copyright paper51.com c）“编辑节点”按钮控件：click事件是将原先建立的节点名，节点号，节点的从属进行再编辑。从属关系是通过修改节点号（即卷号）来达到目的的。实现的原理是修改数据库中相应的记录值。删除前提醒用户是否确认删除。实现语句是： copyright paper51.com adoPrimaryRS.Fields("卷号") = Text1.Text 内容来自www.paper51.com adoPrimaryRS.Fields("卷名") = Text2.Text copyright paper51.com adoPrimaryRS.Fields("备注") = Text3.Text http://www.paper51.com adoPrimaryRS.Update 内容来自www.paper51.com d）“删除节点”按钮控件：click事件是已经建立的节点（卷名）删除。实现的原理是删除数据库中的相应记录值。它的实现语句是： 内容来自www.paper51.com Delete = MsgBox("确实要删除该节点吗",vbOKCancel, "删除节点") paper51.com
If Delete = vbOK Then copyright paper51.com adoPrimaryRS.Delete copyright paper51.com h）“退出”按钮控件：click事件是释放当前窗体，返回主控系统。实现语句是：Unload Me copyright paper51.com 4.2：档案柜资料窗体的实现 paper51.com
1）运行时的窗体： paper51.com
内容来自论文无忧网 www.paper51.com 2）控件和事件 内容来自www.paper51.com a）“网格”容器控件：显示档案柜中的数据信息。数据源设定为档案柜表的查询记录集。在窗体的装载事件load中用语句控制。语句是： http://www.paper51.com
adoPrimaryRS.Open"select 档案柜号,建柜人员,建柜日期,备注 from dag Order by 档案柜号", db, adOpenStatic, adLockOptimistic http://www.paper51.com
Text1.Text = adoPrimaryRS.Fields("档案柜号") copyright paper51.com Text2.Text = adoPrimaryRS.Fields("备注") paper51.com Set DataGrid1.DataSource = adoPrimaryRS http://www.paper51.com b）“最首”按钮控件：click事件是将当前窗体中的网格控件中的信息和文本框控件中的信息指向数据库表查询记录集中的第一条记录。利用SQL语句实现在数据库中查询符合条件的所以记录，并在表单中的网格容器中显示。如果无相应的记录，系统将给出提示。实现关键语句如下： 内容来自www.paper51.com adoPrimaryRS.MoveFirst 内容来自论文无忧网 www.paper51.com Text1.Text = adoPrimaryRS.Fields("档案柜号") 内容来自论文无忧网 www.paper51.com
Text2.Text = adoPrimaryRS.Fields("备注") 内容来自www.paper51.com c）“下一条”按钮控件：click事件是将网格中的，文本框中的信息同时指向当前记录的下一条记录。如果越界就给出已经是最后一条记录的提示，并将记录定位在最后一条记录。实现语句： 内容来自论文无忧网 www.paper51.com
adoPrimaryRS.MoveNext 内容来自www.paper51.com
IfadoPrimaryRS.EOF Then paper51.com MsgBox ("已经是第后一条记录了！") paper51.com adoPrimaryRS.MoveLast 内容来自论文无忧网 www.paper51.com Else 内容来自论文无忧网 www.paper51.com Text1.Text =adoPrimaryRS.Fields("档案柜号") 内容来自论文无忧网 www.paper51.com Text2.Text =adoPrimaryRS.Fields("备注") 内容来自www.paper51.com d）“上一条”按钮控件：click事件是将网格中的，文本框中的信息同时指向当前记录的上一条记录。如果越界就给出已经是第一条记录的提示，并将记录定位在第一条记录。实现语句： copyright paper51.com adoPrimaryRS.MovePrevious paper51.com IfadoPrimaryRS.BOF Then copyright paper51.com MsgBox ("已经是第一条记录了！") copyright paper51.com adoPrimaryRS.MoveFirst copyright paper51.com Else http://www.paper51.com Text1.Text =adoPrimaryRS.Fields("档案柜号") 内容来自论文无忧网 www.paper51.com Text2.Text =adoPrimaryRS.Fields("备注") paper51.com End Ifd) “退出”按钮控件：click事件、实现语句和前面一样。 内容来自www.paper51.com
e)“最末”按钮控件：click事件是将当前窗体中的网格控件中的信息和文本框控件中的信息指向数据库表查询记录集中的第后一条记录。利用SQL语句实现在数据库中查询符合条件的所以记录，并在表单中的网格容器中显示。如果无相应的记录，系统将给出提示。实现关键语句如下： http://www.paper51.com adoPrimaryRS.MoveLast copyright paper51.com Text1.Text = adoPrimaryRS.Fields("档案柜号") http://www.paper51.com
Text2.Text = adoPrimaryRS.Fields("备注") http://www.paper51.com f)“添加”按钮控件：click事件是创建新的档案柜，实现的原理是对数据库查询的记录集添加一条新的记录，然后修给这条空记录的值，达到对数据库表中的档案柜记录添加的目的。实现的语句如下： http://www.paper51.com
If Command5.Caption = "添加" Then copyright paper51.com Command5.SetFocus 内容来自论文无忧网 www.paper51.com
Command5.Caption = "保存" 内容来自论文无忧网 www.paper51.com Text1.Enabled = True paper51.com
Text2.Enabled = True 内容来自www.paper51.com Text1.SetFocus http://www.paper51.com Text1.Text = "" 内容来自www.paper51.com Text2.Text = "" paper51.com adoPrimaryRS.AddNew http://www.paper51.com Else 内容来自论文无忧网 www.paper51.com adoPrimaryRS.Fields("档案柜号") = Text1.Text 内容来自www.paper51.com adoPrimaryRS.Fields("备注") = Text2.Text http://www.paper51.com
adoPrimaryRS.Fields("建柜人员") = "管理员" 内容来自www.paper51.com adoPrimaryRS.Fields("建柜日期") = Date http://www.paper51.com adoPrimaryRS.Update 内容来自论文无忧网 www.paper51.com Command5.Caption = "添加" http://www.paper51.com
Text1.Enabled = False copyright paper51.com Text2.Enabled = False copyright paper51.com End If http://www.paper51.com
g) “编辑”按钮控件：click事件是将记录集中当前记录在文本框中进行修改，然后更改记录集中相应的记录。来达到修改数据库中的记录的目的。实现的主要语句是：adoPrimaryRS.Fields("档案柜号") = Text1.Text 内容来自www.paper51.com adoPrimaryRS.Fields("备注") = Text2.Text copyright paper51.com
adoPrimaryRS.Update http://www.paper51.com h) “查找”按钮控件：click事件是使框架4出现，而框架1隐藏，框架4中的“确定” 按钮控件的click事件是查找档案柜数据库中的满足文本框1和文本3中的查询条件。查询结果显示在网格容器控件中。 内容来自论文无忧网 www.paper51.com Frame4.Visible = True 内容来自www.paper51.com Frame1.Visible = False paper51.com
Command9.Enabled = False paper51.com
a = Combo1.Text 内容来自论文无忧网 www.paper51.com
b = Text3.Text 内容来自www.paper51.com adoPrimaryRS.Open "select 档案柜号,建柜人员,建柜日期,备注 from dag where " & a & " like'%" & b & "%'", db, adOpenStatic, adLockOptimistic paper51.com
Set DataGrid1.DataSource = adoPrimaryRS 内容来自www.paper51.com 查询的结果可以通过“导出”按钮导出到EXCEL表中。以实现数据的打印报表。导出控制的语句是： 内容来自论文无忧网 www.paper51.com For i = 0 To adoPrimaryRS.RecordCount - 1 http://www.paper51.com Forj = 0 To adoPrimaryRS.Fields.Count - 1 paper51.com DataGrid1.Row = i paper51.com DataGrid1.Col = j copyright paper51.com xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text copyright paper51.com
Nextj http://www.paper51.com Next I http://www.paper51.com
利用双重循环实现导出。 内容来自论文无忧网 www.paper51.com 4.3 文件编辑窗体的实现 http://www.paper51.com 1）运行时的窗体： 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com 2）控件和事件 http://www.paper51.com 控件包括最首，上一个，下一个，最末，添加，编辑，删除，查询，导出，退出等按钮和用于输入信息的文本框。，其中导出按钮是隐藏在框架4中，点击查询即可显示。这些按钮控件的事件和前面档案柜资料窗体相似。下面对编辑，添加这两个按钮的事件和实现语句分析如下： paper51.com
a）“编辑”按钮控件：click事件是将按钮名改成“保存”，增加了系统的交互性。同时使文本框变得可编辑。 “保存” 按钮控件的click事件是将按钮名改成“编辑”，同时用文本框的记录修改数据库中的记录。它的实现语句是： 内容来自论文无忧网 www.paper51.com If Command6.Caption = "编辑" Then http://www.paper51.com Command6.Caption = "更新" http://www.paper51.com
Text1.Enabled = True copyright paper51.com Text2.Enabled = True http://www.paper51.com Text3.Enabled = True copyright paper51.com Text4.Enabled = True paper51.com
Else http://www.paper51.com adoPrimaryRS.Fields("文件号") = Text1.Text http://www.paper51.com adoPrimaryRS.Fields("文件名") = Text2.Text paper51.com
adoPrimaryRS.Fields("作者") = Text3.Text copyright paper51.com adoPrimaryRS.Fields("内容摘要") = Text4.Text 内容来自论文无忧网 www.paper51.com adoPrimaryRS.Update paper51.com
Text1.Enabled = False 内容来自论文无忧网 www.paper51.com Text2.Enabled = False 内容来自论文无忧网 www.paper51.com
Text3.Enabled = False http://www.paper51.com
Text4.Enabled = False copyright paper51.com End If 内容来自论文无忧网 www.paper51.com |