📄 query.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Begin VB.Form frmQuery
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 6660
ClientLeft = 45
ClientTop = 330
ClientWidth = 8805
HelpContextID = 9001
Icon = "Query.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 6660
ScaleWidth = 8805
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdQuitQuery
Caption = "放弃查询（&U）"
Height = 495
Left = 4920
TabIndex = 19
Top = 6060
Width = 2895
End
Begin VB.CommandButton cmdBeginQuery
Caption = "开始查询（&B）"
Height = 495
Left = 750
TabIndex = 18
Top = 6060
Width = 2895
End
Begin TabDlg.SSTab sstabQuery
Height = 5640
Left = 225
TabIndex = 0
Top = 315
Width = 8295
_ExtentX = 14631
_ExtentY = 9948
_Version = 393216
Tabs = 2
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "显示/打印字段"
TabPicture(0) = "Query.frx":038A
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "lstFields"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "lstSelectedFields"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "cmdMove(0)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "cmdMove(1)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "cmdMove(2)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "cmdMove(3)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "cmdUpDown(1)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "cmdUpDown(0)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).ControlCount= 10
TabCaption(1) = "查询条件"
TabPicture(1) = "Query.frx":03A6
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Combolscxyj"
Tab(1).Control(1)= "Combolscxtj"
Tab(1).Control(2)= "cmdClearQuery"
Tab(1).Control(3)= "cmdAddQuery"
Tab(1).Control(4)= "lstQuerySql"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "cmbQuery(2)"
Tab(1).Control(6)= "cmbQuery(3)"
Tab(1).Control(7)= "txtQueryValue"
Tab(1).Control(8)= "cmbQuery(1)"
Tab(1).Control(9)= "cmbQuery(0)"
Tab(1).Control(10)= "dtpQueryValue"
Tab(1).Control(11)= "Label8"
Tab(1).Control(12)= "Label7"
Tab(1).Control(13)= "Label6"
Tab(1).Control(14)= "Label5"
Tab(1).Control(15)= "Label4"
Tab(1).Control(16)= "Label3"
Tab(1).ControlCount= 17
Begin VB.ComboBox Combolscxyj
Height = 300
Left = -71520
TabIndex = 29
Text = "Combolscxyj"
Top = 420
Visible = 0 'False
Width = 1905
End
Begin VB.ComboBox Combolscxtj
Height = 300
Left = -74745
TabIndex = 28
Top = 720
Width = 7815
End
Begin VB.CommandButton cmdUpDown
Caption = "∧"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 5280
Picture = "Query.frx":03C2
TabIndex = 7
Top = 4920
UseMaskColor = -1 'True
Width = 855
End
Begin VB.CommandButton cmdUpDown
Caption = "∨"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 6360
Picture = "Query.frx":0554
TabIndex = 8
Top = 4920
Width = 855
End
Begin VB.CommandButton cmdMove
Caption = "<<"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 3720
Picture = "Query.frx":06E6
TabIndex = 5
Top = 3600
Width = 615
End
Begin VB.CommandButton cmdMove
Caption = "<"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 3720
Picture = "Query.frx":0868
TabIndex = 4
Top = 2880
Width = 615
End
Begin VB.CommandButton cmdMove
Caption = ">>"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 3720
Picture = "Query.frx":0A2A
TabIndex = 3
Top = 2160
Width = 615
End
Begin VB.CommandButton cmdMove
Caption = ">"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 3720
Picture = "Query.frx":0AD4
TabIndex = 2
Top = 1440
UseMaskColor = -1 'True
Width = 615
End
Begin VB.ListBox lstSelectedFields
Height = 3480
Left = 4680
MultiSelect = 2 'Extended
TabIndex = 6
Top = 960
Width = 3135
End
Begin VB.ListBox lstFields
Height = 3660
Left = 360
MultiSelect = 2 'Extended
TabIndex = 1
Top = 840
Width = 2895
End
Begin VB.CommandButton cmdClearQuery
Caption = "清除查询条件（&C）"
Height = 375
Left = -72120
TabIndex = 17
Top = 5070
Width = 1815
End
Begin VB.CommandButton cmdAddQuery
Caption = "增加查询条件（&A）"
Height = 375
Left = -74385
TabIndex = 16
Top = 5085
Width = 1695
End
Begin VB.ListBox lstQuerySql
Height = 420
Left = -74775
TabIndex = 9
TabStop = 0 'False
Top = 1335
Width = 7815
End
Begin VB.ComboBox cmbQuery
Height = 2520
Index = 2
Left = -71760
Style = 1 'Simple Combo
TabIndex = 14
Top = 2850
Width = 3015
End
Begin VB.ComboBox cmbQuery
Height = 2520
Index = 3
Left = -68280
Style = 1 'Simple Combo
TabIndex = 15
Text = "cmbRelation"
Top = 2250
Width = 1215
End
Begin VB.TextBox txtQueryValue
Height = 285
Left = -71520
TabIndex = 12
Top = 2250
Width = 3015
End
Begin VB.ComboBox cmbQuery
Height = 2520
Index = 1
Left = -72720
Style = 1 'Simple Combo
TabIndex = 11
Text = "cmbOperationCode"
Top = 2250
Width = 975
End
Begin VB.ComboBox cmbQuery
Height = 2520
Index = 0
Left = -74820
Style = 1 'Simple Combo
TabIndex = 10
Top = 2250
Width = 1815
End
Begin MSComCtl2.DTPicker dtpQueryValue
Height = 255
Left = -71520
TabIndex = 13
Top = 2610
Width = 3015
_ExtentX = 5318
_ExtentY = 450
_Version = 393216
CustomFormat = "yyyymmdd"
Format = 64815104
CurrentDate = 37016
End
Begin VB.Label Label8
Caption = "历史查询条件"
Height = 285
Left = -74760
TabIndex = 27
Top = 450
Width = 2190
End
Begin VB.Label Label2
Caption = "选中字段"
Height = 255
Left = 4800
TabIndex = 26
Top = 600
Width = 1335
End
Begin VB.Label Label1
Caption = "全部字段"
Height = 255
Left = 480
TabIndex = 25
Top = 480
Width = 1455
End
Begin VB.Label Label7
Caption = "当前查询条件："
Height = 165
Left = -74760
TabIndex = 24
Top = 1095
Width = 2175
End
Begin VB.Label Label6
Caption = "与前一条件关系"
Height = 255
Left = -68280
TabIndex = 23
Top = 2010
Width = 1335
End
Begin VB.Label Label5
Caption = "查询内容"
Height = 255
Left = -70800
TabIndex = 22
Top = 2010
Width = 975
End
Begin VB.Label Label4
Caption = "关系符号"
Height = 255
Left = -72720
TabIndex = 21
Top = 2010
Width = 1215
End
Begin VB.Label Label3
Caption = "查询字段"
Height = 255
Left = -74760
TabIndex = 20
Top = 2010
Width = 1575
End
End
End
Attribute VB_Name = "frmQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'查询打印类型
Public Enum QueryPrintType
qptGTBaseInfo = 11 '个体工商户基本情况
qptGTFare = 12 '个体收费
qptGTLawbreaking = 13 '个体违法违章
qptGTChange = 14 '个体变更
qptGTCheckout = 15 '个体审验
qptSYBaseInfo = 21 '私营基本情况(包括分支)
qptSYLawbreaking = 23 '私营违法违章
qptSYChange = 24 '私营变更
qptSYCheckout = 25 '私营审验
qptNZBaseInfo = 31 '内资基本情况(包括分支)
qptNZLawbreaking = 33 '内资违法违章
qptNZChange = 34 '内资变更
qptNZCheckout = 35 '内资审验
qptWZBaseInfo = 41 '外私基本情况(包括分支)
qptWZLawbreaking = 43 '外私违法违章
qptWZChange = 44 '外私变更
qptWZCheckout = 45 '外私审验
End Enum
'左移、右移按钮索引
Private Enum MoveDirection
mdRight = 0
mdRightAll = 1
mdLeft = 2
mdLeftAll = 3
End Enum
'上移、下移按钮索引
Private Enum UpDownDirection
uddUp = 0
uddDown = 1
End Enum
'查询条件
Private Enum QueryItem
qiFields = 0 '查询字段
qiOperation = 1 '关系符号
qivalue = 2 '查询字段条件
qiRelation = 3 '不同查询条件间的关系
End Enum
'查询字段的类型
Private Enum QueryFieldType
qftSelect = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -