Category : Files from Magazines
Archive   : DBMS0690.ZIP
Filename : BUTLER2

Listing 2.

*
* DataWiz International - Accounting System
*
* (C) Copyright DataWiz International 1989
*
* Module: ACCESS.PRG
*
* Function: Accounting System User Access Management
*
* $Revision: 1.0 $
*
* $Date: 03/19/90 12:00:00 $
*
* Define popup
DO def_access
sql_msg = space(200)
* Display menu and loop for choices
DO WHILE BAR() < 6
SET COLOR TO &c_normal.
CLEAR
DO Title_acce
SET COLOR TO &c_pop.
ACTIVATE POPUP accessmenu
ENDDO
RELEASE POPUPS accessmenu
RETURN to admin

PROCEDURE Title_acce
CLEAR
* Draw lines and box for menu with colors for effect
@ 2,24 TO 5,53 DOUBLE COLOR &blue.
@ 2,24 FILL TO 5,53 COLOR &blue.
SET COLOR TO &red.
@ 3,35 SAY "DataWizAC"
@ 4,30 SAY "Access Control Menu"
SET COLOR TO &c_normal.
RETURN
*
* DEFINE ACCESS CONTROL MENU
*
PROCEDURE def_access
* Defines the Access Control Menu
DEFINE POPUP accessmenu FROM 7,27 TO 14,50;
MESSAGE "Press first letter of menu choice, " + ;

"or highlight and press "
DEFINE BAR 1 OF accessmenu PROMPT " Login Management"
DEFINE BAR 2 OF accessmenu PROMPT " User Management"
DEFINE BAR 3 OF accessmenu PROMPT " Group Management"
DEFINE BAR 4 OF accessmenu PROMPT " Alias Management"
DEFINE BAR 5 OF accessmenu PROMPT " Permissions"
DEFINE BAR 6 OF accessmenu PROMPT " Return to Main Menu"
ON SELECTION POPUP accessmenu DO accessmain
RETURN
*
* ACCESS CONTROL MAIN PROCEDURE
*
PROCEDURE accessmain
* Execute case depending on user's choice
DO CASE
CASE BAR() = 1
do login_mg && call login management procedure
CASE BAR() = 2
do user_mg && call user management procedure
CASE BAR() = 3
do group_mg && call group management procedure
CASE BAR() = 4
do alias_mg && call alias management procedure
CASE BAR() = 5
do permission && call permissions procedure
CASE BAR() = 6
SET COLOR TO &c_normal.
RETURN to access
ENDCASE
DO Title_acce
SET COLOR TO &c_pop.
RETURN