📄 formscoreanalys.frm
字号:
Width = 735
End
Begin VB.CommandButton cmdQuit
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -69840
TabIndex = 1
Top = 1200
Width = 735
End
Begin VB.Data dataStudent
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = -68640
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Student"
Top = 1080
Visible = 0 'False
Width = 1215
End
Begin VB.Label Label13
Caption = "合格率%"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5640
TabIndex = 28
Top = 2400
Width = 735
End
Begin VB.Label Label12
Caption = "不及格人数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2760
TabIndex = 25
Top = 2400
Width = 1215
End
Begin VB.Label Label11
Caption = "总人数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 24
Top = 2400
Width = 735
End
Begin VB.Label Label10
Caption = "平均分"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5640
TabIndex = 22
Top = 1920
Width = 735
End
Begin VB.Label Label9
Caption = "最低分"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3120
TabIndex = 19
Top = 1920
Width = 735
End
Begin VB.Label Label8
Caption = "最高分"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 16
Top = 1920
Width = 735
End
Begin VB.Label Label7
Caption = "所有学生成绩"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 600
TabIndex = 15
Top = 2880
Width = 1335
End
Begin VB.Label Label6
Caption = "请输入课程编号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 12
Top = 720
Width = 1575
End
Begin VB.Label Label5
Caption = "课程名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4440
TabIndex = 11
Top = 720
Width = 855
End
Begin VB.Label Label4
Caption = "不合格成绩"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74520
TabIndex = 10
Top = 3360
Width = 1095
End
Begin VB.Label Label3
Caption = "全部成绩"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74520
TabIndex = 9
Top = 1680
Width = 855
End
Begin VB.Label Label1
Caption = "请输入学号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74760
TabIndex = 6
Top = 600
Width = 1095
End
Begin VB.Label Label2
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -70800
TabIndex = 5
Top = 600
Width = 495
End
End
End
Attribute VB_Name = "frmScoreAnalys"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
'strSQL = "SELECT * FROM Student , Class ,Department "
'txtStudentID.Text = " SELECT * FROM Student WHERE StudentID = '" & txtStudent.Text & "'"
If txtName.Text = "" Then
MsgBox "不存在这个学生！", , "学号输入错误"
txtStudentID.SetFocus
Exit Sub
End If
'dataScoreTab.RecordSource = "SELECT * FROM Scores WHERE StudentID = '" & txtStudentID.Text & "'"
dataScoreTab.RecordSource = "SELECT *,Course.CourseName,Course.Teacher FROM Scores,Course WHERE Scores.StudentID = '" & txtStudentID.Text & "' AND Scores.CourseID = Course.CourseID"
dataFail.RecordSource = "SELECT *,Course.CourseName,Course.Teacher FROM Scores,Course WHERE Scores.StudentID = '" & txtStudentID.Text & "' AND Scores.Score <60 AND Scores.CourseID = Course.CourseID"
'dataScoreTab.RecordSource = " SELECT Scores.CourseID,Scores.Score,Course.CourseName FROM Scores,Course WHERE Scores.CourseID=Course.CourseID AND Scores.StudentID = '" & txtStudentID.Text & "'"
'dataAll.RecordSource = "SELECT CourseSelect.StudentID, Course.CourseID,Student.Name FROM CourseSelect,Course,Student WHERE CourseSelect.CourseID = '" & txtCourseID.Text & "' AND Course.CourseID = '" & txtCourseID.Text & "' AND Student.StudentID=CourseSelect.StudentID"
'strSQL = "SELECT * FROM Student WHERE
dataScoreTab.Refresh
dataFail.Refresh
'dataAll.Refresh
End Sub
Private Sub cmdOK1_Click()
If txtCourseName.Text = "" Then
MsgBox "不存在此课程！"
Exit Sub
End If
dataMaxMinAvgZrs.RecordSource = "SELECT Max(Score) as Max,Count(*) as Zrs,Min(Score) as Min,Avg(Score) as Avg FROM Scores WHERE CourseID = '" & txtCourseID.Text & "'"
dataFail1.RecordSource = "SELECT Count(*) as Bjg FROM Scores WHERE Score<60 AND CourseID = '" & txtCourseID.Text & "'"
dataAll.RecordSource = "SELECT *,Course.CourseName,Course.Teacher,Student.Name FROM Scores,Course,Student WHERE Scores.CourseID = '" & txtCourseID.Text & "' AND Scores.CourseID = Course.CourseID AND Student.StudentID=Scores.StudentID"
dataMaxMinAvgZrs.Refresh
dataFail1.Refresh
dataAll.Refresh
If txtPeople.Text = 0 Then
Exit Sub
End If
txtRate.Text = Int((txtPeople.Text - txtFailPeople.Text) / txtPeople.Text * 1000) / 10
End Sub
Private Sub cmdQuit_Click()
Unload Me
End Sub
Private Sub cmdQuit1_Click()
Unload Me
End Sub
Private Sub Form_Load()
dataStudent.DatabaseName = App.Path & "\StudentMIS.mdb"
dataScoreTab.DatabaseName = App.Path & "\StudentMIS.mdb"
dataFail.DatabaseName = App.Path & "\StudentMIS.mdb"
dataCourse.DatabaseName = App.Path & "\StudentMIS.mdb"
dataMaxMinAvgZrs.DatabaseName = App.Path & "\StudentMIS.mdb"
dataFail1.DatabaseName = App.Path & "\StudentMIS.mdb"
dataAll.DatabaseName = App.Path & "\StudentMIS.mdb"
dataCourse.Visible = False
dataMaxMinAvgZrs.Visible = False
dataFail1.Visible = False
dataAll.Visible = False
dataFail.Visible = False
'dataAll.DatabaseName = App.Path & "\StudentMIS.mdb"
'dataAll.Visible = False
dataScoreTab.Visible = False
dataStudent.Visible = False
txtCourseID.Text = ""
End Sub
Private Sub txtCourseID_Change()
strSQL = "SELECT * FROM Course WHERE CourseID = '" & txtCourseID.Text & "'"
dataCourse.RecordSource = strSQL
dataCourse.Refresh
End Sub
Private Sub txtStudentID_Change()
strSQL = "SELECT * FROM Student WHERE StudentID ='" & txtStudentID.Text & "'"
dataStudent.RecordSource = strSQL
dataStudent.Refresh
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -