📄 frmshbb1.frm
字号:
Width = 1005
End
Begin VB.CheckBox Check1
Caption = "及格率"
Height = 255
Index = 10
Left = 270
TabIndex = 10
Top = 3540
Width = 1095
End
Begin VB.CheckBox Check1
Caption = "不及格数"
Height = 255
Index = 11
Left = 270
TabIndex = 9
Top = 3840
Width = 1035
End
Begin VB.CheckBox Check1
Caption = "不及格率"
Height = 255
Index = 12
Left = 270
TabIndex = 8
Top = 4140
Width = 1155
End
Begin VB.CheckBox Check1
Caption = "三项之和"
Height = 255
Index = 13
Left = 270
TabIndex = 7
Top = 4470
Width = 1095
End
End
Begin VB.CommandButton Command3
Caption = "刷新显示"
Height = 465
Left = 240
TabIndex = 5
Top = 660
Width = 1245
End
End
Begin VSFlex7DAOCtl.VSFlexGrid Vf
Bindings = "frmshbb1.frx":0AFE
Height = 4425
Left = 2340
TabIndex = 23
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 = 24
Top = 0
Visible = 0 'False
Width = 10635
_ExtentX = 18759
_ExtentY = 1111
ButtonWidth = 609
ButtonHeight = 953
Appearance = 1
_Version = 393216
Begin VB.CommandButton Command2
Caption = "返回表格"
Height = 465
Left = 9510
TabIndex = 34
Top = 60
Width = 975
End
Begin VB.CommandButton cmdPageSetup
Caption = "页面设置"
Height = 465
Left = 180
TabIndex = 33
Top = 60
Width = 1155
End
Begin VB.ComboBox cmbPercent
ForeColor = &H00FF0000&
Height = 300
ItemData = "frmshbb1.frx":0B12
Left = 5280
List = "frmshbb1.frx":0B2B
Style = 2 'Dropdown List
TabIndex = 32
Top = 150
Width = 915
End
Begin VB.ComboBox cmbZoomMode
ForeColor = &H00FF0000&
Height = 300
ItemData = "frmshbb1.frx":0B56
Left = 3780
List = "frmshbb1.frx":0B6C
Style = 2 'Dropdown List
TabIndex = 31
Top = 150
Width = 1395
End
Begin VB.HScrollBar scrlPage
Height = 255
Left = 7080
Max = 1
Min = 1
TabIndex = 30
TabStop = 0 'False
Top = 60
Value = 1
Width = 1170
End
Begin ACTIVESKINLibCtl.SkinLabel lblPage
Height = 165
Left = 7140
OleObjectBlob = "frmshbb1.frx":0BA6
TabIndex = 29
Top = 360
Width = 1035
End
Begin VB.CommandButton btnFont
Caption = "字体设置"
Height = 450
Left = 2580
TabIndex = 28
Top = 60
Width = 1080
End
Begin VB.CommandButton Print
Caption = "开始打印"
Height = 465
Left = 8400
TabIndex = 27
Top = 60
Width = 975
End
Begin VB.CommandButton SETHARD
Caption = "设置表头"
Height = 465
Left = 1410
TabIndex = 26
Top = 60
Width = 1035
End
Begin VB.ComboBox Combo2
ForeColor = &H00FF0000&
Height = 300
ItemData = "frmshbb1.frx":0C07
Left = 6330
List = "frmshbb1.frx":0C23
Style = 2 'Dropdown List
TabIndex = 25
Top = 150
Width = 645
End
End
End
Attribute VB_Name = "frmshbb1"
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 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
For QQ = 0 To Vf.Cols - 1
Vf.ColAlignment(QQ) = flexAlignCenterCenter
' VSFlexGrid1.CellAlignment = flexAlignCenterCenter
Next QQ
End Sub
Private Sub Command4_Click()
On Error Resume Next
Unload Me
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -