UGMMainSub

Unit ini menghasilkan form untuk mengelola beberapa tabel yang memiliki relasi foreign-key secara bersamaan.

type

TFGMSub = class(TForm)

QKueri: TZQuery;

GroupBox1: TGroupBox;

Label1: TLabel;

cbNamaTabelUtama: TComboBox;

LFUtama: TListView;

GroupBox2: TGroupBox;

Label2: TLabel;

cbNamaTabelSub: TComboBox;

LFSub: TListView;

GroupBox3: TGroupBox;

btLAdd: TAlignButton;

btLMin: TAlignButton;

ListSub: TListView;

btLakukan: TAlignButton;

btTutup: TAlignButton;

pInfo: TPanel;

procedure cbNamaTabelUtamaChange(Sender: TObject);

procedure cbNamaTabelSubChange(Sender: TObject);

procedure btLMinClick(Sender: TObject);

procedure btTutupClick(Sender: TObject);

procedure btLAddClick(Sender: TObject);

procedure btLakukanClick(Sender: TObject);

private

FMarginAtas: integer;

FMarginKiri: integer;

procedure SetKonektor(AKonektor: TZConnection);

function  GetKonektor: TZConnection;

procedure ListNmTipeField(NmTabel: string;LV:TListView);

function  isRefs(NmField: string): boolean;

function  isRefs2Main(NmField: string):boolean;

procedure Info(s:string);

procedure Simpan(AList: TStrings; FName: TFileName);

function  Aktifkan(NamaTabel: string):boolean;

public

property  Konektor: TZConnection read GetKonektor write SetKonektor;

property  MarginAtas:integer read FMarginAtas write FMarginAtas default 5;

property  MarginKiri:integer read FMarginKiri write FMarginKiri default 5;

procedure GenerateMainSub;

end;

procedure BuatFormMainSub(AOwner: TComponent; Akonektor: TZConnection);