📄 frmscadd.frm
字号:
VERSION 5.00
Begin VB.Form frmScAdd
BackColor = &H80000005&
Caption = "添加选课信息"
ClientHeight = 4050
ClientLeft = 60
ClientTop = 345
ClientWidth = 7605
Icon = "frmScAdd.frx":0000
MDIChild = -1 'True
ScaleHeight = 4050
ScaleWidth = 7605
Begin VB.Frame Frame1
BackColor = &H80000005&
Caption = "添加选课信息(&S)"
Height = 3495
Left = 360
TabIndex = 0
Top = 240
Width = 6855
Begin VB.CommandButton cmdExit
BackColor = &H80000005&
Caption = "取消(&X)"
Height = 375
Left = 4080
Style = 1 'Graphical
TabIndex = 14
Top = 2640
Width = 1095
End
Begin VB.CommandButton cmdAdd
BackColor = &H80000005&
Caption = "添加(&A)"
Height = 375
Left = 1080
Style = 1 'Graphical
TabIndex = 12
Top = 2640
Width = 1095
End
Begin VB.CommandButton cmdClear
BackColor = &H80000005&
Caption = "清空(&C)"
Height = 375
Left = 2640
Style = 1 'Graphical
TabIndex = 11
Top = 2640
Width = 1095
End
Begin VB.TextBox TxtGrade
Height = 270
Left = 1440
MaxLength = 6
TabIndex = 5
Text = "TxtGrade"
Top = 2040
Width = 1455
End
Begin VB.TextBox TxtCno
BackColor = &H80000013&
Enabled = 0 'False
Height = 270
Left = 1440
TabIndex = 4
Text = "TxtCno"
Top = 1200
Width = 1455
End
Begin VB.ComboBox cobCno
Height = 300
Left = 3240
Style = 2 'Dropdown List
TabIndex = 3
Top = 1200
Width = 2175
End
Begin VB.ComboBox cobSno
Height = 300
Left = 3240
Style = 2 'Dropdown List
TabIndex = 2
Top = 480
Width = 2175
End
Begin VB.TextBox TxtSno
BackColor = &H80000013&
Enabled = 0 'False
Height = 270
Left = 1440
TabIndex = 1
Text = "TxtSno"
Top = 480
Width = 1455
End
Begin VB.Label Label4
BackColor = &H80000005&
Caption = "（如果没有考试，成绩请留空。）"
ForeColor = &H00404040&
Height = 255
Left = 3240
TabIndex = 13
Top = 2040
Width = 3495
End
Begin VB.Label lbTmpCname
BackColor = &H80000005&
Caption = "lbTmpCname"
Height = 255
Left = 3240
TabIndex = 10
Top = 1560
Width = 2895
End
Begin VB.Label lbTmpSname
BackColor = &H80000005&
Caption = "lbTmpCname"
Height = 255
Left = 3240
TabIndex = 9
Top = 840
Width = 2895
End
Begin VB.Label Label3
BackColor = &H80000005&
Caption = "成绩"
Height = 255
Left = 720
TabIndex = 8
Top = 2040
Width = 615
End
Begin VB.Label Label2
BackColor = &H80000005&
Caption = "课程编号"
Height = 255
Left = 600
TabIndex = 7
Top = 1230
Width = 735
End
Begin VB.Label Label1
BackColor = &H80000005&
Caption = "学号"
Height = 255
Left = 720
TabIndex = 6
Top = 525
Width = 615
End
End
End
Attribute VB_Name = "frmScAdd"
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
Private Sub cmdAdd_Click()
Dim strSno As String
Dim strCno As String
Dim strGrade As String
strSno = Trim(TxtSno.Text)
strCno = Trim(TxtCno.Text)
strGrade = Trim(TxtGrade.Text)
'检查是否存在该课程数据
If strCno = "" Or strCno = "" Then
Call showMsg("课程编号和课程名称不能为空！", 1)
cobSno.SetFocus
Exit Sub
End If
On Error GoTo sqlErr
SQL = "select cno from jc_sc where cno='" & strCno & "' and sno='" & strSno & "'"
On Error Resume Next
Set rs = cnn.Execute(SQL)
If rs.BOF And rs.EOF Then
SQL = "insert into jc_sc(cno,sno,grade) "
SQL = SQL & "values('" & strCno & "','" & strSno & "','" & strGrade & "') "
On Error Resume Next
cnn.Execute (SQL)
Call showMsg("学生 " & lbTmpSname.Caption & " 选择课程 " & lbTmpCname.Caption & " 成功！", 1)
Exit Sub
End If
sqlErr:
Call showMsg("无法保存，可能原因：" & vbCrLf & "－你选择信息已经存在。" & vbCrLf & "－您输入的成绩为非法字符。", 1)
End Sub
Private Sub cmdAddCno_Click()
TxtCno.Text = cobCno.Text
End Sub
Private Sub cmdAddSno_Click()
TxtSno.Text = cobSno.Text
End Sub
Private Sub cmdClear_Click()
Call clearTxt
End Sub
Private Sub cmdExit_Click()
mdiFrm.stb.SimpleText = "就绪"
'卸载本窗体
Unload Me
End Sub
Private Sub cobCno_Click()
SQL = "select cname from jc_c where cno='" & cobCno.Text & "'"
On Error Resume Next
Set rs = cnn.Execute(SQL)
If (rs.BOF) Or (rs.EOF) Then
Call showMsg("没有找到与 " & cobCno.Text & " 相关的任何记录 ！", 1)
Else
'显示所选记录
If Not rs.EOF Then
lbTmpCname.Caption = "课程名称：" & rs("cname")
TxtCno.Text = cobCno.Text
End If
End If
End Sub
Private Sub cobCno_GotFocus()
SQL = "select distinct cno from jc_c order by cno desc "
On Error Resume Next
Set rs = cnn.Execute(SQL)
If (rs.BOF) Or (rs.EOF) Then
Call showMsg("没有找到任何记录 ！", 1)
Else
'显示所有记录
Do While Not rs.EOF
cobCno.AddItem rs("cno")
rs.MoveNext
Loop
End If
End Sub
Private Sub clearTxt()
TxtSno.Text = ""
TxtCno.Text = ""
TxtGrade.Text = ""
lbTmpSname.Caption = ""
lbTmpCname.Caption = ""
End Sub
Private Sub cobSno_Click()
SQL = "select sname from jc_s where sno='" & cobSno.Text & "'"
On Error Resume Next
Set rs = cnn.Execute(SQL)
If (rs.BOF) Or (rs.EOF) Then
Call showMsg("没有找到任何记录 ！", 1)
Else
On Error Resume Next
'显示所选记录
If Not rs.EOF Then
lbTmpSname.Caption = "学生姓名：" & rs("sname")
TxtSno.Text = cobSno.Text
End If
End If
End Sub
Private Sub cobSno_GotFocus()
SQL = "select distinct sno from jc_s order by sno desc "
On Error Resume Next
Set rs = cnn.Execute(SQL)
On Error Resume Next
If (rs.BOF) Or (rs.EOF) Then
Call showMsg("没有找到任何记录 ！", 1)
Else
On Error Resume Next
'显示所有记录
Do While Not rs.EOF
cobSno.AddItem rs("sno")
rs.MoveNext
Loop
End If
End Sub
Private Sub Form_Load()
Call clearTxt
End Sub
Private Sub Form_Resize()
With Me
Frame1.Left = (.ScaleWidth - Frame1.Width) / 2
Frame1.Top = (.ScaleHeight - Frame1.Height) / 2
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
mdiFrm.stb.SimpleText = "就绪"
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -