工资管理信息系统.ppt

系统实施举例——工资管理系统1第一页，共二十九页。 2第二页，共二十九页。 3第三页，共二十九页。 主表单的“Init”事件程序：wdpathname=“d:\工资系统\数据库set default to wdpathname4第四页，共二十九页。 人员增删表单：5第五页，共二十九页。 6第六页，共二十九页。 “第一个”按钮的Click事件程序：go topthisform.refreshthisform.cmdpre.enabled=.f.thisform.cmdnext.enabled=.t.thisform.cmdbottom.enabled=.t.7第七页，共二十九页。 “前一个”按钮的Click事件程序：skip -1if bof() this.enabled=.f. thisform.cmdtop.enabled=.t. thisform.cmdnext.enabled=.t. thisform.cmdbottom.enabled=.t.else this.enabled=.t. thisform.cmdtop.enabled=.t. thisform.cmdnext.enabled=.t. thisform.cmdbottom.enabled=.t.endifthisform.refresh8第八页，共二十九页。 “后一个”按钮的Click事件程序：skipif eof() this.enabled=.f. thisform.cmdtop.enabled=.t. thisform.cmdpre.enabled=.t. thisform.cmdbottom.enabled=.t.else this.enabled=.t. thisform.cmdtop.enabled=.t. thisform.cmdpre.enabled=.t. thisform.cmdbottom.enabled=.t.endifthisform.refresh9第九页，共二十九页。 “后一个”按钮的Click事件程序：go bottomthisform.cmdtop.enabled=.t.thisform.cmdpre.enabled=.t.thisform.cmdnext.enabled=.f.thisform.refresh10第十页，共二十九页。 “添加”按钮的Click事件程序：append blankthisform.refresh11第十一页，共二十九页。 “删除”按钮的Click事件程序：result=messagebox(你真的要删除这条记录吗??,4+32+256,警告)if result=6 delete pack thisform.refreshendif12第十二页，共二十九页。 “退出”按钮的Click事件程序：thisform.releaseIF USED(月工资表) SELECT 月工资表 USEENDIF13第十三页，共二十九页。 wait window “正在进行月初始化....... nowaituse 月工资表replace all 房租 with 0,托儿费 with 0,医药费 with 0set safety offcopy to 扣款表 fields 部门,姓名,房租,托儿费,医药费set safety onUSE14第十四页，共二十九页。 扣款输入表单：15第十五页，共二十九页。 扣款输入表单的Init事件程序：thisform.grid1.recordsource=扣款表16第十六页，共二十九页。 17第十七页，共二十九页。 wait window 正在计算实发工资...... nowaitselect 2use 扣款表set safety offindex on 姓名 TO 姓名索引set safety onselect 1use 月工资表set order to 1set relation to 姓名 INTO 扣款表replace all 房租 with 扣款表.房租,托儿费 with 扣款表.托儿费,医药费 with 扣款表.医药费 replace all 实发工资 with 工资-房租-托儿费-医药费USESELECT 2USE18第十八页，共二十九页。 查询表单：19第十九页，共二十九页。 20第二十页，共二十九页。 查询表单的Init事件程序：public bo1.value=121第二十一页，共二十九页。 22第二十二页，共二十九页。 if bo1.value=1 select 部门,姓名,房租,托儿费,医药费,实发工资 FROM 月工资表 WHERE 姓名 like this