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
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说教育文库管理信息系统课程设计人事档案管理(16)在线全文阅读。
相关推荐: