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)!\vbExclamation, \警告\ Text4.SetFocus Exit Sub End If
If Text7.Text = \
MsgBox \请输入地址!\警告\ Text7.SetFocus Exit Sub End If
If Text8.Text = \
MsgBox \请输入邮政编码!\警告\
30
Text8.SetFocus Exit Sub End If
If Text2.Text = \
MsgBox \请输入班级!\警告\ Text2.SetFocus Exit Sub End If
If Combo3.Text = \
MsgBox \请输入专业!\警告\ Combo3.SetFocus Exit Sub End If
If Combo2.Text = \
MsgBox \请输入院系!\警告\ Combo2.SetFocus Exit Sub End If
If Text9.Text = \
MsgBox \请输入电话号码!\警告\ Text9.SetFocus Exit Sub End If
'txtSQL = \学生 where 学号='\'Set mrc = cn.Execute(txtSQL) 'mrc.LockType = adLockOptimistic 'mrc.CursorType = adOpenKeyset
'mrc.Open txtSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
'Adodc2.RecordSource = \学生 where 学号='\' mrc.EOF = False Then
31
If check1 = False Then
MsgBox \学号重复!\警告\ Text1.SetFocus Else
'If Text4.Text <> \
'MsgBox \出生年月应输入日期格式(YYYY-MM-DD)!\警告\ 'Text4.SetFocus 'Else
'Adodc2.RecordSource = \学生\ 'txtSQL = \学生\ 'mrc.LockType = adLockOptimistic 'mrc.CursorType = adOpenKeyset
'mrc.Open txtSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText 'mrc.AddNew
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(\学号\ Adodc1.Recordset.Fields(\名字\ Adodc1.Recordset.Fields(\班级\ Adodc1.Recordset.Fields(\性别\ Adodc1.Recordset.Fields(\出生年月\ Adodc1.Recordset.Fields(\民族\ Adodc1.Recordset.Fields(\父母姓名\ Adodc1.Recordset.Fields(\地址\ Adodc1.Recordset.Fields(\邮政编码\ Adodc1.Recordset.Fields(\电话号码\ Adodc1.Recordset.Fields(\院系\ Adodc1.Recordset.Fields(\专业\ Adodc1.Recordset.Fields(\附注\ Adodc1.Recordset.Update 'Adodc1.Recordset.Close
32
MsgBox \添加成功!\警告\ Exit Sub End If AddErr:
MsgBox Err.Description Exit Sub End Sub
2、添加成绩窗口
其功能实现课程成绩的添加、更改和删除功能。其窗口设计如下：
其代码如下：
Private Sub Form_Load() On Error GoTo errh MakeCenter frmAddGrade
Set rs = cn.Execute(\课程名称,课程号 FROM 课程\ rs.MoveFirst Do
Combo1.AddItem rs.Fields(1).Value Combo2.AddItem rs.Fields(0).Value rs.MoveNext Loop Until rs.EOF 'rs.Close
Combo3.AddItem \优异\
33
Combo3.AddItem \良好\ Combo3.AddItem \中等\ Combo3.AddItem \及格\ Combo3.AddItem \不及格\ 'Combo1.Text = \请选择课程\
' Adodc1.ConnectionString = \ \
\ \
'\
' Adodc1.RecordSource = \学生与课程\ ' Label1.DataField = \学生ID\ 'Label6.DataField = \课程ID\ 'Text4.DataField = \成绩\ Exit Sub errh: rs.Close
MsgBox Err.Description End Sub
3、添加课程功能
其功能主要是完成课程的添加、和删除，主要包括课程号、课程名称、授课老师信息内容。其窗口设计如下：
窗口代码如下：
34