VB文档管理系统设计及源代码 第9页
Text1.Text = adoPrimaryRS.Fields("档案柜号")
Text2.Text = adoPrimaryRS.Fields("备注")
c）“下一条”按钮控件：click事件是将网格中的，文本框中的信息同时指向当前记录的下一条记录。如果越界就给出已经是最后一条记录的提示，并将记录定位在最后一条记录。实现语句：
adoPrimaryRS.MoveNext
If adoPrimaryRS.EOF Then
MsgBox ("已经是第后一条记录了！")
adoPrimaryRS.MoveLast
Else
Text1.Text = adoPrimaryRS.Fields("档案柜号")
Text2.Text = adoPrimaryRS.Fields("备注")
d）“上一条” 按钮控件：click事件是将网格中的，文本框中的信息同时指向当前记录的上一条记录。如果越界就给出已经是第一条记录的提示，并将记录定位在第一条记录。实现语句：
adoPrimaryRS.MovePrevious
If adoPrimaryRS.BOF Then
MsgBox ("已经是第一条记录了！")
adoPrimaryRS.MoveFirst
Else
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 = "添加" Then
Command5.SetFocus
Command5.Caption = "保存"
Text1.Enabled = True
Text2.Enabled = True
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
adoPrimaryRS.AddNew
Else
adoPrimaryRS.Fields("档案柜号") = Text1.Text
adoPrimaryRS.Fields("备注") = Text2.Text
adoPrimaryRS.Fields("建柜人员") = "管理员"
adoPrimaryRS.Fields("建柜日期") = Date
adoPrimaryRS.Update
Command5.Caption = "添加"
Text1.Enabled = False
Text2.Enabled = False
End If
g) “编辑”按钮控件：click事件是将记录集中当前记录在文本框中进行修改，然后更改记录集中相应的记录。来达到修改数据库中的记录的目的。实现的主要语句是：adoPrimaryRS.Fields("档案柜号") = Text1.Text
adoPrimaryRS.Fields("备注") = Text2.Text
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 "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 = "编辑" Then
Command6.Caption = "更新"
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Else
adoPrimaryRS.Fields("文件号") = Text1.Text
adoPrimaryRS.Fields("文件名") = Text2.Text
adoPrimaryRS.Fields("作者") = Text3.Text
adoPrimaryRS.Fields("内容摘要") = Text4.Text
adoPrimaryRS.Update
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End If
2）“添加”按钮控件：click事件是将按钮名改成“保存”，增加了系统的交互性。同时使文本框变得可编辑。 “保存” 按钮控件的click事件是将按钮名改成“添加”，此时使文本框变得不可编辑，同时用文本框的记录添加到数据库末尾。添加完成后，网格容器控件中的数据自动更新。它的实现语句是：
    If Command5.Caption = "添加" Then
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 = ""

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>