管理信息系统课程设计人事档案管理(16)

Text2.Text = "" Text3.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text4.Text = "" Text9.Text = "" Text10.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = ""

MsgBox "录入成功" End Sub

Private Sub Command2_Click() Unload Me Form2.Show End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = cnn.ConnectionString Label1.Caption = da Label2.Caption = BH Command1.Caption = bc Combo1.AddItem "男" Combo1.AddItem "女" Combo2.AddItem "未婚" Combo2.AddItem "已婚" Combo3.AddItem "财务部" Combo3.AddItem "生产部" Combo3.AddItem "管理部" Combo3.AddItem "营销部"

If Label1.Caption = "员工档案修改" Then Text1.Text = BHs Else

Exit Sub End If End Sub

Private Sub Text1_Change()

If Text1.Text = "" Then Exit Sub