[精品论文]VB文档管理系统论文范文

毕业设计课程定做 QQ1714879127目录内容摘要2Abstract3引言4第一章 概述51.1 管理信息系统简介512：面向对象的程序设计713、系统软件开发环境简介9第二章 应用系统分析1021、数据流图1022、系统功能结构图1223、系统分析说明书1324、ER图15第三章 系统设计1731、模块处理功能设计1732、数据库表结构19第四章 应用系统实现224.1创建卷名窗体的实现224.2：档案柜资料窗体的实现244.3 文件编辑窗体的实现274.4 组卷窗体的实现294.5系统菜单的实现33总 结35致 谢36主要参考文献36附录（主要窗体的源代码）37 编辑档案柜基本信息档案柜模块 检索档案柜基本信息 档案柜基本信息导出到EXCEL 创建卷宗信息 编辑卷宗信息检索卷宗信息总控模块 卷宗信息模块 相同卷宗号信息统计 不同卷宗号信息统计 卷宗信息导出到EXCEL 编辑文档信息子模块 文档信息模块 检索文档信息子模块 文档信息导出到EXCEL （图24） 系统功能结构图23、系统分析说明书项目级系统分析的重点在业务需求层次上，主要任务是确定用户对系统的应用要求，这主要从两个方面获得。一是和用户一起充分了解现行系统是怎样运作的，二是理解用户的现行系统的改进及对新系统的要求，并在此基础上提出解决问题的基本模型，另一个任务是把和用户共同理解的新系统用恰当的工具表现出来，系统分析的最终任务是提出达到新系统目标的新系统方案，并在此提高主要文档系统说明书。以下是对系统各模块功能的分析1： 档案柜信息模块的功能档案柜信息模块，又包括档案柜信息的编辑子模块、检索档案柜信息子模块、档案柜信息导出到EXCEL报表子模块。这些子模块的功能组合后，可对档案柜从创建、到平时信息查询、以及所需信息的报表等一系列繁杂的工作通过计算机得到轻松的管理。其中档案柜信息的编辑子模块可以完成档案柜信息的创建、修改、删除等操作。从而达到准确的对档案柜的信息存档的目的。检索档案柜信息子模块可以通过档案柜号或档案柜名来进行查询。检索结果以表格形式体现。信息报表子模块可以完成特定条件下的信息报表，报表信息受检索条件的限制，和检索结果一致。通过将检索结果导出到EXCEL实现报表功能。2：卷宗模块的功能卷宗模块包括卷宗编辑子模块、检索卷宗子模块、卷宗信息统计子模块、卷宗信息导出到EXCEL实现报表子模块。这些子模块的功能组合后，各方便地对卷宗进行系列管理。其中卷宗编辑子模块可以对卷宗进行创建、修改、删除等操作。检索卷宗子模块单一检索和多条检索条件的组合这样两种方式来进行查询。检索条件包括卷宗号、卷宗名、创建时间等。检索结果以表格形式体现。卷宗信息统计子模块可以完成按卷宗号或入卷时间等从不同的方面对档案资料进行文档资料数量统计。统计结果以表格形式体现。卷宗信息报表子模块可以对符合特定条件下的信息报表，报表信息受检索条件的限制，和检索结果一致。3：文档资料模块文档资料模块包括文档资料信息编辑子模块、检索文档资料子模块、文档资料报表子模块。这些子模块的功能组合后，各方便地对学生评语进行系列管理。文档资料编辑子模块可以对文档资料信息进行录入、修改、删除等操作。方便地将文档资料存档的目的。检索文档资料子模块可以通过文件号或文件名来进行查询。或着通过文件号或文件名与状态、入卷时间的组合形式来进行查询。检索结果统样以表格形式体现。信息报表子模块可以完成特定条件下的信息报表，报表信息受检索条件的限制，和检索结果一致。报表同样是通过导出到EXCEL实现。以上是对本系统各模块功能的总体分析。24、ER图通过以上的数据流图可以知道：系统应具备档案柜信息表、卷宗信息表、文档资料信息表。下面利用E-R图进一步的得出系统对哪些数据库表的必须。以及每个表应具备的字段。软件系统本质上是信息处理系统，因此在软件系统的整个开发过程中都必须考虑两个方面的问题数据与及数据的处理。在需求分析阶段既要分析用户的数据要求，又要分析用户的处理要求。为了把用户的数据要求清晰地表达出来，通常建立一个概念性的数据模型（也称为信息模型）。它是一种面向问题的数据模型，是按照用户的观点来对数据和信息建模，它描述了从用户角度看到的数据，它反映了用户的现实环境，且与在软件系统中的实现方法无关。最常用的表示概念性数据模型的方法是实体一联系方法，这种方法用ER图描绘现实世界中的实体，而不涉及这些实体在系统中的实现方法，针对文档管理系统面向的用户与及为了实现他们在使用系统的过程中想达到的目的，下面给出分析得出的该系统的主要实体的ER图。文件号 文件名 卷宗号 卷宗名 档案柜号文档资料 入卷 卷宗 入柜 档案柜（图25） ER图 通过该ER图不难可以得出：要实现系统预定的功能，必须具备档案柜信息表（DAG）、文档资料信息表(FILE)、卷宗信息表(SORT)。档案柜信息表（DAG）的字段有：档案柜号、备注、建柜人、建柜日期。文档资料信息表(FILE)的字段有：文件号、文件名、作者、入库日期、卷号、卷名、入卷日期、状态等。卷宗信息表(SORT)的字段：卷宗号、卷宗名、备注、创建日期等。 第三章 系统设计系统设计是信息系统开发工作的核心，其基本的任务是把原系统分析阶段得出的逻辑模型变换成系统的物理模型。即按照系统需求分析阶段确定的目标和逻辑模型，具体设计出效率高，适应性强，可靠性好且经济实用的系统实施方案。经过需求分析阶段的工作，系统必须“做什么”已经清楚了，现在是决定“怎样做”的时候了。设计的基本目的就是回答“系统应该如何实现？”这个问题，通过这个阶段的工作将划分出组成系统的物理元素程序文件，数据库，人工过程和文档等等。系统设计应从数据流程图出发。设想完成系统功能的若干种合理的物理方案。并和用户共同比较选定一个最佳方案。然后进行软件结构设计。在进行软件设计时应该遵循模块独立原理，确定软件由哪些模块组成以及这些模块之间的动态调用关系。同时可以设计出系统的层次和结构图。基于以上理论，结合需求分析阶段的数据流图和ER图。设计出以下的模块和5个数据库表结构的设计。31、模块处理功能设计在上一章的系统分析说明书中，已经从用户的角度初步地划分了本系统的各功能模块，并且从用户的角度对主要的功能模块设置作了分析。下面我将对每个模块的总体设计作简要说明。1档案柜信息模块1）编辑档案柜信息模块该模块可以实现档案柜的创建，档案柜信息包括档案柜号、档案柜名、创建时间、创建人、备注。该模块还实现对档案柜信息记录的修改、删除等操作。2）检索档案柜信息模块该模块是档案柜信息模块的重要组成部分。它能够用单一条件或组合条件两种方式对满足条件的档案柜记录予以显示，条件的匹配方式包括等于、不等于、大于、小于等等，条件的组合方式有与、或等，力图从数据的任何一个角度反映整个数据表的信息。该模块将用SQL语言实现。3）档案柜信息报表模块该模块可以实现在数据库中满足指定条件的记录的输出报表。该模块输出特定条件的记录也将用SQL语言实现。由于Visual Basic6.0的报表功能的局限性，所以这里采用将检索结果到处到EXCEL，最后通过EXCEL实现最终的报表。2卷宗信息模块1）卷宗信息编辑模块该模块首先实现卷宗的创建。创建时用户选择卷宗的类比名和卷宗号。另外还包括卷宗的创建时间，创建人，备注等。创建以后还可以实现对卷宗包括卷宗号、卷宗名等记录的录入、修改、删除等操作。2）卷宗信息检索模块该模块是卷宗信息模块的重要组成部分。它能够用单一条件或组合条件两种方式对满足条件的卷宗记录以及卷宗里面的文档资料信息予以显示，检索字段包括卷宗号、卷宗名、入卷时间、文件号、文件名等。条件的匹配方式包括等于、不等于、大于、小于等等，条件的组合方式有与、或等，力图从数据的任何一个角度反映整个数据表的信息。该模块将用SQL语言实现。3）卷宗信息分段统计模块该模块主要完成对满足指定条件的卷宗库表和文档资料库表中的记录按照相同卷宗号进行文档资料数量的统计。统计的结果显示在表单中的网格表中。3文档资料模块该模块实现文档资料信息的管理，又可分为文档资料编辑子模块、检索文档资料子模块、文档资料报表子模块。文档资料编辑子模块主要完成文档资料的录入、修改、删除等。检索评语子模块主要完成对文档资料从文件号、文件名等字段来设定检索条件。文档资料报表子模块主要完成设定条件的记录的输出报表。4系统用户登录模块该模块实现系统对用户身份的识别，只有输入正确的用户名和密码，系统才会进入系统运行界面，非法用户登录给出警告，密码填写错误给出提醒。非法用户不能进入系统。密码三次输入不正确，系统自动退出。32、数据库表结构根据分析阶段得出的实体一联系图（ER图）的结论，结合本系统对有关数据的存储的需要，更加方便实现该动态档案系统的所有功能，现将本系统设计成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组卷人文本型84 登录表：用于存放系统用户登录姓名、密码。字段名类型宽度用户名字符型10密码字符型10以上是本系统的库表结构的设计简要说明。 第四章 应用系统实现按结构化的程序设计思想，在完成了系统分析、系统设计后，就可以进行系统实现阶段了，系统实现是每指把系统的物理模型转换成实际运行系统的全过程。其基本任务是：a) 前期准备b) 系统平台的安装与调试c) 程序的编制与调试d) 信息系统调试e) 数据库与文件的建立f) 系统转换g) 试运行、验收与维护4.1创建卷名窗体的实现 1）运行时的窗体：2）控件和事件a) “节点刷新”按钮控件：click事件是将创建新节点后的数据库信息刷新到窗体中。控制主节点刷新的语句是：If Left(adoPrimaryRS.Fields(卷号), 1) = 0 Then Set mynod = TreeView1.Nodes.Add(sort, tvwChild, sort & Str$(i), adoPrimaryRS.Fields(卷名) & ( & adoPrimaryRS.Fields(卷号) & ) b) “创建节点”按钮控件：click事件是将文本框信息加入到卷名库表中，这样达到创建新节点的目的，这里创建新节点填写卷号很重要，它直接决定了子节点的从属关系。读取文本框中的信息到数据库表中的主要的实现语句是：adoPrimaryRS.AddNewadoPrimaryRS.Fields(卷号) = Text1.TextadoPrimaryRS.Fields(卷名) = Text2.TextadoPrimaryRS.Fields(备注) = Text3.TextadoPrimaryRS.Fields(创卷人员) = 管理员adoPrimaryRS.Fields(创卷日期) = DateadoPrimaryRS.Updatec）“编辑节点”按钮控件：click事件是将原先建立的节点名，节点号，节点的从属进行再编辑。从属关系是通过修改节点号（即卷号）来达到目的的。实现的原理是修改数据库中相应的记录值。删除前提醒用户是否确认删除。实现语句是：adoPrimaryRS.Fields(卷号) = Text1.Text adoPrimaryRS.Fields(卷名) = Text2.Text adoPrimaryRS.Fields(备注) = Text3.Text adoPrimaryRS.Updated）“删除节点”按钮控件：click事件是已经建立的节点（卷名）删除。实现的原理是删除数据库中的相应记录值。它的实现语句是：Delete = MsgBox(确实要删除该节点吗, vbOKCancel, 删除节点)If Delete = vbOK ThenadoPrimaryRS.Deleteh）“退出”按钮控件：click事件是释放当前窗体，返回主控系统。实现语句是：Unload Me4.2：档案柜资料窗体的实现 1）运行时的窗体： 2）控件和事件a）“网格”容器控件：显示档案柜中的数据信息。数据源设定为档案柜表的查询记录集。在窗体的装载事件load中用语句控制。语句是：adoPrimaryRS.Open select 档案柜号,建柜人员,建柜日期,备注 from dag Order by 档案柜号 , db, adOpenStatic, adLockOptimistic Text1.Text = adoPrimaryRS.Fields(档案柜号) Text2.Text = adoPrimaryRS.Fields(备注) Set DataGrid1.DataSource = adoPrimaryRSb）“最首”按钮控件：click事件是将当前窗体中的网格控件中的信息和文本框控件中的信息指向数据库表查询记录集中的第一条记录。利用SQL语句实现在数据库中查询符合条件的所以记录，并在表单中的网格容器中显示。如果无相应的记录，系统将给出提示。实现关键语句如下：adoPrimaryRS.MoveFirstText1.Text = adoPrimaryRS.Fields(档案柜号)Text2.Text = adoPrimaryRS.Fields(备注)c）“下一条”按钮控件：click事件是将网格中的，文本框中的信息同时指向当前记录的下一条记录。如果越界就给出已经是最后一条记录的提示，并将记录定位在最后一条记录。实现语句：adoPrimaryRS.MoveNextIf adoPrimaryRS.EOF ThenMsgBox (已经是第后一条记录了！)adoPrimaryRS.MoveLastElseText1.Text = adoPrimaryRS.Fields(档案柜号)Text2.Text = adoPrimaryRS.Fields(备注)d）“上一条” 按钮控件：click事件是将网格中的，文本框中的信息同时指向当前记录的上一条记录。如果越界就给出已经是第一条记录的提示，并将记录定位在第一条记录。实现语句：adoPrimaryRS.MovePreviousIf adoPrimaryRS.BOF ThenMsgBox (已经是第一条记录了！)adoPrimaryRS.MoveFirstElseText1.Text = adoPrimaryRS.Fields(档案柜号)Text2.Text = adoPrimaryRS.Fields(备注)End Ifd) “退出”按钮控件：click事件、实现语句和前面一样。e) “最末”按钮控件：click事件是将当前窗体中的网格控件中的信息和文本框控件中的信息指向数据库表查询记录集中的第后一条记录。利用SQL语句实现在数据库中查询符合条件的所以记录，并在表单中的网格容器中显示。如果无相应的记录，系统将给出提示。实现关键语句如下：adoPrimaryRS.MoveLastText1.Text = adoPrimaryRS.Fields(档案柜号)Text2.Text = adoPrimaryRS.Fields(备注)f) “添加”按钮控件：click事件是创建新的档案柜，实现的原理是对数据库查询的记录集添加一条新的记录，然后修给这条空记录的值，达到对数据库表中的档案柜记录添加的目的。实现的语句如下：If Command5.Caption = 添加 ThenCommand5.SetFocusCommand5.Caption = 保存Text1.Enabled = TrueText2.Enabled = TrueText1.SetFocusText1.Text = Text2.Text = adoPrimaryRS.AddNewElseadoPrimaryRS.Fields(档案柜号) = Text1.TextadoPrimaryRS.Fields(备注) = Text2.TextadoPrimaryRS.Fields(建柜人员) = 管理员adoPrimaryRS.Fields(建柜日期) = DateadoPrimaryRS.UpdateCommand5.Caption = 添加Text1.Enabled = FalseText2.Enabled = FalseEnd Ifg) “编辑”按钮控件：click事件是将记录集中当前记录在文本框中进行修改，然后更改记录集中相应的记录。来达到修改数据库中的记录的目的。实现的主要语句是：adoPrimaryRS.Fields(档案柜号) = Text1.TextadoPrimaryRS.Fields(备注) = Text2.TextadoPrimaryRS.Updateh) “查找”按钮控件：click事件是使框架4出现，而框架1隐藏，框架4中的“确定” 按钮控件的click事件是查找档案柜数据库中的满足文本框1和文本3中的查询条件。查询结果显示在网格容器控件中。Frame4.Visible = TrueFrame1.Visible = FalseCommand9.Enabled = Falsea = Combo1.Text b = Text3.Text adoPrimaryRS.Open select 档案柜号,建柜人员,建柜日期,备注 from dag where & a & like % & b & %, db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = adoPrimaryRS查询的结果可以通过“导出”按钮导出到EXCEL表中。以实现数据的打印报表。导出控制的语句是：For i = 0 To adoPrimaryRS.RecordCount - 1 For j = 0 To adoPrimaryRS.Fields.Count - 1 DataGrid1.Row = i DataGrid1.Col = j xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text Next j Next I利用双重循环实现导出。4.3 文件编辑窗体的实现1）运行时的窗体：2）控件和事件控件包括最首，上一个，下一个，最末，添加，编辑，删除，查询，导出，退出等按钮和用于输入信息的文本框。，其中导出按钮是隐藏在框架4中，点击查询即可显示。这些按钮控件的事件和前面档案柜资料窗体相似。下面对编辑，添加这两个按钮的事件和实现语句分析如下：a）“编辑”按钮控件：click事件是将按钮名改成“保存”，增加了系统的交互性。同时使文本框变得可编辑。 “保存” 按钮控件的click事件是将按钮名改成“编辑”，同时用文本框的记录修改数据库中的记录。它的实现语句是：If Command6.Caption = 编辑 ThenCommand6.Caption = 更新Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueElseadoPrimaryRS.Fields(文件号) = Text1.TextadoPrimaryRS.Fields(文件名) = Text2.TextadoPrimaryRS.Fields(作者) = Text3.TextadoPrimaryRS.Fields(内容摘要) = Text4.TextadoPrimaryRS.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseEnd If 2）“添加”按钮控件：click事件是将按钮名改成“保存”，增加了系统的交互性。同时使文本框变得可编辑。 “保存” 按钮控件的click事件是将按钮名改成“添加”，此时使文本框变得不可编辑，同时用文本框的记录添加到数据库末尾。添加完成后，网格容器控件中的数据自动更新。它的实现语句是： If Command5.Caption = 添加 ThenCommand5.SetFocusCommand5.Caption = 保存Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText1.SetFocusText1.Text = Text2.Text = Text3.Text = Text4.Text = adoPrimaryRS.AddNewElseadoPrimaryRS.Fields(文件号) = Text1.TextadoPrimaryRS.Fields(文件名) = Text2.TextadoPrimaryRS.Fields(作者) = Text3.TextadoPrimaryRS.Fields(内容摘要) = Text4.TextadoPrimaryRS.Fields(入库日期) = DateadoPrimaryRS.Fields(状态) = 否adoPrimaryRS.UpdateCommand5.Caption = 添加Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseEnd If4.4 组卷窗体的实现1)运行时的窗体：2）控件和事件a)treeview控件：nodeclick事件是将treeview控件选中的节点值传给文本框，得到卷号和卷名，将此作为网格容器控件中的数据源的查询条件。并将查询记录集作为网格容器控件中的数据源。实现的语句如下：Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb; Set adoPrimaryRS = New RecordsetText4.Text = Left$(Right$(Node.Text, 3), 2)Text1.Text = Text4.TextText2.Text = Left$(Node.Text, Len(Node.Text) - 4)If Text4.Text 00 Then Set adoPrimaryRS = New Recordset adoPrimaryRS.Open select 卷号,卷名,文件号,文件名,作者,入库日期,内容摘要,档案柜号,入卷日期,组卷人,状态 from file where 卷号 like % & Text4.Text & %, db, adOpenStatic, adLockOptimisticElse Text1.Text = 00 Text2.Text = End IfText6.Enabled = TrueText6.SetFocusCommand4.Enabled = TrueSet DataGrid1.DataSource = adoPrimaryRSb）“查询”按钮控件：click事件是根据当前窗体中的组合框控件和文本框控件的内容，作为查询的条件。这个查询是本系统最重要的一个功能。它的实现关键功能语句与说明如下： Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb; Set adoPrimaryRS = New Recordset a = Combo1.Text b = Text7.Text adoPrimaryRS.Open select 卷号,卷名,文件号,文件名,作者,入库日期,内容摘要,档案柜号,入卷日期,组卷人,状态 from file where & a & like % & b & %, db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = adoPrimaryRSc) 导出按钮控件的click事件是将当前网格容器控件中的查询结果导出到EXCEL表以实现报表打印。导出的主要语句如下： For i = 0 To adoPrimaryRS.RecordCount - 1 For j = 0 To adoPrimaryRS.Fields.Count - 1 DataGrid1.Row = i DataGrid1.Col = j xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text Next j Next i Set xlapp = NothingSet xlbook = Nothing利用双重循环控制导出的位置。导出的界面如下：说明：上面是一个对卷号为03的卷宗实现查询的结果导出到EXCEL的结果。为了实现组卷，还需要用到文档资料和档案柜资料的2个窗体，它们分别是在添加文档到卷宗来的时候，有2个文本号选择和档案柜号选择按钮激发的事件结果。这二个窗体运行的界面如下：说明：选择某个档案柜号，然后点击确定，几个触发它的click事件，将当前的档案号添加到组卷窗体的档案号中，click事件的语句是：Form5.Text5.Text = DataGrid1.Text 文件资料窗体运行界面： 控件有：确定和关闭按钮二个控件。该窗体装载是load事件自动实现对文件数据库中的状态是“否”的文件搜索到记录集中，并作为网格容器控件的数据源。网格控件的click事件是将选中的记录添加到组卷窗体中的相应文本框中。作为组卷的数据信息。load事件的代码如下：Set db = New Connection db.CursorLocation = adUseClient db.Open PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb; Set adoPrimaryRS = New Recordset adoPrimaryRS.Open select 文件号,文件名,状态 from file where 状态=否 , db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = adoPrimaryRS4.5系统菜单的实现设计一个菜单系统，一般要经过几个步骤：菜单系统的规划，建立菜单与子菜单，把任务分配到菜单系统中，生成菜单程序，测试和运行菜单系统等，VB6.0是通过设计窗体来完成菜单的设计界面的，本系统设计的菜单运行如下： 各个菜单项的click事件代码如下：Private Sub exit_Click()EndEnd SubPrivate Sub file_Click()Form2.ShowEnd SubPrivate Sub Form_Load()Left = (Screen.Width - Width) 2Top = (Screen.Height - Height) 2End SubPrivate Sub jiangui_Click()Form4.ShowEnd SubPrivate Sub setup_Click()Form3.ShowEnd SubPrivate Sub zhujuan_Click()Form5.ShowEnd Sub其中的Left = (Screen.Width - Width) 2Top = (Screen.Height - Height) 2是控制窗体在屏幕中的位置居中。总 结 经过多日来的努力文档管理系统终于完成了。回顾这次毕业设计的过程，我觉得收获很大，现借撰写论文总结的机会，谈一谈我的体会。通过这次毕业设计，我掌握了一种新的数据库系统开发工具Visual Basic6.0。我对于它具有的可视化的编程环境和连接数据库的便捷性用感触颇深，Visual Basic6.0这些数据库的连接提供了多种方法。比如DATA控件对初学着就非常容易掌握，当然利用语句对数据库的连接就可以实现对数据库的高级应用。Visual Basic6.0这种面向对象的数据库开发工具提供了窗体这种户非常友好的交互方式。利用设计好的窗体据库的记录进行操作，不但使用户更清楚记录的具体变更情况，也使开发人员的工作轻松了许多。同时，在这次毕业设计过程中，我始终遵循软件工程的思想，这使我的工作进度明显加快，也使我少走了不少弯路。软件工程的思想，指导我一步一步从系统分析，到系统设计，再到系统实现，让我对整个系统的开发过程有了明显的全局观念，也合理地安排了整个设计的时间。以上是我在本次毕业设计中的体会，也许认识到的问题还很肤浅，这也正是我今后要努力提高的。致 谢在本次毕业设计的过程中，我的指导教师给了我很大的帮助。不仅使我在规定的时间内完成了系统的设计，同时还使我学到了很多有益的经验。在此，我谨向他表示最衷心的感谢。同时，学校给了我这次毕业设计的机会，使我得到了很好的锻炼，在此，我也向学校的各位老师表示最诚挚的感谢。主要参考文献作者. 书名. 出版社. 出版日期1张树兵Visual Basic6.0北京清华大学出版社1999年4月2翁正科FoxPro2.5北京清华大学出版社1995年5月3刘云生数据库系统概论武汉华中理工大学出版社1996年5月 附录（主要窗体的源代码）主窗体的源代码：Private Sub exit_Click()EndEnd SubPrivate Sub file_Click()Form2.ShowEnd SubPrivate Sub Form_Load()Left = (Screen.Width - Width) 2Top = (Screen.Height - Height) 2End SubPrivate Sub jiangui_Click()Form4.ShowEnd SubPrivate Sub setup_Click()Form3.ShowEnd SubPrivate Sub zhujuan_Click()Form5.ShowEnd Sub文件录入窗体的源代码：Dim WithEvents adoPrimaryRS As RecordsetPrivate Sub Combo1_Click()Text5.Text = End SubPrivate Sub Command1_Click()adoPrimaryRS.MoveFirstText1.Text = adoPrimaryRS.Fields(文件号)Text2.Text = adoPrimaryRS.Fields(文件名)Text3.Text = adoPrimaryRS.Fields(作者)Text4.Text = adoPrimaryRS.Fields(内容摘要)End SubPrivate Sub Command10_Click()Unload MeEnd SubPrivate Sub Command11_Click()Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb; Set adoPrimaryRS = New Recordset a = Combo1.Text b = Text5.Text adoPrimaryRS.Open select 文件号,文件名,作者,入库日期,状态,内容摘要 from file where & a & like % & b & %, db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = adoPrimaryRSEnd SubPrivate Sub Command12_Click()Frame4.Visible = FalseFrame2.Visible = TrueCommand9.Enabled = TrueEnd SubPrivate Sub Command13_Click() Dim i As Integer, j As Integer Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xlapp = CreateObject(excel.application) xlapp.Visible = True Set xlbook = xlapp.Workbooks.Add Set xlsheet = xlbook.Worksheets(1) xlsheet.Cells(1, 1) = 文件号 xlsheet.Cells(1, 2) = 文件名 xlsheet.Cells(1, 3) = 作者 xlsheet.Cells(1, 4) = 入库日期 xlsheet.Cells(1, 5) = 是否入卷 xlsheet.Cells(1, 6) = 内容摘要 For i = 0 To adoPrimaryRS.RecordCount - 1 For j = 0 To adoPrimaryRS.Fields.Count - 1 DataGrid1.Row = i DataGrid1.Col = j xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text Next j Next i Set xlapp = Nothing Set xlbook = NothingEnd SubPrivate Sub Command2_Click()adoPrimaryRS.MoveNextIf adoPrimaryRS.EOF ThenMsgBox (已经是第后一条记录了！)adoPrimaryRS.MoveLastElseText1.Text = adoPrimaryRS.Fields(文件号)Text2.Text = adoPrimaryRS.Fields(文件名)Text3.Text = adoPrimaryRS.Fields(作者)Text4.Text = adoPrimaryRS.Fields(内容摘要)End IfEnd SubPrivate Sub Command3_Click()adoPrimaryRS.MovePreviousIf adoPrimaryRS.BOF ThenMsgBox (已经是第一条记录了！)adoPrimaryRS.MoveFirstElseText1.Text = adoPrimaryRS.Fields(文件号)Text2.Text = adoPrimaryRS.Fields(文件名)Text3.Text = adoPrimaryRS.Fields(作者)Text4.Text = adoPrimaryRS.Fields(内容摘要)End IfEnd SubPrivate Sub Command4_Click()adoPrimaryRS.MoveLastText1.Text = adoPrimaryRS.Fields(文件号)Text2.Text = adoPrimaryRS.Fields(文件名)Text3.Text = adoPrimaryRS.Fields(作者)Text4.Text = adoPrimaryRS.Fields(内容摘要)End SubPrivate Sub Command5_Click()If Command5.Caption = 添加 ThenCommand5.SetFocusCommand5.Caption = 保存Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText1.SetFocusText1.Text = Text2.Text = Text3.Text = Text4.Text = adoPrimaryRS.AddNewElseadoPrimaryRS.Fields(文件号) = Text1.TextadoPrimary