计算机毕业设计：文卷档案管理系统
Text1.Text = adoPrimaryRS.Fields(\档案柜号\Text2.Text = adoPrimaryRS.Fields(\备注\
End Ifd) “退出”按钮控件：click事件、实现语句和前面一样。
e) “最末”按钮控件：click事件是将当前窗体中的网格控件中的信息和文本框控件中的信息指向数据库表查询记录集中的第后一条记录。利用SQL语句实现在数据库中查询符合条件的所以记录，并在表单中的网格容器中显示。如果无相应的记录，系统将给出提示。实现关键语句如下： adoPrimaryRS.MoveLast
Text1.Text = adoPrimaryRS.Fields(\档案柜号\Text2.Text = adoPrimaryRS.Fields(\备注\
f) “添加”按钮控件：click事件是创建新的档案柜，实现的原理是对数据库查询的记录集添加一条新的记录，然后修给这条空记录的值，达到对数据库表中的档案柜记录添加的目的。实现的语句如下：
If Command5.Caption = \添加\Command5.SetFocus
Command5.Caption = \保存\Text1.Enabled = True Text2.Enabled = True Text1.SetFocus Text1.Text = \Text2.Text = \
adoPrimaryRS.AddNew Else
adoPrimaryRS.Fields(\档案柜号\adoPrimaryRS.Fields(\备注\adoPrimaryRS.Fields(\建柜人员\管理员\adoPrimaryRS.Fields(\建柜日期\adoPrimaryRS.Update
Command5.Caption = \添加\Text1.Enabled = False Text2.Enabled = False End If
g) “编辑”按钮控件：click事件是将记录集中当前记录在文本框中进行修改，然后更改记录集中相应的记录。来达到修改数据库中的记录的目的。实现的主要语
第 26 页 共 63 页
计算机毕业设计：文卷档案管理系统
句是：adoPrimaryRS.Fields(\档案柜号\adoPrimaryRS.Fields(\备注\adoPrimaryRS.Update
h) “查找”按钮控件：click事件是使框架4出现，而框架1隐藏，框架4中
的“确定” 按钮控件的click事件是查找档案柜数据库中的满足文本框1和文本3中的查询条件。查询结果显示在网格容器控件中。 Frame4.Visible = True Frame1.Visible = False
Command9.Enabled = False a = Combo1.Text b = Text3.Text
adoPrimaryRS.Open \ 档案柜号,建柜人员,建柜日期,备注 from dag where \ 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）运行时的窗体：
第 27 页 共 63 页
计算机毕业设计：文卷档案管理系统
2）控件和事件
控件包括最首，上一个，下一个，最末，添加，编辑，删除，查询，导出，退出等按钮和用于输入信息的文本框。，其中导出按钮是隐藏在框架4中，点击查询即可显示。这些按钮控件的事件和前面档案柜资料窗体相似。下面对编辑，添加这两个按钮的事件和实现语句分析如下：
a）“编辑”按钮控件：click事件是将按钮名改成“保存”，增加了系统的交互性。同时使文本框变得可编辑。 “保存” 按钮控件的click事件是将按钮名改成“编辑”，同时用文本框的记录修改数据库中的记录。它的实现语句是： If Command6.Caption = \编辑\Command6.Caption = \更新\Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Else
adoPrimaryRS.Fields(\文件号\adoPrimaryRS.Fields(\文件名\adoPrimaryRS.Fields(\作者\adoPrimaryRS.Fields(\内容摘要\adoPrimaryRS.Update Text1.Enabled = False
第 28 页 共 63 页
计算机毕业设计：文卷档案管理系统
Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False End If
2）“添加”按钮控件：click事件是将按钮名改成“保存”，增加了系统的交互性。同时使文本框变得可编辑。 “保存” 按钮控件的click事件是将按钮名改成“添加”，此时使文本框变得不可编辑，同时用文本框的记录添加到数据库末尾。添加完成后，网格容器控件中的数据自动更新。它的实现语句是： If Command5.Caption = \添加\Command5.SetFocus
Command5.Caption = \保存\Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text1.SetFocus Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \
adoPrimaryRS.AddNew Else
adoPrimaryRS.Fields(\文件号\adoPrimaryRS.Fields(\文件名\adoPrimaryRS.Fields(\作者\
adoPrimaryRS.Fields(\内容摘要\adoPrimaryRS.Fields(\入库日期\adoPrimaryRS.Fields(\状态\否\adoPrimaryRS.Update
Command5.Caption = \添加\Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False End If
第 29 页 共 63 页
计算机毕业设计：文卷档案管理系统
4.4 组卷窗体的实现
1)运行时的窗体： 2）控件和事件
a)treeview控件：nodeclick事件是将treeview控件选中的节点值传给文本框，得到卷号和卷名，将此作为网格容器控件中的数据源的查询条件。并将查询记录集作为网格容器控件中的数据源。
实现的语句如下：
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open \ Set adoPrimaryRS = New Recordset
Text4.Text = Left$(Right$(Node.Text, 3), 2) Text1.Text = Text4.Text
Text2.Text = Left$(Node.Text, Len(Node.Text) - 4) If Text4.Text <> \
第 30 页 共 63 页