Changeset 19 for trunk/Forms/UMainForm.pas

Timestamp:

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

Author:

george

Message:

• Added: Import existed database structure form.

File:

• trunk/Forms/UMainForm.pas (modified) (6 diffs)

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;