【正文】 get ctrf disable @14,2 say 借支扣款: get cjzkk disable @14,22 say 其他扣款: get cqtkk disable replace ckkhj with cff+csdf+cjzkk+cqtkk @14,43 say 扣款合計: get ckkhj disable replace csfgz with byfgzckkhj @15,2 say實發(fā)工資: get csfgz disable @16,0 say replicate(=,62) wait continue enddoelse clear @5,5 say沒有你所要查詢的記錄! wait endif clear @9,15 say是否繼續(xù)進(jìn)行查詢(Y/N)? wait to ch if (upper(ch))=N exit endif clear enddoclose databaserelease windows win1return endcase*procedure prg3parameters choicedo case case choice=1 select a use select b use index on bh to gzl select c use index on bh to kkl select a index on bh to zgl set relation to bh into b set relation to bh into cdo while .t. define windows win1 from 3,7 to 22,70。 title 數(shù)據(jù)修改窗口 39。*39。 shadow activate windows win1 select a mbh= @5,5 say請輸入你所要修改記錄的編號: get mbh read locate for bh=mbh if found() @1,1 say 基本情況: @2,0 say replicate(=,62) @3,2 say 職工編號: get bh @3,22 say 姓名: get xm @3,43 say 性別: get xb @4,2 say 年齡: get nl @4,22 say 部門: get bm @4,43 say 婚否: get hf @5,0 say replicate(=,62) @6,1 say 工資部分: @7,0 say replicate(=,62) @8,2 say 基本工資: get bjbgz @8,22 say 工齡工資: get bglgz @8,43 say 副食補(bǔ)貼:get bfsbt @9,2 say 煤糧補(bǔ)貼: get bmlbt @9,22 say 交通補(bǔ)貼: get bjtbt replacebyfgzwithjbgz+bglgz+bfsbt+bmlbt+bjtbt @10,0 say replicate(=,62) @11,1 say 扣款部分: @12,0 say replicate(=,62) @13,2 say 房費(fèi): get cff @13,22 say 水電費(fèi): get csdf @13,43 say 托兒費(fèi): get ctrf @14,2 say 借支扣款: get cjzkk @14,22 say 其他扣款: get cqtkk replace ckkhj with cff+csdf+cjzkk+cqtkk @14,43 say 扣款合計: get ckkhj replace csfgz with byfgzckkhj
@15,2 say實發(fā)工資: get csfgz @16,0 say replicate(=,62) read waitelse clear @5,5 say沒有找到你所要進(jìn)行修改的記錄! wait endif clear @9,15 say是否繼續(xù)修改其他記錄(Y/N)? wait to ch if (upper(ch))=N exit endif clear enddoclose databaserelease windows win1returncase choice=2 select a use select b use index on bh to gzl select c use index on bh to kkl select a index on bh to zgl set relation to bh into b set relation to bh into cdo while .t. define windows win1 from 3,7 to 22,70。 title 數(shù)據(jù)修改窗口 39。*39。 shadow activate windows win1 select a mbh= @5,5 say請輸入你所要進(jìn)行刪除記錄的編號: get mbh read locate for bh=mbh if found() @1,1 say 基本情況: @2,0 say replicate(=,62) @3,2 say 職工編號: get bh @3,22 say 姓名: get xm @3,43 say 性別: get xb @4,2 say 年齡: get nl @4,22 say 部門: get bm @4,43 say 婚否: get hf @5,0 say replicate(=,62) @6,1 say 工資部分: @7,0 say replicate(=,62) @8,2 say 基本工資: get bjbgz @8,22 say 工齡工資: get bglgz @8,43 say 副食補(bǔ)貼:get bfsbt @9,2 say 煤糧補(bǔ)貼: get bmlbt @9,22 say 交通補(bǔ)貼: get bjtbt replacebyfgzwith jbgz+bglgz+bfsbt+bmlbt+bjtbt @10,0 say replicate(=,62) @11,1 say 扣款部分: @12,0 say replicate(=,62) @13,2 say 房費(fèi): get cff @13,22 say 水電費(fèi): get csdf @13,43 say 托兒費(fèi): get ctrf @14,2 say 借支扣款: get cjzkk @14,22 say 其他扣款: get cqtkk replace ckkhj with cff+csdf+cjzkk+cqtkk @14,43 say 扣款合計: get ckkhj replace csfgz with byfgzckkhj @15,2 say實發(fā)工資: get csfgz @16,0 say replicate(=,62) @17,3 say是否真的要刪除這條記錄？（Y/N） wait to yy select a delete for bh=mbh select b delete for bh=mbh select c delete for bh=mbh if (upper(yy))=Y select a pack select b pack select c pack select a else select a recall select b recall select c recall select a endifelse clear @5,5 say沒有找到你所要進(jìn)行刪除的記錄! wait endif clear @9,15 say是否繼續(xù)進(jìn)行對其他記錄的刪除(Y/N)? wait to ch if (upper(ch))=N exit endif clear enddoclose databaserelease windows win1returnendcase**procedure prg4parameters choicedo case case choice=1 select b use index on bh to gzl select a use set relation to bh into b define windows win1 from 3,7 to 22,70。 title 報表打印窗口 39。*39。 shadow activate windows win1 do while .() ? 東亞大學(xué)職工工資明細(xì)單 ? ┏━━━━┳━━━━┳━━━━┳━━━━┳━━━━┓ ? ┃職工編號┃姓 名┃性 別┃工作部門┃基本工資┃ ? ┣━━━━╋━━━━╋━━━━╋━━━━╋━━━━┫ ? ┃ ┃ ┃ ┃ ┃ ┃ ? ┣━━━━╋━━━━╋━━━━╋━━━━╋━━━━┫ ? ┃工齡工資┃副食補(bǔ)貼┃煤糧補(bǔ)貼┃交通補(bǔ)貼┃應(yīng)發(fā)工資┃ ? ┣━━━━╋━━━━╋━━━━╋━━━━╋━━━━┫ ? ┃ ┃ ┃ ┃ ┃ ┃ ? ┗━━━━┻━━━━┻━━━━┻━━━━┻━━━━┛ @7,9 say abh @7,19 say axm @7,31 say axb @7,38 say abm @7,49 say bjbgz @11,8 say bglgz @11,19 say bfsbt @11,29 say bmlbt @11,39 say bjtbt @11,49 say byfgz wait clear skip enddo case choice=2 select b use index on bh to gzl select c use index on bh to kkl select a use set relation to bh into b set relation to bh into c define windows win1 from 3,7 to 22,70。 title 報表打印窗口 39。*39。 shadow activate windows win1 do while .() clear? 東亞大學(xué)職工扣款明細(xì)單 ? ┏━━━━┳━━━━┳━━━━┳━━━━┳━━━━┓ ? ┃職工編號┃姓 名┃性 別┃工作部門┃應(yīng)發(fā)工資┃ ? ┣━━━━╋━━━━╋━━━━╋━━━━╋━━━━┫ ? ┃ ┃ ┃ ┃ ┃ ┃ ? ┣━━━━╋━━━━╋━━━━╋━━━━╋━━━━┫ ? ┃住房費(fèi)用┃水電費(fèi)用┃托兒費(fèi)用┃借支扣款┃其他借款┃ ? ┣━━━━╋━━━━╋━━━━╋━━━━╋━━━━┫ ? ┃ ┃