📄 mdbb.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form mdbbb
BorderStyle = 1 'Fixed Single
ClientHeight = 8340
ClientLeft = 150
ClientTop = 720
ClientWidth = 11910
Icon = "Mdbb.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 8340
ScaleWidth = 11910
StartUpPosition = 3 '窗口缺省
Begin MSComDlg.CommonDialog csave
Left = 4080
Top = 1200
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DefaultExt = "*.txt"
DialogTitle = "保存报表"
Filter = "文本文件(*.TXT)|*.txt"
End
Begin VB.Frame Frame3
Caption = "参数设置"
Height = 5175
Left = 480
TabIndex = 29
Top = 2520
Visible = 0 'False
Width = 5535
Begin VB.ComboBox Combo7
Height = 300
Left = 960
Style = 2 'Dropdown List
TabIndex = 65
ToolTipText = "设置报表分栏数"
Top = 2970
Width = 855
End
Begin VB.ListBox List5
Height = 240
Left = 1200
TabIndex = 63
Top = 4680
Visible = 0 'False
Width = 1455
End
Begin VB.Frame Frame4
Height = 135
Left = 30
TabIndex = 61
Top = 3290
Width = 5475
End
Begin VB.CommandButton Command9
Caption = "生成数据汇总报表"
Height = 375
Left = 3240
TabIndex = 60
Top = 4080
Width = 2055
End
Begin VB.ComboBox Combo6
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 240
Style = 2 'Dropdown List
TabIndex = 57
ToolTipText = "选择数据汇总项目"
Top = 3840
Width = 2655
End
Begin VB.CheckBox Check3
Caption = "横向"
Height = 255
Left = 4680
TabIndex = 54
ToolTipText = "数值型项目横行求和"
Top = 3000
Width = 675
End
Begin VB.CheckBox Check2
Caption = "纵向"
Height = 255
Left = 3960
TabIndex = 52
ToolTipText = "数值型项目纵向求和"
Top = 3000
Width = 675
End
Begin VB.ComboBox Combo5
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 3960
Style = 2 'Dropdown List
TabIndex = 51
ToolTipText = "设置数值型项目保留小数位"
Top = 2520
Width = 1335
End
Begin VB.CheckBox Check1
Caption = "居中"
Height = 255
Left = 2280
TabIndex = 49
ToolTipText = "报表数据输出是否居中"
Top = 3000
Width = 705
End
Begin VB.ComboBox Combo2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 960
Style = 2 'Dropdown List
TabIndex = 43
ToolTipText = "选择排序项目(自动升序)"
Top = 2520
Width = 1935
End
Begin VB.TextBox Text2
Height = 270
Left = 1200
TabIndex = 42
Text = "Text2"
Top = 360
Width = 4095
End
Begin VB.CommandButton Command6
Caption = "全选"
Height = 375
Left = 2400
TabIndex = 37
ToolTipText = "选择所以项目"
Top = 1800
Width = 735
End
Begin VB.CommandButton Command5
Caption = "重置"
Height = 375
Left = 2400
TabIndex = 36
ToolTipText = "重置可选项目"
Top = 960
Width = 735
End
Begin VB.CommandButton Command4
Caption = "重新选择数据记录"
Height = 375
Left = 3240
TabIndex = 35
Top = 4560
Width = 2055
End
Begin VB.CommandButton Command3
Caption = "生成条件明细报表"
Height = 375
Left = 3240
TabIndex = 34
Top = 3600
Width = 2055
End
Begin VB.ListBox List3
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1320
Left = 3240
TabIndex = 31
ToolTipText = "回车或双击移出"
Top = 960
Width = 2055
End
Begin VB.ListBox List2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1320
Left = 240
TabIndex = 30
ToolTipText = "回车或双击选择"
Top = 960
Width = 2055
End
Begin VB.ListBox List4
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 690
Left = 240
TabIndex = 59
Top = 4320
Visible = 0 'False
Width = 2655
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "说明：上半部分是两种报表的公共参数，下半部分的参数仅供汇总表使用。"
Height = 615
Left = 240
TabIndex = 62
Top = 4380
Width = 2775
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "分 栏："
Height = 180
Left = 240
TabIndex = 64
Top = 3000
Width = 720
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "选择数据汇总项目："
Height = 180
Left = 240
TabIndex = 58
Top = 3600
Width = 1620
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "小数位："
Height = 180
Left = 3240
TabIndex = 56
Top = 2610
Width = 720
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "求 和："
Height = 180
Left = 3240
TabIndex = 53
Top = 3030
Width = 720
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "排 序："
Height = 180
Left = 240
TabIndex = 50
Top = 2580
Width = 720
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报表名称："
Height = 180
Left = 240
TabIndex = 41
Top = 405
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报表项目："
Height = 180
Left = 3240
TabIndex = 33
Top = 720
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "可选项目："
Height = 180
Left = 240
TabIndex = 32
Top = 720
Width = 900
End
End
Begin VB.Frame Frame2
Caption = "记录筛选"
Height = 2775
Left = 5160
TabIndex = 8
Top = 720
Visible = 0 'False
Width = 6495
Begin VB.ComboBox c0
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 2
Left = 240
Style = 2 'Dropdown List
TabIndex = 27
Top = 1680
Width = 825
End
Begin VB.ComboBox c0
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 1
Left = 240
Style = 2 'Dropdown List
TabIndex = 26
Top = 1320
Width = 825
End
Begin VB.ComboBox c0
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 0
Left = 240
Style = 2 'Dropdown List
TabIndex = 25
Top = 960
Width = 825
End
Begin VB.CommandButton Command2
Caption = "取消"
Height = 375
Left = 5160
TabIndex = 24
Top = 2160
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "确定"
Height = 375
Left = 3720
TabIndex = 23
Top = 2160
Width = 1095
End
Begin VB.TextBox vt
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 3
Left = 3840
TabIndex = 22
Text = "Text2"
Top = 1680
Width = 2415
End
Begin VB.ComboBox c4
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 1
Left = 2760
Style = 2 'Dropdown List
TabIndex = 21
Top = 1680
Width = 1065
End
Begin VB.ComboBox c4
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 0
Left = 1080
Style = 2 'Dropdown List
TabIndex = 20
Top = 1680
Width = 1665
End
Begin VB.TextBox vt
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -