err_Msg_Insert: MsgBox (\该专业已经存在，不可再添加！\OK_next: Set objrs = Nothing txtSpeNo.Text = \ txtSpeName.Text = \ txtSpeNo.Enabled = True txtSpeName.Enabled = True End Sub
Private Sub cmdSpeUpdate_Click() Dim sql As String
Dim objrs As ADODB.Recordset
If txtSpeNo.Text = \判断班级编号是否为空，为空则重新输入班级编号
MsgBox \班级编号必须填写！\ txtSpeNo.SetFocus Exit Sub End If
If txtSpeName.Text = \判断班级名称是否为空，为空则重新输入班级名称
MsgBox \班级名称必须填写！\ txtSpeName.SetFocus Exit Sub End If
sql = \
sql = sql & txtSpeName & \ On Error GoTo err_Msg_Update
Set objrs = MyConnection.Execute(sql)
frmSpe.MSFlexGrid1.TextMatrix(frmSpe.MSFlexGrid1.Row, 1) = txtSpeNo.Text
frmSpe.MSFlexGrid1.TextMatrix(frmSpe.MSFlexGrid1.Row, 2) = txtSpeName.Text
Set objrs = Nothing GoTo OK_next
err_Msg_Update: MsgBox (\更改数据出错或没有更改权限！\OK_next: Set objrs = Nothing txtSpeNo.Text = \ txtSpeName.Text = \ txtSpeNo.Enabled = True txtSpeName.Enabled = True End Sub
Private Sub cmdSpeDelete_Click() Dim sql As String
Dim objrs As ADODB.Recordset
31
If MsgBox(\确定要删除专业编号为\& MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) & _
\专业名称为：\& _
\的记录吗？\删除记录\vbOK Then
On Error GoTo err_Msg_Delete
Set objrs = MyConnection.Execute(\Spe_info where Spe_no= '\
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) & \ For i = MSFlexGrid1.Row To MSFlexGrid1.Rows - 2 For j = 1 To 2
MSFlexGrid1.TextMatrix(i, j) = MSFlexGrid1.TextMatrix(i + 1, j)
Next j Next i
MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1 GoTo End_Delete_Pos err_Msg_Delete:
MsgBox (\删除数据出错或没有删除权限！\End_Delete_Pos:
Set objrs = Nothing txtSpeNo.Text = \ txtSpeName.Text = \ txtSpeNo.Enabled = True txtSpeName.Enabled = True End If End Sub
Private Sub cmdSpeExit_Click() Unload Me End Sub
2.班级管理frmClass窗口的设计
32
与专业管理模块的创建相似。 五、学生信息管理模块的设计
六、课程信息管理模块的设计
33
七、成绩信息管理模块设计
34