【vfp开源代码栏目提醒】:网学会员为需要vfp开源代码的朋友们搜集整理了7-1.prg相关资料,希望对各位网友有所帮助!
SET TALK OFF
CLEAR ALL
USE LgFu
DO WHILE .T.
GO TOP
CLEAR
? SPACE(10)+"****旅馆服务主菜单*******************"
? SPACE(10)+"* 0-退出旅馆前台服务 *"
? SPACE(10)+"* 1-
查询 *"
? SPACE(10)+"* 2-登记 *"
? SPACE(10)+"* 3-消账 *"
? SPACE(10)+"* 4-结算 *"
? SPACE(10)+"*************************************"
WAIT "请选择0-4号菜单:" TO Sel
DO CASE
CASE Sel="0"
EXIT
CASE Sel="1"
DO SER
CASE Sel="2"
DO REG
CASE Sel="3"
DO XZ
CASE Sel="4"
DO JS
ENDCASE
ENDDO