📄 frmqryreport.frm
字号:
VERSION 5.00
Object = "{7E00A3A2-8F5C-11D2-BAA4-04F205C10000}#1.0#0"; "VsVIEW6.ocx"
Begin VB.Form frmQryReport
Caption = "g"
ClientHeight = 6420
ClientLeft = 60
ClientTop = 345
ClientWidth = 8130
LinkTopic = "Form2"
ScaleHeight = 6420
ScaleWidth = 8130
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox PageEnd
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Height = 270
Left = 1140
TabIndex = 20
Text = "1"
Top = 5640
Width = 555
End
Begin VB.TextBox PageBegin
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Height = 270
Left = 360
TabIndex = 19
Text = "1"
Top = 5640
Width = 495
End
Begin VB.CommandButton CmdLoadSet
Caption = "读取默认设置"
Height = 375
Left = 120
TabIndex = 15
Top = 4440
Width = 1875
End
Begin VB.CommandButton CmdSaveSet
Caption = "保存设置"
Height = 375
Left = 120
TabIndex = 14
Top = 4020
Width = 1875
End
Begin VB.ComboBox cmbZoomMode
Height = 300
Left = 240
Style = 2 'Dropdown List
TabIndex = 12
Top = 420
Width = 1635
End
Begin VB.ComboBox cmbPercent
Enabled = 0 'False
Height = 300
Left = 240
Style = 2 'Dropdown List
TabIndex = 11
Top = 780
Width = 1635
End
Begin VB.HScrollBar scrlPage
Height = 255
Left = 120
Max = 1
Min = 1
TabIndex = 9
TabStop = 0 'False
Top = 1380
Value = 1
Width = 1890
End
Begin VB.CommandButton cmdFirst
Caption = "<<"
Height = 375
Left = 120
TabIndex = 8
ToolTipText = "First Page"
Top = 1920
Width = 435
End
Begin VB.CommandButton cmdLast
Caption = ">>"
Height = 375
Left = 1560
TabIndex = 7
ToolTipText = "Last Page"
Top = 1920
Width = 435
End
Begin VB.CommandButton cmdPrevious
Caption = "<"
Height = 375
Left = 600
TabIndex = 6
ToolTipText = "Previous Page"
Top = 1920
Width = 435
End
Begin VB.CommandButton cmdNext
Caption = ">"
Height = 375
Left = 1080
TabIndex = 5
ToolTipText = "Next Page"
Top = 1920
Width = 435
End
Begin VB.CommandButton cmdGoto
Caption = "显示第(X)页"
Height = 375
Left = 120
TabIndex = 4
Top = 2340
Width = 1875
End
Begin VB.CommandButton cmdPageSetup
Caption = "页面设置"
Height = 375
Left = 120
TabIndex = 3
Top = 3060
Width = 1875
End
Begin VB.CommandButton cmdPrinterSetup
Caption = "打印机设置"
Height = 375
Left = 120
TabIndex = 2
Top = 3480
Width = 1875
End
Begin VB.CommandButton cmdPrint
BackColor = &H8000000A&
Caption = "打印"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 120
MaskColor = &H00000000&
TabIndex = 1
Top = 5160
Width = 1890
End
Begin VSVIEW6Ctl.VSPrinter Vp
Height = 6315
Left = 2220
TabIndex = 0
Top = 60
Width = 5895
_cx = 10398
_cy = 11139
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
MousePointer = 0
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty HdrFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Courier New"
Size = 14.25
Charset = 0
Weight = 400
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 = "Printing..."
AbortTextButton = "Cancel"
AbortTextDevice = "on the %s on %s"
AbortTextPage = "Now printing Page %d of"
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 = 34.3137254901961
ZoomMode = 3
ZoomMax = 400
ZoomMin = 10
ZoomStep = 5
MouseZoom = 2
MouseScroll = -1 'True
MousePage = -1 'True
EmptyColor = -2147483636
TextColor = 0
HdrColor = 0
BrushColor = 0
BrushStyle = 0
PenColor = 0
PenStyle = 0
PenWidth = 0
PageBorder = 0
Header = ""
Footer = ""
TableSep = "|;"
TableBorder = 7
TablePen = 0
TablePenLR = 0
TablePenTB = 0
HTMLStyle = 1
End
Begin VB.Label Label4
Caption = "页"
Height = 255
Left = 1740
TabIndex = 18
Top = 5700
Width = 195
End
Begin VB.Label Label3
Caption = "至"
Height = 255
Left = 900
TabIndex = 17
Top = 5700
Width = 195
End
Begin VB.Label Label2
Caption = "第"
Height = 255
Left = 120
TabIndex = 16
Top = 5700
Width = 195
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "缩放"
Height = 255
Left = 240
TabIndex = 13
Top = 60
Width = 375
End
Begin VB.Shape Shape1
Height = 975
Left = 120
Top = 180
Width = 1875
End
Begin VB.Label lblPage
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "1 of 1"
Height = 195
Left = 120
TabIndex = 10
Top = 1680
Width = 1860
End
End
Attribute VB_Name = "frmQryReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim GX() As String, GXCount As Long
Dim pImage() As StdPicture, ImageGX() As String, ImageCount As Long
Dim RptRst As ADODB.Recordset, RstGX(1 To 5) As String
Dim FZ() As String, FZCount As Long, vbRst As Boolean
Dim pGrid As vsFlexGrid
Public Sub SetReportName(vName As String)
Vp.DocName = vName
End Sub
Public Sub AddText(ByVal vType As String, vAlignMent As String, vText As String, vGx As String)
GXCount = GXCount + 1
ReDim Preserve GX(1 To 4, 1 To GXCount)
GX(1, GXCount) = vType
GX(2, GXCount) = vAlignMent
GX(3, GXCount) = vText
GX(4, GXCount) = vGx
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -