Unit ini akan memberi anda produk berupa Form List. Deklarasinya adalah:
type
TFFList = class(TForm)
Panel1: TPanel;
btLakukan: TBitBtn;
btTutup: TBitBtn;
Q1: TZQuery;
Panel2: TPanel;
Panel3: TPanel;
ListView1: TListView;
procedure FormCreate(Sender: TObject);
private
procedure SetKonektor(ACon: TZConnection);
function GetKonektor: TZConnection;
procedure RefreshINterface;
public
property Konektor: TZConnection read GetKonektor write SetKonektor;
end;
procedure GenerateFormList(AKonektor: TZConnection;LTabel: TStrings); overload;
procedure GenerateFormList(AKonektor: TZConnection;NamaTabel:string); overload;
