Class TfrmTables (unit tables)

Inherits from

TForm

Constructors



Functions

procedure BitBtn2Click(Sender: TObject);


procedure btnPrintAllStructClick(Sender: TObject);


procedure btnPrintThisStructClick(Sender: TObject);


procedure chkOnTopClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure lstTablesClick(Sender: TObject);

ftUnkown: Result := 'Unknown';

function GetFieldType(fld: TField): string;


procedure SetupFields(printing: boolean);

Public declarations

function BooltoStr(valin: boolean): string;

Private declarations

procedure GetFieldsNew(tbl: TTable; printing: boolean);

GetFields(tblInfo);

Properties

Events

Variables

BitBtn2 : TBitBtn;


btnPrintAllStruct : TBitBtn;


btnPrintThisStruct : TBitBtn;


chkOnTop : TCheckBox;


dlgPrinterSetup : TPrinterSetupDialog;


ImageList1 : TImageList;


lstTables : TListBox;


lvDetail : TListView;


Panel1 : TPanel;


Panel2 : TPanel;


panTables : TPanel;


Splitter1 : TSplitter;


tblInfo : TTable;



Constructors


Functions


procedure BitBtn2Click(Sender: TObject);


procedure btnPrintAllStructClick(Sender: TObject);


procedure btnPrintThisStructClick(Sender: TObject);


procedure chkOnTopClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure lstTablesClick(Sender: TObject);

ftUnkown: Result := 'Unknown';


function GetFieldType(fld: TField): string;


procedure SetupFields(printing: boolean);

Public declarations


function BooltoStr(valin: boolean): string;

Private declarations


procedure GetFieldsNew(tbl: TTable; printing: boolean);

GetFields(tblInfo);


Properties


Events


Variables


BitBtn2 : TBitBtn;


btnPrintAllStruct : TBitBtn;


btnPrintThisStruct : TBitBtn;


chkOnTop : TCheckBox;


dlgPrinterSetup : TPrinterSetupDialog;


ImageList1 : TImageList;


lstTables : TListBox;


lvDetail : TListView;


Panel1 : TPanel;


Panel2 : TPanel;


panTables : TPanel;


Splitter1 : TSplitter;


tblInfo : TTable;