📄 frmsc.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form frmSc
BackColor = &H80000005&
Caption = "课程管理"
ClientHeight = 8625
ClientLeft = 60
ClientTop = 345
ClientWidth = 11820
Icon = "frmSc.frx":0000
MDIChild = -1 'True
ScaleHeight = 8625
ScaleWidth = 11820
WindowState = 2 'Maximized
Begin VB.Frame Frame1
BackColor = &H80000005&
BorderStyle = 0 'None
Height = 8055
Left = 360
TabIndex = 0
Top = 240
Width = 11055
Begin VB.Frame FrameFind
BackColor = &H80000005&
Caption = "查询(&Q)"
Height = 1215
Left = 720
TabIndex = 19
Top = 120
Width = 9615
Begin VB.CommandButton cmdFind
BackColor = &H80000005&
Caption = "查找(&F)"
Height = 375
Left = 7080
Style = 1 'Graphical
TabIndex = 23
Top = 480
Width = 1455
End
Begin VB.TextBox TxtKeyword
Enabled = 0 'False
Height = 270
Left = 3600
TabIndex = 21
Text = "TxtKeyword"
Top = 600
Width = 2535
End
Begin VB.ComboBox cobFind
Height = 300
Left = 960
Style = 2 'Dropdown List
TabIndex = 20
Top = 600
Width = 1815
End
Begin VB.Label lbFind
BackColor = &H80000005&
Caption = "选择查询方式，输入关键字："
Height = 255
Left = 960
TabIndex = 22
Top = 240
Width = 3615
End
End
Begin VB.Frame FrameScAdmin
BackColor = &H80000005&
Caption = "管理选课信息(&N)"
Height = 2295
Left = 720
TabIndex = 4
Top = 1920
Width = 9615
Begin VB.ComboBox cobSno
Height = 300
Left = 1800
Style = 2 'Dropdown List
TabIndex = 12
Top = 360
Width = 1455
End
Begin VB.ComboBox cobCno
Height = 300
Left = 1800
Style = 2 'Dropdown List
TabIndex = 11
Top = 840
Width = 1455
End
Begin VB.TextBox TxtGrade
Height = 270
Left = 1800
TabIndex = 10
Text = "TxtGrade"
Top = 1320
Width = 1095
End
Begin VB.CommandButton cmdClear
BackColor = &H80000005&
Caption = "清除(&C)"
Height = 375
Left = 7080
Style = 1 'Graphical
TabIndex = 9
Top = 360
Width = 1335
End
Begin VB.CommandButton cmdSave
BackColor = &H80000005&
Caption = "添加/修改(&S)"
Height = 375
Left = 7080
Style = 1 'Graphical
TabIndex = 8
Top = 840
Width = 1335
End
Begin VB.CommandButton cmdDel
BackColor = &H80000005&
Caption = "删除(&D)"
Height = 375
Left = 7080
Style = 1 'Graphical
TabIndex = 7
Top = 1320
Width = 1335
End
Begin VB.CommandButton cmdExit
BackColor = &H80000005&
Caption = "退出(&X)"
Height = 375
Left = 7080
Style = 1 'Graphical
TabIndex = 6
Top = 1800
Width = 1335
End
Begin VB.ComboBox cobGrade
Height = 300
Left = 3480
TabIndex = 5
Text = "cobGrade "
Top = 1320
Visible = 0 'False
Width = 1455
End
Begin VB.Label Label1
BackColor = &H80000005&
Caption = "学生学号"
Height = 255
Left = 600
TabIndex = 18
Top = 360
Width = 855
End
Begin VB.Label Label2
BackColor = &H80000005&
Caption = "课程编号"
Height = 255
Left = 600
TabIndex = 17
Top = 840
Width = 855
End
Begin VB.Label Label3
BackColor = &H80000005&
Caption = "成绩"
Height = 255
Left = 600
TabIndex = 16
Top = 1320
Width = 855
End
Begin VB.Label lbSname
BackColor = &H80000005&
Caption = "lbSname"
Height = 255
Left = 3480
TabIndex = 15
Top = 360
Width = 3015
End
Begin VB.Label lbCname
BackColor = &H80000005&
Caption = "lbCname"
Height = 255
Left = 3480
TabIndex = 14
Top = 840
Width = 3015
End
Begin VB.Label lbGrade
BackColor = &H80000005&
Caption = "lbGrade"
ForeColor = &H00808080&
Height = 255
Left = 1800
TabIndex = 13
Top = 1800
Width = 4575
End
End
Begin VB.Frame FrameScView
BackColor = &H80000005&
Caption = "选课信息(&V)"
Height = 3375
Left = 720
TabIndex = 1
Top = 4560
Width = 9615
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2055
Left = 360
TabIndex = 2
Top = 480
Width = 8535
_ExtentX = 15055
_ExtentY = 3625
_Version = 393216
Cols = 5
BackColor = 12648384
ForeColor = 16744703
BackColorFixed = 12640511
ForeColorFixed = 14737632
BackColorSel = 14737632
ForeColorSel = 0
BackColorBkg = 16777215
GridColor = 14737632
HighLight = 2
GridLinesFixed = 1
AllowUserResizing= 1
BorderStyle = 0
Appearance = 0
End
Begin VB.Label lbScounts
BackColor = &H80000005&
Caption = "lbScounts"
Height = 255
Left = 480
TabIndex = 3
Top = 2880
Width = 2655
End
End
End
End
Attribute VB_Name = "frmSc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As New ADODB.Recordset
Dim SQL As String
Dim strCno As String
Dim strSno As String
Dim strCname As String
Dim strSname As String
Dim strGrade As String
Dim gRow As Integer
Private Sub cmdFind_Click()
Dim strFieldName As String
'检查是否存在该课程数据
If TxtKeyword.Text = "" Then
MsgBox "关键字不能为空！", vbOKOnly + vbInformation, "提示"
TxtKeyword.Enabled = True
TxtKeyword.SetFocus
Exit Sub
End If
Select Case cobFind.ListIndex
Case 1:
strFieldName = "cno"
SQL = "select jc_s.sno,jc_s.sname,jc_c.cno,jc_c.cname,jc_sc.grade from jc_s,jc_c,jc_sc where jc_sc." & strFieldName & " like '%" & TxtKeyword.Text & "%' and jc_sc.cno=jc_c.cno "
Case 0: strFieldName = "sno"
SQL = "select jc_s.sno,jc_s.sname,jc_c.cno,jc_c.cname,jc_sc.grade from jc_s,jc_c,jc_sc where jc_sc.sno=jc_s.sno and jc_sc." & strFieldName & " like '%" & TxtKeyword.Text & "%' "
Case Else: strFieldName = "cno"
End Select
MsgBox SQL
On Error Resume Next
Set rs = cnn.Execute(SQL)
Call Data_Display
SQL = "select count(sno) as scnums from jc_sc where " & strFieldName & " like '%" & TxtKeyword.Text & "%'"
getRecordsNums SQL
End Sub
Private Sub cobFind_Change()
Call cobFind_Click
End Sub
Private Sub cmdClear_Click()
Call Clear
End Sub
Private Sub Clear()
cobGrade.Text = ""
TxtGrade.Text = ""
TxtKeyword.Text = ""
lbScounts.Caption = ""
lbSname.Caption = ""
lbCname.Caption = ""
lbGrade.Caption = ""
Call Data_Display
End Sub
Private Sub cmdDel_Click()
Dim isOk As Integer
If cobSno.Text = "" Or cobCno.Text = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -