论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 代写论文

A450VB文档管理系统+论文

第四章 应用系统实现

按结构化的程序设计思想,在完成了系统分析、系统设计后,就可以进行系统实现阶段了,系统实现是每指把系统的物理模型转换成实际运行系统的全过程。其基本任务是: paper51.com

a)       前期准备

http://www.paper51.com

b)       系统平台的安装与调试 copyright paper51.com

c)       程序的编制与调试

http://www.paper51.com

d)       信息系统调试 内容来自论文无忧网 www.paper51.com

e)       数据库与文件的建立

paper51.com

f)         系统转换

http://www.paper51.com

g)       试运行、验收与维护 http://www.paper51.com

4.1创建卷名窗体的实现 内容来自论文无忧网 www.paper51.com

  1)运行时的窗体:

内容来自www.paper51.com

copyright paper51.com

2)控件和事件 paper51.com

a) “节点刷新”按钮控件:click事件是将创建新节点后的数据库信息刷新到窗体中。控制主节点刷新的语句是:

内容来自论文无忧网 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("卷号") & ")") http://www.paper51.com

      b) “创建节点”按钮控件:click事件是将文本框信息加入到卷名库表中,这样达到创建新节点的目的,这里创建新节点填写卷号很重要,它直接决定了子节点的从属关系。读取文本框中的信息到数据库表中的主要的实现语句是: http://www.paper51.com

adoPrimaryRS.AddNew 内容来自论文无忧网 www.paper51.com

adoPrimaryRS.Fields("卷号") = Text1.Text http://www.paper51.com

adoPrimaryRS.Fields("卷名") = Text2.Text 内容来自www.paper51.com

adoPrimaryRS.Fields("备注") = Text3.Text

paper51.com

adoPrimaryRS.Fields("创卷人员") = "管理员"

http://www.paper51.com

adoPrimaryRS.Fields("创卷日期") = Date

paper51.com

adoPrimaryRS.Update paper51.com

c)“编辑节点”按钮控件:click事件是将原先建立的节点名,节点号,节点的从属进行再编辑。从属关系是通过修改节点号(即卷号)来达到目的的。实现的原理是修改数据库中相应的记录值。删除前提醒用户是否确认删除。实现语句是:

http://www.paper51.com

adoPrimaryRS.Fields("卷号") = Text1.Text 内容来自论文无忧网 www.paper51.com

 adoPrimaryRS.Fields("卷名") = Text2.Text

http://www.paper51.com

 adoPrimaryRS.Fields("备注") = Text3.Text 内容来自论文无忧网 www.paper51.com

 adoPrimaryRS.Update

内容来自论文无忧网 www.paper51.com

d)“删除节点”按钮控件:click事件是已经建立的节点(卷名)删除。实现的原理是删除数据库中的相应记录值。它的实现语句是: http://www.paper51.com

Delete = MsgBox("确实要删除该节点吗",vbOKCancel, "删除节点") copyright paper51.com

If Delete = vbOK Then 内容来自www.paper51.com

adoPrimaryRS.Delete

paper51.com

h)“退出”按钮控件:click事件是释放当前窗体,返回主控系统。实现语句是:Unload Me

内容来自www.paper51.com

4.2:档案柜资料窗体的实现  http://www.paper51.com

      1)运行时的窗体: http://www.paper51.com

      copyright paper51.com

2)控件和事件 内容来自论文无忧网 www.paper51.com

a)“网格”容器控件:显示档案柜中的数据信息。数据源设定为档案柜表的查询记录集。在窗体的装载事件load中用语句控制。语句是:

copyright paper51.com

adoPrimaryRS.Open"select  档案柜号,建柜人员,建柜日期,备注 from dag Order by 档案柜号", db, adOpenStatic, adLockOptimistic copyright paper51.com

  Text1.Text = adoPrimaryRS.Fields("档案柜号") http://www.paper51.com

  Text2.Text = adoPrimaryRS.Fields("备注")

内容来自论文无忧网 www.paper51.com

  Set DataGrid1.DataSource = adoPrimaryRS

copyright paper51.com

b)“最首”按钮控件:click事件是将当前窗体中的网格控件中的信息和文本框控件中的信息指向数据库表查询记录集中的第一条记录。利用SQL语句实现在数据库中查询符合条件的所以记录,并在表单中的网格容器中显示。如果无相应的记录,系统将给出提示。实现关键语句如下: copyright paper51.com

adoPrimaryRS.MoveFirst

paper51.com

Text1.Text = adoPrimaryRS.Fields("档案柜号")

http://www.paper51.com

Text2.Text = adoPrimaryRS.Fields("备注")

paper51.com

c)“下一条”按钮控件:click事件是将网格中的,文本框中的信息同时指向当前记录的下一条记录。如果越界就给出已经是最后一条记录的提示,并将记录定位在最后一条记录。实现语句:

copyright paper51.com

adoPrimaryRS.MoveNext 内容来自www.paper51.com

IfadoPrimaryRS.EOF Then 内容来自论文无忧网 www.paper51.com

MsgBox ("已经是第后一条记录了!")

copyright paper51.com

adoPrimaryRS.MoveLast paper51.com

Else

copyright paper51.com

Text1.Text =adoPrimaryRS.Fields("档案柜号") paper51.com

Text2.Text =adoPrimaryRS.Fields("备注") copyright paper51.com

d)“上一条”按钮控件:click事件是将网格中的,文本框中的信息同时指向当前记录的上一条记录。如果越界就给出已经是第一条记录的提示,并将记录定位在第一条记录。实现语句: 内容来自www.paper51.com

adoPrimaryRS.MovePrevious paper51.com

