VB526 文档管理系统VB+ACCESS

《文档管理系统》是采用VISAUL BASIC6.0开发的一个数据库管理系统。本设计说明书主要讲述了VISAUL BASIC6.0的基本功能及设计方法。紧接着以本系统为例，逐一介绍开发本系统系统的步骤：系统分析、系统设计、系统实现、系统维护。在系统分析中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。在系统的设计中，详细的展现了系统的各个功能模块。所需的数据库表及表字段。菜单的设计等。在系统的实现中，给出了实现表单中相应的功能控件的事件及代码。以及菜单实现的方法。文章的最后则给出了本系统的主要功能源代码。
本系统具有数据输入，数据存储，信息查询，报表打印等功能，系统的人机对话界面友好。系统功能全面，用户操作方便是本设计的一个特色。

[资料来源：THINK58.com]

知识经济时代的今天，对文书档案管理工作人员提出了更新更高的要求。文档管理工作人员，必须完成由传统的管理模式向现代的管理模式的转变，由传统的管理理念向现代管理理念转变，同时在管理实践中应用，使文书档案管理工作赶上时代步伐，适应文书档案管理现代化和办公自动化的时代需要，为社会提供更好更有效的服务，使文书档案管理工作发挥出应有的经济效益及社会效益来。
《文档管理系统》针对本人对文档资料管理的调研，结合本单位长期以来管理文档资料的经验而设计的计算机管理系统。提出了一套比较适宜的施行方案，并努力将原本复杂的管理业务、归类、存档等简化为比较简单的事务。他基本上秉承了传统的文档资料管理理念，同时也兼顾当今对现代管理信息的需要，着眼于实用、高效的原则。
由于本人的水平有限，在本系统中难免存在错误和不足。望各位老师予以批评与指正 think58 [资料来源：THINK58.com]

1）系统任务的提出。
系统开发的工作是从接受任务开始的，而系统任务应由系统用户提出，以书面的形式给予表达。
2）初步系统调查。
初步系统调查着重了解存在的主要问题和用户提出的目的要求，并制定新系统总体规划。
3）确定系统目标。
经过初步系统调查，了解了用户的基本状况和用户对系统的设想及要求后，系统开发人员就可以初步提出档案系统的系统目标。
4）系统的可行性研究。
系统的可行性研究包括可能性和必要性。有技术上的，经济上的，人力资源上的，以及组织管理上的。经过系统的可行性研究，最后应写出一份系统可行性分析报告。分析报告是系统开发人员第一阶段工作的小结。
5）详细的系统调查。

