Changeset 11 for trunk/Forms

Timestamp:

Nov 15, 2012, 6:44:18 AM (12 years ago)

Author:

chronos

Message:

• Přidáno: Dialog pro nastavení parametrů připojení.

Location:

trunk/Forms

Files:

• UFormConnection.lfm (added)
• UFormConnection.lrt (added)
• UFormConnection.pas (added)
• UFormMain.lfm (modified) (5 diffs)
• UFormMain.lrt (modified) (1 diff)
• UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 377
+  Left = 306
   Height = 455
-  Top = 138
+  Top = 127
   Width = 733
   Caption = 'Attendance'
-  ClientHeight = 430
+  ClientHeight = 436
   ClientWidth = 733
   Menu = MainMenu1
@@ -16 +16 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 21
-    Top = 409
+    Height = 20
+    Top = 416
     Width = 733
     Panels = <>
@@ -39 +39 @@
   object PageControl1: TPageControl
     Left = 0
-    Height = 383
+    Height = 390
     Top = 26
     Width = 733
@@ -52 +52 @@
     object MenuItemSystem: TMenuItem
       Caption = 'System'
+      object MenuItem3: TMenuItem
+        Caption = 'Database'
+        object MenuItem4: TMenuItem
+          Action = AConnectionSettings
+        end
+      end
       object MenuItem1: TMenuItem
         Action = ASetting
@@ -73 +79 @@
       Hint = 'Show global setting'
       OnExecute = ASettingExecute
+      ShortCut = 120
+    end
+    object AConnectionSettings: TAction
+      Caption = 'Connection settings'
+      OnExecute = AConnectionSettingsExecute
+      ShortCut = 121
     end
   end

trunk/Forms/UFormMain.lrt

@@ -1 +1 @@
 TFORMMAIN.CAPTION=Attendance
 TFORMMAIN.MENUITEMSYSTEM.CAPTION=System
+TFORMMAIN.MENUITEM3.CAPTION=Database
 TFORMMAIN.AEXIT.CAPTION=Exit
 TFORMMAIN.AEXIT.HINT=Close application
 TFORMMAIN.ASETTING.CAPTION=Setting
 TFORMMAIN.ASETTING.HINT=Show global setting
+TFORMMAIN.ACONNECTIONSETTINGS.CAPTION=Connection settings

trunk/Forms/UFormMain.pas

@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    AConnectionSettings: TAction;
     ASetting: TAction;
     AExit: TAction;
@@ -20 +21 @@
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
     MenuItemSystem: TMenuItem;
     MenuItem2: TMenuItem;
@@ -26 +29 @@
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
+    procedure AConnectionSettingsExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure ASettingExecute(Sender: TObject);
@@ -47 +51 @@
 
 uses
-  UCore, UFormSetting;
+  UCore, UFormSetting, UFormConnection;
 
 {$R *.lfm}
@@ -108 +112 @@
 procedure TFormMain.AExitExecute(Sender: TObject);
 begin
-  Exit;
+  Close;
+end;
+
+procedure TFormMain.AConnectionSettingsExecute(Sender: TObject);
+begin
+  FormConnection.LoadFromDatabase(Core.Database);
+  if FormConnection.ShowModal = mrOk then begin
+    FormConnection.SaveToDatabase(Core.Database);
+    Core.Connect;
+  end;
 end;