大学生奖助学金管理信息系统数据库的设计与实现(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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库大学生奖助学金管理信息系统数据库的设计与实现(9)在线全文阅读。