工资管理信息系统[1]1

《工资管理信息系统[1]1》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、系统实施举例——工资管理系统123主表单的“Init”事件程序：wdpathname=“d:工资系统数据库"setdefaultto&wdpathname4人员增删表单：56“第一个”按钮的Click事件程序：gotopthisform.refreshthisform.cmdpre.enabled=.f.thisform.cmdnext.enabled=.t.thisform.cmdbottom.enabled=.t.7“前一个”按钮的Click事件程序：skip-1ifbof()this.enabled=

2、.f.thisform.cmdtop.enabled=.t.thisform.cmdnext.enabled=.t.thisform.cmdbottom.enabled=.t.elsethis.enabled=.t.thisform.cmdtop.enabled=.t.thisform.cmdnext.enabled=.t.thisform.cmdbottom.enabled=.t.endifthisform.refresh8“后一个”按钮的Click事件程序：skipifeof()this.enabled=.

3、f.thisform.cmdtop.enabled=.t.thisform.cmdpre.enabled=.t.thisform.cmdbottom.enabled=.t.elsethis.enabled=.t.thisform.cmdtop.enabled=.t.thisform.cmdpre.enabled=.t.thisform.cmdbottom.enabled=.t.endifthisform.refresh9“后一个”按钮的Click事件程序：gobottomthisform.cmdtop.enab

4、led=.t.thisform.cmdpre.enabled=.t.thisform.cmdnext.enabled=.f.thisform.refresh10“添加”按钮的Click事件程序：appendblankthisform.refresh11“删除”按钮的Click事件程序：result=messagebox("你真的要删除这条记录吗??",4+32+256,"警告")ifresult=6deletepackthisform.refreshendif12“退出”按钮的Click事件程序：thisfor

5、m.releaseIFUSED('月工资表')SELECT月工资表USEENDIF13waitwindow“正在进行月初始化......."nowaituse月工资表replaceall房租with0,托儿费with0,医药费with0setsafetyoffcopyto扣款表fields部门,姓名,房租,托儿费,医药费setsafetyonUSE14扣款输入表单：15扣款输入表单的Init事件程序：thisform.grid1.recordsource='扣款表'1617waitwindow"正在计算实发工资

6、......"nowaitselect2use扣款表setsafetyoffindexon姓名TO姓名索引setsafetyonselect1use月工资表setorderto1setrelationto姓名INTO扣款表replaceall房租with扣款表.房租,托儿费with扣款表.托儿费,医药费with扣款表.医药费replaceall实发工资with工资-房租-托儿费-医药费USESELECT2USE18查询表单：1920查询表单的Init事件程序：publicq1thisform.combo1.va

7、lue=12122ifthisform.combo1.value=1select部门,姓名,房租,托儿费,医药费,实发工资FROM月工资表WHERE姓名likethisform.text1.valueINTOCURSORq1thisform.grid1.recordsource='q1'endififthisform.combo1.value=2select部门,姓名,房租,托儿费,医药费,实发工资FROM月工资表WHERE部门likethisform.text1.valueINTOCURSORq1thisfo

8、rm.grid1.recordsource='q1'endifthisform.refresh23报表设计器：2425打印按钮的Click事件程序：reportform月工资报表preview26大作业要求1.作业字数不少于5000字2.内容主要包括：（1）系统概述：系统名称、企业现状概述、系统建立背景、意义（2）信息系统的目标、规模、初步实现方案（3）可行性分析（4）新系统的业务流程