Changeset 19 for trunk/Forms

Timestamp:

Jun 14, 2011, 12:20:15 PM (13 years ago)

Author:

george

Message:

• Added: Import existed database structure form.

Location:

trunk/Forms

Files:

• UImportStructureForm.lfm (added)
• UImportStructureForm.lrt (added)
• UImportStructureForm.pas (added)
• UMainForm.lfm (modified) (2 diffs)
• UMainForm.lrt (modified) (1 diff)
• UMainForm.pas (modified) (6 diffs)
• USettingForm.lfm (modified) (2 diffs)

trunk/Forms/UMainForm.lfm

@@ -182 +182 @@
       OnExecute = AInitSystemValuesExecute
     end
+    object AImportStructure: TAction
+      Caption = 'Import structure...'
+      OnExecute = AImportStructureExecute
+    end
   end
   object PopupMenuItem: TPopupMenu
@@ -332 +336 @@
         Action = AInitSystemValues
       end
+      object MenuItem20: TMenuItem
+        Action = AImportStructure
+      end
     end
     object MenuItem12: TMenuItem

trunk/Forms/UMainForm.lrt

@@ -19 +19 @@
 TMAINFORM.ASETTINGS.HINT=Settings
 TMAINFORM.AINITSYSTEMVALUES.CAPTION=Init system values
+TMAINFORM.AIMPORTSTRUCTURE.CAPTION=Import structure...
 TMAINFORM.MENUITEM13.CAPTION=Server
 TMAINFORM.MENUITEM11.CAPTION=View

trunk/Forms/UMainForm.pas

@@ -15 +15 @@
 
   TMainForm = class(TForm)
+  published
     AConnect: TAction;
+    AImportStructure: TAction;
     AInitSystemValues: TAction;
     ASettings: TAction;
@@ -50 +52 @@
     MenuItem19: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem20: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -66 +69 @@
     procedure AConnectExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure AImportStructureExecute(Sender: TObject);
     procedure AInitSystemValuesExecute(Sender: TObject);
     procedure AItemAddExecute(Sender: TObject);
@@ -124 +128 @@
 uses
   UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo,
-  UCore;
+  UCore, UImportStructureForm;
 
 {$R *.lfm}
@@ -340 +344 @@
         '`Min` int NOT NULL,' +
         '`Max` int NOT NULL,' +
+        'KEY `CustomType` (`CustomType`),' +
+        'PRIMARY KEY (`Id`)' +
+        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
+    end;
+
+    if Tables.IndexOf(TypeFloat) = -1 then begin
+      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeFloat + '` ( ' +
+        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
+        '`CustomType` int NOT NULL,' +
+        '`Default` float NOT NULL,' +
+        '`Min` float NOT NULL,' +
+        '`Max` float NOT NULL,' +
         'KEY `CustomType` (`CustomType`),' +
         'PRIMARY KEY (`Id`)' +
@@ -555 +571 @@
 begin
   Close;
+end;
+
+procedure TMainForm.AImportStructureExecute(Sender: TObject);
+begin
+  ImportStructureForm.ShowModal;
 end;
 

trunk/Forms/USettingForm.lfm

@@ -1 +1 @@
 object SettingForm: TSettingForm
-  Left = 355
+  Left = 371
   Height = 328
-  Top = 166
+  Top = 138
   Width = 446
   Caption = 'Settings'
@@ -46 +46 @@
   end
   object Label2: TLabel
-    Left = 9
+    Left = 8
     Height = 14
     Top = 38