主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的
Exit Sub End If
'判断是否输入联系号码 If Not Testtxt(txtTel.Text) Then
MsgBox "请输入联系号码！", vbOKOnly + vbExclamation, "警告" txtTel.SetFocus Exit Sub End If
'判断是否输入政治面貌
If Not Testtxt(txtPolitical.Text) Then
MsgBox "请输入入校日期！", vbOKOnly + vbExclamation, "警告" txtPolitical.SetFocus Exit Sub End If
'判断是否输入家庭住址
If Not Testtxt(txtAddress.Text) Then
MsgBox "请输入家庭住址！", vbOKOnly + vbExclamation, "警告" txtAddress.SetFocus Exit Sub End If
'判断输入学号是否是数字
If Not IsNumeric(Trim(txtSID.Text)) Then
MsgBox "学号请输入入数字！", vbOKOnly + vbExclamation, "警告" txtSID.SetFocus Exit Sub End If
txtSQL = "select * from student_Info where student_ID='" & Trim(txtSID.Text) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) '判断是否有重复记录 If mrc.EOF = False Then
MsgBox "学号重复，请重新输入！", vbOKOnly + vbExclamation, "警告" mrc.Close txtSID.SetFocus Else mrc.Close
'判断是输入的出生日期是否按格式 If Not IsDate(txtBorndate.Text) Then
MsgBox "出生时间应输入日期格式(yyyy-mm-dd)！", vbOKOnly + vbExclamation, "警告" txtBorndate.SetFocus Else
txtBorndate = Format(txtBorndate, "yyyy-mm-dd") txtSQL = "select * from student_Info" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew