meniu.mpr

Acesta a fost un proiect de semestru pentru facultate. Tema este gestiunea unei biblioteci. Poate fi

*       *********************************************************
*       *                                                         
*       * 07/19/04              MENIU.MPR               01:37:48  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2004 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ad03hsi6 OF _MSYSMENU PROMPT "\<Iesire" COLOR SCHEME 3 ;
	KEY ALT+I, ""
DEFINE PAD _1ad03hsi7 OF _MSYSMENU PROMPT "\<Adaugare" COLOR SCHEME 3 ;
	KEY ALT+A, ""
DEFINE PAD _1ad03hsi8 OF _MSYSMENU PROMPT "\<Stergere" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _1ad03hsi9 OF _MSYSMENU PROMPT "I\<mprumutare carti" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _1ad03hsia OF _MSYSMENU PROMPT "\<Primire carti" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _1ad03hsib OF _MSYSMENU PROMPT "\<Despre" COLOR SCHEME 3 ;
	KEY ALT+D, ""
ON SELECTION PAD _1ad03hsi6 OF _MSYSMENU ;
	DO _1ad03hsic ;
	IN LOCFILE("GESTIUNE BIBLIOTECA\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")
ON PAD _1ad03hsi7 OF _MSYSMENU ACTIVATE POPUP adaugare
ON PAD _1ad03hsi8 OF _MSYSMENU ACTIVATE POPUP stergere
ON SELECTION PAD _1ad03hsi9 OF _MSYSMENU ;
	DO _1ad03hsig ;
	IN LOCFILE("GESTIUNE BIBLIOTECA\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")
ON SELECTION PAD _1ad03hsia OF _MSYSMENU ;
	DO _1ad03hsih ;
	IN LOCFILE("GESTIUNE BIBLIOTECA\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")
ON SELECTION PAD _1ad03hsib OF _MSYSMENU ;
	DO _1ad03hsii ;
	IN LOCFILE("GESTIUNE BIBLIOTECA\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")

DEFINE POPUP adaugare MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF adaugare PROMPT "Ca\<rti"
DEFINE BAR 2 OF adaugare PROMPT "Ci\<titori"
ON SELECTION BAR 1 OF adaugare ;
	DO _1ad03hsij ;
	IN LOCFILE("GESTIUNE BIBLIOTECA\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")
ON SELECTION BAR 2 OF adaugare ;
	DO _1ad03hsik ;
	IN LOCFILE("GESTIUNE BIBLIOTECA\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")

DEFINE POPUP stergere MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF stergere PROMPT "Cititori"
ON SELECTION BAR 1 OF stergere ;
	DO _1ad03hsil ;
	IN LOCFILE("GESTIUNE BIBLIOTECA\MENIU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU?")


*       *********************************************************
*       *                                                         
*       * _1AD03HSIC  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:    3          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     Iesire                                      
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ad03hsic
quit


*       *********************************************************
*       *                                                         
*       * _1AD03HSIG  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:   11          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     Imprumutare carti                           
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ad03hsig
do form frmImprumutareCarti.scx


*       *********************************************************
*       *                                                         
*       * _1AD03HSIH  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:   12          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     Primire carti                               
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ad03hsih
do form frmPrimireCarti.scx


*       *********************************************************
*       *                                                         
*       * _1AD03HSII  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:   13          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     Despre                                      
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ad03hsii
do form frmDespre.scx


*       *********************************************************
*       *                                                         
*       * _1AD03HSIJ  ON SELECTION BAR 1 OF POPUP adaugare        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:    6          
*       * Called By:  ON SELECTION BAR 1 OF POPUP adaugare        
*       * Prompt:     Carti                                       
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ad03hsij
do form frmAdaugareCarti.scx


*       *********************************************************
*       *                                                         
*       * _1AD03HSIK  ON SELECTION BAR 2 OF POPUP adaugare        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:    7          
*       * Called By:  ON SELECTION BAR 2 OF POPUP adaugare        
*       * Prompt:     Cititori                                    
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ad03hsik
do form frmAdaugareCititori.scx


*       *********************************************************
*       *                                                         
*       * _1AD03HSIL  ON SELECTION BAR 1 OF POPUP stergere        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENIU.MPR,            Record:   10          
*       * Called By:  ON SELECTION BAR 1 OF POPUP stergere        
*       * Prompt:     Cititori                                    
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ad03hsil
do form frmStergereCititori.scx