frmtmpfw.frm

vb 调用ＩＢＭ ｄｏｍｉｎｏ ｓｅｒｖｅｒ数据库的例子

VERSION 5.00
Object = "{E684D8A3-716C-4E59-AA94-7144C04B0074}#1.1#0"; "GridEX20.ocx"
Begin VB.Form frmTmpFw 
   Caption         =   "临时发文"
   ClientHeight    =   9690
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   13515
   LinkTopic       =   "Form1"
   ScaleHeight     =   9690
   ScaleWidth      =   13515
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox List4 
      Height          =   240
      Left            =   6240
      TabIndex        =   12
      Top             =   8880
      Width           =   1455
   End
   Begin VB.ListBox List3 
      Height          =   240
      Left            =   4560
      TabIndex        =   11
      Top             =   8880
      Width           =   1455
   End
   Begin VB.ListBox List2 
      Height          =   240
      Left            =   2280
      TabIndex        =   10
      Top             =   8880
      Visible         =   0   'False
      Width           =   2055
   End
   Begin VB.ListBox List1 
      Height          =   240
      Left            =   120
      TabIndex        =   9
      Top             =   8880
      Visible         =   0   'False
      Width           =   2055
   End
   Begin VB.Frame Frame1 
      Height          =   600
      Left            =   120
      TabIndex        =   1
      ToolTipText     =   "使用空格分隔关键词表示多个并列查询条件"
      Top             =   120
      Width           =   13455
      Begin VB.CommandButton Command4 
         Caption         =   "数据导入"
         Height          =   375
         Left            =   10800
         TabIndex        =   8
         Top             =   180
         Width           =   1545
      End
      Begin VB.CommandButton Command3 
         Caption         =   "查询"
         Default         =   -1  'True
         Height          =   375
         Left            =   9840
         TabIndex        =   5
         Top             =   165
         Width           =   825
      End
      Begin VB.ComboBox Combo4 
         Height          =   300
         Left            =   5040
         TabIndex        =   4
         ToolTipText     =   "使用空格分隔关键词表示多个并列查询条件"
         Top             =   180
         Width           =   4710
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         Left            =   1080
         TabIndex        =   3
         Top             =   180
         Width           =   3360
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   360
         Left            =   12480
         TabIndex        =   2
         Top             =   180
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "题名"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4560
         TabIndex        =   7
         ToolTipText     =   "使用空格分隔关键词表示多个并列查询条件"
         Top             =   180
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "公文编号"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   6
         ToolTipText     =   "使用空格分隔关键词表示多个并列查询条件"
         Top             =   180
         Width           =   960
      End
   End
   Begin GridEX20.GridEX GridEX1 
      Height          =   7695
      Left            =   120
      TabIndex        =   0
      Top             =   1080
      Width           =   13575
      _ExtentX        =   23945
      _ExtentY        =   13573
      Version         =   "2.0"
      AllowRowSizing  =   -1  'True
      RecordNavigator =   -1  'True
      RecordNavigatorString=   "文件:第|份，总文件数："
      BoundColumnIndex=   ""
      ReplaceColumnIndex=   ""
      ScrollToolTipColumn=   ""
      MultiSelect     =   -1  'True
      LockType        =   1
      Options         =   -1
      RecordsetType   =   1
      AllowDelete     =   -1  'True
      GroupByBoxVisible=   0   'False
      RowHeaders      =   -1  'True
      DataMode        =   1
      HeaderFontSize  =   8.25
      FontSize        =   8.25
      ColumnHeaderHeight=   270
      IntProp1        =   0
      IntProp2        =   0
      IntProp7        =   0
      ColumnsCount    =   2
      Column(1)       =   "frmTmpFw.frx":0000
      Column(2)       =   "frmTmpFw.frx":00C8
      FormatStylesCount=   6
      FormatStyle(1)  =   "frmTmpFw.frx":016C
      FormatStyle(2)  =   "frmTmpFw.frx":024C
      FormatStyle(3)  =   "frmTmpFw.frx":0390
      FormatStyle(4)  =   "frmTmpFw.frx":0440
      FormatStyle(5)  =   "frmTmpFw.frx":04F4
      FormatStyle(6)  =   "frmTmpFw.frx":05CC
      ImageCount      =   0
      PrinterProperties=   "frmTmpFw.frx":0684
   End
   Begin VB.Menu mnufile 
      Caption         =   "文件"
      Begin VB.Menu mnuAll 
         Caption         =   "显示全部"
      End
   End
