Changeset 6 for trunk/Forms

Timestamp:

Jan 20, 2015, 12:31:24 AM (10 years ago)

Author:

chronos

Message:

• Added: Allow to create multiple database connections and set their parmaters.
• Added: Defined database engines to support various database backends. Each supports different set of field data types.

Location:

trunk/Forms

Files:

• UFormConnect.lfm (added)
• UFormConnect.pas (added)
• UFormDatabases.lfm (added)
• UFormDatabases.pas (added)
• UFormMain.lfm (added)
• UFormMain.pas (added)
• UFormRecord.lfm (modified) (1 diff)
• UFormTables.lfm (modified) (1 diff)
• UFormTables.pas (modified) (11 diffs)

trunk/Forms/UFormRecord.lfm

@@ -19 +19 @@
     Align = alTop
     BorderSpacing.Around = 4
+    BevelOuter = bvNone
     TabOrder = 0
   end

trunk/Forms/UFormTables.lfm

@@ -1 @@
-object FormMain: TFormMain
-  Left = 644
+object FormTables: TFormTables
+  Left = 659
   Height = 660
-  Top = 420
+  Top = 342
   Width = 978
-  Caption = 'MyData'
+  Caption = 'Tables'
   ClientHeight = 660
   ClientWidth = 978

trunk/Forms/UFormTables.pas

@@ -11 +11 @@
 type
 
-  { TFormMain }
+  { TFormTables }
 
-  TFormMain = class(TForm)
+  TFormTables = class(TForm)
     AAdd: TAction;
     AShowFields: TAction;
@@ -53 +53 @@
 
 var
-  FormMain: TFormMain;
+  FormTables: TFormTables;
 
 implementation
@@ -62 +62 @@
 {$R *.lfm}
 
-{ TFormMain }
+{ TFormTables }
 
-procedure TFormMain.ListView1Data(Sender: TObject; Item: TListItem);
+procedure TFormTables.ListView1Data(Sender: TObject; Item: TListItem);
 begin
   if (Item.Index >= 0) and (Item.Index < Database.Tables.Count) then
@@ -74 +74 @@
 end;
 
-procedure TFormMain.ListView1SelectItem(Sender: TObject; Item: TListItem;
+procedure TFormTables.ListView1SelectItem(Sender: TObject; Item: TListItem;
   Selected: Boolean);
 begin
@@ -80 +80 @@
 end;
 
-procedure TFormMain.UpdateInterface;
+procedure TFormTables.UpdateInterface;
 begin
   AModify.Enabled := Assigned(ListView1.Selected);
@@ -88 +88 @@
 end;
 
-procedure TFormMain.AAddExecute(Sender: TObject);
+procedure TFormTables.AAddExecute(Sender: TObject);
 var
   NewTable: TTable;
@@ -102 +102 @@
 end;
 
-procedure TFormMain.AModifyExecute(Sender: TObject);
+procedure TFormTables.AModifyExecute(Sender: TObject);
 begin
   if Assigned(ListView1.Selected) then begin
@@ -113 +113 @@
 end;
 
-procedure TFormMain.ARemoveExecute(Sender: TObject);
+procedure TFormTables.ARemoveExecute(Sender: TObject);
 begin
   if Assigned(ListView1.Selected) then begin
@@ -124 +124 @@
 end;
 
-procedure TFormMain.AShowFieldsExecute(Sender: TObject);
+procedure TFormTables.AShowFieldsExecute(Sender: TObject);
 var
   NewRecords: TRecords;
@@ -166 +166 @@
 end;
 
-procedure TFormMain.AShowRecordsExecute(Sender: TObject);
+procedure TFormTables.AShowRecordsExecute(Sender: TObject);
 begin
   if Assigned(ListView1.Selected) then begin
@@ -175 +175 @@
 end;
 
-procedure TFormMain.FormActivate(Sender: TObject);
+procedure TFormTables.FormActivate(Sender: TObject);
 begin
-  Core.Init;
 end;
 
-procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+procedure TFormTables.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  Core.Done;
+  Database.Save;
 end;
 
-procedure TFormMain.FormShow(Sender: TObject);
+procedure TFormTables.FormShow(Sender: TObject);
 begin
-  Database := Core.Database;
   ReloadList;
 end;
 
-procedure TFormMain.ReloadList;
+procedure TFormTables.ReloadList;
 begin
   ListView1.Items.Count := Database.Tables.Count;
   ListView1.Repaint;
-  FormMain.UpdateInterface;
+  UpdateInterface;
 end;