Combo2.AddItem "工程师" Combo2.AddItem "职工" Combo3.AddItem "党员" Combo3.AddItem "群众" Combo4.AddItem "本科" Combo4.AddItem "硕士" Combo4.AddItem "博士" Combo4.AddItem "高中" Combo5.AddItem "技术部" Combo5.AddItem "行政部" Combo5.AddItem "财务部" Combo5.AddItem "业务部" Combo6.AddItem "男" Combo6.AddItem "女"
Adodc1.ConnectionString = cnn.ConnectionString
Adodc1.RecordSource = "select * from 员工基本信息表" End Sub
四、档案添加界面
档案添加界面主要是添加员工档案。如果添加的档案已经存在，提示不能添加。
Private Sub Command1_Click()