学籍管理系统(5)

2019-04-14 21:34

Else

MsgBox \这个成绩已经有了,不能再添加!\ End If Else

MsgBox \备注不能为空,请输入备注!\ Combo3.SetFocus End If Else

MsgBox \成绩不能为空,请输入成绩!\ Text13.SetFocus End If Else

MsgBox \学号不能为空,请输入学号!\ Text1.SetFocus End If Else

MsgBox \课程名称不能为空,请输入课程名称!\ Combo2.SetFocus End If Else

MsgBox \课程号不能为空,请输入课程号!\ Combo4.SetFocus End If Exit Sub errh:

MsgBox Err.Description End Sub

Private Sub CmdUpdata_Click() If mcclean = True Then

MsgBox \请先修改学籍信息\20

警告\

Exit Sub Else

If Text1.Text = \

MsgBox \请输入学号!\警告\ Text1.SetFocus Exit Sub End If

If Text2.Text = \

MsgBox \请输入名字!\警告\ Text2.SetFocus Exit Sub End If

If Combo1.Text = \

MsgBox \请输入性别!\警告\ Combo1.SetFocus Exit Sub End If

If Text5.Text = \ MsgBox \请输入民族!\ Text5.SetFocus Exit Sub End If

If Text6.Text = \

MsgBox \请输入父母姓名!\警告\ Text6.SetFocus Exit Sub End If

If Text4.Text = \

MsgBox \请输入出生年月!出生年月应输入日期格式(YYYY-MM-DD)!\vbOKOnly + vbExclamation, \警告\

Text4.SetFocus Exit Sub End If

If Text7.Text = \

MsgBox \请输入地址!\警告\ Text7.SetFocus Exit Sub End If

If Text8.Text = \

MsgBox \请输入邮政编码!\警告\ Text8.SetFocus Exit Sub End If

If Text3.Text = \

MsgBox \请输入班级!\警告\ Text3.SetFocus Exit Sub End If

If DataCombo1.Text = \

MsgBox \请输入专业!\警告\ DataCombo1.SetFocus Exit Sub End If

If Text10.Text = \

MsgBox \请输入院系!\警告\ Text10.SetFocus Exit Sub End If

If Text9.Text = \

MsgBox \请输入电话号码!\警告\

Text9.SetFocus Exit Sub End If End If

If check1 = False Then

If Text1.Text <> Adodc2.Recordset.Fields(\学号\

MsgBox \学号重复\警告\ Text1.SetFocus Else

' Adodc2.Recordset.AddNew

Adodc2.Recordset.Fields(\学号\ Adodc2.Recordset.Fields(\名字\ Adodc2.Recordset.Fields(\班级\ Adodc2.Recordset.Fields(\性别\ Adodc2.Recordset.Fields(\出生年月\ Adodc2.Recordset.Fields(\民族\ Adodc2.Recordset.Fields(\父母姓名\ Adodc2.Recordset.Fields(\地址\ Adodc2.Recordset.Fields(\邮政编码\ Adodc2.Recordset.Fields(\电话号码\ Adodc2.Recordset.Fields(\院系\ Adodc2.Recordset.Fields(\专业\ Adodc2.Recordset.Fields(\附注\ Adodc2.Recordset.Update 'Adodc2.Recordset.Close

MsgBox \修改学籍信息成功!\修改学籍信息\ Command2.Enabled = True Command3.Enabled = True

Command4.Enabled = True Command5.Enabled = True Command10.Enabled = True 'Text1.Enabled = False 'Text2.Enabled = False 'Text3.Enabled = False 'Text4.Enabled = False 'Text5.Enabled = False 'Text6.Enabled = False 'Text7.Enabled = False 'Text8.Enabled = False 'Text9.Enabled = False 'Combo1.Enabled = False 'DataCombo1.Enabled = False 'Text10.Enabled = False 'Text12.Enabled = False mcclean = True End If Else

共8页:

学籍管理系统(5).doc 将本文的Word文档下载到电脑下载失败或者文档不完整，请联系客服人员解决！

下载这篇word文档