人事管理软件程序功设计.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