Utility

Utility.pas adalah sebuah library yang disediakan sebagai library umum baik untuk DFGEN maupun produknya. Library ini memuat fungsionalitas yang dominan dari DFGEN maupun produk-produk DFGEN.

Utility.pas mencantumkan prosedur berikut:

procedure Informate(s:string);

function  Prompt(s:string):boolean;

function  iif(Kondisi:boolean; HasilJikaBenar,

HasilJikaSalah: variant): variant;

function  ExecKueri(AOwner: TComponent; Konektor: TZConnection;

Kueri: string): boolean; overload;

function  ExecKueri(AOwner: TComponent; Konektor: TZConnection;

Kueri: TStrings):boolean; overload;

function  ExecKueri(AQuery: TZQuery;

Kueri:string):boolean;  overload;

function  ExecKueri(AQuery: TZQuery; InsertQuery: string;

var LastInsID:integer):boolean; overload;

function  ExecKueri(AQuery: TZQuery;

ListQuery: TStrings): boolean; overload;

procedure GetFieldValues(AQuery: TZQuery; TableName,FieldName:string;

AList: TStrings);overload;

procedure GetFieldValues(AQuery: TZQuery;

TableName,FieldName, Syarat:string; AList: TStrings); overload;

function  GetFieldValues(AQuery: TZQuery;

TableName,TableField,SQLCriteria:string):string; overload;

function  GetFieldValues(AQuery: TZQuery;ALIst:TStrings;

SQL:string;FieldName:string):boolean; overload;

function  isFieldReferens(Konektor: TZConnection; FieldName: string):boolean;

function  isReferenced(Konektor: TZConnection; TableName: string):boolean;

procedure File2String(ff: TFileName; var S: string);

function  Bitmap2HexString(Bmp: TBitmap): string;

procedure HexString2Bitmap(S:string; ABmp: TBitmap); overload;

function  HexString2Bitmap(S:string):Tbitmap; overload;

procedure DatasetRefresh(ADataset: TDataset);

function  IsDigit(s: string):boolean;

function  LocaleDelimiter: char;

function  LocaleDesimal: char;

function  LocaleThousand: char;

procedure AturShortCut(AForm: TForm);

function  TipeField(AQuery:TZQuery; NmTabel,NmField:string): TFieldType;

function  AdakahRecord(AsTeks:string;AQuery:TZQuery;

NmTabel,NmField:string):boolean; overload;

function  AdakahField(AQuery: TZQuery; NmField,DlmTabel: string):boolean;

function  AdakahRecord(AQuery:TZQuery;

NmTabel,SQLSyarat:string):boolean; overload;

function  BukaData(AQuery:TZQuery;

NmTabel,SQLField,SQLSyarat:string):boolean; overload;

function  BukaData(AQuery: TZQuery; SQL: string): boolean; overload;

function  BukaData(AQuery: TZQuery; SQL: string;

EmptyAlert:boolean): boolean; overload;

function GetFieldView(AKonektor: TZConnection; TableReferenced: string): string;

function StringFieldTypes(FieldType:TFieldType):string;

function TanggalAkhirBulan(dTgl:TDatetime):TDatetime;

function TanggalAwalBulan(dTgl:TDatetime):TDatetime;

function TanggalAwalMinggu(dTgl: Tdatetime): Tdatetime;

function TanggalAkhirMinggu(dTgl: Tdatetime): Tdatetime;

function GetDriveSerialNumber (Drive:PAnsiChar): string; overload;

function GetDriveSerialNumber (Drive:Char): string; overload;

procedure FormatDataField(ADataset:TDataset);

function DeleteRecord(AQuery:TZQuery;

TableName:string; ID:integer):boolean; overload;

function DeleteRecord(AQuery:TZQuery;

TableName,SQLSyarat:string):boolean; overload;

procedure TampilkanField(LField: TStrings; Grid: TDBGrid); overload;

procedure TampilkanField(CSV: string; Grid: TDBGrid); overload;

function  LastInsertedID(AKonektor: TZConnection): integer; overload;

function  LastInsertedID(AQuery   : TZQuery): integer; overload;

function  LastInsertedID(AQuery   : TZQuery;

var LastInsID:integer):boolean; overload;

function IDFromFieldView(AQuery: TZQuery; NmTabel,ValFieldView:string):integer;

procedure CreateEmptyList(AList:TStrings; nCount:integer);

procedure GetListDataTable(DBGrid: TDBGrid;

LTArget:TStrings; CharDelimiter,CharQualifier:Char); overload;

procedure GetListDataTable(DBGrid: TDBGrid; LTarget,LField: TStrings;

CharDelimiter,CharQualifier:Char); overload;

procedure GetCandidateInifile(AForm:TForm; LTarget:TStrings; StartID:integer);

function GetComponentIndex(AForm: TForm; ComponentName:string):integer;

procedure TotalkanCurrencyEdit(cuTarget:TCurrencyEdit;

cuAsals: array of TCurrencyEdit);

procedure CustomizeView(cuTarget: TCurrencyEdit);  overload;

procedure CustomizeView(edTarget: TEdit; Trimmed:boolean); overload;

procedure CustomizeView(spTarget: TSpinEdit);  overload;

procedure RenderForm(AForm: TForm; ACanv: TCanvas);

procedure doPrint(Bmp:TBitmap;

mm_Printwidth,mm_PrintHeight, mm_Top,mm_Left:integer); overload;

procedure doPrint(Bmp:TBitmap; mm_Printwidth,mm_PrintHeight:integer;

arPoint: array of TPoint); overload;

function  ComponentIndexByName(AForm: TForm; ComponentName:string): integer;

function ConvertDateInput(s:string):string;

function dd_mm_yyyy_todate(s_dd_mm_yyyy:String):Tdatetime;

function ComputerUserName:string;

function ComputerName: string;

procedure GetListExistingFolder(L:TStrings); overload;

procedure GetListExistingFolder(L:TStrings; iType:integer);overload;

procedure GetListExistingFolder(L:TStrings; iType:integer;

fpath:string );overload;

procedure GetListExistingFolder(L:TStrings;iType:integer;

fpath,fpattern:string); overload;