📄 dym1report.ctl
字号:
VERSION 5.00
Object = "{C5DE3F80-3376-11D2-BAA4-04F205C10000}#1.0#0"; "VSFLEX6D.OCX"
Object = "{FA301621-BF09-11CF-91F7-C2863C385E30}#2.0#0"; "VSVIEW2.OCX"
Begin VB.UserControl dyM1Report
ClientHeight = 3600
ClientLeft = 0
ClientTop = 0
ClientWidth = 4800
ScaleHeight = 3600
ScaleWidth = 4800
ToolboxBitmap = "dyM1Report.ctx":0000
Begin VB.CommandButton ccmdPage
Caption = "缩小"
Height = 435
Index = 5
Left = 3030
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "放大"
Top = 390
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton ccmdPage
Caption = "放大"
Height = 435
Index = 4
Left = 2400
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "放大"
Top = 360
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton ccmdPage
Caption = ">"
Height = 435
Index = 2
Left = 1140
TabIndex = 6
ToolTipText = "下一页"
Top = 360
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton ccmdPage
Caption = ">>"
Height = 435
Index = 3
Left = 1710
TabIndex = 5
ToolTipText = "最后一页"
Top = 390
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton ccmdPage
Caption = "<<"
Height = 435
Index = 0
Left = -30
TabIndex = 4
ToolTipText = "第一页"
Top = 360
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton ccmdPage
Caption = "<"
Height = 435
Index = 1
Left = 510
TabIndex = 3
ToolTipText = "前一页"
Top = 360
Visible = 0 'False
Width = 495
End
Begin vsViewLib.vsPrinter cPrnReport
Height = 825
Left = 240
TabIndex = 2
Top = 2790
Visible = 0 'False
Width = 1035
_Version = 131072
_ExtentX = 1826
_ExtentY = 1455
_StockProps = 228
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 1
Appearance = 1
BeginProperty HdrFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Courier New"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ConvInfo = 1413783674
End
Begin VSFlex6DAOCtl.vsFlexGrid cfgdReport
Height = 2175
Left = 360
TabIndex = 0
Top = 840
Width = 3975
_ExtentX = 7011
_ExtentY = 3836
_ConvInfo = 1
Appearance = 0
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
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 = 8388608
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= 3
SelectionMode = 0
GridLines = 2
GridLinesFixed = 1
GridLineWidth = 1
Rows = 50
Cols = 10
FixedRows = 1
FixedCols = 0
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = -1 'True
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 1
OutlineCol = 1
Ellipsis = 0
ExplorerBar = 3
PicturesOver = 0 'False
FillStyle = 1
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 6
Editable = -1 'True
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
End
Begin VSFlex6DAOCtl.vsFlexGrid cfgdTitle
Align = 1 'Align Top
Height = 585
Left = 0
TabIndex = 1
TabStop = 0 'False
Top = 0
Width = 4800
_ExtentX = 8467
_ExtentY = 1032
_ConvInfo = 1
Appearance = 0
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隶书"
Size = 15
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 = 0
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 2
SelectionMode = 0
GridLines = 0
GridLinesFixed = 0
GridLineWidth = 1
Rows = 2
Cols = 10
FixedRows = 0
FixedCols = 0
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = -1 'True
ScrollBars = 0
ScrollTips = 0 'False
MergeCells = 1
MergeCompare = 0
AutoResize = 0 'False
AutoSizeMode = 0
AutoSearch = 0
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 1
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0 'False
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
End
Begin VB.Image Image1
Height = 360
Left = 1410
Picture = "dyM1Report.ctx":0312
Top = 3090
Visible = 0 'False
Width = 8445
End
Begin VB.Label clblPageCount
AutoSize = -1 'True
BackColor = &H8000000A&
Height = 180
Left = 2310
TabIndex = 7
Top = 660
Visible = 0 'False
Width = 90
End
Begin VB.Menu mnuField
Caption = "Open"
Index = 0
Visible = 0 'False
Begin VB.Menu mnufield1
Caption = "合计"
Index = 0
End
Begin VB.Menu mnufield1
Caption = "平均值"
Index = 1
End
Begin VB.Menu mnufield1
Caption = "个数"
Index = 2
End
Begin VB.Menu mnufield1
Caption = "最大值"
Index = 3
End
Begin VB.Menu mnufield1
Caption = "最小值"
Index = 4
End
End
Begin VB.Menu mnuShow
Caption = "显示/隐藏"
NegotiatePosition= 1 'Left
Visible = 0 'False
Begin VB.Menu mnuCol
Caption = "显示/隐藏"
Index = 0
End
End
End
Attribute VB_Name = "dyM1Report"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
'汇总方式
Public Enum dym1TotalType
dym1汇总 = 1
dym1平均 = 2
dym1个数 = 4
dym1最大值 = 8
dym1最小值 = 16
End Enum
Dim mbolEventLock As Boolean
'报表风格
Public Enum dym1ReportStyle
dym1Report3D = 0
dym1ReportClassic = 1
dym1ReportActive = 2
dym1ReportPretty = 3
dym1ReportGreen = 4
End Enum
'报表数据类型
Public Enum dym1DataType
dym1DTtext
dym1DTNumeric
dym1DTBoolean
dym1DTDate
End Enum
Public Enum dym1DataType1
dym1DTEmpty = 1
dym1DTShort = 2
dym1DTLong = 3
dym1DTSingle = 4
dym1DTDouble = 5
dym1DTCurrency = 6
dym1DTDateType = 7
dym1DTString = 8
dym1DTBoolean = 11
dym1DTLong8 = 20
dym1DTStringC = 30
dym1DTStringW = 31
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -