工资管理系统数据图_工资管理系统实训报告_工资管理系统需求规格说明书(10)

Text4.SetFocus Exit Sub End If If Not IsDate(Text4.Text) Then MsgBox "生日应输入日期（yyyy-mm-dd） ！", vbOKOnly + vbExclamation, "

警告"

Text4.SetFocusExit Sub Else Text4.Text = Format(Text4.Text, "yyyy-mm-dd") End If If Combo3.Text = ""

Then28西北工业大学网络教育学院毕业论文MsgBox "面貌不能为空！", vbOKOnly + vbExclamation, "警告"

Combo3.SetFocus Exit Sub End If If Text5.Text = ""

Then MsgBox "家庭住址不能为空！", vbOKOnly + vbExclamation, "警告"

Text5.SetFocus Exit Sub End If If Text6.Text = ""

Then MsgBox "联系电话不能为空！", vbOKOnly + vbExclamation, "警告"

Text6.SetFocus Exit Sub End If If Text7.Text = ""

Then MsgBox "毕业学校不能为空！", vbOKOnly + vbExclamation, "警告"

Text7.SetFocus Exit Sub End If If Combo4.Text = ""

Then MsgBox "最高不能为空！", vbOKOnly + vbExclamation, "警告"

Combo4.SetFocus Exit Sub End If If Text8.Text = ""

Then29西北工业大学网络教育学院毕业论文MsgBox "所学不能为空！", vbOKOnly + vbExclamation, "警告"

Text8.SetFocus Exit Sub End IfIf Combo5.Text = ""

Then MsgBox "技术职称不能为空！", vbOKOnly + vbExclamation, "警告"

Combo5.SetFocus Exit Sub End If If Text10.Text = ""

Then MsgBox "职称时间不能为空！", vbOKOnly + vbExclamation, "警告"

Text10.SetFocus Exit Sub End If If Not IsDate(Text10.Text) Then MsgBox "职称应输入日期（yyyy-mm-dd） ！", vbOKOnly + vbExclamation, "

警告"

Text10.SetFocusExit Sub Else Text10.Text = Format(Text10.Text, "yyyy-mm-dd") End If If Text11.Text = ""

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-31446-10.html