Was this helpful?
Top Frame
The Top frame of the application is a simple menu frame that allows users to access various parts of the application. It appears in the 3rd figure of this appendix. The fields Today and Current_time display the current date and time. The startup procedure can be used to specify any FRS or other commands that must be executed when the application begins.
The following is the 4GL code for this frame:
/*
 *
top.osq 
 *
A simple main application frame.
 *
 *
 */
initialize =
begin
    message 'Starting the ABF Demonstration Application.  .  .';
        today = date('today');
        callproc startup; 
        callproc timer_on(secs=2);
end
on timeout = 
begin
        current_time=date('now');
end
Database = 
Begin
        callframe database;
end
Employee_Tasks = 
Begin
        set_forms field " (invisible(current_time)=1);
        redisplay;
        callframe emptasks;
        set_forms field "
            (invisible(current_time)=0);
end
Dependents =
Begin
        callproc timer_off;
        callframe empdep;
        callproc timer_on(secs=2);
end
Experience = 
Begin
        callproc timer_off;
        callframe experience;
        callproc timer_on(secs=2);
end
Mail = 
Begin
        call system 'mail';
end
'4GL', key frskey16 = 
begin
        callproc timer_off;
        helpfile 'Top Frame 4GL' 
            'USER:[JOE.ABFDEMO]top.osq';
        callproc timer_on(secs=2);
end
'Help', key frskey1 = 
begin
        callproc timer_off;
        help_forms (subject = 'Top Frame Help Information',
            file = 'USER:[JOE.ABFDEMO]top.hlp');
        callproc timer_on(secs=2);
end
'Quit', key frskey2, key frskey3 = 
begin
        exit;
end
Last modified date: 04/03/2024