当同样的消息可发送到父类的对象和它的子类的对象时，这就被称为多太性。由于多太性具有可表达对象的多个类的能力。因此，它既与动态类型有关，又与静态类型有关。
7) 动态聚束
一个程序经过编译，连接生成的可执行文件代码，其过程就是将执行代码聚束在一起，若这一过程发生在程序设计时，就称为动态聚束。面向对象语言常使用这一类聚束方式，它具有程序简单性和可扩充性等优点。
本系统在编制过程中，多次利用面向对象的技术特点。在后面的章节中将分别予以说明。
1•3、系统软件开发环境简介
本系统是在Pentyum 166mmx 以上机型的计算机上进行开发并获得通过的，同时方便系统开发，减少开发过程的难度，我们是基于以下的软件环境。
•以Windows 98为操作系统
•以Visual Basic6.0为开发工具
Windows 98是目前主流图形化操作系统，而Visual Basic6.0是一种优秀的面向对象的，支持多种数据库应用的开发工具。我在系统开发过程中深深地感受到Visual Basic6.0的强大威力。下面我结合自己的体会对Visual Basic6.0作一简要介绍。
Visual Basic6.0是著名的Microsoft公司推出的完全可视化的，支持多种数据库开发工具。使用面向对象的开发技术，能够开发出强大的专门针对用户的应用程序。具有强大的API函数库，支持ActiveX和OCX技术。能够管理大量复杂的数据信息，同时具有很好的安全性。 [资料来源：http://www.THINK58.com]
在后面的篇幅里，我将详细的说明我是如何利用Visual Basic6.0进行《文档管理系统》的系统开发的。 think58 [版权所有：http://think58.com]

adoPrimaryRS.MoveFirst
  i = 0
  Do
  If Left(adoPrimaryRS.Fields("卷号"), 1) = 2 Then
    Set mynod = TreeView1.Nodes.Add("sort" & Str$(1), tvwChild, , adoPrimaryRS.Fields("卷名") & "(" & adoPrimaryRS.Fields("卷号") & ")")
    i = i + 1
    End If
    adoPrimaryRS.MoveNext
    Loop While Not adoPrimaryRS.EOF
  adoPrimaryRS.MoveFirst
  i = 0
  Do
  If Left(adoPrimaryRS.Fields("卷号"), 1) = 3 Then
    Set mynod = TreeView1.Nodes.Add("sort" & Str$(2), tvwChild, , adoPrimaryRS.Fields("卷名") & "(" & adoPrimaryRS.Fields("卷号") & ")")
    i = i + 1
    End If
    adoPrimaryRS.MoveNext
  Loop While Not adoPrimaryRS.EOF
     adoPrimaryRS.MoveFirst
  i = 0
  Do
  If Left(adoPrimaryRS.Fields("卷号"), 1) = 4 Then think58好，好think58 [版权所有：http://think58.com]
    Set mynod = TreeView1.Nodes.Add("sort" & Str$(3), tvwChild, , adoPrimaryRS.Fields("卷名") & "(" & adoPrimaryRS.Fields("卷号") & ")")
    i = i + 1
    End If
    adoPrimaryRS.MoveNext
   Loop While Not adoPrimaryRS.EOF
    adoPrimaryRS.MoveFirst
  i = 0
  Do
  If Left(adoPrimaryRS.Fields("卷号"), 1) = 5 Then
    Set mynod = TreeView1.Nodes.Add("sort" & Str$(4), tvwChild, , adoPrimaryRS.Fields("卷名") & "(" & adoPrimaryRS.Fields("卷号") & ")")
    i = i + 1
    End If
    adoPrimaryRS.MoveNext
  Loop While Not adoPrimaryRS.EOF
     adoPrimaryRS.MoveFirst
  i = 0
  Do
  If Left(adoPrimaryRS.Fields("卷号"), 1) = 6 Then
    Set mynod = TreeView1.Nodes.Add("sort" & Str$(5), tvwChild, , adoPrimaryRS.Fields("卷名") & "(" & adoPrimaryRS.Fields("卷号") & ")")

    i = i + 1
    End If
    adoPrimaryRS.MoveNext
   Loop While Not adoPrimaryRS.EOF
     adoPrimaryRS.MoveFirst
  i = 0
  Do
  If Left(adoPrimaryRS.Fields("卷号"), 1) = 7 Then
    Set mynod = TreeView1.Nodes.Add("sort" & Str$(6), tvwChild, , adoPrimaryRS.Fields("卷名") & "(" & adoPrimaryRS.Fields("卷号") & ")")
    i = i + 1
    End If
    adoPrimaryRS.MoveNext
    Loop While Not adoPrimaryRS.EOF
     adoPrimaryRS.MoveFirst
  i = 0
  Do
  If Left(adoPrimaryRS.Fields("卷号"), 1) = 8 Then
    Set mynod = TreeView1.Nodes.Add("sort" & Str$(7), tvwChild, , adoPrimaryRS.Fields("卷名") & "(" & adoPrimaryRS.Fields("卷号") & ")")
    i = i + 1
    End If
    adoPrimaryRS.MoveNext

copyright think58 [来源：http://www.think58.com]

  Loop While Not adoPrimaryRS.EOF
   adoPrimaryRS.MoveFirst
  i = 0
  Do
  If Left(adoPrimaryRS.Fields("卷号"), 1) = 9 Then
    Set mynod = TreeView1.Nodes.Add("sort" & Str$(8), tvwChild, , adoPrimaryRS.Fields("卷名") & "(" & adoPrimaryRS.Fields("卷号") & ")")

copyright think58 [资料来源：THINK58.com]