📄 query
字号:
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
Icon = "Query.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6660
ScaleWidth = 8805
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
Tab = 1
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":0442
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "cmdUpDown(0)"
Tab(0).Control(1)= "cmdUpDown(1)"
Tab(0).Control(2)= "cmdMove(3)"
Tab(0).Control(3)= "cmdMove(2)"
Tab(0).Control(4)= "cmdMove(1)"
Tab(0).Control(5)= "cmdMove(0)"
Tab(0).Control(6)= "lstSelectedFields"
Tab(0).Control(7)= "lstFields"
Tab(0).Control(8)= "Label2"
Tab(0).Control(9)= "Label1"
Tab(0).ControlCount= 10
TabCaption(1) = "查询条件"
TabPicture(1) = "Query.frx":045E
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label3"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label4"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label5"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label6"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label7"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Label8"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "dtpQueryValue"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "cmbQuery(0)"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "cmbQuery(1)"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "txtQueryValue"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "cmbQuery(3)"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).Control(11)= "cmbQuery(2)"
Tab(1).Control(11).Enabled= 0 'False
Tab(1).Control(12)= "lstQuerySql"
Tab(1).Control(12).Enabled= 0 'False
Tab(1).Control(13)= "cmdAddQuery"
Tab(1).Control(13).Enabled= 0 'False
Tab(1).Control(14)= "cmdClearQuery"
Tab(1).Control(14).Enabled= 0 'False
Tab(1).Control(15)= "Combolscxtj"
Tab(1).Control(15).Enabled= 0 'False
Tab(1).Control(16)= "Combolscxyj"
Tab(1).Control(16).Enabled= 0 'False
Tab(1).ControlCount= 17
Begin VB.ComboBox Combolscxyj
Height = 300
Left = 3480
TabIndex = 29
Text = "Combolscxyj"
Top = 420
Width = 1905
End
Begin VB.ComboBox Combolscxtj
Height = 300
Left = 255
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 = -69720
Picture = "Query.frx":047A
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 = -68640
Picture = "Query.frx":060C
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 = -71280
Picture = "Query.frx":079E
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 = -71280
Picture = "Query.frx":0920
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 = -71280
Picture = "Query.frx":0AE2
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 = -71280
Picture = "Query.frx":0B8C
TabIndex = 2
Top = 1440
UseMaskColor = -1 'True
Width = 615
End
Begin VB.ListBox lstSelectedFields
Height = 3660
Left = -70320
MultiSelect = 2 'Extended
TabIndex = 6
Top = 960
Width = 3135
End
Begin VB.ListBox lstFields
Height = 3840
Left = -74640
MultiSelect = 2 'Extended
TabIndex = 1
Top = 840
Width = 2895
End
Begin VB.CommandButton cmdClearQuery
Caption = "清除查询条件（&C）"
Height = 375
Left = 2880
TabIndex = 17
Top = 5070
Width = 1815
End
Begin VB.CommandButton cmdAddQuery
Caption = "增加查询条件（&A）"
Height = 375
Left = 615
TabIndex = 16
Top = 5085
Width = 1695
End
Begin VB.ListBox lstQuerySql
Height = 600
Left = 225
TabIndex = 9
TabStop = 0 'False
Top = 1335
Width = 7815
End
Begin VB.ComboBox cmbQuery
Height = 2700
Index = 2
Left = 3240
Style = 1 'Simple Combo
TabIndex = 14
Top = 2850
Width = 3015
End
Begin VB.ComboBox cmbQuery
Height = 2700
Index = 3
Left = 6720
Style = 1 'Simple Combo
TabIndex = 15
Text = "cmbRelation"
Top = 2250
Width = 1215
End
Begin VB.TextBox txtQueryValue
Height = 270
Left = 3480
TabIndex = 12
Top = 2250
Width = 3015
End
Begin VB.ComboBox cmbQuery
Height = 2700
Index = 1
Left = 2280
Style = 1 'Simple Combo
TabIndex = 11
Text = "cmbOperationCode"
Top = 2250
Width = 975
End
Begin VB.ComboBox cmbQuery
Height = 2700
Index = 0
Left = 180
Style = 1 'Simple Combo
TabIndex = 10
Top = 2250
Width = 1815
End
Begin MSComCtl2.DTPicker dtpQueryValue
Height = 255
Left = 3480
TabIndex = 13
Top = 2610
Width = 3015
_ExtentX = 5318
_ExtentY = 450
_Version = 393216
CustomFormat = "yyyymmdd"
Format = 24576000
CurrentDate = 37016
End
Begin VB.Label Label8
Caption = "历史查询条件"
Height = 285
Left = 240
TabIndex = 27
Top = 450
Width = 2190
End
Begin VB.Label Label2
Caption = "选中字段"
Height = 255
Left = -70200
TabIndex = 26
Top = 600
Width = 1335
End
Begin VB.Label Label1
Caption = "全部字段"
Height = 255
Left = -74520
TabIndex = 25
Top = 480
Width = 1455
End
Begin VB.Label Label7
Caption = "当前查询条件："
Height = 165
Left = 240
TabIndex = 24
Top = 1095
Width = 2175
End
Begin VB.Label Label6
Caption = "与前一条件关系"
Height = 255
Left = 6720
TabIndex = 23
Top = 2010
Width = 1335
End
Begin VB.Label Label5
Caption = "查询内容"
Height = 255
Left = 4200
TabIndex = 22
Top = 2010
Width = 975
End
Begin VB.Label Label4
Caption = "关系符号"
Height = 255
Left = 2280
TabIndex = 21
Top = 2010
Width = 1215
End
Begin VB.Label Label3
Caption = "查询字段"
Height = 255
Left = 240
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
'*************************************************************************
'2001年 五一劳动节 于 新疆乌鲁木齐
' by bn007
'
'2001-5-1 录入页面的分析、设计(和qu一起)
'2001-5-2 录入页面由qu做。
'2001-5-3 构思查询模块整体框架
'2001-5-4 显示/打印字段页面
'2001-5-5 查询条件页面
'2001-5-6 查询结果的显示
'2001-5-7 查询结果打印
'2001-5-8 构造程序整体框架（主窗口，Flash窗口，关于窗口）
'2001-5-9 个体,私营,内资,外私查询的具体内容。
'*************************************************************************
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -