VB文档管理系统设计及源代码 第10页
adoPrimaryRS.AddNew
Else
adoPrimaryRS.Fields("文件号") = Text1.Text
adoPrimaryRS.Fields("文件名") = Text2.Text
adoPrimaryRS.Fields("作者") = Text3.Text
adoPrimaryRS.Fields("内容摘要") = Text4.Text
adoPrimaryRS.Fields("入库日期") = Date
adoPrimaryRS.Fields("状态") = "否"
adoPrimaryRS.Update
Command5.Caption = "添加"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End If
4.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 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 <> "00" Then
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "select 卷号,卷名,文件号,文件名,作者,入库日期,内容摘要,档案柜号,入卷日期,组卷人,状态 from  file where 卷号 like '%" & Text4.Text & "%'", db, adOpenStatic, adLockOptimistic
Else
 Text1.Text = "00"
 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 "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 = 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
Set xlbook = Nothing
利用双重循环控制导出的位置。导出的界面如下：
说明：上面是一个对卷号为03的卷宗实现查询的结果导出到EXCEL的结果。

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