【vfp开源代码栏目提醒】:网学会员vfp开源代码为您提供command.prg参考,解决您在command.prg学习中工作中的难题,参考学习。
CLEAR
@ 0,0 SAY "**********人力资源管理系统**********"
@ 1,10 SAY "1.员工档案管理"
@ 2,10 SAY "2.部门信息管理"
@ 3,10 SAY "3.员工培训管理"
@ 4,10 SAY "4.员工调动管理"
@ 5,10 SAY "5.员工奖惩管理"
@ 6,10 SAY "6.员工考评管理"
@ 7,10 SAY "7.重新显示菜单"
@ 8,10 SAY "8.退出管理
系统"
@ 9,0 SAY "************************************"
INPUT "请输入选项" TO sValue
i = 11
DO WHILE sValue != 8
DO CASE
CASE sValue = 1
@ i,2 SAY "进行员工档案管理" FONT "黑体", 12
i = i + 2
CASE sValue = 2
@ i,2 SAY "进行部门信息管理" FONT "黑体", 12
i = i + 2
CASE sValue = 3
@ i,2 SAY "进行员工培训管理" FONT "黑体", 12
i = i + 2
CASE sValue = 4
@ i,2 SAY "进行员工奖惩管理" FONT "黑体", 12
i = i + 2
CASE sValue = 5
@ i,2 SAY "进行员工考评管理" FONT "黑体", 12
i = i + 2
CASE sValue = 6
@ i,2 SAY "进行员工考评管理" FONT "黑体", 12
i = i + 2
CASE sValue = 7
CLEAR
@ 0,0 SAY "**********人力资源
管理系统**********"
@ 1,10 SAY "1.员工档案管理"
@ 2,10 SAY "2.部门信息管理"
@ 3,10 SAY "3.员工培训管理"
@ 4,10 SAY "4.员工调动管理"
@ 5,10 SAY "5.员工奖惩管理"
@ 6,10 SAY "6.员工考评管理"
@ 7,10 SAY "7.重新显示菜单"
@ 8,10 SAY "8.退出管理系统"
@ 9,0 SAY "************************************"
ENDCASE
INPUT "请输入选项" TO sValue
ENDDO
CLEAR ALL
RETURN