计算机毕业设计：文卷档案管理系统
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open \卷号,卷名,文件号,文件名,作者,入库日期,内容摘要,档案柜号,入卷日期,组卷人,状态 from file where 卷号 like '%\db, adOpenStatic, adLockOptimistic Else
Text1.Text = \ Text2.Text = \ End If
Text6.Enabled = True Text6.SetFocus
Command4.Enabled = True
Set DataGrid1.DataSource = adoPrimaryRS
b）“查询”按钮控件：click事件是根据当前窗体中的组合框控件和文本框控件的内容，作为查询的条件。这个查询是本系统最重要的一个功能。它的实现关键功能语句与说明如下：
Dim db As Connection Set db = New Connection
db.CursorLocation = adUseClient
db.Open \ Set adoPrimaryRS = New Recordset a = Combo1.Text b = Text7.Text
adoPrimaryRS.Open \卷号,卷名,文件号,文件名,作者,入库日期,内容摘要,档案柜号,入卷日期,组卷人,状态 from file where \adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS c) 导出按钮控件的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 = Nothing
第 31 页 共 63 页
计算机毕业设计：文卷档案管理系统
Set xlbook = Nothing
利用双重循环控制导出的位置。导出的界面如下：
说明：上面是一个对卷号为03的卷宗实现查询的结果导出到EXCEL的结果。
为了实现组卷，还需要用到文档资料和档案柜资料的2个窗体，它们分别是在添加文档到卷宗来的时候，有2个文本号选择和档案柜号选择按钮激发的事件结果。这二个窗体运行的界面如下：
说明：选择某个档案柜号，然后点击确定，几个触发它的click事件，将当前的档案号添加到组卷窗体的档案号中，click事件的语句是：Form5.Text5.Text = DataGrid1.Text
第 32 页 共 63 页
计算机毕业设计：文卷档案管理系统
文件资料窗体运行界面：
控件有：确定和关闭按钮二个控件。该窗体装载是load事件自动实现对文件数据库中的状态是“否”的文件搜索到记录集中，并作为网格容器控件的数据源。网格控件的click事件是将选中的记录添加到组卷窗体中的相应文本框中。作为组卷的数据信息。load事件的代码如下：
Set db = New Connection
db.CursorLocation = adUseClient
db.Open \ Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open \ 文件号,文件名,状态 from file where 状态='否' \adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
4.5系统菜单的实现
设计一个菜单系统，一般要经过几个步骤：菜单系统的规划，建立菜单与子菜单，把任务分配到菜单系统中，生成菜单程序，测试和运行菜单系统等，VB6.0是通过设计窗体来完成菜单的设计界面的，本系统设计的菜单运行如下：
第 33 页 共 63 页
计算机毕业设计：文卷档案管理系统
各个菜单项的click事件代码如下：
Private Sub exit_Click() End End Sub
Private Sub file_Click() Form2.Show End Sub
Private Sub Form_Load()
Left = (Screen.Width - Width) \\ 2 Top = (Screen.Height - Height) \\ 2 End Sub
Private Sub jiangui_Click() Form4.Show End Sub
Private Sub setup_Click() Form3.Show End Sub
Private Sub zhujuan_Click() Form5.Show End Sub
其中的Left = (Screen.Width - Width) \\ 2
Top = (Screen.Height - Height) \\ 2是控制窗体在屏幕中的位置居中。
第 34 页 共 63 页
计算机毕业设计：文卷档案管理系统
总 结
经过多日来的努力《文档管理系统》终于完成了。回顾这次毕业设计的过程，我觉得收获很大，现借撰写论文总结的机会，谈一谈我的体会。 通过这次毕业设计，我掌握了一种新的数据库系统开发工具Visual Basic6.0。我对于它具有的可视化的编程环境和连接数据库的便捷性用感触颇深，Visual Basic6.0这些数据库的连接提供了多种方法。比如DATA控件对初学着就非常容易掌握，当然利用语句对数据库的连接就可以实现对数据库的高级应用。Visual Basic6.0这种面向对象的数据库开发工具提供了窗体这种户非常友好的交互方式。利用设计好的窗体据库的记录进行操作，不但使用户更清楚记录的具体变更情况，也使开发人员的工作轻松了许多。
同时，在这次毕业设计过程中，我始终遵循软件工程的思想，这使我的工作进度明显加快，也使我少走了不少弯路。软件工程的思想，指导我一步一步从系统分析，到系统设计，再到系统实现，让我对整个系统的开发过程有了明显的全局观念，也合理地安排了整个设计的时间。
以上是我在本次毕业设计中的体会，也许认识到的问题还很肤浅，这也正是我今后要努力提高的。
第 35 页 共 63 页