📄 frmshbb.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 FRMSHBB
Caption = "三项之和报表(一)"
ClientHeight = 7215
ClientLeft = 60
ClientTop = 450
ClientWidth = 9990
Icon = "FRMSHBB.frx":0000
LinkTopic = "Form1"
MinButton = 0 'False
ScaleHeight = 7215
ScaleWidth = 9990
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.TextBox Text44
Height = 525
Left = 11580
TabIndex = 19
Text = "Text4"
Top = 6870
Visible = 0 'False
Width = 1245
End
Begin VB.TextBox Text33
Height = 525
Left = 11640
TabIndex = 18
Text = "Text3"
Top = 6240
Visible = 0 'False
Width = 1245
End
Begin VB.TextBox Text22
Height = 525
Left = 11550
TabIndex = 17
Text = "Text2"
Top = 5580
Visible = 0 'False
Width = 1245
End
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 ACTIVESKINLibCtl.Skin Skin1
Left = 7830
OleObjectBlob = "FRMSHBB.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 = 5040
TabIndex = 0
Top = 2100
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 Toolbar1
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 1
Top = 615
Visible = 0 'False
Width = 9990
_ExtentX = 17621
_ExtentY = 1085
ButtonWidth = 609
ButtonHeight = 926
Appearance = 1
_Version = 393216
Begin VB.CommandButton SETHARD
Caption = "设置表头"
Height = 465
Left = 1410
TabIndex = 10
Top = 60
Width = 1035
End
Begin VB.CommandButton Print
Caption = "开始打印"
Height = 465
Left = 7680
TabIndex = 9
Top = 60
Width = 975
End
Begin VB.CommandButton btnFont
Caption = "字体设置"
Height = 450
Left = 2580
TabIndex = 8
Top = 60
Width = 1080
End
Begin ACTIVESKINLibCtl.SkinLabel lblPage
Height = 165
Left = 6420
OleObjectBlob = "FRMSHBB.frx":053E
TabIndex = 7
Top = 360
Width = 1035
End
Begin VB.HScrollBar scrlPage
Height = 255
Left = 6360
Max = 1
Min = 1
TabIndex = 6
TabStop = 0 'False
Top = 60
Value = 1
Width = 1170
End
Begin VB.ComboBox cmbZoomMode
ForeColor = &H00FF0000&
Height = 300
ItemData = "FRMSHBB.frx":059F
Left = 3780
List = "FRMSHBB.frx":05B5
Style = 2 'Dropdown List
TabIndex = 5
Top = 150
Width = 1395
End
Begin VB.ComboBox cmbPercent
ForeColor = &H00FF0000&
Height = 300
ItemData = "FRMSHBB.frx":05EF
Left = 5280
List = "FRMSHBB.frx":0608
Style = 2 'Dropdown List
TabIndex = 4
Top = 150
Width = 915
End
Begin VB.CommandButton cmdPageSetup
Caption = "页面设置"
Height = 465
Left = 180
TabIndex = 3
Top = 60
Width = 1155
End
Begin VB.CommandButton Command2
Caption = "退出报表"
Height = 465
Left = 8790
TabIndex = 2
Top = 60
Width = 975
End
End
Begin MSComctlLib.Toolbar Toolbar2
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 11
Top = 0
Width = 9990
_ExtentX = 17621
_ExtentY = 1085
ButtonWidth = 609
ButtonHeight = 926
Appearance = 1
_Version = 393216
Begin VB.CommandButton Command1
Caption = "报表预览"
Height = 435
Left = 810
TabIndex = 15
Top = 60
Width = 945
End
Begin VB.CommandButton Command4
Caption = "退出报表"
Height = 435
Left = 2250
TabIndex = 14
Top = 60
Width = 945
End
Begin VB.CommandButton Command5
Caption = "刷新显示"
Height = 435
Left = 8730
TabIndex = 13
Top = 60
Visible = 0 'False
Width = 855
End
Begin VB.CommandButton Command3
Caption = "内容居中"
Height = 435
Left = 7530
TabIndex = 12
Top = 60
Visible = 0 'False
Width = 885
End
End
Begin VSFlex7DAOCtl.VSFlexGrid Vf
Bindings = "FRMSHBB.frx":0633
Height = 4425
Left = 120
TabIndex = 16
Top = 1650
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 = 13876923
ForeColorFixed = 255
BackColorSel = 65535
ForeColorSel = 255
BackColorBkg = 13876923
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -