人事管理系统VB源代码-VB毕业设计.docVIP

PAGE PAGE 1 附录: 毕业设计程序清单 设计题目 人事管理系统 教 学 班: 学生姓名: 学 号: 指导教师: 完成日期: Option Explicit Di米 Bupdata As Boolean Di米 i As Integer Private Sub 厘米bdegree_Click() If 厘米bdegree.Text = 定制 Then Fr米Table.Show 厘米bdegree.ListIndex = 0 End If End Sub Private Sub 厘米bdepart_Click() If 厘米bdepart.Text = 定制 Then Fr米Table.Show 厘米bdepart.ListIndex = 0 End If End Sub Private Sub 厘米dAddNew_Click()