Category : Files from Magazines
Archive   : ITP9002.ZIP
Filename : FIELDIO.PAS

Unit FieldIO;

interface

uses
Crt, FastTTT5, IOTTT5;

Procedure Init_Table;
Procedure Edit_Table_1;
Procedure Edit_Table_2;

Implementation

Var
Name,
Address,
City,
State,
Zip,
Phone : String;
Amount,
Payment,
Balance : Real;

{$F+}
Procedure Handle_Special_Keystrokes
( Var Ch : Char;
Var ID : Byte;
Var Refresh : Byte );
begin {Alt-F1 to swap between entry tables}
Case Ch of
#232 : begin
If CurrentTable = 1
then
CurrentTable := 2
else
CurrentTable := 1;
end;
end;
end;
{$F-}

Procedure Init_Table;
begin
Create_Tables(2);

Activate_Table(1);
Create_Fields(6);
Add_Field(1,6,2,6,2,20,10);
Add_Field(2,1,3,1,3,20,12);
Add_Field(3,2,4,2,4,20,14);
Add_Field(4,3,5,3,5,43,14);

Add_Field(5,4,6,4,6,51,14);
Add_Field(6,5,1,5,1,20,16);
String_Field(1,Name,
'!************************');
String_Field(2,Address,
'*************************');
String_Field(3,City,'!**************');
String_Field(4,State,'!!');
String_Field(5,Zip,'#####');
String_Field(6,Phone,'(###) ###-####');
Assign_CharHook(Handle_Special_Keystrokes);

Activate_Table(2);
Create_Fields(3);
Add_Field(1,3,2,3,2,30,20);
Add_Field(2,1,3,1,3,30,21);
Add_Field(3,2,1,2,1,30,22);
Real_Field(1,Amount,'####.##',
0.00,9999.99);
Real_Field(2,Payment,'####.##',
0.00,9999.99);
Real_Field(3,Balance,'####.##',
0.00,9999.99);
Assign_CharHook(Handle_Special_Keystrokes);
end;

Procedure Edit_Table_1;
begin
Activate_Table( 1 );
Process_Input( 1 );
end;

Procedure Edit_Table_2;
begin

Activate_Table( 2 );
Process_Input( 1 );
end;

Begin

Name := 'Bob Ainsbury';
Address := 'PO Box 820297';
City := 'Houston';
State := 'TX';
Zip := '77879';
Phone := '7134936354';

Init_Table;
End.