西北工业大学网络教育学院毕业论文
MsgBox \政治面貌不能为空！\警告\ Combo3.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 Text7.Text = \
MsgBox \毕业学校不能为空！\警告\ Text7.SetFocus Exit Sub End If
If Combo4.Text = \
MsgBox \最高学历不能为空！\警告\ Combo4.SetFocus Exit Sub End If
If Text8.Text = \
29
西北工业大学网络教育学院毕业论文
MsgBox \所学专业不能为空！\警告\ Text8.SetFocus Exit Sub End If
If Combo5.Text = \
MsgBox \技术职称不能为空！\警告\ Combo5.SetFocus Exit Sub End If
If Text10.Text = \
MsgBox \职称时间不能为空！\警告\ Text10.SetFocus Exit Sub End If
If Not IsDate(Text10.Text) Then
MsgBox \职称应输入日期（yyyy-mm-dd）！\警告\
Text10.SetFocus Exit Sub Else
Text10.Text = Format(Text10.Text, \ End If
If Text11.Text = \
MsgBox \基本工资不能为空！\警告\
30
西北工业大学网络教育学院毕业论文
Text11.SetFocus Exit Sub End If
Dim db As Connection Set db = New Connection
db.CursorLocation = adUseClient
db.Open \ Set adoPrimaryRS = New Recordset a = Text1.Text
adoPrimaryRS.Open \* from ygInfo where 员工编号='\& a & \db, adOpenStatic, adLockOptimistic If Not adoPrimaryRS.EOF Then
MsgBox \该编号重复！\警告\ Exit Sub Else
adoPrimaryRS.AddNew
adoPrimaryRS.Fields(\员工编号\ adoPrimaryRS.Fields(\姓名\ adoPrimaryRS.Fields(\性别\ adoPrimaryRS.Fields(\部门\ adoPrimaryRS.Fields(\民族\ adoPrimaryRS.Fields(\出生年月\ adoPrimaryRS.Fields(\政治面貌\ adoPrimaryRS.Fields(\家庭住址\ adoPrimaryRS.Fields(\联系电话\
31
西北工业大学网络教育学院毕业论文
adoPrimaryRS.Fields(\毕业学校\ adoPrimaryRS.Fields(\最高学历\ adoPrimaryRS.Fields(\所学专业\ If Text9.Text = \
adoPrimaryRS.Fields(\职务\无\ Else
adoPrimaryRS.Fields(\职务\ End If
adoPrimaryRS.Fields(\专业技术职称\ adoPrimaryRS.Fields(\职称时间\ adoPrimaryRS.Fields(\基本工资\ If Text12.Text = \
adoPrimaryRS.Fields(\奖惩情况\无\ Else
adoPrimaryRS.Fields(\奖惩情况\ End If
If Text13.Text = \
adoPrimaryRS.Fields(\个人简历\无\ Else
adoPrimaryRS.Fields(\个人简历\ End If
adoPrimaryRS.Update
MsgBox \记载成功！\vbOKOnly + vbExclamation, \提示\
End If
Text1.Text = \
32
西北工业大学网络教育学院毕业论文
Text2.Text = \Text3.Text = \Text4.Text = \Text5.Text = \Text6.Text = \Text7.Text = \Text8.Text = \Text9.Text = \Text10.Text = \Text11.Text = \Text12.Text = \Text13.Text = \Combo1.Text = \Combo2.Text = \Combo3.Text = \Combo4.Text = \Combo5.Text = \End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Form_Load()
Left = (Screen.Width - Width) \\ 2 Top = (Screen.Height - Height) \\ 2
End Sub
通过该窗体的操作，系统可以完成对员工的基本信息的录入。录入后员工的
33