📄 frmqueryresult.frm
字号:
VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSFLEX7.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmQueryResult
BackColor = &H8000000B&
Caption = "查询结果"
ClientHeight = 7215
ClientLeft = 60
ClientTop = 630
ClientWidth = 8970
LinkTopic = "Form1"
ScaleHeight = 7215
ScaleWidth = 8970
StartUpPosition = 2 '屏幕中心
Begin VSFlex7Ctl.VSFlexGrid fg
Height = 6510
Left = 165
TabIndex = 1
Top = 210
Width = 8655
_cx = 15266
_cy = 11483
_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 = -2147483630
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 = 2
GridLineWidth = 1
Rows = 50
Cols = 10
FixedRows = 1
FixedCols = 1
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
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 = 0
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
Begin MSComDlg.CommonDialog cd
Left = 90
Top = 225
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.StatusBar sb
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 0
Top = 6900
Width = 8970
_ExtentX = 15822
_ExtentY = 556
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 7056
MinWidth = 7056
Text = "状态："
TextSave = "状态："
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3528
MinWidth = 3528
Text = "记录数："
TextSave = "记录数："
EndProperty
EndProperty
End
Begin VB.Menu File
Caption = "文件(&F)"
Begin VB.Menu File_Open
Caption = "打开(&O)"
Enabled = 0 'False
End
Begin VB.Menu File_Save
Caption = "保存(&S)"
End
Begin VB.Menu File_SaveAs
Caption = "另存为(Save &As )"
End
Begin VB.Menu File_line_0
Caption = "-"
End
Begin VB.Menu File_Print
Caption = "打印(&P)"
End
Begin VB.Menu File_Line_1
Caption = "-"
End
Begin VB.Menu File_Reset
Caption = "复位(&E)"
End
Begin VB.Menu File_Line_2
Caption = "-"
End
Begin VB.Menu File_Return
Caption = "返回(&R)"
End
Begin VB.Menu File_Close
Caption = "关闭(&C)"
End
End
Begin VB.Menu Edit
Caption = "编辑(&E)"
Begin VB.Menu Edit_Cut
Caption = "剪切(&T)"
Enabled = 0 'False
End
Begin VB.Menu Edit_Copy
Caption = "拷贝(&C)"
End
Begin VB.Menu Edit_Paste
Caption = "粘贴(&P)"
Enabled = 0 'False
End
Begin VB.Menu Edit_SelectAll
Caption = "全选(&A)"
End
Begin VB.Menu Edit_Line_0
Caption = "-"
End
Begin VB.Menu Edit_HideColumn
Caption = "隐藏列(&L)"
End
Begin VB.Menu Edit_ViewHiddenColumn
Caption = "显示隐藏列(&V)"
End
Begin VB.Menu Edit_DeleteCol
Caption = "删除列(&D)"
End
Begin VB.Menu Edit_line_4
Caption = "-"
End
Begin VB.Menu Edit_HideRow
Caption = "隐藏行(&R)"
End
Begin VB.Menu Edit_ViewHiddenRow
Caption = "显示隐藏行(&W)"
End
Begin VB.Menu Edit_DeleteRow
Caption = "删除行(&M)"
End
Begin VB.Menu Edit_Line_2
Caption = "-"
End
Begin VB.Menu Edit_Find
Caption = "查找(&F)"
End
Begin VB.Menu Edit_Replace
Caption = "替换(&H)"
Enabled = 0 'False
End
Begin VB.Menu Edit_Locate
Caption = "定位(&G)"
End
End
Begin VB.Menu Insert
Caption = "插入(&I)"
Begin VB.Menu Edit_Number
Caption = "自然序号(&N)"
Checked = -1 'True
End
Begin VB.Menu Edit_Line_1
Caption = "-"
End
Begin VB.Menu Insert_Column
Caption = "插入列(&C)"
End
Begin VB.Menu Insert_AppendColumn
Caption = "追加列(&L)"
End
Begin VB.Menu Insert_Line_0
Caption = "-"
End
Begin VB.Menu Insert_Row
Caption = "插入行(&R)"
End
Begin VB.Menu Insert_AppendRow
Caption = "追加行(&W)"
End
Begin VB.Menu Insert_Line_1
Caption = "-"
End
Begin VB.Menu Insert_Picture
Caption = "图片"
Enabled = 0 'False
Begin VB.Menu Insert_PicturePaste
Caption = "剪贴画"
End
Begin VB.Menu Insert_PictureFile
Caption = "图片文件"
End
End
End
Begin VB.Menu Data
Caption = "数据(&D)"
Begin VB.Menu Data_SortAscending
Caption = "排序(小→大)(&A)"
End
Begin VB.Menu Data_SortDescending
Caption = "排序(大→小)(&D)"
End
Begin VB.Menu Data_Line_0
Caption = "-"
End
Begin VB.Menu Data_SingleGroup
Caption = "单列分组(&S)"
End
Begin VB.Menu Data_CustomGroup
Caption = "自定义分组(&C)"
End
Begin VB.Menu Data_Line_1
Caption = "-"
End
Begin VB.Menu Data_Aggregate
Caption = "表格运算(&M)"
End
Begin VB.Menu Data_Subtotal
Caption = "汇总(&T)"
End
End
Begin VB.Menu View
Caption = "显示(&V)"
Begin VB.Menu View_HeaderCustom
Caption = "列头定义(&H)"
End
Begin VB.Menu View_Line_0
Caption = "-"
End
Begin VB.Menu View_AutoSizeColumnSingle
Caption = "单列调整列宽(&S)"
End
Begin VB.Menu View_AutoSizeColumn
Caption = "自动调整列宽(&C)"
End
Begin VB.Menu View_AutoSizeRow
Caption = "自动调整行高(&R)"
Checked = -1 'True
End
Begin VB.Menu View_Line_1
Caption = "-"
End
Begin VB.Menu View_NormalView
Caption = "普通显示(&N)"
End
Begin VB.Menu View_TreeView
Caption = "树型显示(&T)"
End
Begin VB.Menu View_Line_2
Caption = "-"
End
Begin VB.Menu View_NodeExtend
Caption = "节点展开(&E)"
End
Begin VB.Menu View_NodeShrink
Caption = "节点收缩(&S)"
End
End
Begin VB.Menu Help
Caption = "帮助(&H)"
Begin VB.Menu Help_Direction
Caption = "目录与索引(&I)"
End
Begin VB.Menu Help_About
Caption = "关于(&A)"
End
End
End
Attribute VB_Name = "frmQueryResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private strFileName As String '文件
Public arrInputArray As Variant '数组
Public arrHeader As Variant '列头
Public strHeaderMerge As String '列头合并处理
Public arrDataFieldsType As Variant '数据字段类型
Public defPrintInfo As DefinePrintInfo
Dim dlg As New dlgQueryResult
Public lngColKey As Long '存放列关键字
Public arrGroup As Variant '分组
Public arrResizeColWidth As Variant '自动列宽缩放
Public arrResizeRowHeight As Variant '自动行高缩放
Public arrSort As Variant '排序
Public arrSubtotal As Variant '汇总
Private Sub iniControl()
'初始化菜单
Me.Edit_Number.Checked = False
Me.View_AutoSizeRow.Checked = False
'初始化FlexGrid
With fg
.ColWidth(0) = 0
.AllowUserResizing = flexResizeBoth
.ExplorerBar = flexExMove
.SubtotalPosition = flexSTAbove
.SelectionMode = flexSelectionFree
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -