Uutama adalah unit manajer atau main form dari DFGEN. Dari from utama ini, semua kegiatan penggunaan DFGEN dimulai.
Deklarasi unit Uutama adalah:
type
Tfmainboard = class(TForm)
Panel1: TPanel;
paAtas: TPanel;
Konektor: TZConnection;
btMainform: TAlignButton;
btTableform: TAlignButton;
Q1: TZQuery;
btLibrary: TAlignButton;
btRefresh: TAlignButton;
btFirstOP: TAlignButton;
btLoginForm: TAlignButton;
ZSQLProcessor: TZSQLProcessor;
btFirstRights: TAlignButton;
Panel6: TPanel;
Splitter: TSplitter;
StatusBar: TStatusBar;
btConfig: TAlignButton;
Panel4: TPanel;
btAcceptlicproposal: TAlignButton;
btConnectionfile: TAlignButton;
btDirectlicense: TAlignButton;
btAcceptconproposal: TAlignButton;
OpenDlg: TOpenDialog;
btOpenfile: TAlignButton;
SaveDlg: TSaveDialog;
btTableconfig: TAlignButton;
btCleartrack: TAlignButton;
MainMenu1: TMainMenu;
File1: TMenuItem;
New1: TMenuItem;
Mainform1: TMenuItem;
ableform1: TMenuItem;
Loginform1: TMenuItem;
Library1: TMenuItem;
Fill1: TMenuItem;
Firstidentity1: TMenuItem;
Firstfullrights1: TMenuItem;
View1: TMenuItem;
ViewLogo1: TMenuItem;
Options1: TMenuItem;
rackprocess1: TMenuItem;
Public1: TMenuItem;
ableformconfiguration1: TMenuItem;
Dataconnectionconfiguration1: TMenuItem;
N2: TMenuItem;
Cleartrackprocess1: TMenuItem;
rackprocess2: TMenuItem;
Showtrackprocess1: TMenuItem;
N3: TMenuItem;
Exit1: TMenuItem;
ActionManager1: TActionManager;
acMainform : TAction;
acTableform: TAction;
acLoginForm: TAction;
acLibrary: TAction;
acFirstRights: TAction;
acFirstOP: TAction;
acVerify: TAction;
acSQLUpdate: TAction;
acSQLInsert: TAction;
acSQLLOad: TAction;
acLoadfromrefs: TAction;
acAdvanceload: TAction;
acTablelist: TAction;
acNewfromrefdetail: TAction;
acProcsetcontrolpanel: TAction;
acRandomizechar: TAction;
acExtractword: TAction;
acKueriRelasi: TAction;
acRefresh: TAction;
acConfig: TAction;
acTableconfig: TAction;
acOpenfile: TAction;
acSavefile: TAction;
//
acAcceptlicproposal: TAction;
acDirectlicense: TAction;
acConnectionfile: TAction;
acAcceptconproposal: TAction;
acShowTrackprocess: TAction;
acCleartrackprocess: TAction;
btFormList: TAlignButton;
acgenformlist: TAction;
FormList1: TMenuItem;
PrefixIndikatorTabel: TAction;
Q2: TZQuery;
CreateSelectSQLLib: TAction;
SQLCreatetable: TAction;
acClosefile: TAction;
acgen_intform: TAction;
btGenMasterForm: TAlignButton;
acGenMasterForm: TAction;
Help1: TMenuItem;
entang1: TMenuItem;
btInfo: TAlignButton;
AlignButton1: TAlignButton;
acdbconfig: TAction;
N6: TMenuItem;
ConfigureConnection2: TMenuItem;
N5: TMenuItem;
Languageeditor1: TMenuItem;
Active1: TMenuItem;
N7: TMenuItem;
Show1: TMenuItem;
AlignButton3: TAlignButton;
Configurationform1: TMenuItem;
acConfigurationform: TAction;
N8: TMenuItem;
N9: TMenuItem;
acMultisub: TAction;
MultiSubForm1: TMenuItem;
acCreateproject: TAction;
acSelectivefield: TAction;
SelectiveField1: TMenuItem;
acAnalisysstructure: TAction;
AnalisysStructure1: TMenuItem;
acsynchdb: TAction;
acdatabasetree: TAction;
N12: TMenuItem;
Synchronizedatabase1: TMenuItem;
ShowDatabaseTree1: TMenuItem;
N13: TMenuItem;
ExtractProgramWord: TAction;
EkstrakKataProgram1: TMenuItem;
Databaseconnection1: TMenuItem;
Multiconnection1: TMenuItem;
acgliphconfiguration: TAction;
Appendlist2: TMenuItem;
acCheckConsisten: TAction;
Checkconsistency1: TMenuItem;
Mixed11: TMenuItem;
VerifyDB1: TMenuItem;
SQLUpdate2: TMenuItem;
SQLLoad2: TMenuItem;
SQLInsert2: TMenuItem;
LoadFromRefs1: TMenuItem;
Kuerirelasi1: TMenuItem;
Advanceload1: TMenuItem;
ablelist2: TMenuItem;
Newfromrefdetil1: TMenuItem;
Procsetcontrolpanel2: TMenuItem;
ProcRandomizechar2: TMenuItem;
Extractword2: TMenuItem;
SelectSQLLib1: TMenuItem;
AnalisysStructure2: TMenuItem;
SQLCreatetable1: TMenuItem;
ModifyList3: TMenuItem;
acGenRandomChar: TAction;
GenRandomChar1: TMenuItem;
acLanguageManager: TAction;
AlignButton2: TAlignButton;
LanguageManager1: TMenuItem;
N4: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure paAtasResize(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure acMainformExecute(Sender: TObject);
procedure acTableformExecute(Sender: TObject);
procedure acLoginFormExecute(Sender: TObject);
procedure acLibraryExecute(Sender: TObject);
procedure acFirstRightsExecute(Sender: TObject);
procedure acFirstOPExecute(Sender: TObject);
procedure acVerifyExecute(Sender: TObject);
procedure acSQLUpdateExecute(Sender: TObject);
procedure acSQLInsertExecute(Sender: TObject);
procedure acSQLLOadExecute(Sender: TObject);
procedure acLoadfromrefsExecute(Sender: TObject);
procedure acAdvanceloadExecute(Sender: TObject);
procedure acTablelistExecute(Sender: TObject);
procedure acNewfromrefdetailExecute(Sender: TObject);
procedure acProcsetcontrolpanelExecute(Sender: TObject);
procedure acRandomizecharExecute(Sender: TObject);
procedure acExtractwordExecute(Sender: TObject);
procedure acKueriRelasiExecute(Sender: TObject);
//
procedure acRefreshExecute(Sender: TObject);
procedure acConfigExecute(Sender: TObject);
procedure acTableconfigExecute(Sender: TObject);
procedure acOpenfileExecute(Sender: TObject);
//
procedure acAcceptlicproposalExecute(Sender: TObject);
procedure acDirectlicenseExecute(Sender: TObject);
procedure acConnectionfileExecute(Sender: TObject);
procedure acAcceptconproposalExecute(Sender: TObject);
procedure acShowTrackprocessExecute(Sender: TObject);
procedure acCleartrackprocessExecute(Sender: TObject);
procedure acgenformlistExecute(Sender: TObject);
procedure CreateSelectSQLLibExecute(Sender: TObject);
procedure SQLCreatetableExecute(Sender: TObject);
procedure acgen_intformExecute(Sender: TObject);
procedure acGenMasterFormExecute(Sender: TObject);
procedure entang1Click(Sender: TObject);
procedure acdbconfigExecute(Sender: TObject);
procedure acConfigurationformExecute(Sender: TObject);
procedure acMultisubExecute(Sender: TObject);
procedure acSelectivefieldExecute(Sender: TObject);
procedure acAnalisysstructureExecute(Sender: TObject);
procedure AlignButton4Click(Sender: TObject);
procedure acsynchdbExecute(Sender: TObject);
procedure acdatabasetreeExecute(Sender: TObject);
procedure ExtractProgramWordExecute(Sender: TObject);
procedure Multiconnection1Click(Sender: TObject);
procedure acgliphconfigurationExecute(Sender: TObject);
procedure acCheckConsistenExecute(Sender: TObject);
procedure acGenRandomCharExecute(Sender: TObject);
procedure acLanguageManagerExecute(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
FModified : boolean;
procedure SetModified(md:boolean);
procedure PakaiHubunganData;
//
procedure BuatIOSQL(InsertOrUpdate:string);
procedure BuatKueriRelasi(LTabel,LTarget:TStrings;
ClearTarget:boolean); overload;
procedure AdvanceLoadTabel(ALTarget:TStrings;
ClearTarget:boolean;NamaTabel:string);
procedure GenProcAdvanceLoad(NamaTabel:string;LTarget:TStrings;
Cleartarget:boolean);
procedure SetStatusTombol;
procedure SelectTablefromdatabase(LSelected: TStrings);
procedure RefreshInterface;
procedure GenPrefixIndikator(LTarget: TStrings;Implementasi:boolean);
procedure GenAutoNumberUmum(TableName: string; LTarget: TStrings;
Implementasi: boolean); overload;
procedure GenAutoNumberUmum(LTableName: Tstrings; LTarget: TStrings;
Implementasi: boolean); overload;
public
property Modified: boolean read FMOdified write SetModified;
Procedure Info(s: string); overload;
Procedure Info(IDMsg: integer); overload;
function TimeEntryFieldExists(AQuery: TZQuery; TableName: string):boolean;
procedure GenSQLLib(LTable,Ltarget: TStrings; Implementasi:boolean);
procedure GetSQLCreate(LTarget: TStrings);
end;
var
fmainboard: Tfmainboard;