End
Attribute VB_Name = "frmTmpFw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
'Dim PublicNotesDb As New Domino.NotesDatabase
'Dim view As NotesView
'Dim MaxID As Integer
'Dim strTitle As String
'Dim wdapp As Word.Application
'
'Private Sub Command2_Click()
'Unload Me
'End Sub
'
'Private Sub Command3_Click()
'Dim tmpRS As New ADODB.Recordset
'
'If Trim(Combo2.Text) = "" And Trim(Combo4.Text) = "" Then
'    MsgBox "条件输入不完整！", vbExclamation
'Exit Sub
'End If
'
'Dim sqlstr As String
'sqlstr = ""
'If Combo2.Text <> "" Then
'   If sqlstr = "" Then
'      sqlstr = "公文编号 like '%" & Combo2.Text & "%'"
'   Else
'      sqlstr = sqlstr + "and 公文编号 like '% " & Combo2.Text & "%'"
'   End If
'End If
'If Combo4.Text <> "" Then
'   If sqlstr = "" Then
'      sqlstr = "题名 like '%" & Combo4.Text & "%'"
'   Else
'      sqlstr = sqlstr + "and 题名 like '%" & Combo4.Text & "%'"
'   End If
'End If
'tmpRS.Open "select * from 临时文书档案一文一件 where " + sqlstr, Gcon_main, adOpenDynamic, adLockOptimistic
'Set GridEX1.ADORecordset = tmpRS
'If GridEX1.Columns(GridEX1.Columns.count).Caption = "ID" Then GridEX1.Columns(GridEX1.Columns.count).Width = 0 '隐含ID
'End Sub
'
'Private Sub Command4_Click()
'If GridEX1.SelectedItems.count = 0 Then
'   MsgBox "先选中要导入的纪录！", vbInformation + vbOKOnly, "信息"
'   Exit Sub
'End If
'   Dim simTemp As JSSelectedItem
'   Dim RowData As JSRowData
'   Dim usql As String
'   Dim tmpi As Integer
'   Dim tmpj As Integer
'   Dim item As NotesItem
'   For tmpi = 1 To GridEX1.RowCount
'       Set RowData = GridEX1.GetRowData(tmpi)
'       usql = RowData.Value(GridEX1.Columns("ID").Index) & ","
'       usql = Left(usql, Len(usql) - 1)
'       Dim rs As New ADODB.Recordset
'       Dim tmpRS As New ADODB.Recordset
'
'       tmpRS.Open "select * from 临时文书档案一文一件 where ID=" & usql, Gcon_main, adOpenDynamic, adLockReadOnly
'       Dim view As NotesView
'       Set view = PublicNotesDb.GetView("(AllByUNID)")
'       Dim doc As NotesDocument
'       Dim dc As NotesDocumentCollection
'       Dim tmpstr As String
'       tmpstr = tmpRS.Fields("DOCID")
'       Set doc = view.GetDocumentByKey(tmpstr, False)
'       If doc Is Nothing Then
'       Else
'           rs.Open "select * from " & txtfwTable, Gcon_main, adOpenDynamic, adLockOptimistic
'           rs.AddNew
'           For tmpj = 0 To List1.ListCount - 2
'               rs.Fields(List1.List(tmpj)) = tmpRS.Fields(List1.List(tmpj))
'           Next
'           rs.Update
'           '处理原文 首先是处理意见字段
'           Me.List3.Clear
'           Set wdapp = New Word.Application
'           Dim wddoc As Word.Document
'           Dim AllAdviceNames() As String
'           Dim AdviecName As String
'           AllAdviceNames = Split(strfwgzzd, ",")
'           Set wddoc = wdapp.Documents.Open(App.path & "\发文稿纸.doc")
'           For tmpj = 0 To UBound(AllAdviceNames)
'                AdviecName = AllAdviceNames(tmpj)
'                Me.List3.AddItem AdviecName
'                DoEvents
'           Next
'
'            '''''''''''''''''''''''''''''''' 更改模版中的标签值
'           For tmpj = 0 To List3.ListCount - 1
'               With wddoc
'                    If doc.HasItem(List3.List(tmpj)) Then
'                       .Bookmarks(List3.List(tmpj)).Select
'                       If CStr(doc.GetFirstItem(List3.List(tmpj)).Text) = "" Then
'                          wdapp.Selection.TypeText Text:=" "
'                       Else
'                          wdapp.Selection.TypeText Text:=CStr(doc.GetFirstItem(List3.List(tmpj)).Text)
'                       End If
'                    Else
'                       wdapp.Selection.TypeText Text:=" "
'                    End If
'                End With