1、人事管理软件应用程序设计人事档案管理软件调试子程序设计调入职工程序：modi comm Dr.prgset talk offuse rspd=ydo while pd=yappend blankclear8,55 say 人事档案登记表 font 黑体,1110,30 say repl(-,65)11,32 say 姓名： GET 姓名11,52 say 性别： get 性别11,72 say 出生日期： get 出生日期13,32 say 是否党员： get 是否党员13,52 SAY 学历： get 学历13,72 say 系别： get 系别15,32 say 职称： get 职称15,
2、52 say 职务： get 职务15,72 say 工资： get 工资16,30 say repl(-,65)18,70 say 是否继续录入档案(y/n)： get pdreadenddousereturn调出职工：modi comm. Dc.prgset talk offuse rsclearpd=ydo while pd=yxm=space(8)6,30 say 请输入职工姓名： get xmreadloca for 姓名=xmif .not. found()wait 查无此人，请重新输入姓名！LOOPENDIF8,55 say 人事档案登记表 font 黑体,1110,30 say
3、 repl(-,65)11,32 say 姓名：+姓名11,52 say 性别：+性别11,72 say 出生日期：+DTOC(出生日期)IF 是否党员dy=是elsedy=非endif13,32 say 是否党员：+dy13,52 SAY 学历：+学历13,72 say 系别：+系别15,32 say 职称：+职称15,52 say 职务：+职务15,72 say 工资：+str(工资,8,2)16,30 say repl(-,65)delete18,70 say 是否继续调出档案(y/n)： get pdreadenddopackusereturn档案变动：modi comm. Bd.pr
4、gset talk offuse rsclearpd=ydo while pd=yxm=space(8)6,30 say 请输入职工姓名： get xmreadloca for 姓名=xmif .not. found()wait 查无此人，请重新输入姓名！LOOPENDIF8,55 say 人事档案登记表 font 黑体,1110,30 say repl(-,65)11,32 say 姓名： get 姓名11,52 say 性别： get 性别11,72 say 出生日期： get 出生日期13,32 say 是否党员： get 是否党员13,52 SAY 学历： get 学历13,72 sa
5、y 系别： get 系别15,32 say 职称： get 职称15,52 say 职务： get 职务15,72 say 工资： get 工资16,30 say repl(-,65)18,70 say 是否继续变动档案(y/n)： get pdreadenddousereturn档案检索：modi comm Js.prgset talk offuse rsclearpd=ydo while pd=yxm=space(8)6,30 say 请输入职工姓名： get xmreadloca for 姓名=xmif .not. found()wait 查无此人，请重新输入姓名！LOOPENDIF8,
6、55 say 人事档案登记表 font 黑体,1110,30 say repl(-,65)11,32 say 姓名：+姓名11,52 say 性别：+性别11,72 say 出生日期：+DTOC(出生日期)IF 是否党员dy=是elsedy=非endif13,32 say 是否党员：+dy13,52 SAY 学历：+学历13,72 say 系别：+系别15,32 say 职称：+职称15,52 say 职务：+职务15,72 say 工资：+str(工资,8,2)16,30 say repl(-,65)18,70 say 是否继续检索档案：(y/n) get pdreadenddousereturn菜单程序：modi comm. Rs.prgset talk offdo while .t.clear6,38 say 人事管理软件8,35 say repl(-,20)9,40 prom 调入职工 11,40 prom 调出职工 13,40 prom 档案变动 15,40 prom 档案检索 17,40 prom 结 束 19,35 say repl(-,20)menu to pddo casecase pd=1do drcase pd=2do dccase pd=3do bdcase pd=4do jscase pd=5returnendcaseenddo
