frmgeneralquery.frm
来自「通用书店管理系统」· FRM 代码 · 共 560 行 · 第 1/2 页
FRM
560 行
VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSFLEX7.OCX"
Begin VB.Form frmGeneralQuery
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Dialog
Caption = "普通查询"
ClientHeight = 5745
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 9810
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5745
ScaleWidth = 9810
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdApplication
Caption = "应用(&P)"
Height = 375
Left = 6975
TabIndex = 16
Top = 5280
Width = 1215
End
Begin VB.Frame Frame4
BackColor = &H00C0C0C0&
Height = 120
Left = 90
TabIndex = 15
Top = 5070
Width = 9615
End
Begin VB.CommandButton cmdAdvanced
Caption = "高级(&S)"
Height = 360
Left = 8295
TabIndex = 13
Top = 4410
Width = 1215
End
Begin VB.Frame Frame3
BackColor = &H00C0C0C0&
Caption = ">> 条件生成"
Height = 2340
Left = 4860
TabIndex = 10
Top = 1995
Width = 4845
Begin VB.CheckBox chkCustom
Caption = "用户自定义(&User Custom)"
Height = 240
Left = 120
TabIndex = 12
Top = 1995
Visible = 0 'False
Width = 2430
End
Begin VB.TextBox txtCondition
BackColor = &H00C0C0C0&
Height = 1950
Left = 105
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 11
Top = 270
Width = 4605
End
End
Begin VB.Frame Frame2
BackColor = &H00C0C0C0&
Caption = ">> 关系设置"
Height = 1830
Left = 4860
TabIndex = 4
Top = 90
Width = 4845
Begin VB.TextBox txtAndOr
Height = 330
Left = 1980
TabIndex = 8
Top = 900
Width = 2715
End
Begin VB.OptionButton optAndOr
BackColor = &H00C0C0C0&
Caption = "关系定制(&Custom)"
Height = 330
Index = 2
Left = 195
TabIndex = 7
Top = 885
Width = 1950
End
Begin VB.OptionButton optAndOr
BackColor = &H00C0C0C0&
Caption = "或关系(&Or)"
Height = 330
Index = 1
Left = 195
TabIndex = 6
Top = 555
Width = 1395
End
Begin VB.OptionButton optAndOr
BackColor = &H00C0C0C0&
Caption = "与关系(&And)"
Height = 330
Index = 0
Left = 195
TabIndex = 5
Top = 255
Value = -1 'True
Width = 1395
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = " ** 关系定制要求用“序号”替代“名称”并结合括号、And、Or使用。例如：( C1 and C2 ) or ( C3 and C4 )"
Height = 360
Left = 105
TabIndex = 9
Top = 1335
Width = 4680
End
End
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Caption = ">> 常用对象"
Height = 4245
Left = 75
TabIndex = 3
Top = 90
Width = 4710
Begin VSFlex7Ctl.VSFlexGrid fg
Height = 3885
Left = 105
TabIndex = 0
Top = 240
Width = 4500
_cx = 7937
_cy = 6853
_ConvInfo = 1
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = 12582912
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = -2147483636
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 1
GridLineWidth = 1
Rows = 50
Cols = 5
FixedRows = 1
FixedCols = 2
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = $"frmGeneralQuery.frx":0000
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 1
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
End
End
Begin VB.CommandButton CancelButton
Caption = "取消(&N)"
Height = 375
Left = 8310
TabIndex = 2
Top = 5280
Width = 1215
End
Begin VB.CommandButton OKButton
Caption = "确定(&K)"
Height = 375
Left = 5640
TabIndex = 1
Top = 5280
Width = 1215
End
Begin VB.Label Label2
BackColor = &H00C0C0C0&
Caption = $"frmGeneralQuery.frx":0096
Height = 570
Left = 180
TabIndex = 14
Top = 4485
Width = 6960
End
End
Attribute VB_Name = "frmGeneralQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const gclrUnEnable As Long = &HE0E0E0 '定义不可用文本颜色
Const gclrEnable As Long = vbWhite '定义可用文本颜色
Public arrDisplayFields As Variant '显示查询字段
Public arrInnerFields As Variant '内部查询字段
Public arrInnerFieldsType As Variant '内部查询字段数据类型
Public GeneralCondition As Variant '查询字段数据类型
Public blnCallAdvanced As Boolean '是否调用了高级查询
Public blnOK As Boolean '是否确定
Public strFromObjects As String '表或视图对象
Public gConnection As ADODB.Connection '定义一个工作数据库连接
Private Sub iniControl() '控件初始化
'文本框
Me.txtAndOr.BackColor = gclrUnEnable
Me.txtCondition.BackColor = gclrUnEnable
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?