📄 frmshbb4.frm
字号:
End
Begin VB.CheckBox Check1
Caption = "最高分"
Height = 255
Index = 2
Left = 270
TabIndex = 23
Top = 960
Width = 1005
End
Begin VB.CheckBox Check1
Caption = "科目"
Height = 255
Index = 1
Left = 270
TabIndex = 22
Top = 630
Width = 1005
End
Begin VB.CheckBox Check1
Caption = "班级"
Height = 255
Index = 0
Left = 270
TabIndex = 21
Top = 300
Width = 945
End
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 3
Left = 180
OleObjectBlob = "FRMSHBB4.frx":0AFE
TabIndex = 15
Top = 90
Width = 1425
End
Begin VB.ComboBox Combo3
ForeColor = &H00FF0000&
Height = 300
Left = 300
Style = 2 'Dropdown List
TabIndex = 14
ToolTipText = "点击可显示当前所选科目"
Top = 390
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "报表预览"
Height = 435
Left = 240
TabIndex = 13
ToolTipText = "进入报表预览,可进行数据打印"
Top = 840
Width = 1245
End
Begin VB.CommandButton Command4
Caption = "退出报表"
Height = 435
Left = 270
TabIndex = 12
ToolTipText = "退出此报表界面"
Top = 7650
Width = 1245
End
End
Begin VSFlex7DAOCtl.VSFlexGrid Vf
Bindings = "FRMSHBB4.frx":0B61
Height = 4425
Left = 2340
TabIndex = 16
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 = 1
Top = 0
Visible = 0 'False
Width = 10650
_ExtentX = 18785
_ExtentY = 1111
ButtonWidth = 609
ButtonHeight = 953
Appearance = 1
_Version = 393216
Begin VB.ComboBox Combo2
ForeColor = &H00FF0000&
Height = 300
ItemData = "FRMSHBB4.frx":0B75
Left = 6330
List = "FRMSHBB4.frx":0B91
Style = 2 'Dropdown List
TabIndex = 38
Top = 150
Width = 645
End
Begin VB.CommandButton SETHARD
Caption = "设置表头"
Height = 465
Left = 1410
TabIndex = 10
Top = 60
Width = 1035
End
Begin VB.CommandButton Print
Caption = "开始打印"
Height = 465
Left = 8400
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 = 7140
OleObjectBlob = "FRMSHBB4.frx":0BAD
TabIndex = 7
Top = 360
Width = 1035
End
Begin VB.HScrollBar scrlPage
Height = 255
Left = 7080
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 = "FRMSHBB4.frx":0C0E
Left = 3780
List = "FRMSHBB4.frx":0C24
Style = 2 'Dropdown List
TabIndex = 5
Top = 150
Width = 1395
End
Begin VB.ComboBox cmbPercent
ForeColor = &H00FF0000&
Height = 300
ItemData = "FRMSHBB4.frx":0C5E
Left = 5280
List = "FRMSHBB4.frx":0C77
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 = 9510
TabIndex = 2
Top = 60
Width = 975
End
End
End
Attribute VB_Name = "FRMSHBB4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim s As String
Dim nmc As String
Dim db As Database
Dim rs As Recordset
Dim STR As String
Dim intRecCount As Long
Dim intCounter As Long
Dim XSA As String
Dim lo As String
Private Sub Combo2_Click()
On Error Resume Next
VP.Columns = Combo2.Text
cmbSource
End Sub
Private Sub Combo3_Click()
On Error Resume Next
s = lo & " WHERE 科目='" & Combo3.Text & "'" & " or 科目='" & Combo3.Text & "" & "总分'"
'Me.Caption = S
cmbSource
Dim QQ As Long
For QQ = 0 To Vf.Cols - 1
Vf.ColAlignment(QQ) = flexAlignCenterCenter
' VSFlexGrid1.CellAlignment = flexAlignCenterCenter
Next QQ
End Sub
Private Sub Command1_Click()
On Error Resume Next
Skin1.LoadSkin App.Path & "\SKIN\0.sk"
Skin1.ApplySkinByName hwnd, "Form"
Skin1.ApplySkin Me.hwnd
Vf.Visible = False
Toolbar2.Visible = False
VP.Visible = True
Toolbar1.Visible = True
End Sub
Private Sub Command2_Click()
On Error Resume Next
Skin1.LoadSkin App.Path & "\SKIN\4.sk"
Skin1.ApplySkinByName hwnd, "Form"
Skin1.ApplySkin Me.hwnd
Vf.Visible = True
Toolbar2.Visible = True
VP.Visible = False
Toolbar1.Visible = False
End Sub
Private Sub Command3_Click()
On Error Resume Next
s = lo
cmbSource
Dim QQ As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -