数据库原理及应用最后一次上机实践(7)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库数据库原理及应用最后一次上机实践(7)在线全文阅读。