大学生奖助学金管理信息系统数据库的设计与实现(9)

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

End If End Sub

Private Sub Form_Load() End Sub

3、 学生信息管理

添加学生信息

Private Sub cmdCancel_Click() Unload Me End Sub

Private Sub cmdOK_Click() Dim mrc As ADODB.Recordset Dim txtSQL, MsgText As String '判断是否输入学号

If Not Testtxt(txtSID.Text) Then

MsgBox "请输入学号！", vbOKOnly + vbExclamation, "警告" txtSID.SetFocus Exit Sub End If

'判断是否输入姓名

If Not Testtxt(txtName.Text) Then

MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告" txtName.SetFocus Exit Sub End If

'判断是否输入性别

If Not Testtxt(comboGender.Text) Then

MsgBox "请选择性别！", vbOKOnly + vbExclamation, "警告" comboGender.SetFocus Exit Sub End If

'判断是否输入出生日期

If Not Testtxt(txtBorndate.Text) Then

MsgBox "请输入出生日期！", vbOKOnly + vbExclamation, "警告" txtBorndate.SetFocus Exit Sub End If

'判断是否输入班号

If Not Testtxt(comboClassno.Text) Then

MsgBox "请选择班号！", vbOKOnly + vbExclamation, "警告" comboClassno.SetFocus