* Minor fix in docs.

* Ported tiOPF2 Demos 06 and 07 to fpGUI.

3 files changed, 313 insertions, 0 deletions

diff --git a/extras/tiopf/demos/Demo_06_CreateTable/demo_06.lpi b/extras/tiopf/demos/Demo_06_CreateTable/demo_06.lpi
new file mode 100644
index 00000000..29fe7b8d
--- /dev/null
+++ b/extras/tiopf/demos/Demo_06_CreateTable/demo_06.lpi
@@ -0,0 +1,69 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="/"/>
+    <Version Value="6"/>
+    <General>
+      <Flags>
+        <SaveOnlyProjectUnits Value="True"/>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <IconPath Value="./"/>
+      <TargetFileExt Value=""/>
+    </General>
+    <VersionInfo>
+      <ProjectVersion Value=""/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="2">
+      <Item1>
+        <PackageName Value="fpgui_package"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="tiOPFfpGUI"/>
+      </Item2>
+    </RequiredPackages>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="demo_06.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="demo_06"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="frm_main.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="frm_main"/>
+      </Unit1>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="5"/>
+    <Parsing>
+      <SyntaxOptions>
+        <AllowLabel Value="False"/>
+        <CPPInline Value="False"/>
+      </SyntaxOptions>
+    </Parsing>
+    <CodeGeneration>
+      <Generate Value="Faster"/>
+    </CodeGeneration>
+    <Other>
+      <CustomOptions Value="-FUunits
+-dUseCThreads"/>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+</CONFIG>
diff --git a/extras/tiopf/demos/Demo_06_CreateTable/demo_06.lpr b/extras/tiopf/demos/Demo_06_CreateTable/demo_06.lpr
new file mode 100644
index 00000000..7664dadf
--- /dev/null
+++ b/extras/tiopf/demos/Demo_06_CreateTable/demo_06.lpr
@@ -0,0 +1,39 @@
+program demo_06;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Classes, fpgfx, frm_main, tiOPFManager;
+
+
+procedure MainProc;
+var
+  frm: TMainForm;
+begin
+  fpgApplication.Initialize;
+  
+  // Change the connection string to suite your database location
+  // ** Remote connection
+//  gTIOPFManager.ConnectDatabase('192.168.0.54|/home/graemeg/programming/data/tiopf.fdb', 'sysdba', 'masterkey');
+  // ** Local connection
+  gTIOPFManager.ConnectDatabase('/home/graemeg/programming/data/tiopf.fdb', 'sysdba', 'masterkey');
+
+  frm := TMainForm.Create(nil);
+  try
+    frm.Show;
+    fpgApplication.Run;
+  finally
+    frm.Free;
+    gTIOPFManager.DisconnectDatabase;
+    gTIOPFManager.Terminate;
+  end;
+end;
+
+begin
+  MainProc;
+end.
+
+
diff --git a/extras/tiopf/demos/Demo_06_CreateTable/frm_main.pas b/extras/tiopf/demos/Demo_06_CreateTable/frm_main.pas
new file mode 100644
index 00000000..7173bea4
--- /dev/null
+++ b/extras/tiopf/demos/Demo_06_CreateTable/frm_main.pas
@@ -0,0 +1,205 @@
+unit frm_main;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  SysUtils, Classes, fpgfx,
+  gfx_widget, gui_form, gui_label, gui_button,
+  gui_memo, gui_dialogs;
+
+type
+
+  TMainForm = class(TfpgForm)
+  private
+    procedure btnCreateTableClick(Sender: TObject);
+    procedure btnDropTableClick(Sender: TObject);
+    procedure btnShowMetaDataClick(Sender: TObject);
+    procedure btnTableExistsClick(Sender: TObject);
+  public
+    {@VFD_HEAD_BEGIN: MainForm}
+    lblConnectedTo: TfpgLabel;
+    btnCreateTable: TfpgButton;
+    btnDropTable: TfpgButton;
+    btnShowMetaData: TfpgButton;
+    btnTableExists: TfpgButton;
+    memName1: TfpgMemo;
+    {@VFD_HEAD_END: MainForm}
+    constructor Create(AOwner: TComponent); override;
+    procedure AfterCreate; override;
+  end;
+
+{@VFD_NEWFORM_DECL}
+
+implementation
+
+uses
+   tiQuery
+  ,tiOPFManager
+  ,tiOIDGUID
+  ,tiDialogs
+  ;
+
+{@VFD_NEWFORM_IMPL}
+
+procedure TMainForm.btnCreateTableClick(Sender: TObject);
+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('ACN',               qfkString,   9);
+    gTIOPFManager.CreateTable(LTableMetaData);
+  finally
+    LTableMetaData.Free;
+  end;
+  ShowMessage('Table ''Client'' created');
+end;
+
+procedure TMainForm.btnDropTableClick(Sender: TObject);
+begin
+  gTIOPFManager.DropTable('Client');
+  ShowMessage('Table ''Client'' dropped');
+end;
+
+procedure TMainForm.btnShowMetaDataClick(Sender: TObject);
+var
+  LTableMetaData: TtiDBMetaDataTable;
+  LDatabase     : TtiDatabase;
+begin
+  LTableMetaData:= TtiDBMetaDataTable.Create;
+  try
+    LTableMetaData.Name:= 'Client';
+    LDatabase:= gTIOPFManager.DefaultDBConnectionPool.Lock;
+    try
+      LDatabase.ReadMetaDataFields(LTableMetaData);
+      tiShowMessage(LTableMetaData.AsDebugString);
+    finally
+      gTIOPFManager.DefaultDBConnectionPool.UnLock(LDatabase);
+    end;
+  finally
+    LTableMetaData.Free;
+  end;
+end;
+
+procedure TMainForm.btnTableExistsClick(Sender: TObject);
+var
+  LDBMetaData: TtiDBMetaData;
+  LDatabase  : TtiDatabase;
+begin
+  LDBMetaData:= TtiDBMetaData.Create;
+  try
+    LDatabase:= gTIOPFManager.DefaultDBConnectionPool.Lock;
+    try
+      LDatabase.ReadMetaDataTables(LDBMetaData);
+      if LDBMetaData.FindByTableName('Client') <> nil then
+        ShowMessage('Table <Client> exists')
+      else
+        ShowMessage('Table <Client> does not exist');
+    finally
+      gTIOPFManager.DefaultDBConnectionPool.UnLock(LDatabase);
+    end;
+  finally
+    LDBMetaData.Free;
+  end;
+end;
+
+constructor TMainForm.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  lblConnectedTo.Text := 'Connected to: ' + gTIOPFManager.DefaultDBConnectionName;
+end;
+
+procedure TMainForm.AfterCreate;
+begin
+  {@VFD_BODY_BEGIN: MainForm}
+  Name := 'MainForm';
+  SetPosition(738, 153, 389, 250);
+  WindowTitle := 'Create table demo';
+  WindowPosition := wpScreenCenter;
+  Sizeable := False;
+
+  lblConnectedTo := TfpgLabel.Create(self);
+  with lblConnectedTo do
+  begin
+    Name := 'lblConnectedTo';
+    SetPosition(4, 4, 380, 16);
+    Text := 'Connected To:';
+    FontDesc := '#Label1';
+  end;
+
+  btnCreateTable := TfpgButton.Create(self);
+  with btnCreateTable do
+  begin
+    Name := 'btnCreateTable';
+    SetPosition(280, 24, 103, 24);
+    Text := 'Create Table';
+    FontDesc := '#Label1';
+    ImageName := '';
+    OnClick := @btnCreateTableClick;
+  end;
+
+  btnDropTable := TfpgButton.Create(self);
+  with btnDropTable do
+  begin
+    Name := 'btnDropTable';
+    SetPosition(280, 52, 103, 24);
+    Text := 'Drop Table';
+    FontDesc := '#Label1';
+    ImageName := '';
+    OnClick := @btnDropTableClick;
+  end;
+
+  btnShowMetaData := TfpgButton.Create(self);
+  with btnShowMetaData do
+  begin
+    Name := 'btnShowMetaData';
+    SetPosition(280, 80, 103, 24);
+    Text := 'Show metadata';
+    FontDesc := '#Label1';
+    ImageName := '';
+    OnClick := @btnShowMetaDataClick;
+  end;
+
+  btnTableExists := TfpgButton.Create(self);
+  with btnTableExists do
+  begin
+    Name := 'btnTableExists';
+    SetPosition(280, 108, 103, 24);
+    Text := 'Table exists?';
+    FontDesc := '#Label1';
+    ImageName := '';
+    OnClick := @btnTableExistsClick;
+  end;
+
+  memName1 := TfpgMemo.Create(self);
+  with memName1 do
+  begin
+    Name := 'memName1';
+    SetPosition(4, 24, 264, 220);
+    Lines.Add('This demo will:');
+    Lines.Add('');
+    Lines.Add('a) Create a table called Client with the');
+    Lines.Add('    following structure:');
+    Lines.Add('       OID String(36)');
+    Lines.Add('       Client_Name String(200)');
+    Lines.Add('       Client_ID String(9)');
+    Lines.Add('');
+    Lines.Add('b) Test if a table called Client exists');
+    Lines.Add('');
+    Lines.Add('c) Show metadata for the Client table');
+    Lines.Add('');
+    Lines.Add('d) Drop the client table');
+    FontDesc := '#Edit1';
+    Enabled := False;
+  end;
+
+  {@VFD_BODY_END: MainForm}
+end;
+
+
+end.