IfadoPrimaryRS.BOF Then 内容来自论文无忧网 www.paper51.com

MsgBox ("已经是第一条记录了!")

http://www.paper51.com

adoPrimaryRS.MoveFirst

copyright paper51.com

Else

paper51.com

Text1.Text =adoPrimaryRS.Fields("档案柜号")

http://www.paper51.com

Text2.Text =adoPrimaryRS.Fields("备注") paper51.com

End Ifd) “退出”按钮控件:click事件、实现语句和前面一样。 内容来自www.paper51.com

e)“最末”按钮控件:click事件是将当前窗体中的网格控件中的信息和文本框控件中的信息指向数据库表查询记录集中的第后一条记录。利用SQL语句实现在数据库中查询符合条件的所以记录,并在表单中的网格容器中显示。如果无相应的记录,系统将给出提示。实现关键语句如下: paper51.com

adoPrimaryRS.MoveLast 内容来自www.paper51.com

Text1.Text = adoPrimaryRS.Fields("档案柜号")

http://www.paper51.com

Text2.Text = adoPrimaryRS.Fields("备注") paper51.com

f)“添加”按钮控件:click事件是创建新的档案柜,实现的原理是对数据库查询的记录集添加一条新的记录,然后修给这条空记录的值,达到对数据库表中的档案柜记录添加的目的。实现的语句如下: 内容来自论文无忧网 www.paper51.com

If Command5.Caption = "添加" Then

copyright paper51.com

Command5.SetFocus 内容来自论文无忧网 www.paper51.com

Command5.Caption = "保存" paper51.com

Text1.Enabled = True

内容来自论文无忧网 www.paper51.com

Text2.Enabled = True 内容来自www.paper51.com

Text1.SetFocus 内容来自www.paper51.com

Text1.Text = "" paper51.com

Text2.Text = "" 内容来自论文无忧网 www.paper51.com

adoPrimaryRS.AddNew 内容来自www.paper51.com

Else copyright paper51.com

adoPrimaryRS.Fields("档案柜号") = Text1.Text 内容来自论文无忧网 www.paper51.com

adoPrimaryRS.Fields("备注") = Text2.Text 内容来自论文无忧网 www.paper51.com

adoPrimaryRS.Fields("建柜人员") = "管理员" 内容来自www.paper51.com

adoPrimaryRS.Fields("建柜日期") = Date http://www.paper51.com

adoPrimaryRS.Update paper51.com

Command5.Caption = "添加"

内容来自www.paper51.com

Text1.Enabled = False

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 http://www.paper51.com

adoPrimaryRS.Update 内容来自论文无忧网 www.paper51.com

h)       “查找”按钮控件:click事件是使框架4出现,而框架1隐藏,框架4中的“确定” 按钮控件的click事件是查找档案柜数据库中的满足文本框1和文本3中的查询条件。查询结果显示在网格容器控件中。

http://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

copyright paper51.com

 adoPrimaryRS.Open "select 档案柜号,建柜人员,建柜日期,备注 from dag  where " & a & " like'%" & b & "%'", db, adOpenStatic, adLockOptimistic

copyright paper51.com

 Set DataGrid1.DataSource = adoPrimaryRS

paper51.com

查询的结果可以通过“导出”按钮导出到EXCEL表中。以实现数据的打印报表。导出控制的语句是: http://www.paper51.com

For i = 0 To adoPrimaryRS.RecordCount - 1

内容来自www.paper51.com

        Forj = 0 To adoPrimaryRS.Fields.Count - 1

paper51.com

             DataGrid1.Row = i paper51.com

         DataGrid1.Col = j paper51.com

         xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text

paper51.com

        Nextj

内容来自论文无忧网 www.paper51.com

     Next I

http://www.paper51.com

利用双重循环实现导出。

http://www.paper51.com

4.3 文件编辑窗体的实现

内容来自www.paper51.com

1)运行时的窗体:

内容来自www.paper51.com

内容来自www.paper51.com

2)控件和事件 内容来自论文无忧网 www.paper51.com

控件包括最首,上一个,下一个,最末,添加,编辑,删除,查询,导出,退出等按钮和用于输入信息的文本框。,其中导出按钮是隐藏在框架4中,点击查询即可显示。这些按钮控件的事件和前面档案柜资料窗体相似。下面对编辑,添加这两个按钮的事件和实现语句分析如下:

copyright paper51.com

a)“编辑”按钮控件:click事件是将按钮名改成“保存”,增加了系统的交互性。同时使文本框变得可编辑。 “保存” 按钮控件的click事件是将按钮名改成“编辑”,同时用文本框的记录修改数据库中的记录。它的实现语句是:

copyright paper51.com

If Command6.Caption = "编辑" Then

内容来自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

内容来自论文无忧网 www.paper51.com

Text4.Enabled = True

内容来自论文无忧网 www.paper51.com

Else

http://www.paper51.com

adoPrimaryRS.Fields("文件号") = Text1.Text

http://www.paper51.com

adoPrimaryRS.Fields("文件名") = Text2.Text

copyright paper51.com

adoPrimaryRS.Fields("作者") = Text3.Text

内容来自论文无忧网 www.paper51.com

adoPrimaryRS.Fields("内容摘要") = Text4.Text

copyright paper51.com

adoPrimaryRS.Update 内容来自论文无忧网 www.paper51.com

Text1.Enabled = False

内容来自www.paper51.com

Text2.Enabled = False

copyright paper51.com

Text3.Enabled = False

内容来自论文无忧网 www.paper51.com

Text4.Enabled = False

http://www.paper51.com

End If http://www.paper51.com

------分隔线----------------------------
联系方式