mainmenu.mpr

一个写字楼管理系统,包括房号,剩余租期,剩余房间,楼层,收租人等,非常实用

*       *********************************************************
*       *                                                         
*       * 11/14/03            MAINMENU.MPR              22:48:23  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2003 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _13f1cvrde OF _MSYSMENU PROMPT "基本数据" COLOR SCHEME 3
DEFINE PAD _13f1cvrdf OF _MSYSMENU PROMPT "租赁管理" COLOR SCHEME 3
DEFINE PAD _13f1cvrdg OF _MSYSMENU PROMPT "数据查询" COLOR SCHEME 3
DEFINE PAD _13f1cvrdh OF _MSYSMENU PROMPT "系统管理" COLOR SCHEME 3
ON PAD _13f1cvrde OF _MSYSMENU ACTIVATE POPUP 基本数据
ON PAD _13f1cvrdf OF _MSYSMENU ACTIVATE POPUP 租赁管理
ON PAD _13f1cvrdg OF _MSYSMENU ACTIVATE POPUP 数据查询
ON PAD _13f1cvrdh OF _MSYSMENU ACTIVATE POPUP 系统管理

DEFINE POPUP 基本数据 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 基本数据 PROMPT "房间基本信息"
DEFINE BAR 2 OF 基本数据 PROMPT "员工基本信息"
DEFINE BAR 3 OF 基本数据 PROMPT "\-"
DEFINE BAR 4 OF 基本数据 PROMPT "员工工资信息"
ON SELECTION BAR 1 OF 基本数据 do form rooms
ON SELECTION BAR 2 OF 基本数据 do form workers
ON SELECTION BAR 4 OF 基本数据 do form salary

DEFINE POPUP 租赁管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 租赁管理 PROMPT "租赁\预租"
DEFINE BAR 2 OF 租赁管理 PROMPT "租赁\退租"
DEFINE BAR 3 OF 租赁管理 PROMPT "租金管理"
ON SELECTION BAR 1 OF 租赁管理 do form rents
ON SELECTION BAR 2 OF 租赁管理 do form backrent
ON SELECTION BAR 3 OF 租赁管理 do form rentmoney

DEFINE POPUP 数据查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据查询 PROMPT "员工查询"
DEFINE BAR 2 OF 数据查询 PROMPT "客户查询"
DEFINE BAR 3 OF 数据查询 PROMPT "房间查询"
ON SELECTION BAR 1 OF 数据查询 do form workercs
ON SELECTION BAR 2 OF 数据查询 do form cilentcs
ON SELECTION BAR 3 OF 数据查询 do form rentcs

DEFINE POPUP 系统管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理 PROMPT "系统密码修改"
DEFINE BAR 2 OF 系统管理 PROMPT "退出系统"
ON SELECTION BAR 1 OF 系统管理 do form sysmm
ON SELECTION BAR 2 OF 系统管理 quit