dlgqueryresult.frm
来自「通用书店管理系统」· FRM 代码 · 共 1,356 行 · 第 1/3 页
FRM
1,356 行
VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "comct232.ocx"
Begin VB.Form dlgQueryResult
BorderStyle = 3 'Fixed Dialog
Caption = "参数设置"
ClientHeight = 8625
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 11910
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8625
ScaleWidth = 11910
ShowInTaskbar = 0 'False
Begin VB.Frame fraHeader
Caption = ">> 列头定义"
Height = 1545
Left = 6915
TabIndex = 71
Top = 5400
Width = 4680
Begin VB.CommandButton cmdHeaderOK
Caption = "确定(&K)"
Height = 360
Left = 3045
TabIndex = 76
Top = 240
Width = 1350
End
Begin VB.CommandButton cmdHeaderCancel
Caption = "取消"
Height = 360
Left = 3045
TabIndex = 75
Top = 675
Width = 1350
End
Begin VB.TextBox txtHeaderWrap
Height = 285
Left = 855
TabIndex = 72
Top = 405
Width = 1950
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "定义："
Height = 180
Index = 17
Left = 210
TabIndex = 74
Top = 465
Width = 540
End
Begin VB.Label lblFields
Caption = " **列标题分行显示。例：输入“5,-1”表示第一行排5个字，第二行自动。"
Height = 555
Index = 16
Left = 600
TabIndex = 73
Top = 840
Width = 2265
End
End
Begin VB.Frame fraSubtotal
Caption = ">> 汇总"
Height = 3360
Left = 3285
TabIndex = 58
Top = 1980
Width = 8070
Begin VB.CommandButton cmdSubtotalOK
Caption = "确定(&K)"
Height = 360
Left = 6555
TabIndex = 70
Top = 510
Width = 1350
End
Begin VB.CommandButton cmdSubtotalCancel
Caption = "取消"
Height = 360
Left = 6555
TabIndex = 69
Top = 945
Width = 1350
End
Begin VB.ListBox lstSubtotalHor
Height = 1740
Left = 3585
Sorted = -1 'True
Style = 1 'Checkbox
TabIndex = 68
Top = 570
Width = 2730
End
Begin VB.ComboBox cboSubtotalHor
Height = 300
Left = 4770
Style = 2 'Dropdown List
TabIndex = 67
Top = 2400
Width = 1455
End
Begin VB.Frame line_Frame
Height = 2910
Left = 3390
TabIndex = 64
Top = 210
Width = 30
End
Begin VB.CheckBox chkSubtotalGroup
Caption = "按自定义分组汇总"
Height = 285
Left = 480
TabIndex = 63
Top = 2850
Value = 1 'Checked
Width = 1830
End
Begin VB.ListBox lstSubtotalVer
Height = 1680
Left = 375
Sorted = -1 'True
TabIndex = 61
Top = 585
Width = 2730
End
Begin VB.ComboBox cboSubtotalVer
Height = 300
Left = 1410
Style = 2 'Dropdown List
TabIndex = 62
Top = 2385
Width = 1620
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "函数："
Height = 180
Index = 15
Left = 4035
TabIndex = 66
Top = 2460
Width = 540
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "---- 横向 ----"
Height = 180
Index = 14
Left = 4350
TabIndex = 65
Top = 180
Width = 1260
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "函数："
Height = 180
Index = 13
Left = 795
TabIndex = 60
Top = 2460
Width = 540
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "---- 纵向 ----"
Height = 180
Index = 12
Left = 1110
TabIndex = 59
Top = 210
Width = 1260
End
End
Begin VB.Frame fraAggregate
Caption = ">> 表格运算"
Height = 1665
Left = 105
TabIndex = 46
Top = 6870
Width = 6270
Begin VB.CommandButton cmdAggregateCopy
Caption = "复制(&C)"
Height = 360
Left = 4755
TabIndex = 57
Top = 660
Width = 1335
End
Begin VB.CommandButton cmdAggregateCancel
Caption = "取消"
Height = 360
Left = 4755
TabIndex = 56
Top = 1065
Width = 1335
End
Begin VB.CommandButton cmdAggregateOK
Caption = "确定(&K)"
Height = 360
Left = 4740
TabIndex = 55
Top = 255
Width = 1335
End
Begin VB.CheckBox chkAggregateInsert
Caption = "自动插入"
Height = 240
Left = 330
TabIndex = 52
Top = 750
Width = 1080
End
Begin VB.Frame fraAggregateInsert
Caption = " "
Height = 765
Left = 165
TabIndex = 51
Top = 750
Width = 4290
Begin VB.OptionButton optAggregateRight
Caption = "单元格右方"
Height = 300
Left = 2160
TabIndex = 54
Top = 330
Width = 1275
End
Begin VB.OptionButton optAggregateDown
Caption = "单元格下方"
Height = 300
Left = 405
TabIndex = 53
Top = 360
Value = -1 'True
Width = 1275
End
End
Begin VB.TextBox txtAggregateResult
Height = 315
Left = 2940
TabIndex = 50
Top = 270
Width = 1500
End
Begin VB.ComboBox cboAggregateFunction
Height = 300
Left = 780
Style = 2 'Dropdown List
TabIndex = 48
Top = 270
Width = 1245
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "结果："
Height = 180
Index = 11
Left = 2355
TabIndex = 49
Top = 330
Width = 540
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "函数："
Height = 180
Index = 10
Left = 225
TabIndex = 47
Top = 330
Width = 540
End
End
Begin VB.Frame fraGroup
Caption = ">> 自定义分组"
Height = 2475
Left = 90
TabIndex = 32
Top = 4290
Width = 6780
Begin VB.CommandButton cmdGroupOK
Caption = "确定(&K)"
Height = 360
Left = 5295
TabIndex = 44
Top = 375
Width = 1335
End
Begin VB.CommandButton cmdGroupCancel
Caption = "取消"
Height = 360
Left = 5295
TabIndex = 43
Top = 810
Width = 1335
End
Begin VB.CommandButton cmdGroupUp
Caption = "↑"
Height = 375
Left = 4710
TabIndex = 40
Top = 1545
Width = 435
End
Begin VB.CommandButton cmdGroupDown
Caption = "↓"
Height = 375
Left = 4710
TabIndex = 39
Top = 1905
Width = 435
End
Begin VB.CommandButton cmdGroupAddOne
Caption = ">"
Height = 375
Left = 2130
TabIndex = 38
Top = 570
Width = 435
End
Begin VB.CommandButton cmdGroupAddAll
Caption = ">>"
Height = 375
Left = 2130
TabIndex = 37
Top = 930
Width = 435
End
Begin VB.CommandButton cmdGroupRemoveOne
Caption = "<"
Height = 375
Left = 2130
TabIndex = 36
Top = 1485
Width = 435
End
Begin VB.CommandButton cmdGroupRemoveAll
Caption = "<<"
Height = 375
Left = 2130
TabIndex = 35
Top = 1845
Width = 435
End
Begin VB.ListBox lstGroupView
Height = 1860
Left = 2715
TabIndex = 34
Top = 450
Width = 1950
End
Begin VB.ListBox lstGroupAll
Height = 1860
Left = 135
TabIndex = 33
Top = 465
Width = 1845
End
Begin VB.Label lblFields
Caption = " **对分组先后排序"
Height = 405
Index = 9
Left = 5280
TabIndex = 45
Top = 1920
Width = 1170
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "*分组项目*"
Height = 180
Index = 8
Left = 3285
TabIndex = 42
Top = 225
Width = 900
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "*项目清单*"
Height = 180
Index = 7
Left = 600
TabIndex = 41
Top = 255
Width = 900
End
End
Begin VB.Frame fraLocate
Caption = ">> 定位"
Height = 1275
Left = 60
TabIndex = 23
Top = 2880
Width = 4005
Begin VB.CommandButton cmdLocateCancle
Caption = "取消"
Height = 360
Left = 2910
TabIndex = 31
Top = 660
Width = 930
End
Begin VB.CommandButton cmdLocateOK
Caption = "确定(&K)"
Height = 360
Left = 2910
TabIndex = 30
Top = 225
Width = 930
End
Begin ComCtl2.UpDown udLocateCol
Height = 300
Left = 2340
TabIndex = 29
Top = 690
Width = 270
_ExtentX = 423
_ExtentY = 529
_Version = 327681
BuddyControl = "txtLocateCol"
BuddyDispid = 196647
OrigLeft = 2745
OrigTop = 315
OrigRight = 3015
OrigBottom = 630
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox txtLocateCol
Height = 300
Left = 990
TabIndex = 28
Top = 690
Width = 1395
End
Begin ComCtl2.UpDown udLocateRow
Height = 300
Left = 2341
TabIndex = 26
Top = 315
Width = 270
_ExtentX = 423
_ExtentY = 529
_Version = 327681
AutoBuddy = -1 'True
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?