📄 frmstart.frm
字号:
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 = 14540253
WallPaperAlignment= 9
End
Begin VB.Image Image2
Appearance = 0 'Flat
Height = 1035
Left = 4080
Picture = "frmStart.frx":1286
Stretch = -1 'True
Top = 0
Width = 1065
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "程序正在载入中...."
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 1140
TabIndex = 0
Top = 360
Width = 2925
End
Begin VB.Image Image1
Appearance = 0 'Flat
Height = 1140
Left = 120
Picture = "frmStart.frx":46D4
Stretch = -1 'True
Top = 60
Width = 1035
End
End
Attribute VB_Name = "frmStart"
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 lo As String
Dim HJZF As String
Dim dbss As Database
Dim rstt As Recordset
Private Sub Command1_Click()
On Error Resume Next
Set db = OpenDatabase(MAIN.CMD2.filename)
Set rs = db.OpenRecordset("科目")
rs.MoveLast
intRecCount = rs.RecordCount
rs.MoveFirst
For intCounter = 1 To intRecCount
Text2.Text = rs![科目]
rs.MoveNext
Label1.Caption = "正在处理 " & Text2.Text & " 年级名次"
DoEvents
Data1.DatabaseName = MAIN.CMD2.filename
Data1.RecordSource = "select " & Text2.Text & "," & Text2.Text & "年级名次 from 学生 ORDER BY " & Text2.Text & " desc"
Data1.Refresh
Dim III As Long
For III = 1 To VSFlexGrid1.Rows - 1
VSFlexGrid1.TextMatrix(III, 2) = III
If VSFlexGrid1.TextMatrix(III, 1) = VSFlexGrid1.TextMatrix(III - 1, 1) Then VSFlexGrid1.TextMatrix(III, 2) = VSFlexGrid1.TextMatrix(III - 1, 2)
Next
'‘+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Set DBS = OpenDatabase(MAIN.CMD2.filename)
Set RST = DBS.OpenRecordset("班级")
RST.MoveLast
intR = RST.RecordCount
RST.MoveFirst
For intC = 1 To intR
Text3.Text = RST![班级]
RST.MoveNext
Label1.Caption = "正在处理 " & Text2.Text & " " & Text3.Text & "班名次"
DoEvents
Data1.DatabaseName = MAIN.CMD2.filename
Data1.RecordSource = "select " & Text2.Text & "," & Text2.Text & "班级名次 from 学生 WHERE 班级=" & Text3.Text & " ORDER BY " & Text2.Text & " desc"
Data1.Refresh
Dim AI As Long
For AI = 1 To VSFlexGrid1.Rows - 1
VSFlexGrid1.TextMatrix(AI, 2) = AI
If VSFlexGrid1.TextMatrix(AI, 1) = VSFlexGrid1.TextMatrix(AI - 1, 1) Then VSFlexGrid1.TextMatrix(AI, 2) = VSFlexGrid1.TextMatrix(AI - 1, 2)
Next
Next intC
'‘+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Next intCounter
DoEvents
Label1.Caption = "正在处理总分年级名次"
Data1.DatabaseName = MAIN.CMD2.filename
Data1.RecordSource = "select 总分,总分年级名次 from 学生 ORDER BY 总分 desc"
Data1.Refresh
Dim AIA As Long
For AIA = 1 To VSFlexGrid1.Rows - 1
VSFlexGrid1.TextMatrix(AIA, 2) = AIA
If VSFlexGrid1.TextMatrix(AIA, 1) = VSFlexGrid1.TextMatrix(AIA - 1, 1) Then VSFlexGrid1.TextMatrix(AIA, 2) = VSFlexGrid1.TextMatrix(AIA - 1, 2)
Next
Set DBS = OpenDatabase(MAIN.CMD2.filename)
Set RST = DBS.OpenRecordset("班级")
RST.MoveLast
intR = RST.RecordCount
RST.MoveFirst
For intC = 1 To intR
Text4.Text = RST![班级]
RST.MoveNext
DoEvents
Label1.Caption = "正在处理 " & Text4.Text & " 班总分名次"
DoEvents
Data1.DatabaseName = MAIN.CMD2.filename
Data1.RecordSource = "select 总分,总分班级名次 from 学生 WHERE 班级=" & Text4.Text & " ORDER BY 总分 desc"
Data1.Refresh
Dim AIQ As Long
For AIQ = 1 To VSFlexGrid1.Rows - 1
VSFlexGrid1.TextMatrix(AIQ, 2) = AIQ
If VSFlexGrid1.TextMatrix(AIQ, 1) = VSFlexGrid1.TextMatrix(AIQ - 1, 1) Then VSFlexGrid1.TextMatrix(AIQ, 2) = VSFlexGrid1.TextMatrix(AIQ - 1, 2)
Next
Next intC
End Sub
Private Sub Command2_Click()
Dim DBS As Database
Dim RSA As Recordset
Dim lo As String
Dim SQLSTR As String
Dim RSAA As Recordset
Dim MAXF As Single
Dim MINF As Single
Dim AVGF As Single
Dim SUMF As Single
Dim MAXFa As Single
Dim MINFa As Single
Dim AVGFa As Single
Dim SUMFa As Single
Dim BJRSS As Single
Dim MF As Single
Dim mfa As Single
Dim YMF As Single
Dim LMF As Single
Dim JMF As Single
Dim NJMF As Single
Dim YMFS As Single
Dim LMFS As Single
Dim JMFS As Single
Dim NJMFS As Single
On Error Resume Next
DoEvents
Label1.Caption = "正在分析数据库......"
DoEvents
' On Error GoTo 32755
Set db = OpenDatabase(MAIN.CMD2.filename)
SQLSTR = "DELETE * from 分析表"
db.Execute SQLSTR
db.Close
Set db = OpenDatabase(MAIN.CMD2.filename)
Set rs = db.OpenRecordset("SELECT * FROM COM WHERE 标记='总分'")
Text11 = rs![代码] '取出所有科目总分
'##############################################################################################
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString("三项之和", "平均", Text22.Text, buff, 256, App.Path & "\SET.ini")
'若.ini MyApp中无Text11，则采用叁数三的值
Text22.Text = buff
Dim retA As Long
Dim buffA As String
buffA = String(255, 0)
retA = GetPrivateProfileString("三项之和", "优秀", Text33.Text, buffA, 256, App.Path & "\SET.ini")
'若.ini MyApp中无Text11，则采用叁数三的值
Text33.Text = buffA
Dim retB As Long
Dim buffB As String
buffB = String(255, 0)
retB = GetPrivateProfileString("三项之和", "及格", Text44.Text, buffB, 256, App.Path & "\SET.ini")
'若.ini MyApp中无Text11，则采用叁数三的值
Text44.Text = buffB
Dim retV As Long
Dim buffV As String
buffV = String(255, 0)
retV = GetPrivateProfileString("百分数设置", "优秀率", Text55.Text, buffV, 256, App.Path & "\SET.ini")
'若.ini MyApp中无Text11，则采用叁数三的值
Text55.Text = buffV
Dim retD As Long
Dim buffD As String
buffD = String(255, 0)
retD = GetPrivateProfileString("百分数设置", "良好率", Text6.Text, buffD, 256, App.Path & "\SET.ini")
'若.ini MyApp中无Text11，则采用叁数三的值
Text6.Text = buffD
Dim retE As Long
Dim buffE As String
buffE = String(255, 0)
retE = GetPrivateProfileString("百分数设置", "及格率", Text7.Text, buffE, 256, App.Path & "\SET.ini")
'若.ini MyApp中无Text11，则采用叁数三的值
Text7.Text = buffE
Set db = OpenDatabase(MAIN.CMD2.filename)
Set rs = db.OpenRecordset("SELECT * FROM COM WHERE 标记='分数输出'")
lo = rs![代码]
'以下代码将取出COM中的载入数据中的代码信息,供下表格输入
Data1.DatabaseName = MAIN.CMD2.filename
Data1.RecordSource = "分析表"
Data1.Refresh
Dim DBDB As Database
Dim RSRS As Recordset
Set DBDB = OpenDatabase(MAIN.CMD2.filename)
Set RSRS = DBDB.OpenRecordset("SELECT * FROM COM WHERE 标记='总分'")
mfa = RSRS![代码]
DBDB.Close
Combo1.Text = ""
Combo2.Text = ""
'##############################################################################################
'##############################################################################################
Set db = OpenDatabase(MAIN.CMD2.filename)
Set rs = db.OpenRecordset("科目")
rs.MoveLast
intRecCount = rs.RecordCount
rs.MoveFirst
For intCounter = 1 To intRecCount
Combo2.Text = rs![科目]
rs.MoveNext
Set DBDB = OpenDatabase(App.Path & "\SET.PAS")
Set RSRS = DBDB.OpenRecordset("SELECT * FROM 科目 WHERE 科目='" & Combo2.Text & "'")
MF = RSRS![卷面满分]
Set db = OpenDatabase(MAIN.CMD2.filename)
Set RSA = db.OpenRecordset("班级")
RSA.MoveLast
intR = RSA.RecordCount
RSA.MoveFirst
For intC = 1 To intR
Combo1.Text = RSA![班级]
RSA.MoveNext '此处加载班级
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -