📄 frmsfcl.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form FrmSfcl
BackColor = &H80000002&
BorderStyle = 1 'Fixed Single
Caption = "查询/浏览公文信息"
ClientHeight = 7065
ClientLeft = 45
ClientTop = 330
ClientWidth = 7830
Icon = "FrmSfcl.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 7065
ScaleWidth = 7830
Begin VB.CommandButton cmdexit
Caption = "退出查询"
Height = 330
Left = 6180
TabIndex = 22
Top = 6480
Width = 1400
End
Begin VB.Frame Frame3
BackColor = &H8000000D&
BorderStyle = 0 'None
Height = 4095
Left = 7320
TabIndex = 17
Top = 300
Width = 495
Begin VB.CommandButton Cmdshang
BackColor = &H80000004&
Height = 1815
Left = 0
Picture = "FrmSfcl.frx":08CA
Style = 1 'Graphical
TabIndex = 20
ToolTipText = "放大发文窗口"
Top = 0
Width = 375
End
Begin VB.CommandButton cmdxia
BackColor = &H80000004&
Height = 1815
Left = 0
Picture = "FrmSfcl.frx":37A4
Style = 1 'Graphical
TabIndex = 19
ToolTipText = "放大收文窗口"
Top = 2400
Width = 375
End
Begin VB.CommandButton cmdzh
BackColor = &H80000004&
Height = 375
Left = 0
Picture = "FrmSfcl.frx":667E
Style = 1 'Graphical
TabIndex = 18
ToolTipText = "同时显示两个窗口"
Top = 1920
Width = 375
End
End
Begin VB.Frame Frame2
BackColor = &H8000000D&
Height = 1935
Left = 6000
TabIndex = 14
Top = 4440
Width = 1695
Begin VB.CommandButton Command2
Caption = "报表打印"
Height = 330
Left = 180
TabIndex = 23
Top = 1480
Width = 1400
End
Begin VB.CommandButton cmdcha
Caption = "查询语句开关"
Height = 330
Left = 180
TabIndex = 21
Top = 1060
Width = 1400
End
Begin VB.CommandButton Command1
Caption = "显示所有"
Height = 330
Left = 180
TabIndex = 16
Top = 640
Width = 1400
End
Begin VB.CommandButton cmdInquire
BackColor = &H8000000B&
Caption = "确 定"
Height = 330
Left = 180
MaskColor = &H8000000B&
TabIndex = 15
ToolTipText = "确定"
Top = 230
Width = 1400
End
End
Begin VB.Frame Frame1
BackColor = &H8000000D&
Caption = "查询"
ForeColor = &H0080FFFF&
Height = 1935
Left = 120
TabIndex = 0
Top = 4440
Width = 5775
Begin VB.TextBox Text2
Height = 285
Left = 3960
TabIndex = 9
Top = 1200
Width = 1695
End
Begin VB.ComboBox Cbo_Operator
Height = 300
Index = 1
ItemData = "FrmSfcl.frx":6FF2
Left = 2160
List = "FrmSfcl.frx":700B
Style = 2 'Dropdown List
TabIndex = 8
Top = 1200
Width = 1695
End
Begin VB.ComboBox Cbo_Category
Height = 300
Index = 1
ItemData = "FrmSfcl.frx":702A
Left = 480
List = "FrmSfcl.frx":702C
Style = 2 'Dropdown List
TabIndex = 7
Top = 1200
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H8000000D&
Caption = "Check1"
ForeColor = &H8000000D&
Height = 255
Index = 1
Left = 120
TabIndex = 6
TabStop = 0 'False
Top = 1200
Width = 255
End
Begin VB.CheckBox Check1
BackColor = &H8000000D&
Caption = "Check1"
ForeColor = &H8000000D&
Height = 255
Index = 0
Left = 120
TabIndex = 2
TabStop = 0 'False
Top = 600
Width = 255
End
Begin VB.TextBox Text1
Height = 285
Left = 3960
TabIndex = 5
Top = 600
Width = 1695
End
Begin VB.ComboBox Cbo_Operator
Height = 300
Index = 0
ItemData = "FrmSfcl.frx":702E
Left = 2160
List = "FrmSfcl.frx":7047
Style = 2 'Dropdown List
TabIndex = 4
Top = 600
Width = 1695
End
Begin VB.ComboBox Cbo_Category
Height = 300
Index = 0
ItemData = "FrmSfcl.frx":7066
Left = 480
List = "FrmSfcl.frx":7068
Style = 2 'Dropdown List
TabIndex = 3
Top = 600
Width = 1575
End
End
Begin MSFlexGridLib.MSFlexGrid myflexgrid
Height = 1815
Left = 120
TabIndex = 1
TabStop = 0 'False
Top = 300
Width = 7000
_ExtentX = 12356
_ExtentY = 3201
_Version = 393216
Cols = 9
FixedCols = 0
RowHeightMin = 500
WordWrap = -1 'True
FillStyle = 1
SelectionMode = 2
AllowUserResizing= 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid myflexgrid1
Height = 1815
Left = 120
TabIndex = 11
TabStop = 0 'False
Top = 2550
Width = 7000
_ExtentX = 12356
_ExtentY = 3201
_Version = 393216
Cols = 9
FixedCols = 0
RowHeightMin = 500
WordWrap = -1 'True
FillStyle = 1
SelectionMode = 2
AllowUserResizing= 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "发文"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 255
Left = 240
TabIndex = 13
Top = 2230
Width = 1095
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "收文"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 255
Left = 240
TabIndex = 12
Top = 50
Width = 1095
End
Begin VB.Label Label1
BackColor = &H8000000D&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 615
Left = 120
TabIndex = 10
Top = 6360
Width = 5775
End
End
Attribute VB_Name = "FrmSfcl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim tt As Integer
Dim myquery(1) As String
Private Sub Cbo_Category_Change(Index As Integer)
For i = 0 To 1
Select Case Cbo_Category(i).Text
Case Is = "文件号"
myquery(i) = "wenjian_id"
Case Is = "文件属性"
myquery(i) = "xinzhi"
Case Is = "文件名"
myquery(i) = "filename"
Case Is = "单位"
myquery(i) = "danwei"
Case Is = "日期"
myquery(i) = "fdate"
Case Is = "签发/收人"
myquery(i) = "qianfaren"
Case Else
End Select
Next i
End Sub
Private Sub Cbo_Category_Click(Index As Integer)
For i = 0 To 1
Select Case Cbo_Category(i).Text
Case Is = "文件号"
myquery(i) = "wenjian_id"
Case Is = "文件属性"
myquery(i) = "xinzhi"
Case Is = "文件名"
myquery(i) = "filename"
Case Is = "单位"
myquery(i) = "danwei"
Case Is = "日期"
myquery(i) = "fdate"
Case Is = "签发/收人"
myquery(i) = "qianfaren"
Case Else
End Select
Next i
End Sub
Private Sub cmdcha_Click()
tt = tt Mod 2
If tt = 1 Then
Label1.Visible = False
Else
Label1.Visible = True
End If
tt = tt + 1
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdInquire_Click()
On Error GoTo OOPS
Dim txtSQL As String
Dim txtSQL1 As String
Dim txtSQL2 As String
Dim MsgText As String
Dim dd(4) As Boolean
Dim mrc As ADODB.Recordset
txtSQL = "select * from gongwenguanli where "
'判断是否选择第一查询方式
If Check1(0).value Then
If Trim(Text1.Text) = "" Then
sMeg = "查询不能为空！"
MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
Else
dd(0) = True
If Cbo_Operator(0).ListIndex = 0 Then
txtSQL = txtSQL & "" & myquery(0) & " " & Cbo_Operator(0) & " '%" & Text1.Text & "%'"
Else
txtSQL = txtSQL & "" & myquery(0) & " " & Cbo_Operator(0) & " '" & Text1.Text & "'"
End If
End If
End If
'判断是否选择第二查询方式
If Check1(1).value Then
If Trim(Text2.Text) = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -