?? frmtmpfw.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -