人事管理软件程序设计.docVIP

人事管理软件应用程序设计 人事档案管理软件调试 子程序设计 调入职工程序：modi comm Dr.prg set talk off use rs pd=y do while pd=y append blank clear @8,55 say 人事档案登记表 font 黑体,11 @10,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,52 say 职务： get 职务 @15,72 say 工资： get 工资 @16,30 say repl(-,65) @18,70 say 是否继续录入档案(y/n)： get pd read enddo use return 调出职工：modi comm. Dc.prg set talk off use rs clear pd=y do while pd=y xm=space(8) @6,30 say 请输入职工姓名： get xm read loca for 姓名=xm if .not. found() wait 查无此人，请重新输入姓名！ LOOP ENDIF @8,55 say 人事档案登记表 font 黑体,11 @10,30 say repl(-,65) @11,32 say 姓名：+姓名 @11,52 say 性别：+性别 @11,72 say 出生日期：+DTOC(出生日期) IF 是否党员 dy=是 else dy=非 endif @13,32 say 是否党员：+dy @13,52 SAY 学历：+学历 @13,72 say 系别：+系别 @15,32 say 职称：+职称 @15,52 say 职务：+职务 @15,72 say 工资：+str(工资,8,2) @16,30 say repl(-,65) delete @18,70 say 是否继续调出档案(y/n)： get pd read enddo pack use return 档案变动：modi comm. Bd.prg set talk off use rs clear pd=y do while pd=y xm=space(8) @6,30 say 请输入职工姓名： get xm read loca for 姓名=xm if .not. found() wait 查无此人，请重新输入姓名！ LOOP ENDIF @8,55 say 人事档案登记表 font 黑体,11 @10,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,52 say 职务： get 职务 @15,72 say 工资： get 工资 @16,30 say repl(-,65) @18,70 say 是否继续变动档案(y/n)： get pd read enddo use return 档案检索：modi comm Js.prg set talk off use rs clear pd=y do while pd=y xm=space(8) @6,30 say 请输入职工姓名： get xm read loca for 姓名=xm if .not. found() wait 查无此人，请重新输入姓名！ LOOP ENDIF @8,55 say 人事档案登记表 font 黑体,11 @10,30 say repl(-,65) @11,32 say 姓名：+姓名 @11,52 say 性别：+性别 @11,72 say 出生日期：+DTOC(出生日期) IF 是否党员 dy=是 else dy=非 endif @13,32 say 是否党员：+dy @13,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 pd read enddo use return