📄 form10.frm
字号:
Width = 855
End
Begin VB.Label Label14
BackColor = &H80000009&
Caption = "实践学时"
Height = 375
Left = 5520
TabIndex = 17
Top = 960
Width = 855
End
Begin VB.Label Label15
BackColor = &H80000009&
Caption = "先修课"
Height = 375
Left = 6840
TabIndex = 16
Top = 960
Width = 615
End
Begin VB.Label Label16
BackColor = &H80000009&
Caption = "学号"
Height = 375
Left = 600
TabIndex = 15
Top = 1560
Width = 855
End
Begin VB.Label Label17
BackColor = &H80000009&
Caption = "课程号"
Height = 375
Left = 1920
TabIndex = 14
Top = 1560
Width = 855
End
Begin VB.Label Label18
BackColor = &H80000009&
Caption = "成绩"
Height = 375
Left = 3120
TabIndex = 13
Top = 1560
Width = 855
End
End
Begin VB.CommandButton Command2
BackColor = &H8000000E&
Height = 615
Left = 4560
Picture = "Form10.frx":2CADD
Style = 1 'Graphical
TabIndex = 10
Top = 5640
Width = 1215
End
Begin VB.CommandButton Command1
BackColor = &H8000000E&
Height = 615
Left = 1800
Picture = "Form10.frx":2F96A
Style = 1 'Graphical
TabIndex = 9
Top = 5640
Width = 1215
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
Caption = "请输入字段值"
ForeColor = &H80000008&
Height = 3015
Left = 120
TabIndex = 0
Top = 240
Width = 7575
Begin MSDataListLib.DataCombo DataCombo1
Height = 330
Left = 1200
TabIndex = 5
Top = 360
Width = 2175
_ExtentX = 3836
_ExtentY = 582
_Version = 393216
Text = ""
End
Begin MSDataListLib.DataCombo DataCombo2
Height = 330
Left = 1200
TabIndex = 6
Top = 1080
Width = 2175
_ExtentX = 3836
_ExtentY = 582
_Version = 393216
Text = ""
End
Begin MSDataListLib.DataCombo DataCombo3
Height = 330
Left = 1200
TabIndex = 7
Top = 1680
Width = 4935
_ExtentX = 8705
_ExtentY = 582
_Version = 393216
Text = ""
End
Begin MSDataListLib.DataCombo DataCombo4
Height = 330
Left = 1200
TabIndex = 8
Top = 2400
Width = 4935
_ExtentX = 8705
_ExtentY = 582
_Version = 393216
Text = ""
End
Begin VB.Label Label4
BackColor = &H80000009&
Caption = "系名称："
Height = 375
Left = 240
TabIndex = 4
Top = 2520
Width = 975
End
Begin VB.Label Label3
BackColor = &H80000009&
Caption = "课程名称："
Height = 375
Left = 240
TabIndex = 3
Top = 1800
Width = 975
End
Begin VB.Label Label2
BackColor = &H80000009&
Caption = "班级："
Height = 375
Left = 240
TabIndex = 2
Top = 1080
Width = 975
End
Begin VB.Label Label1
BackColor = &H80000009&
Caption = "姓名："
Height = 375
Left = 240
TabIndex = 1
Top = 360
Width = 975
End
End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim S1 As String, S2 As String, S21 As String, S22 As String, S23 As String, S3 As String, strsql As String
Dim disp1 As Boolean, disp2 As Boolean, disp3 As Boolean
disp1 = False
disp2 = False
disp3 = False
If DataCombo1.Enabled Then
S1 = "学生基本信息.姓名 like '" & Trim(DataCombo1.Text) & "%'"
disp1 = True
ElseIf DataCombo2.Enabled Then
S1 = "学生基本信息.班级 like '" & Trim(DataCombo2.Text) & "%'"
disp1 = True
ElseIf DataCombo3.Enabled Then
S1 = "课程表.课程名称 like '" & Trim(DataCombo3.Text) & "%'"
disp2 = True
Else
S1 = "学生基本信息.所在系 like '" & Trim(DataCombo4.Text) & "%'"
disp1 = True
End If
For i = 0 To 4
If Check1(i).Value = 1 Then
S21 = S21 & "学生基本信息." & Check1(i).Caption & ","
disp1 = True
End If
Next i
For i = 0 To 5
If Check2(i).Value = 1 Then
S22 = S22 & "课程表." & Check2(i).Caption & ","
disp2 = True
End If
Next i
For i = 0 To 2
If Check3(i).Value = 1 Then
S23 = S23 & "学生选课." & Check3(i).Caption & ","
disp3 = True
End If
Next i
S2 = S21 & S22 & S23
If Right(S2, 1) = "," Then
S2 = Left(S2, Len(S2) - 1)
End If
If S2 = "" Then
MsgBox "请选择所需要的信息"
Exit Sub
End If
If disp1 And Not disp2 And Not disp3 Then
S3 = "学生基本信息"
ElseIf Not disp1 And disp2 And Not disp3 Then
S3 = "课程表"
ElseIf Not disp1 And Not disp2 And disp3 Then
S3 = "学生选课"
ElseIf disp1 And disp2 And Not disp3 Then
S3 = "学生基本信息 inner join 学生选课 on 学生基本信息.学号= 学生选课.学号 inner join 课程表 on 学生选课.课程号= 课程表.课程号"
ElseIf disp1 And disp3 And Not disp2 Then
S3 = "学生基本信息 inner join 学生选课 on 学生基本信息.学号=学生选课.学号"
ElseIf disp3 And disp2 And Not disp1 Then
S3 = "课程表 inner join 学生选课 on 课程表.课程号=学生选课.课程号"
ElseIf disp1 And disp2 And disp3 Then
S3 = "学生基本信息 inner join 学生选课 on 学生基本信息.学号= 学生选课.学号 inner join 课程表 on 学生选课.课程号= 课程表.课程号"
End If
strsql = "select" & Space(1) & S2 & Space(1) & "from" & Space(1) & S3 & Space(1) & "where" & Space(1) & S1
If myrs.State = adStateOpen Then
myrs.Close
End If
myrs.Open strsql, mycon, adOpenStatic, adLockOptimistic, adCmdText
Form11.Show
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -