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: 08/14/2024