Topspeed_JPI/TS-V3/EXAMPLES/CLIENT.DEF

DEFINITION MODULE Client;
(*
        Copyright (C) 1988,1989 Jensen & Partners International
*)

IMPORT Globals;

TYPE
   ClientRec = RECORD
             CNum      : ARRAY[0..9] OF CHAR;
             LName     : ARRAY[0..14] OF CHAR;
             FName     : ARRAY[0..9] OF CHAR;
             Street    : ARRAY[0..24] OF CHAR;
             City      : ARRAY[0..14] OF CHAR;
             State     : ARRAY[0..1] OF CHAR;
             Zip       : ARRAY[0..5] OF CHAR;
             Phone     : ARRAY[0..12] OF CHAR;
             Balance   : LONGREAL;
   END;  (* ClientRec *)

PROCEDURE MakeKey( keyA, myClientA : ADDRESS );
(**
        This procedure makes a client key for indexing
**)

PROCEDURE Display( aClient : ClientRec );
(**
        This procedure displays the client record on the screen.
**)

PROCEDURE Clear( );
(**
        This procedure clears the previous client information.
**)

PROCEDURE Template( );
(**
        This procedure un-hides the client display window and displays
        the field names.
**)

PROCEDURE Input( VAR aClient : ClientRec;  Clear : BOOLEAN );
(**
        This procedure inputs the client information from the user.
        If Clear is TRUE, then the information is cleared before the
        user enters new information.  If Clear is FALSE, Display() is
        called first to show the current information, and it is then
        edited.
**)

PROCEDURE Search( VAR aClient : ClientRec ) : BOOLEAN ;
(**
        This procedure asks the user for search information, and then
        searches for the given record.  If it is found, it is copied to
        aClient, and TRUE is returned.  If it is not found, FALSE is
        returned.
**)

PROCEDURE Close( );
(**
        This procedure removes the client display window from the screen.
**)

END Client.