📄 formscoreanalys.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmScoreAnalys
BorderStyle = 1 'Fixed Single
Caption = "成绩分析"
ClientHeight = 6255
ClientLeft = 45
ClientTop = 435
ClientWidth = 9765
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6255
ScaleWidth = 9765
StartUpPosition = 1 '所有者中心
Begin TabDlg.SSTab SSTab1
Height = 5295
Left = 720
TabIndex = 0
Top = 480
Width = 8295
_ExtentX = 14631
_ExtentY = 9340
_Version = 393216
Tabs = 2
Tab = 1
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "个人成绩查询分析"
TabPicture(0) = "FormScoreAnalys.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Label2"
Tab(0).Control(1)= "Label1"
Tab(0).Control(2)= "Label3"
Tab(0).Control(3)= "Label4"
Tab(0).Control(4)= "dataStudent"
Tab(0).Control(5)= "cmdQuit"
Tab(0).Control(6)= "cmdOK"
Tab(0).Control(7)= "txtName"
Tab(0).Control(8)= "txtStudentID"
Tab(0).Control(9)= "dataScoreTab"
Tab(0).Control(10)= "DBGrid1"
Tab(0).Control(11)= "dataScore"
Tab(0).Control(12)= "DBGrid2"
Tab(0).Control(13)= "dataFail"
Tab(0).ControlCount= 14
TabCaption(1) = "课程成绩查询分析"
TabPicture(1) = "FormScoreAnalys.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label5"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label6"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label7"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label8"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label9"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Label10"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Label11"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Label12"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "Label13"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "cmdOK1"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "cmdQuit1"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).Control(11)= "txtMaxScore"
Tab(1).Control(11).Enabled= 0 'False
Tab(1).Control(12)= "txtMinScore"
Tab(1).Control(12).Enabled= 0 'False
Tab(1).Control(13)= "dataCourse"
Tab(1).Control(13).Enabled= 0 'False
Tab(1).Control(14)= "txtCourseName"
Tab(1).Control(14).Enabled= 0 'False
Tab(1).Control(15)= "txtCourseID"
Tab(1).Control(15).Enabled= 0 'False
Tab(1).Control(16)= "dataMaxMinAvgZrs"
Tab(1).Control(16).Enabled= 0 'False
Tab(1).Control(17)= "txtAvgScore"
Tab(1).Control(17).Enabled= 0 'False
Tab(1).Control(18)= "txtPeople"
Tab(1).Control(18).Enabled= 0 'False
Tab(1).Control(19)= "txtFailPeople"
Tab(1).Control(19).Enabled= 0 'False
Tab(1).Control(20)= "dataFail1"
Tab(1).Control(20).Enabled= 0 'False
Tab(1).Control(21)= "txtRate"
Tab(1).Control(21).Enabled= 0 'False
Tab(1).Control(22)= "dataAll"
Tab(1).Control(22).Enabled= 0 'False
Tab(1).Control(23)= "DBGrid3"
Tab(1).Control(23).Enabled= 0 'False
Tab(1).ControlCount= 24
Begin MSDBGrid.DBGrid DBGrid3
Bindings = "FormScoreAnalys.frx":0038
Height = 1815
Left = 720
OleObjectBlob = "FormScoreAnalys.frx":004E
TabIndex = 30
Top = 3120
Width = 7095
End
Begin VB.Data dataAll
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 3120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = $"FormScoreAnalys.frx":231D
Top = 1440
Width = 1140
End
Begin VB.TextBox txtRate
DataField = "Avg"
DataSource = "dataMaxMinAvg"
Height = 375
Left = 6600
MaxLength = 5
TabIndex = 29
Text = "Text1"
Top = 2400
Width = 1215
End
Begin VB.Data dataFail1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 4200
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "SELECT Count(*) as Bjg FROM Scores WHERE Score<60 AND CourseID = "" & txtCourseID1.Text & """
Top = 1560
Width = 1140
End
Begin VB.TextBox txtFailPeople
DataField = "Bjg"
DataSource = "dataFail1"
Height = 375
Left = 4080
MaxLength = 5
TabIndex = 27
Text = "Text1"
Top = 2400
Width = 1215
End
Begin VB.TextBox txtPeople
DataField = "Zrs"
DataSource = "dataMaxMinAvgZrs"
Height = 375
Left = 1320
MaxLength = 5
TabIndex = 26
Text = "Text1"
Top = 2400
Width = 1215
End
Begin VB.TextBox txtAvgScore
DataField = "Avg"
DataSource = "dataMaxMinAvgZrs"
Height = 375
Left = 6600
MaxLength = 5
TabIndex = 23
Text = "Text1"
Top = 1920
Width = 1215
End
Begin VB.Data dataMaxMinAvgZrs
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 480
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = $"FormScoreAnalys.frx":23F0
Top = 1560
Visible = 0 'False
Width = 1140
End
Begin VB.TextBox txtCourseID
DataField = "CourseID"
DataSource = "dataScore"
Height = 375
Left = 2160
MaxLength = 10
TabIndex = 21
Text = "Text1"
Top = 720
Width = 2055
End
Begin VB.TextBox txtCourseName
DataField = "CourseName"
DataSource = "dataCourse"
Height = 375
Left = 5520
MaxLength = 50
TabIndex = 20
Text = "Text1"
Top = 720
Width = 2055
End
Begin VB.Data dataCourse
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 480
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Course"
Top = 1200
Visible = 0 'False
Width = 1140
End
Begin VB.TextBox txtMinScore
DataField = "Min"
DataSource = "dataMaxMinAvgZrs"
Height = 375
Left = 4080
MaxLength = 5
TabIndex = 18
Text = "Text1"
Top = 1920
Width = 1215
End
Begin VB.TextBox txtMaxScore
DataField = "Max"
DataSource = "dataMaxMinAvgZrs"
Height = 375
Left = 1320
MaxLength = 5
TabIndex = 17
Text = "Text1"
Top = 1920
Width = 1215
End
Begin VB.CommandButton cmdQuit1
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 14
Top = 1320
Width = 735
End
Begin VB.CommandButton cmdOK1
Caption = "查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2160
TabIndex = 13
Top = 1320
Width = 735
End
Begin VB.Data dataFail
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = -69120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = $"FormScoreAnalys.frx":2477
Top = 3360
Visible = 0 'False
Width = 1695
End
Begin MSDBGrid.DBGrid DBGrid2
Bindings = "FormScoreAnalys.frx":2525
Height = 1215
Left = -74400
OleObjectBlob = "FormScoreAnalys.frx":253C
TabIndex = 8
Top = 3720
Width = 6975
End
Begin VB.Data dataScore
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = -72000
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Scores"
Top = 1200
Visible = 0 'False
Width = 1380
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "FormScoreAnalys.frx":3C53
Height = 1335
Left = -74400
OleObjectBlob = "FormScoreAnalys.frx":3C6E
TabIndex = 7
Top = 1920
Width = 6975
End
Begin VB.Data dataScoreTab
Caption = "Data2"
Connect = "Access 2000;"
DatabaseName = "C:\Program Files\StudentMIS\StudentMIS.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = -68160
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = $"FormScoreAnalys.frx":5381
Top = 1440
Width = 1215
End
Begin VB.TextBox txtStudentID
DataField = "StudentID"
DataSource = "dataScore"
Height = 375
Left = -73680
MaxLength = 8
TabIndex = 4
Text = "Text1"
Top = 600
Width = 2055
End
Begin VB.TextBox txtName
DataField = "Name"
DataSource = "dataStudent"
Height = 375
Left = -70080
MaxLength = 10
TabIndex = 3
Text = "Text1"
Top = 600
Width = 2055
End
Begin VB.CommandButton cmdOK
Caption = "查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -73440
TabIndex = 2
Top = 1200
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -