📄 frmmyall.frm
字号:
VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "ACTSKIN4.OCX"
Object = "{A8561640-E93C-11D3-AC3B-CE6078F7B616}#1.0#0"; "VSPRINT7.OCX"
Object = "{D76D7130-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSFLEX7D.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FRMmyall
Caption = "全年级自定义报表"
ClientHeight = 6975
ClientLeft = 60
ClientTop = 345
ClientWidth = 10590
Icon = "FRMmyall.frx":0000
LinkTopic = "Form1"
MinButton = 0 'False
ScaleHeight = 6975
ScaleWidth = 10590
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 9000
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1470
Visible = 0 'False
Width = 1185
End
Begin VB.TextBox Text44
Height = 525
Left = 11010
TabIndex = 2
Text = "Text4"
Top = 10050
Visible = 0 'False
Width = 1245
End
Begin VB.TextBox Text33
Height = 525
Left = 11070
TabIndex = 1
Text = "Text3"
Top = 9420
Visible = 0 'False
Width = 1245
End
Begin VB.TextBox Text22
Height = 525
Left = 10980
TabIndex = 0
Text = "Text2"
Top = 8760
Visible = 0 'False
Width = 1245
End
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 7830
OleObjectBlob = "FRMmyall.frx":030A
Top = 6630
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = 6450
Top = 1380
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VSPrinter7LibCtl.VSPrinter VP
Height = 4350
Left = 4770
TabIndex = 3
Top = 2310
Visible = 0 'False
Width = 5040
_cx = 8890
_cy = 7673
Appearance = 1
BorderStyle = 0
Enabled = -1 'True
MousePointer = 0
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 5.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty HdrFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_ConvInfo = 1
AutoRTF = -1 'True
Preview = -1 'True
DefaultDevice = 0 'False
PhysicalPage = -1 'True
AbortWindow = -1 'True
AbortWindowPos = 0
AbortCaption = "NHB软件工作室"
AbortTextButton = "取消"
AbortTextDevice = "正在 %s on %s"
AbortTextPage = "进行打印%d "
FileName = ""
MarginLeft = 1440
MarginTop = 1440
MarginRight = 1440
MarginBottom = 1440
MarginHeader = 0
MarginFooter = 0
IndentLeft = 0
IndentRight = 0
IndentFirst = 0
IndentTab = 720
SpaceBefore = 0
SpaceAfter = 0
LineSpacing = 100
Columns = 1
ColumnSpacing = 180
ShowGuides = 2
LargeChangeHorz = 300
LargeChangeVert = 300
SmallChangeHorz = 30
SmallChangeVert = 30
Track = 0 'False
ProportionalBars= -1 'True
Zoom = 25.3189401373896
ZoomMode = 3
ZoomMax = 400
ZoomMin = 10
ZoomStep = 25
EmptyColor = 0
TextColor = 0
HdrColor = 12582912
BrushColor = 16711680
BrushStyle = 0
PenColor = 0
PenStyle = 0
PenWidth = 0
PageBorder = 0
Header = ""
Footer = ""
TableSep = "|;"
TableBorder = 7
TablePen = 0
TablePenLR = 0
TablePenTB = 0
NavBar = 0
NavBarColor = -2147483633
ExportFormat = 0
URL = ""
Navigation = 3
NavBarMenuText = "Whole &Page|Page &Width|&Two Pages|Thumb&nail"
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 7320
Top = 1440
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.Toolbar Toolbar2
Height = 22590
Left = 30
TabIndex = 4
Top = 30
Width = 1785
_ExtentX = 3149
_ExtentY = 39846
ButtonWidth = 609
ButtonHeight = 39740
Appearance = 1
_Version = 393216
Begin VB.CommandButton Command4
Caption = "退出报表"
Height = 465
Left = 240
TabIndex = 10
Top = 6240
Width = 1245
End
Begin VB.CommandButton Command1
Caption = "报表预览"
Height = 435
Left = 240
TabIndex = 9
Top = 120
Width = 1245
End
Begin VB.CommandButton Command3
Caption = "刷新显示"
Height = 465
Left = 240
TabIndex = 8
Top = 660
Width = 1245
End
Begin VB.ListBox List1
ForeColor = &H00D41700&
Height = 4050
Left = 60
Style = 1 'Checkbox
TabIndex = 7
Top = 1860
Width = 1635
End
Begin VB.ComboBox Combo1
ForeColor = &H000000FF&
Height = 300
ItemData = "FRMmyall.frx":053E
Left = 150
List = "FRMmyall.frx":0557
Style = 2 'Dropdown List
TabIndex = 6
Top = 1440
Width = 1395
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 195
Index = 1
Left = 360
OleObjectBlob = "FRMmyall.frx":0595
TabIndex = 5
Top = 1200
Width = 1065
End
End
Begin VSFlex7DAOCtl.VSFlexGrid Vf
Bindings = "FRMmyall.frx":05F2
Height = 4425
Left = 2340
TabIndex = 11
Top = 1350
Width = 4320
_cx = 7620
_cy = 7805
_ConvInfo = 1
Appearance = 1
BorderStyle = 0
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 = 16711680
BackColorFixed = 7377008
ForeColorFixed = 16777215
BackColorSel = 65535
ForeColorSel = 255
BackColorBkg = 7377008
BackColorAlternate= -2147483643
GridColor = 7377008
GridColorFixed = 7377008
TreeColor = -2147483632
FloodColor = 255
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 1
SelectionMode = 1
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 = -1 'True
ScrollBars = 3
ScrollTips = -1 'True
MergeCells = 0
MergeCompare = 0
AutoResize = 0 'False
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
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
ShowComboButton = 2
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 1
VirtualData = -1 'True
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 3
BackColorFrozen = 65535
ForeColorFrozen = 7377008
WallPaperAlignment= 9
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 12
Top = 0
Visible = 0 'False
Width = 10590
_ExtentX = 18680
_ExtentY = 1111
ButtonWidth = 609
ButtonHeight = 953
Appearance = 1
_Version = 393216
Begin VB.CommandButton Command2
Caption = "返回表格"
Height = 465
Left = 9510
TabIndex = 22
Top = 60
Width = 975
End
Begin VB.CommandButton cmdPageSetup
Caption = "页面设置"
Height = 465
Left = 180
TabIndex = 21
Top = 60
Width = 1155
End
Begin VB.ComboBox cmbPercent
ForeColor = &H00FF0000&
Height = 300
ItemData = "FRMmyall.frx":0606
Left = 5280
List = "FRMmyall.frx":061F
Style = 2 'Dropdown List
TabIndex = 20
Top = 150
Width = 915
End
Begin VB.ComboBox cmbZoomMode
ForeColor = &H00FF0000&
Height = 300
ItemData = "FRMmyall.frx":064A
Left = 3780
List = "FRMmyall.frx":0660
Style = 2 'Dropdown List
TabIndex = 19
Top = 150
Width = 1395
End
Begin VB.HScrollBar scrlPage
Height = 255
Left = 7080
Max = 1
Min = 1
TabIndex = 18
TabStop = 0 'False
Top = 60
Value = 1
Width = 1170
End
Begin ACTIVESKINLibCtl.SkinLabel lblPage
Height = 165
Left = 7140
OleObjectBlob = "FRMmyall.frx":069A
TabIndex = 17
Top = 360
Width = 1035
End
Begin VB.CommandButton btnFont
Caption = "字体设置"
Height = 450
Left = 2580
TabIndex = 16
Top = 60
Width = 1080
End
Begin VB.CommandButton Print
Caption = "开始打印"
Height = 465
Left = 8400
TabIndex = 15
Top = 60
Width = 975
End
Begin VB.CommandButton SETHARD
Caption = "设置表头"
Height = 465
Left = 1410
TabIndex = 14
Top = 60
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -