📄 frmdkbb2.frm
字号:
Top = 30
Width = 1065
End
Begin VB.ComboBox Combo4
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
ItemData = "frmdkbb2.frx":06C8
Left = 2070
List = "frmdkbb2.frx":06E1
Style = 2 'Dropdown List
TabIndex = 22
Top = 270
Width = 1365
End
Begin VB.CommandButton Command3
Caption = "内容居中"
Height = 435
Left = 7590
TabIndex = 20
Top = 60
Visible = 0 'False
Width = 885
End
Begin VB.CommandButton Command5
Caption = "刷新显示"
Height = 435
Left = 8730
TabIndex = 19
Top = 60
Visible = 0 'False
Width = 855
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 180
Style = 2 'Dropdown List
TabIndex = 18
Top = 270
Width = 825
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 0
Left = 90
OleObjectBlob = "frmdkbb2.frx":071F
TabIndex = 17
Top = 30
Width = 1065
End
Begin VB.CommandButton Command4
Caption = "退出报表"
Height = 435
Left = 4650
TabIndex = 16
Top = 90
Width = 945
End
Begin VB.CommandButton Command1
Caption = "报表预览"
Height = 435
Left = 3540
TabIndex = 15
Top = 90
Width = 945
End
Begin VB.ComboBox Combo3
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
ItemData = "frmdkbb2.frx":077C
Left = 1140
List = "frmdkbb2.frx":077E
Style = 2 'Dropdown List
TabIndex = 14
Top = 270
Width = 825
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 3
Left = 1050
OleObjectBlob = "frmdkbb2.frx":0780
TabIndex = 13
Top = 30
Width = 1065
End
End
Begin VSFlex7DAOCtl.VSFlexGrid Vf
Bindings = "frmdkbb2.frx":07DD
Height = 4425
Left = 120
TabIndex = 21
Top = 1680
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
BackColorAlternate= -2147483643
GridColor = 13876923
GridColorFixed = 13876923
TreeColor = -2147483632
FloodColor = 192
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 = 13876923
WallPaperAlignment= 9
End
End
Attribute VB_Name = "frmdkbb2"
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
Private Sub Combo1_Click()
On Error Resume Next
s = "select 学号,班级,学籍,姓名," & Combo3.Text & "," & Combo3.Text & "班级名次 ," & Combo3.Text & "年级名次 from 学生" & " WHERE 班级=" & Combo1.Text & " ORDER BY " & "" & Combo3.Text & "班级名次"
cmbSource
DoEvents
Dim III As Long
For III = 1 To Vf.Rows - 1
Vf.TextMatrix(III, 0) = III
Next
Vf.ColWidth(0) = 400
Call Command3_Click
End Sub
Private Sub Combo2_Click()
On Error Resume Next
VP.Columns = Combo2.Text
cmbSource
End Sub
Private Sub Combo3_Click()
On Error Resume Next
s = "select 学号,班级,学籍,姓名," & Combo3.Text & "," & Combo3.Text & "班级名次 ," & Combo3.Text & "年级名次 from 学生" & " WHERE 班级=" & Combo1.Text & " ORDER BY " & "" & Combo4.Text & ""
cmbSource
DoEvents
Dim III As Long
For III = 1 To Vf.Rows - 1
Vf.TextMatrix(III, 0) = III
Next
Vf.ColWidth(0) = 400
Call Command3_Click
End Sub
Private Sub Combo4_Click()
On Error Resume Next
s = "select 学号,班级,学籍,姓名," & Combo3.Text & "," & Combo3.Text & "班级名次 ," & Combo3.Text & "年级名次 from 学生" & " WHERE 班级=" & Combo1.Text & " ORDER BY " & "" & Combo4.Text & ""
cmbSource
DoEvents
Dim III As Long
For III = 1 To Vf.Rows - 1
Vf.TextMatrix(III, 0) = III
Next
Vf.ColWidth(0) = 400
Call Command3_Click
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\3.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
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
End Sub
Private Sub Form_Resize()
On Error Resume Next
Vf.Width = Me.Width - 100
Vf.Height = Me.Height - Toolbar1.Height - 780
Vf.Top = Toolbar1.Height
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -