工資管理信息系統(tǒng)ppt課件

1、系統(tǒng)實(shí)施舉例工資管理系統(tǒng)1.2.3.主表單的“Init事件程序：wdpathname=“d:工資系統(tǒng)數(shù)據(jù)庫(kù)set default to &wdpathname4.人員增刪表單：5.6.“第一個(gè)按鈕的Click事件程序：go topthisform.refreshthisformdpre.enabled=.f.thisformdnext.enabled=.t.thisformdbottom.enabled=.t.7.“前一個(gè)按鈕的Click事件程序：skip -1if bof() this.enabled=.f. thisformdtop.enabled=.t. thisformdnext.en

2、abled=.t. thisformdbottom.enabled=.t.else this.enabled=.t. thisformdtop.enabled=.t. thisformdnext.enabled=.t. thisformdbottom.enabled=.t.endifthisform.refresh8.“后一個(gè)按鈕的Click事件程序：skipif eof() this.enabled=.f. thisformdtop.enabled=.t. thisformdpre.enabled=.t. thisformdbottom.enabled=.t.else this.enable

3、d=.t. thisformdtop.enabled=.t. thisformdpre.enabled=.t. thisformdbottom.enabled=.t.endifthisform.refresh9.“后一個(gè)按鈕的Click事件程序：go bottomthisformdtop.enabled=.t.thisformdpre.enabled=.t.thisformdnext.enabled=.f.thisform.refresh10.“添加按鈕的Click事件程序：append blankthisform.refresh11.“刪除按鈕的Click事件程序：result=messag

4、ebox(他真的要?jiǎng)h除這條記錄嗎?,4+32+256,警告)if result=6 delete pack thisform.refreshendif12.“退出按鈕的Click事件程序：thisform.releaseIF USED(月工資表) SELECT 月工資表 USEENDIF13.wait window “正在進(jìn)展月初始化. nowaituse 月工資表replace all 房租 with 0,托兒費(fèi) with 0,醫(yī)藥費(fèi) with 0set safety offcopy to 扣款表 fields 部門,姓名,房租,托兒費(fèi),醫(yī)藥費(fèi)set safety onUSE14.扣款輸入表

5、單：15.扣款輸入表單的Init事件程序：thisform.grid1.recordsource=扣款表16.17.wait window 正在計(jì)算實(shí)發(fā)工資. nowaitselect 2use 扣款表set safety offindex on 姓名 TO 姓名索引set safety onselect 1use 月工資表set order to 1set relation to 姓名 INTO 扣款表replace all 房租 with 扣款表.房租,托兒費(fèi) with 扣款表.托兒費(fèi),醫(yī)藥費(fèi) with 扣款表.醫(yī)藥費(fèi) replace all 實(shí)發(fā)工資 with 工資-房租-托兒費(fèi)-醫(yī)藥費(fèi)

6、USESELECT 2USE18.查詢表單：19.20.查詢表單的Init事件程序：public q1thisformbo1.value=121.22.if thisformbo1.value=1 select 部門,姓名,房租,托兒費(fèi),醫(yī)藥費(fèi),實(shí)發(fā)工資 FROM 月工資表 WHERE 姓名 like thisform.text1.value INTO CURSOR q1 thisform.grid1.recordsource=q1 endifif thisformbo1.value=2 select 部門,姓名,房租,托兒費(fèi),醫(yī)藥費(fèi),實(shí)發(fā)工資 FROM 月工資表 WHERE 部門 like thisform.text1.value INTO CURSOR q1 thisform.grid1.recordsource=q1 endifthisform.refresh23.報(bào)表設(shè)計(jì)器：24.25.打印按鈕的Click事件程序：report form 月工資報(bào)表 preview26.大作業(yè)要求1.作業(yè)字?jǐn)?shù)不少于5000字2.內(nèi)容主要包括：1 系統(tǒng)概述：系統(tǒng)稱號(hào)、企業(yè)現(xiàn)狀概述、系統(tǒng)建立背景、意義2信息系統(tǒng)的目的、規(guī)模、初步實(shí)現(xiàn)方案3可行性分析4新系統(tǒng)的業(yè)務(wù)