【正文】 shadow activate windows win1 do while .() clear? 東亞大學(xué)職工扣款明細(xì)單 ? ┏━━━━┳━━━━┳━━━━┳━━━━┳━━━━┓ ? ┃職工編號┃姓 名┃性 別┃工作部門┃應(yīng)發(fā)工資┃ ? ┣━━━━╋━━━━╋━━━━╋━━━━╋━━━━┫ ? ┃ ┃ ┃ ┃ ┃ ┃ ? ┣━━━━╋━━━━╋━━━━╋━━━━╋━━━━┫ ? ┃住房費用┃水電費用┃托兒費用┃借支扣款┃其他借款┃ ? ┣━━━━╋━━━━╋━━━━╋━━━━╋━━━━┫ ? ┃ ┃ 。 title 報表打印窗口 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 房費: get cff 13,22 say 水電費: get csdf 13,43 say 托兒費: 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 數(shù)據(jù)修改窗口 39。*39。 shadow activate windows win1 select a mnls=00 mnlx=00 5,5 say請輸入你所要查詢職工的年齡上限: get mnls 6,5 say請輸入你所要查詢職工的年齡下限: get mnlx read locate for nlmnlx if found() do while .() clear
1,1 say 基本情況: 2,0 say replicate(=,62) 3,2 say 職工編號: get bh disable 3,22 say 姓名: get xm disable 3,43 say 性別: get xb disable 4,2 say 年齡: get nl disable 4,22 say 部門: get bm disable 4,43 say 婚否: get hf disable 5,0 say replicate(=,62) 6,1 say 工資部分: 7,0 say replicate(=,62) 8,2 say 基本工資: get bjbgz disable 8,22 say 工齡工資: get bglgz disable 8,43 say 副食補(bǔ)貼:get bfsbt disable 9,2 say 煤糧補(bǔ)貼: get bmlbt disable 9,22 say 交通補(bǔ)貼: get bjtbt disable replacebyfgzwithjbgz+bglgz+bfsbt+bmlbt+bjtbt 10,0 say replicate(=,62) 11,1 say 扣款部分: 12,0 say replicate(=,62) 13,2 say 房費: get cff disable 13,22 say 水電費: get csdf disable 13,43 say 托兒費: 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 b clear mgzs= mgzx= 5,5 say請輸入你所要查詢職工基本工資的上限: get mgzs 6,5 say請輸入你所要查詢職工基本工資的下限: get mgzx read locate for bjbgzjbgzmgzx if found() do while .() clear 1,1 say 基本情況: 2,0 say replicate(=,62) 3,2 say 職工編號: get abh disable 3,22 say 姓名: get axm disable 3,43 say 性別: get axb disable 4,2 say 年齡: get anl disable 4,22 say 部門: get abm disable 4,43 say 婚否: get ahf disable 5,0 say replicate(=,62) 6,1 say 工資部分: 7,0 say replicate(=,62) 8,2 say 基本工資: get bjbgz disable 8,22 say 工齡工資: get bglgz disable 8,43 say 副食補(bǔ)貼:get bfsbt disable 9,2 say 煤糧補(bǔ)貼: get bmlbt disable 9,22 say 交通補(bǔ)貼: get bjtbt disable replacebyfgzwithjbgz+bglgz+bfsbt+bmlbt+bjtbt 10,0 say replicate(=,62) 11,1 say 扣款部分: 12,0 say replicate(=,62) 13,2 say 房費: get cff disable 13,22 say 水電費: get csdf disable 13,43 say 托兒費: 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 case choice=4 select a use select b use index on bh to gzl select c use i