summaryrefslogtreecommitdiff
path: root/extras/tiopf/demos/Demo_08_Collection/frm_main.pas
diff options
context:
space:
mode:
Diffstat (limited to 'extras/tiopf/demos/Demo_08_Collection/frm_main.pas')
-rw-r--r--extras/tiopf/demos/Demo_08_Collection/frm_main.pas332
1 files changed, 0 insertions, 332 deletions
diff --git a/extras/tiopf/demos/Demo_08_Collection/frm_main.pas b/extras/tiopf/demos/Demo_08_Collection/frm_main.pas
deleted file mode 100644
index 34241b17..00000000
--- a/extras/tiopf/demos/Demo_08_Collection/frm_main.pas
+++ /dev/null
@@ -1,332 +0,0 @@
-unit frm_main;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
- SysUtils, Classes, fpg_base, fpg_main, fpg_edit,
- fpg_widget, fpg_form, fpg_label, fpg_button,
- fpg_listbox, fpg_memo, fpg_combobox, fpg_grid,
- fpg_dialogs, fpg_checkbox, fpg_tree, fpg_trackbar,
- fpg_progressbar, fpg_radiobutton, fpg_tab, fpg_menu,
- fpg_panel, Client_BOM, tiModelMediator;
-
-type
-
- TMainForm = class(TfpgForm)
- private
- {@VFD_HEAD_BEGIN: MainForm}
- lblName1: TfpgLabel;
- lblName2: TfpgLabel;
- lblName3: TfpgLabel;
- edtOID: TfpgEdit;
- edtClientName: TfpgEdit;
- edtClientID: TfpgEdit;
- btnInsertRow: TfpgButton;
- btnDeleteRow: TfpgButton;
- btnShow: TfpgButton;
- btnSave: TfpgButton;
- btnRead: TfpgButton;
- grdCollection: TfpgStringGrid;
- {@VFD_HEAD_END: MainForm}
- FClients: TClients;
- FMediator: TtiModelMediator;
- procedure MainFormShow(Sender: TObject);
- procedure CreateTable;
- procedure DropTable;
- procedure CreateMediators;
- function TableExists: boolean;
- procedure btnInsertRowClick(Sender: TObject);
- procedure btnDeleteRowClick(Sender: TObject);
- procedure btnSaveClick(Sender: TObject);
- procedure btnReadClick(Sender: TObject);
- procedure btnShowClick(Sender: TObject);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure AfterCreate; override;
- end;
-
-{@VFD_NEWFORM_DECL}
-
-implementation
-
-uses
- tiQuery
- ,tiOIDGUID
- ,tiOPFManager
- ,tiDBConnectionPool
- ,tiOID
- ,tiDialogs
- ,tiConstants
- ,tiBaseMediator
- ,tiListMediators
- ,tiLog
- ;
-
-{@VFD_NEWFORM_IMPL}
-
-procedure TMainForm.MainFormShow(Sender: TObject);
-begin
- Log('Creating mediators');
- CreateMediators;
-
- // Drop and re-create to be sure we start with the correct structure
- Log('Testing if table exists');
- if TableExists then
- begin
- Log(' Should we drop and recreate the tables');
- if TfpgMessageDialog.Question(ApplicationName, 'Must we delete existing data?', mbYesNo) = mbYes then
- begin
- DropTable;
- CreateTable;
- end;
- end
- else
- CreateTable;
-end;
-
-procedure TMainForm.CreateTable;
-var
- LTableMetaData: TtiDBMetaDataTable;
-begin
- LTableMetaData := TtiDBMetaDataTable.Create;
- try
- LTableMetaData.Name:= 'Client';
- LTableMetaData.AddField('OID', qfkString, 36); // Using GUID OIDs
- LTableMetaData.AddField('Client_Name', qfkString, 200);
- LTableMetaData.AddField('Client_ID', qfkString, 9);
- gTIOPFManager.CreateTable(LTableMetaData);
- finally
- LTableMetaData.Free;
- end;
-end;
-
-procedure TMainForm.DropTable;
-begin
- gTIOPFManager.DropTable('Client');
-end;
-
-procedure TMainForm.CreateMediators;
-begin
- if not Assigned(FMediator) then
- begin
- FMediator := TtiModelMediator.Create(self);
- FMediator.AddComposite('ClientName(200,"Client name");ClientID(80,"Client ID")', grdCollection);
- end;
- FMediator.Subject := FClients;
- FMediator.Active := True;
-
- //FmedClients := TClient_StringGrid_Mediator.CreateCustom(FClients, grdCollection, 'ClientName(200,"Client name");ClientID(80,"Client ID")');
- //FClients.NotifyObservers;
-
- //LV.AddColumn(LVDeriveOID, 'OID', 270);
- //LV.AddColumn('ClientName', vttkString, 'Client name', 200);
- //LV.AddColumn('ClientID', vttkString, 'Client ID', 80);
- //LV.Data:= FClients;
-end;
-
-function TMainForm.TableExists: boolean;
-var
- LDBMetaData: TtiDBMetaData;
- LDatabase: TtiDatabase;
-begin
- LDBMetaData := TtiDBMetaData.Create;
- try
- LDatabase := gTIOPFManager.DefaultDBConnectionPool.Lock;
- try
-// Log(' Reading meta data of tables');
- LDatabase.ReadMetaDataTables(LDBMetaData);
-// log(' Finding the table <Client>');
- result := LDBMetaData.FindByTableName('Client') <> nil;
- finally
- gTIOPFManager.DefaultDBConnectionPool.UnLock(LDatabase);
- end;
- finally
- LDBMetaData.Free;
- end;
-end;
-
-procedure TMainForm.btnInsertRowClick(Sender: TObject);
-var
- LClient: TClient;
-begin
- LClient:= TClient.CreateNew;
- FClients.Add(LClient);
-end;
-
-procedure TMainForm.btnDeleteRowClick(Sender: TObject);
-begin
- //if LV.SelectedData <> nil then
- //LV.SelectedData.Deleted:= true;
- //LV.Refresh;
-end;
-
-procedure TMainForm.btnSaveClick(Sender: TObject);
-begin
- FClients.Save;
-end;
-
-procedure TMainForm.btnReadClick(Sender: TObject);
-begin
- FMediator.Active := False;
- FClients.Clear;
- FClients.Read;
- FMediator.Active := True;
-end;
-
-procedure TMainForm.btnShowClick(Sender: TObject);
-begin
- tiShowString(FClients.AsDebugString);
-end;
-
-constructor TMainForm.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- WindowTitle := 'Connected to ' + gTIOPFManager.DefaultDBConnectionName;
- FClients := TClients.Create;
- OnShow := @MainFormShow;
-end;
-
-destructor TMainForm.Destroy;
-begin
- FMediator.Active := False;
- FClients.Free;
- inherited Destroy;
-end;
-
-procedure TMainForm.AfterCreate;
-begin
- {@VFD_BODY_BEGIN: MainForm}
- Name := 'MainForm';
- SetPosition(304, 254, 565, 250);
- WindowTitle := 'Collection demo';
- WindowPosition := wpScreenCenter;
- Sizeable := False;
-
- lblName1 := TfpgLabel.Create(self);
- with lblName1 do
- begin
- Name := 'lblName1';
- SetPosition(8, 12, 80, 16);
- Text := 'OID:';
- FontDesc := '#Label1';
- end;
-
- lblName2 := TfpgLabel.Create(self);
- with lblName2 do
- begin
- Name := 'lblName2';
- SetPosition(8, 36, 80, 16);
- Text := 'Client Name:';
- FontDesc := '#Label1';
- end;
-
- lblName3 := TfpgLabel.Create(self);
- with lblName3 do
- begin
- Name := 'lblName3';
- SetPosition(8, 60, 80, 16);
- Text := 'Client ID:';
- FontDesc := '#Label1';
- end;
-
- edtOID := TfpgEdit.Create(self);
- with edtOID do
- begin
- Name := 'edtOID';
- SetPosition(88, 8, 172, 22);
- Text := '';
- FontDesc := '#Edit1';
- end;
-
- edtClientName := TfpgEdit.Create(self);
- with edtClientName do
- begin
- Name := 'edtClientName';
- SetPosition(88, 32, 172, 22);
- Text := '';
- FontDesc := '#Edit1';
- end;
-
- edtClientID := TfpgEdit.Create(self);
- with edtClientID do
- begin
- Name := 'edtClientID';
- SetPosition(88, 56, 172, 22);
- Text := '';
- FontDesc := '#Edit1';
- end;
-
- btnInsertRow := TfpgButton.Create(self);
- with btnInsertRow do
- begin
- Name := 'btnInsertRow';
- SetPosition(268, 8, 143, 24);
- Text := 'Insert object into list';
- FontDesc := '#Label1';
- ImageName := '';
- OnClick := @btnInsertRowClick;
- end;
-
- btnDeleteRow := TfpgButton.Create(self);
- with btnDeleteRow do
- begin
- Name := 'btnDeleteRow';
- SetPosition(268, 36, 143, 24);
- Text := 'Delete object in list';
- FontDesc := '#Label1';
- ImageName := '';
- OnClick := @btnDeleteRowClick;
- end;
-
- btnShow := TfpgButton.Create(self);
- with btnShow do
- begin
- Name := 'btnShow';
- SetPosition(416, 8, 143, 24);
- Text := 'Show Objects in list';
- FontDesc := '#Label1';
- ImageName := '';
- OnClick := @btnShowClick;
- end;
-
- btnSave := TfpgButton.Create(self);
- with btnSave do
- begin
- Name := 'btnSave';
- SetPosition(416, 36, 143, 24);
- Text := 'Save';
- FontDesc := '#Label1';
- ImageName := '';
- OnClick := @btnSaveClick;
- end;
-
- btnRead := TfpgButton.Create(self);
- with btnRead do
- begin
- Name := 'btnRead';
- SetPosition(416, 64, 143, 24);
- Text := 'Read list from DB';
- FontDesc := '#Label1';
- ImageName := '';
- OnClick := @btnReadClick;
- end;
-
- grdCollection := TfpgStringGrid.Create(self);
- with grdCollection do
- begin
- Name := 'grdCollection';
- SetPosition(8, 96, 552, 148);
- FontDesc := '#Grid';
- HeaderFontDesc := '#GridHeader';
- end;
-
- {@VFD_BODY_END: MainForm}
-end;
-
-initialization
- gMediatorManager.RegisterMediator(TtiStringGridMediatorView, TClients);
-
-end.
generated by cgit v1.2.3-70-g09d2 (git 2.48.0) at 2025-01-16 14:38:06 +0000