📄 frmtongji2.frm
字号:
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = "he"
Password = "he"
RecordSource = ""
Caption = "Adodc2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc8
Height = 330
Left = 8280
Top = 4320
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = "he"
Password = "he"
RecordSource = ""
Caption = "Adodc2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc9
Height = 330
Left = 9480
Top = 4320
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = "he"
Password = "he"
RecordSource = ""
Caption = "Adodc2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc10
Height = 330
Left = 10680
Top = 4320
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = "he"
Password = "he"
RecordSource = ""
Caption = "Adodc2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Attribute VB_Name = "frmtongji2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public printstr As String
Public str As String
Public str1 As String
Public md1 As Integer
Public md2 As Integer
Public md3 As Integer
Public md4 As Integer
Public md5 As Integer
Public md6 As Integer
Public md7 As Integer
Public md8 As Integer
Public md9 As Integer
Public md10 As Integer
Private Sub Cmd_Click()
Frame1.Visible = False
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Combo1.Visible = False
Combo2.Visible = False
Command1.Visible = False
Command2.Visible = False
Text1.Visible = False
Frame3.Visible = False
Label4.Visible = False
Label5.Visible = False
Command3.Visible = False
Text2.Visible = False
Text4.Visible = False
Command31.Visible = False
Command32.Visible = False
Frame4.Visible = False
Command4.Visible = False
Command5.Visible = False
Label6.Visible = False
Text3.Visible = False
If Option1.Value = True Then
Frame1.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Combo1.Visible = True
Combo2.Visible = True
Command1.Visible = True
Command2.Visible = True
Text1.Visible = True
End If
If Option2.Value = True Then
Frame3.Visible = True
Label4.Visible = True
Label5.Visible = True
Command3.Visible = True
Text2.Visible = True
Text4.Visible = True
End If
If Option3.Value = True Then
Frame3.Visible = True
Label4.Visible = True
Label5.Visible = True
Command31.Visible = True
Command32.Visible = True
Text2.Visible = True
Text4.Visible = True
End If
If Option4.Value = True Then
Adodc1.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select course.cname,course.teacher from course where course.cno in(select choose.cno from choose having count(*)=(select max(count(sno)) from choose group by cno)group by cno)"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = sql
Adodc1.Refresh
Set MSF1.DataSource = Adodc1
If Adodc1.Recordset.EOF = True Then
MsgBox "对不起，没有此课程的档案记录！", vbOKOnly, "查询"
frmtongji2.ZOrder (0)
Exit Sub
End If
End If
If Option5.Value = True Then
Adodc1.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select student.sno,student.name,course.cname from student,course where student.sno in(select choose.sno from choose having count(*)=(select max(count(*)) from choose group by sno) group by sno)"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = sql
Adodc1.Refresh
Set MSF1.DataSource = Adodc1
If Adodc1.Recordset.EOF = True Then
MsgBox "对不起，没有此课程的档案记录！", vbOKOnly, "查询"
frmtongji2.ZOrder (0)
Exit Sub
End If
End If
If Option6.Value = True Then
Adodc1.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select count(*) from choose where sno in(select choose.sno from choose having count(*)=1 group by sno)"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = sql
Adodc1.Refresh
Set MSF1.DataSource = Adodc1
If Adodc1.Recordset.EOF = True Then
MsgBox "对不起，没有此课程的档案记录！", vbOKOnly, "查询"
frmtongji2.ZOrder (0)
Exit Sub
End If
End If
If Option7.Value = True Then
Adodc1.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select student.sno,student.name,student.sex,student.age,student.dept,student.class from student where student.sno in(select choose.sno from choose having count(*)=1 group by sno)"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = sql
Adodc1.Refresh
Set MSF1.DataSource = Adodc1
If Adodc1.Recordset.EOF = True Then
MsgBox "对不起，没有此课程的档案记录！", vbOKOnly, "查询"
frmtongji2.ZOrder (0)
Exit Sub
End If
End If
If Option8.Value = True Then
Frame4.Visible = True
Command4.Visible = True
Command5.Visible = True
Label6.Visible = True
Text3.Visible = True
End If
If Option9.Value = True Then
Adodc1.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select count(*) from choose where grade in(select grade from choose where cno in(select cno from course where cname='Mathe') and grade<60)"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = sql
Adodc1.Refresh
frmtongji.md1 = Adodc1.Recordset.Fields(0)
Adodc2.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select count(*) from choose where grade in(select grade from choose where cno in(select cno from course where cname='Mathe') and grade between 60 and 70)"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = sql
Adodc2.Refresh
frmtongji.md2 = Adodc2.Recordset.Fields(0)
Adodc3.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select count(*) from choose where grade in(select grade from choose where cno in(select cno from course where cname='Mathe') and grade between 70 and 80)"
Adodc3.CommandType = adCmdText
Adodc3.RecordSource = sql
Adodc3.Refresh
frmtongji.md3 = Adodc3.Recordset.Fields(0)
Adodc4.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select count(*) from choose where grade in(select grade from choose where cno in(select cno from course where cname='Mathe') and grade between 80 and 90)"
Adodc4.CommandType = adCmdText
Adodc4.RecordSource = sql
Adodc4.Refresh
frmtongji.md4 = Adodc4.Recordset.Fields(0)
Adodc5.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select count(*) from choose where grade in(select grade from choose where cno in(select cno from course where cname='Mathe') and grade>90)"
Adodc5.CommandType = adCmdText
Adodc5.RecordSource = sql
Adodc5.Refresh
frmtongji.md5 = Adodc5.Recordset.Fields(0)
Adodc6.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select count(*) from choose where grade in(select grade from choose where cno in(select cno from course where cname='English') and grade<60)"
Adodc6.CommandType = adCmdText
Adodc6.RecordSource = sql
Adodc6.Refresh
frmtongji.md6 = Adodc6.Recordset.Fields(0)
Adodc7.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select count(*) from choose where grade in(select grade from choose where cno in(select cno from course where cname='English') and grade between 60 and 70)"
Adodc7.CommandType = adCmdText
Adodc7.RecordSource = sql
Adodc7.Refresh
frmtongji.md7 = Adodc7.Recordset.Fields(0)
Adodc8.ConnectionString = "Provider=MSDAORA.1;User ID=he;Persist Security Info=False"
sql = "select count(*) from choose where grade in(select grade from choose where cno in(select cno from course where cname='English') and grade between 70 and 80)"
Adodc8.CommandType = adCmdText
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -