form界面privatesubform_activate()

《form界面privatesubform_activate()》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Form界面：PrivateSubForm_Activate()Dimold1mark,old2mark,a,c,dIfCombo6.Text="生产部"ThenCombo7.ClearCombo7.AddItem"经理"Combo7.AddItem"主管"Combo7.AddItem"职员"Combo7.Text=Data1.Recordset("职务")ElseIfCombo6.Text="财务部"ThenCombo7.ClearCombo7.AddItem"经理"Combo7.AddItem"主管"Combo7.AddItem"

2、出纳"Combo7.AddItem"会计"Combo7.Text=Data1.Recordset("职务")ElseIfCombo6.Text="营业部"ThenCombo7.ClearCombo7.AddItem"经理"Combo7.AddItem"主管"Combo7.AddItem"外勤"Combo7.AddItem"职员"Combo7.Text=Data1.Recordset("职务")ElseIfCombo6.Text="工程部"ThenCombo7.ClearCombo7.AddItem"经理"Combo7.AddItem"

3、主管"Combo7.AddItem"技术员"Combo7.Text=Data1.Recordset("职务")ElseIfCombo6.Text="人事部"ThenCombo7.ClearCombo7.AddItem"经理"Combo7.AddItem"主管"Combo7.AddItem"文秘"Combo7.AddItem"职员"Combo7.Text=Data1.Recordset("职务")ElseIfCombo6.Text="总务部"ThenCombo7.ClearCombo7.AddItem"经理"Combo7.AddItem

4、"主管"Combo7.AddItem"职员"Combo7.Text=Data1.Recordset("职务")ElseIfCombo6.Text="保安部"ThenCombo7.ClearCombo7.AddItem"经理"Combo7.AddItem"主管"Combo7.AddItem"班长"Combo7.AddItem"保安"Combo7.Text=Data1.Recordset("职务")ElseIfCombo6.Text="工会"ThenCombo7.ClearCombo7.AddItem"主席"Combo7.AddItem"

5、职员"Combo7.Text=Data1.Recordset("职务")IfCombo6.Text="总经理室"ThenCombo7.ClearCombo7.AddItem"总经理"Combo7.AddItem"秘书"Combo7.Text=Data1.Recordset("职务")ElseCombo7.ClearCombo7.AddItem"经理"Combo7.AddItem"主管"Combo7.AddItem"职员"Combo7.Text=Data1.Recordset("职务")EndIfEndIfEndIfEndIfEndIf

6、EndIfEndIfEndIfEndIfText1.Locked=TrueCombo6.Locked=TrueCombo7.Locked=TrueText4.Locked=TrueText5.Locked=TrueText6.Locked=True5.2.3工资管理窗口图5-3工资管理窗口该模块是完成对员工的工资信息的输入、查询、并以此进行统计获得“职工实发工资”。此模块主要包括工资录入、职工实发工资统计和职工工资总额信息，后两者是通过点击汇总和统计工资按钮获得。5.2.4工资统计窗口图5-4工资统计窗口该模块是对职工工资信息以部门为

7、索引进行汇总，然后进行统计得到“全体职工工资总额”，并提供打印功能。5.2.5部门查询窗口图5-5部门查询窗口该模块是对部门为索引的“职工档案信息”进行查询，凡符合查找要求的职工将基本信息显示出来，如要了解更多的信息可单击该人员的职工编号可进行进一步的查询5.2.6特殊查询窗口图5-6特殊查询窗口该模块是对日期型字段和合同期限的”人员信息”进行查询。对日期型字段的查询具体表现为：系统将按用户所需的查找范围进行查询，并将查找的信息显示出来。如要了解更多的信息可双击该人员的职工编号可进行进一步的查询。对合同期限的查询具体表现为：系统将职工

8、的“入单位时间”字段、“合同期限”字段和当前日期进行计算得到合同期限的剩余时间，并将查找的信息显示出来。如该时间小于等于零，将“合同期限”反显伴有报警声出现。如要了解更多的信息可双击该人员的职工编号可进行进一步的查询。5