📄 frmf.frm
字号:
Width = 945
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 1
Left = 1890
OleObjectBlob = "FRMF.frx":2DE7E
TabIndex = 23
Top = 210
Width = 285
End
End
Begin VSFlex7DAOCtl.VSFlexGrid VF
Bindings = "FRMF.frx":2DED5
Height = 3495
Left = 270
TabIndex = 30
Top = 1410
Width = 3270
_cx = 5768
_cy = 6165
_ConvInfo = 1
Appearance = 0
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 = 2
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 = 255
ForeColorFrozen = 13876923
WallPaperAlignment= 9
End
Begin VSPrinter7LibCtl.VSPrinter vp
Height = 3525
Left = 4290
TabIndex = 31
Top = 2310
Visible = 0 'False
Width = 4155
_cx = 7329
_cy = 6218
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
MousePointer = 0
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty HdrFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
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 = "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 = 17.7203918076581
ZoomMode = 3
ZoomMax = 400
ZoomMin = 10
ZoomStep = 25
EmptyColor = 0
TextColor = 0
HdrColor = 255
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 = 0
ExportFormat = 0
URL = ""
Navigation = 3
NavBarMenuText = "Whole &Page|Page &Width|&Two Pages|Thumb&nail"
End
End
Attribute VB_Name = "FRMF"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rs As Recordset
Dim STR As String
Dim SM As Long
Dim SMA As String
Dim s As String
Dim nmc As String
Dim intRecCount As Long
Dim intCounter As Long
Dim XSA As String
Dim 科目 As String
Dim qqq As Long
Dim ii As Long
Dim ASM As Long
Dim ASMA As String
Dim HAO As Long
Dim BAD As Long
Private Sub Combo1_Click()
On Error Resume Next
s = "select 学号,姓名,性别,班级,分数 from NHB nhb where 班级= " & Combo1 & " ORDER BY " & "" & Combo3.Text & " desc"
cmbSource
For III = 1 To VF.Rows - 1
VF.TextMatrix(III, 0) = III
Next
For qqq = 0 To VF.Cols - 1
VF.ColAlignment(qqq) = flexAlignCenterCenter
' VSFlexGrid1.CellAlignment = flexAlignCenterCenter
Next qqq
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 学号,姓名,性别,班级,分数 from NHB nhb where 班级= " & Combo1 & " ORDER BY " & "" & Combo3.Text & " desc"
cmbSource
For III = 1 To VF.Rows - 1
VF.TextMatrix(III, 0) = III
Next
For qqq = 0 To VF.Cols - 1
VF.ColAlignment(qqq) = flexAlignCenterCenter
' VSFlexGrid1.CellAlignment = flexAlignCenterCenter
Next qqq
End Sub
Private Sub Form_Load()
On Error Resume Next
Set db = OpenDatabase(MAIN.Cmd1.FileName)
Set rs = db.OpenRecordset("SELECT * FROM NAME")
nmc = rs![Name]
db.Close
cmbPercent.ListIndex = 0
cmbZoomMode.ListIndex = 3
With vp
.PaperSize = pprA4
.Orientation = orLandscape
.HdrColor = vbRed
End With
Combo3.ListIndex = 3
Skin1.ApplySkin Me.hwnd
If MAIN.Cmd1.FileName = "" Then MsgBox "数据未载入", 32, "无法操作": Exit Sub
Dim a
科目 = InputBox("请输入每一班级人数：(只能输入数字)", "班级智能分配")
If 科目 = "" Then
Exit Sub
Else
Set db = OpenDatabase(MAIN.Cmd1.FileName)
Set rs = db.OpenRecordset("SELECT COUNT(*) AS TOTAL FROM NHB")
SM = rs![TOTAL]
WATING.Show
DoEvents
WATING.Label1.Visible = False
WATING.Label2.Visible = True
WATING.PB.Visible = True
WATING.Label2.Caption = "引擎初始化"
WATING.PB.Max = SM
WATING.PB1.Max = SM
WATING.PB.Value = 0
DoEvents
Data1.DatabaseName = MAIN.Cmd1.FileName
Data1.RecordSource = "select * from NHB WHERE 性别='男' ORDER BY 分数"
Data1.Refresh
Data2.DatabaseName = MAIN.Cmd1.FileName
Data2.RecordSource = "select * from NHB WHERE 性别='男' ORDER BY 分数 DESC"
Data2.Refresh
Dim dbs As Database
Set dbs = OpenDatabase(App.Path & "\TT.INI")
SQLstr = "DELETE FROM NHB"
dbs.Execute SQLstr
dbs.Close
WATING.Label2.Caption = "收集男生数据"
Dim QQAA As Long
For QQAA = 1 To SM
Set dbs = OpenDatabase(App.Path & "\TT.INI")
SQLstr = "INSERT INTO NHB (学号,姓名,性别,分数,ID) VALUES('" & Text1(0).Text & "','" & Text2(0).Text & "','" & Text3(0).Text & "','" & Text4(0).Text & "','" & QQAA & "');"
dbs.Execute SQLstr
dbs.Close
DoEvents
Set dbs = OpenDatabase(App.Path & "\TT.INI")
SQLstr = "INSERT INTO NHB (学号,姓名,性别,分数,ID) VALUES('" & Text1(1).Text & "','" & Text2(1).Text & "','" & Text3(1).Text & "','" & Text4(1).Text & "','" & QQAA & "');"
dbs.Execute SQLstr
dbs.Close
WATING.PB.Value = QQAA
DoEvents
Data1.Recordset.MoveNext
DoEvents
Data2.Recordset.MoveNext
DoEvents
Next QQAA
DoEvents
'*********************************************************************8
Data1.DatabaseName = MAIN.Cmd1.FileName
Data1.RecordSource = "select * from NHB WHERE 性别='女' ORDER BY 分数"
Data1.Refresh
Data2.DatabaseName = MAIN.Cmd1.FileName
Data2.RecordSource = "select * from NHB WHERE 性别='女' ORDER BY 分数 DESC"
Data2.Refresh
Set db = OpenDatabase(MAIN.Cmd1.FileName)
Set rs = db.OpenRecordset("SELECT COUNT(*) AS TOTAL FROM NHB")
SM = rs![TOTAL]
WATING.Show
DoEvents
WATING.Label1.Visible = False
WATING.Label2.Visible = True
WATING.PB.Visible = True
WATING.Label2.Caption = "收集女生数据"
WATING.PB.Max = SM
WATING.PB1.Max = SM
WATING.PB.Value = 0
DoEvents
Dim QaQAA As Long
For QaQAA = 1 To SM
Set dbs = OpenDatabase(App.Path & "\TT.INI")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -