Changeset 11 for trunk/Forms/UFormMain.pas
- Timestamp:
- Nov 15, 2012, 6:44:18 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r10 r11 14 14 15 15 TFormMain = class(TForm) 16 AConnectionSettings: TAction; 16 17 ASetting: TAction; 17 18 AExit: TAction; … … 20 21 MainMenu1: TMainMenu; 21 22 MenuItem1: TMenuItem; 23 MenuItem3: TMenuItem; 24 MenuItem4: TMenuItem; 22 25 MenuItemSystem: TMenuItem; 23 26 MenuItem2: TMenuItem; … … 26 29 ToolBar1: TToolBar; 27 30 ToolButton1: TToolButton; 31 procedure AConnectionSettingsExecute(Sender: TObject); 28 32 procedure AExitExecute(Sender: TObject); 29 33 procedure ASettingExecute(Sender: TObject); … … 47 51 48 52 uses 49 UCore, UFormSetting ;53 UCore, UFormSetting, UFormConnection; 50 54 51 55 {$R *.lfm} … … 108 112 procedure TFormMain.AExitExecute(Sender: TObject); 109 113 begin 110 Exit; 114 Close; 115 end; 116 117 procedure TFormMain.AConnectionSettingsExecute(Sender: TObject); 118 begin 119 FormConnection.LoadFromDatabase(Core.Database); 120 if FormConnection.ShowModal = mrOk then begin 121 FormConnection.SaveToDatabase(Core.Database); 122 Core.Connect; 123 end; 111 124 end; 112 125
Note:
See TracChangeset
for help on using the changeset viewer.