UTipe1

Utipe1 adalah modul untuk menghasilkan Main Form Type 1. Deklarasi unit ini adalah:

type

TFTipe1 = class(TForm)

paBaner: TPanel;

Q1: TZQuery;

btBuat: TBitBtn;

btTutup: TBitBtn;

pInfo: TPanel;

QUmum: TZQuery;

btTerpilih: TAlignButton;

chInclude: TListView;

chTandaisemua: TCheckBox;

chTutupotomatis: TCheckBox;

ckGenproject: TCheckBox;

procedure btBuatClick(Sender: TObject);

procedure btTerpilihClick(Sender: TObject);

procedure chTandaisemuaClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

FFormClass:string;

LTabel   : TStringList;

FListID  : Array of Word;

FMaxIdxID: integer;

FAStatus : boolean;

function AdakahStatusField:boolean;

procedure Info(s:string); overload;

procedure Info(IDMessage:integer); overload;

procedure SetKonektor(AConnection: TZConnection);

function  GetKonektor: TZConnection;

//function  ExistsInList(TableName:string):boolean;

procedure GenMenuPart(iProduct:integer;ListSaved:TStrings);

//

procedure GenReconfigureButton(iTypeProduct:integer; ListSaved:TStrings);

public

property  FormClass: string read FFormClass;

property  Konektor: TZConnection read GetKonektor write SetKonektor;

property  AdaStatus: boolean read FAStatus write FAStatus;

procedure GenerateTipe1Form;

//procedure GenProcNewMasterFromRefDetil(Konektor: TZConnection;

//  LTarget: TStrings; TypeProduct:integer; AQuery:TZQuery);

procedure GenProcNewFromRefDetail(MasterTableName:string;

TypeProduct:integer; LTarget: TStrings;AQuery:TZQuery);

procedure GenProcNewFromReferenced(TableName:string; TypeProduct:integer;

LTarget: TStrings;AQuery:TZQuery);

function  GenProcSetPanelControl(TableName: string;

LTarget: TStrings;CountOnly:boolean):integer; overload;

procedure GenProcSetPanelControl(TableName: string;

LTarget: TStrings);overload;

function  CountBtnControlpanel(Tablename:string):integer;

function  CountMaxBtnControlpanel(ConfirmUser,DirectApply:boolean):integer;

function  CheckFieldPrinting(TableName:string; AQuery:TZQuery):boolean;

procedure FillListID;

function  GetCSVFieldDetail(MasterTableName:String):string;

end;

procedure BuatFormTIpe1(AKonektor: TZConnection); overload;

procedure BuatFormTipe1(Akonektor: TZConnection;

Configmanual:boolean); overload;