From cc56eecf35ec146de82a98fc34663b27e20434d5 Mon Sep 17 00:00:00 2001
From: healt-kr <healt.kr@gmail.com>
Date: Thu, 31 Jan 2019 11:40:30 +0900
Subject: [PATCH 01/11] =?UTF-8?q?=EC=97=AC=ED=96=89=20=EC=98=88=EC=95=BD?=
 =?UTF-8?q?=20=EA=B4=80=EB=A6=AC=20=EC=9E=91=EC=84=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../DataModule.dfm"                           |  26 +-
 .../DataModule.pas"                           |  17 +-
 .../EventManager.dfm"                         | 491 ++++++++++++------
 .../EventManager.pas"                         | 217 +++++++-
 .../MainMenu.dfm"                             |  15 -
 .../MainMenu.pas"                             |   3 +-
 .../ttms.sdb"                                 | Bin 962560 -> 962560 bytes
 7 files changed, 564 insertions(+), 205 deletions(-)

diff --git "a/\352\271\200\355\230\204\354\262\240/DataModule.dfm" "b/\352\271\200\355\230\204\354\262\240/DataModule.dfm"
index 92f191b..6d814ab 100644
--- "a/\352\271\200\355\230\204\354\262\240/DataModule.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/DataModule.dfm"
@@ -1,12 +1,30 @@
 object DataModule1: TDataModule1
   OldCreateOrder = False
-  Height = 150
-  Width = 215
+  OnCreate = DataModuleCreate
+  OnDestroy = DataModuleDestroy
+  Height = 169
+  Width = 294
   object FDConnection1: TFDConnection
     Params.Strings = (
       'Database=D:\DelphiProject\EduMaster201901\'#44608#54788#52384'\ttms.sdb'
       'DriverID=SQLite')
-    Left = 31
-    Top = 40
+    Left = 55
+    Top = 96
+  end
+  object FDQueryManager: TFDQuery
+    Connection = FDConnection1
+    SQL.Strings = (
+      'SELECT * '
+      'FROM manager'
+      'WHERE pass = :pass')
+    Left = 159
+    Top = 94
+    ParamData = <
+      item
+        Name = 'PASS'
+        DataType = ftString
+        ParamType = ptInput
+        Value = '1234'
+      end>
   end
 end
diff --git "a/\352\271\200\355\230\204\354\262\240/DataModule.pas" "b/\352\271\200\355\230\204\354\262\240/DataModule.pas"
index 73b1bc6..0d921b6 100644
--- "a/\352\271\200\355\230\204\354\262\240/DataModule.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/DataModule.pas"
@@ -7,11 +7,15 @@ interface
   FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
   FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.SQLite,
   FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, FireDAC.VCLUI.Wait, Data.DB,
-  FireDAC.Comp.Client;
+  FireDAC.Comp.Client, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
+  FireDAC.DApt, FireDAC.Comp.DataSet;
 
 type
   TDataModule1 = class(TDataModule)
     FDConnection1: TFDConnection;
+    FDQueryManager: TFDQuery;
+    procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   private
     { Private declarations }
   public
@@ -27,4 +31,15 @@ implementation
 
 {$R *.dfm}
 
+procedure TDataModule1.DataModuleCreate(Sender: TObject);
+begin
+  FDConnection1.Connected := True;
+  FDQueryManager.Open;
+end;
+
+procedure TDataModule1.DataModuleDestroy(Sender: TObject);
+begin
+  FDConnection1.Connected := False;
+end;
+
 end.
diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.dfm" "b/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
index 1d2c618..3bba1f3 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
@@ -10,195 +10,303 @@ object frmEvent: TfrmEvent
   Font.Height = -15
   Font.Name = 'Tahoma'
   Font.Style = []
+  KeyPreview = True
   OldCreateOrder = False
-  OnCreate = FormCreate
+  OnActivate = FormActivate
+  OnDeactivate = FormDeactivate
+  OnKeyDown = FormKeyDown
   PixelsPerInch = 96
   TextHeight = 18
   object DBText1: TDBText
-    Left = 74
-    Top = 21
-    Width = 65
+    Left = 82
+    Top = 22
+    Width = 119
     Height = 17
     DataField = 'serial'
     DataSource = DataSource1
   end
   object Label1: TLabel
-    Left = 16
+    Left = 14
     Top = 21
-    Width = 52
+    Width = 62
     Height = 18
-    Caption = #54665#49324#48264#54840
+    Caption = #54665#49324#48264#54840' :'
   end
   object Label2: TLabel
-    Left = 218
+    Left = 226
     Top = 21
-    Width = 52
+    Width = 62
     Height = 18
-    Caption = #51217#49688#51068#51088
+    Caption = #51217#49688#51068#51088' :'
   end
   object Label3: TLabel
-    Left = 472
+    Left = 421
     Top = 21
-    Width = 52
+    Width = 62
     Height = 18
-    Caption = #51652#54665#51068#51088
+    Caption = #51652#54665#51068#51088' :'
   end
   object Label4: TLabel
-    Left = 16
+    Left = 24
     Top = 56
     Width = 39
     Height = 18
     Caption = #45812#45817#51088
   end
   object Label5: TLabel
-    Left = 216
+    Left = 224
     Top = 56
     Width = 39
     Height = 18
     Caption = #44144#47000#52376
   end
   object Label6: TLabel
-    Left = 16
+    Left = 24
     Top = 96
     Width = 39
     Height = 18
     Caption = #54665#49324#47749
   end
   object Label7: TLabel
-    Left = 16
+    Left = 24
     Top = 144
     Width = 52
     Height = 18
     Caption = #54665#49324#44592#44036
   end
   object Label8: TLabel
-    Left = 16
+    Left = 24
     Top = 192
     Width = 52
     Height = 18
     Caption = #44256#44061#49457#47749
   end
   object Label9: TLabel
-    Left = 16
+    Left = 24
     Top = 232
     Width = 52
     Height = 18
     Caption = #51204#54868#48264#54840
   end
   object Label10: TLabel
-    Left = 368
+    Left = 376
     Top = 232
     Width = 39
     Height = 18
     Caption = #54648#46300#54256
   end
   object Label11: TLabel
-    Left = 16
+    Left = 24
     Top = 272
     Width = 52
     Height = 18
     Caption = #52636#48156#51068#49884
   end
   object Label12: TLabel
-    Left = 368
+    Left = 376
     Top = 272
     Width = 39
     Height = 18
     Caption = #51665#44208#51648
   end
   object Label13: TLabel
-    Left = 16
+    Left = 24
     Top = 312
     Width = 52
     Height = 18
     Caption = #54788#51648#52636#48156
   end
   object Label14: TLabel
-    Left = 368
+    Left = 376
     Top = 312
     Width = 39
     Height = 18
     Caption = #51665#44208#51648
   end
   object Label15: TLabel
-    Left = 19
+    Left = 27
     Top = 352
     Width = 39
     Height = 18
     Caption = #49689#49548#47749
   end
   object Label16: TLabel
-    Left = 366
+    Left = 374
     Top = 352
     Width = 39
     Height = 18
     Caption = #44061#49892#47749
   end
   object Label17: TLabel
-    Left = 462
+    Left = 470
     Top = 352
     Width = 39
     Height = 18
     Caption = #44061#49892#49688
   end
   object DBTextReservationDate: TDBText
-    Left = 276
+    Left = 294
     Top = 21
-    Width = 65
+    Width = 111
     Height = 17
-    DataField = 'serial'
+    DataField = 'reservation_date'
     DataSource = DataSource1
   end
   object DBTextProcessDate: TDBText
-    Left = 530
+    Left = 489
     Top = 21
-    Width = 65
+    Width = 158
     Height = 17
-    DataField = 'serial'
+    DataField = 'process_date'
     DataSource = DataSource1
   end
   object Label18: TLabel
-    Left = 519
-    Top = 101
+    Left = 520
+    Top = 145
     Width = 13
     Height = 18
     Caption = #48149
   end
   object Label19: TLabel
-    Left = 583
-    Top = 101
+    Left = 584
+    Top = 145
     Width = 13
     Height = 18
     Caption = #51068
   end
   object Label20: TLabel
-    Left = 381
+    Left = 389
     Top = 192
     Width = 26
     Height = 18
     Caption = #51064#50896
   end
   object Label21: TLabel
-    Left = 500
+    Left = 508
     Top = 192
     Width = 26
     Height = 18
     Caption = #45824#51064
   end
   object Label22: TLabel
-    Left = 585
+    Left = 593
     Top = 192
     Width = 26
     Height = 18
     Caption = #49548#51064
   end
   object Label23: TLabel
-    Left = 565
+    Left = 573
     Top = 352
     Width = 39
     Height = 18
     Caption = #44061#49892#49688
   end
+  object Label24: TLabel
+    Left = 260
+    Top = 140
+    Width = 11
+    Height = 18
+    Caption = '~'
+  end
+  object Label25: TLabel
+    Left = 207
+    Top = 272
+    Width = 13
+    Height = 18
+    Caption = #49884
+  end
+  object Label26: TLabel
+    Left = 245
+    Top = 272
+    Width = 13
+    Height = 18
+    Caption = #48516
+  end
+  object Label27: TLabel
+    Left = 206
+    Top = 311
+    Width = 13
+    Height = 18
+    Caption = #49884
+  end
+  object Label28: TLabel
+    Left = 244
+    Top = 311
+    Width = 13
+    Height = 18
+    Caption = #48516
+  end
+  object Label29: TLabel
+    Left = 127
+    Top = 140
+    Width = 13
+    Height = 18
+    Caption = #45380
+  end
+  object Label30: TLabel
+    Left = 179
+    Top = 140
+    Width = 13
+    Height = 18
+    Caption = #50900
+  end
+  object Label31: TLabel
+    Left = 231
+    Top = 140
+    Width = 13
+    Height = 18
+    Caption = #51068
+  end
+  object Label32: TLabel
+    Left = 332
+    Top = 140
+    Width = 13
+    Height = 18
+    Caption = #45380
+  end
+  object Label33: TLabel
+    Left = 384
+    Top = 140
+    Width = 13
+    Height = 18
+    Caption = #50900
+  end
+  object Label34: TLabel
+    Left = 436
+    Top = 140
+    Width = 13
+    Height = 18
+    Caption = #51068
+  end
+  object Label35: TLabel
+    Left = 115
+    Top = 272
+    Width = 13
+    Height = 18
+    Caption = #50900
+  end
+  object Label36: TLabel
+    Left = 167
+    Top = 272
+    Width = 13
+    Height = 18
+    Caption = #51068
+  end
+  object Label37: TLabel
+    Left = 115
+    Top = 311
+    Width = 13
+    Height = 18
+    Caption = #50900
+  end
+  object Label38: TLabel
+    Left = 167
+    Top = 311
+    Width = 13
+    Height = 18
+    Caption = #51068
+  end
   object DBNavigator1: TDBNavigator
     Left = 184
     Top = 400
@@ -222,8 +330,8 @@ object frmEvent: TfrmEvent
     TitleFont.Name = 'Tahoma'
     TitleFont.Style = []
   end
-  object DBEdit1: TDBEdit
-    Left = 72
+  object DBEditManagerName: TDBEdit
+    Left = 80
     Top = 52
     Width = 121
     Height = 26
@@ -232,7 +340,7 @@ object frmEvent: TfrmEvent
     TabOrder = 2
   end
   object DBEdit2: TDBEdit
-    Left = 276
+    Left = 288
     Top = 52
     Width = 121
     Height = 26
@@ -241,7 +349,7 @@ object frmEvent: TfrmEvent
     TabOrder = 3
   end
   object DBEdit3: TDBEdit
-    Left = 74
+    Left = 82
     Top = 93
     Width = 323
     Height = 26
@@ -249,219 +357,268 @@ object frmEvent: TfrmEvent
     DataSource = DataSource1
     TabOrder = 4
   end
-  object DBEdit4: TDBEdit
-    Left = 74
-    Top = 141
-    Width = 121
-    Height = 26
-    DataField = 'event_start_date'
-    DataSource = DataSource1
-    TabOrder = 5
-  end
-  object CalendarPicker1: TCalendarPicker
-    Left = 201
-    Top = 141
-    Height = 32
-    CalendarHeaderInfo.DaysOfWeekFont.Charset = DEFAULT_CHARSET
-    CalendarHeaderInfo.DaysOfWeekFont.Color = clWindowText
-    CalendarHeaderInfo.DaysOfWeekFont.Height = -13
-    CalendarHeaderInfo.DaysOfWeekFont.Name = 'Segoe UI'
-    CalendarHeaderInfo.DaysOfWeekFont.Style = []
-    CalendarHeaderInfo.Font.Charset = DEFAULT_CHARSET
-    CalendarHeaderInfo.Font.Color = clWindowText
-    CalendarHeaderInfo.Font.Height = -20
-    CalendarHeaderInfo.Font.Name = 'Segoe UI'
-    CalendarHeaderInfo.Font.Style = []
-    Color = clWindow
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clGray
-    Font.Height = -16
-    Font.Name = 'Segoe UI'
-    Font.Style = []
-    ParentFont = False
-    TabOrder = 6
-    TextHint = 'select a date'
-  end
-  object DatePicker1: TDatePicker
-    Left = 496
-    Top = 141
-    Date = 43494.000000000000000000
-    DateFormat = 'yyyy/MM/dd'
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -16
-    Font.Name = 'Segoe UI'
-    Font.Style = []
-    TabOrder = 7
-  end
-  object DBEdit5: TDBEdit
-    Left = 369
-    Top = 141
-    Width = 121
-    Height = 26
-    DataField = 'event_end_date'
-    DataSource = DataSource1
-    TabOrder = 8
-  end
-  object DBEdit6: TDBEdit
-    Left = 488
-    Top = 93
+  object DBEditNight: TDBEdit
+    Left = 489
+    Top = 137
     Width = 25
     Height = 26
+    DataField = 'night'
     DataSource = DataSource1
-    TabOrder = 9
+    TabOrder = 5
   end
-  object DBEdit7: TDBEdit
-    Left = 550
-    Top = 93
+  object DBEditDay: TDBEdit
+    Left = 551
+    Top = 137
     Width = 27
     Height = 26
+    DataField = 'day'
     DataSource = DataSource1
-    TabOrder = 10
+    TabOrder = 6
   end
   object DBEdit8: TDBEdit
-    Left = 74
+    Left = 82
     Top = 189
     Width = 267
     Height = 26
     DataField = 'customer_name'
     DataSource = DataSource1
-    TabOrder = 11
+    TabOrder = 7
   end
   object DBEdit9: TDBEdit
-    Left = 413
+    Left = 421
     Top = 189
     Width = 29
     Height = 26
     DataSource = DataSource1
-    TabOrder = 12
+    TabOrder = 8
   end
   object DBEdit10: TDBEdit
-    Left = 532
+    Left = 540
     Top = 189
     Width = 29
     Height = 26
     DataField = 'adult_total'
     DataSource = DataSource1
-    TabOrder = 13
+    TabOrder = 9
   end
   object DBEdit11: TDBEdit
-    Left = 617
+    Left = 625
     Top = 189
     Width = 29
     Height = 26
     DataField = 'child_total'
     DataSource = DataSource1
-    TabOrder = 14
+    TabOrder = 10
   end
   object DBEdit12: TDBEdit
-    Left = 74
+    Left = 82
     Top = 229
     Width = 121
     Height = 26
     DataField = 'phone'
     DataSource = DataSource1
-    TabOrder = 15
+    TabOrder = 11
   end
   object DBEdit13: TDBEdit
-    Left = 413
+    Left = 421
     Top = 229
     Width = 233
     Height = 26
     DataField = 'mobile'
     DataSource = DataSource1
-    TabOrder = 16
-  end
-  object DateTimePicker1: TDateTimePicker
-    Left = 201
-    Top = 269
-    Width = 140
-    Height = 26
-    Date = 43494.000000000000000000
-    Time = 0.405322615741170000
-    TabOrder = 17
-  end
-  object DBEdit14: TDBEdit
-    Left = 74
-    Top = 269
-    Width = 121
-    Height = 26
-    DataField = 'start_time'
-    DataSource = DataSource1
-    TabOrder = 18
+    TabOrder = 12
   end
   object DBEdit15: TDBEdit
-    Left = 413
+    Left = 421
     Top = 269
     Width = 233
     Height = 26
     DataField = 'start_site'
     DataSource = DataSource1
-    TabOrder = 19
-  end
-  object DBEdit16: TDBEdit
-    Left = 74
-    Top = 309
-    Width = 121
-    Height = 26
-    DataSource = DataSource1
-    TabOrder = 20
-  end
-  object DateTimePicker2: TDateTimePicker
-    Left = 201
-    Top = 309
-    Width = 140
-    Height = 26
-    Date = 43494.000000000000000000
-    Time = 0.406120844905672100
-    TabOrder = 21
+    TabOrder = 13
   end
   object DBEdit17: TDBEdit
-    Left = 413
+    Left = 421
     Top = 309
     Width = 233
     Height = 26
     DataSource = DataSource1
-    TabOrder = 22
+    TabOrder = 14
   end
   object DBEdit18: TDBEdit
-    Left = 74
+    Left = 82
     Top = 349
     Width = 267
     Height = 26
     DataField = 'hotel_name'
     DataSource = DataSource1
-    TabOrder = 23
+    TabOrder = 15
   end
   object DBEdit19: TDBEdit
-    Left = 411
+    Left = 419
     Top = 349
     Width = 121
     Height = 26
     DataField = 'room_name'
     DataSource = DataSource1
-    TabOrder = 24
+    TabOrder = 16
   end
   object DBEdit20: TDBEdit
-    Left = 610
+    Left = 618
     Top = 349
     Width = 36
     Height = 26
     DataField = 'room_number'
     DataSource = DataSource1
+    TabOrder = 17
+  end
+  object edtDepartHour: TEdit
+    Left = 186
+    Top = 269
+    Width = 20
+    Height = 26
+    TabOrder = 18
+  end
+  object edtDepartMinute: TEdit
+    Left = 226
+    Top = 269
+    Width = 20
+    Height = 26
+    TabOrder = 19
+  end
+  object edtLocalHour: TEdit
+    Left = 187
+    Top = 309
+    Width = 20
+    Height = 26
+    TabOrder = 20
+  end
+  object edtLocalMinute: TEdit
+    Left = 225
+    Top = 308
+    Width = 20
+    Height = 26
+    TabOrder = 21
+  end
+  object edtStartYear: TEdit
+    Left = 83
+    Top = 137
+    Width = 38
+    Height = 26
+    TabOrder = 22
+    Text = '2019'
+    OnExit = EventDateExit
+  end
+  object edtStartMonth: TEdit
+    Left = 146
+    Top = 137
+    Width = 27
+    Height = 26
+    TabOrder = 23
+    Text = '11'
+    OnExit = EventDateExit
+  end
+  object edtStartDay: TEdit
+    Left = 198
+    Top = 137
+    Width = 27
+    Height = 26
+    TabOrder = 24
+    Text = '30'
+    OnExit = EventDateExit
+  end
+  object edtEndYear: TEdit
+    Left = 288
+    Top = 137
+    Width = 38
+    Height = 26
     TabOrder = 25
+    Text = '2019'
+    OnExit = EventDateExit
+  end
+  object edtEndMonth: TEdit
+    Left = 351
+    Top = 137
+    Width = 27
+    Height = 26
+    TabOrder = 26
+    Text = '11'
+    OnExit = EventDateExit
+  end
+  object edtEndDay: TEdit
+    Left = 403
+    Top = 137
+    Width = 27
+    Height = 26
+    TabOrder = 27
+    Text = '30'
+    OnExit = EventDateExit
+  end
+  object edtDepartMonth: TEdit
+    Left = 82
+    Top = 269
+    Width = 27
+    Height = 26
+    TabOrder = 28
+    Text = '11'
+    OnExit = EventDateExit
+  end
+  object edtDepartDay: TEdit
+    Left = 134
+    Top = 269
+    Width = 27
+    Height = 26
+    TabOrder = 29
+    Text = '30'
+    OnExit = EventDateExit
+  end
+  object edtLocalMonth: TEdit
+    Left = 82
+    Top = 308
+    Width = 27
+    Height = 26
+    TabOrder = 30
+    Text = '11'
+    OnExit = EventDateExit
+  end
+  object edtLocalDay: TEdit
+    Left = 134
+    Top = 308
+    Width = 27
+    Height = 26
+    TabOrder = 31
+    Text = '30'
+    OnExit = EventDateExit
   end
   object DataSource1: TDataSource
     DataSet = FDTable1
-    Left = 536
-    Top = 488
+    Left = 528
+    Top = 56
   end
   object FDTable1: TFDTable
+    BeforePost = FDTable1BeforePost
+    AfterScroll = FDTable1AfterScroll
+    OnNewRecord = FDTable1NewRecord
     IndexFieldNames = 'serial'
     Connection = DataModule1.FDConnection1
     UpdateOptions.UpdateTableName = 'event'
     TableName = 'event'
-    Left = 464
-    Top = 488
+    Left = 456
+    Top = 56
+  end
+  object FDQuerySerial: TFDQuery
+    Connection = DataModule1.FDConnection1
+    SQL.Strings = (
+      'SELECT serial'
+      'FROM event'
+      'WHERE serial like '#39'20190130%'#39
+      'ORDER BY serial DESC')
+    Left = 40
+    Top = 392
+  end
+  object DataSource2: TDataSource
+    DataSet = FDQuerySerial
+    Left = 128
+    Top = 392
   end
 end
diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.pas" "b/\352\271\200\355\230\204\354\262\240/EventManager.pas"
index 11e8fb0..7578c75 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.pas"
@@ -21,7 +21,7 @@   TfrmEvent = class(TForm)
     FDTable1: TFDTable;
     DBNavigator1: TDBNavigator;
     DBGrid1: TDBGrid;
-    DBEdit1: TDBEdit;
+    DBEditManagerName: TDBEdit;
     DBText1: TDBText;
     Label1: TLabel;
     Label2: TLabel;
@@ -44,13 +44,9 @@   TfrmEvent = class(TForm)
     DBTextProcessDate: TDBText;
     DBEdit2: TDBEdit;
     DBEdit3: TDBEdit;
-    DBEdit4: TDBEdit;
-    CalendarPicker1: TCalendarPicker;
-    DatePicker1: TDatePicker;
-    DBEdit5: TDBEdit;
     Label18: TLabel;
-    DBEdit6: TDBEdit;
-    DBEdit7: TDBEdit;
+    DBEditNight: TDBEdit;
+    DBEditDay: TDBEdit;
     Label19: TLabel;
     DBEdit8: TDBEdit;
     DBEdit9: TDBEdit;
@@ -61,17 +57,50 @@   TfrmEvent = class(TForm)
     Label22: TLabel;
     DBEdit12: TDBEdit;
     DBEdit13: TDBEdit;
-    DateTimePicker1: TDateTimePicker;
-    DBEdit14: TDBEdit;
     DBEdit15: TDBEdit;
-    DBEdit16: TDBEdit;
-    DateTimePicker2: TDateTimePicker;
     DBEdit17: TDBEdit;
     DBEdit18: TDBEdit;
     DBEdit19: TDBEdit;
     Label23: TLabel;
     DBEdit20: TDBEdit;
-    procedure FormCreate(Sender: TObject);
+    Label24: TLabel;
+    edtDepartHour: TEdit;
+    Label25: TLabel;
+    edtDepartMinute: TEdit;
+    Label26: TLabel;
+    edtLocalHour: TEdit;
+    Label27: TLabel;
+    edtLocalMinute: TEdit;
+    Label28: TLabel;
+    FDQuerySerial: TFDQuery;
+    DataSource2: TDataSource;
+    edtStartYear: TEdit;
+    edtStartMonth: TEdit;
+    edtStartDay: TEdit;
+    Label29: TLabel;
+    Label30: TLabel;
+    Label31: TLabel;
+    edtEndYear: TEdit;
+    edtEndMonth: TEdit;
+    edtEndDay: TEdit;
+    Label32: TLabel;
+    Label33: TLabel;
+    Label34: TLabel;
+    Label35: TLabel;
+    Label36: TLabel;
+    edtDepartMonth: TEdit;
+    edtDepartDay: TEdit;
+    Label37: TLabel;
+    Label38: TLabel;
+    edtLocalMonth: TEdit;
+    edtLocalDay: TEdit;
+    procedure FormActivate(Sender: TObject);
+    procedure FormDeactivate(Sender: TObject);
+    procedure FDTable1NewRecord(DataSet: TDataSet);
+    procedure FDTable1BeforePost(DataSet: TDataSet);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure EventDateExit(Sender: TObject);
+    procedure FDTable1AfterScroll(DataSet: TDataSet);
   private
     { Private declarations }
   public
@@ -85,15 +114,171 @@ implementation
 
 {$R *.dfm}
 
-uses DataModule;
+uses DataModule, DateUtils;
 
-procedure TfrmEvent.FormCreate(Sender: TObject);
+// ���Ⱓ �Է½� ��� ������ �ڵ����� ���
+procedure TfrmEvent.EventDateExit(Sender: TObject);
+var
+  fromDate, toDate : TDate;
+  Night: Integer;
+begin
+  fromDate := EncodeDate(StrToInt(edtStartYear.Text),
+    StrToInt(edtStartMonth.Text), StrToInt(edtStartDay.Text));
+  toDate := EncodeDate(StrToInt(edtEndYear.Text),
+    StrToInt(edtEndMonth.Text), StrToInt(edtEndDay.Text));
+
+  Night := DaysBetween(toDate, fromDate);
+  with FDTable1 do
+  begin
+    Edit;
+    FieldByName('night').AsString := IntToStr(Night);
+    DBEditNight.Text := IntToStr(Night);
+    FieldByName('day').AsString := IntToStr(Night + 1);
+    DBEditDay.Text := IntToStr(Night + 1);
+  end;
+end;
+
+procedure TfrmEvent.FDTable1AfterScroll(DataSet: TDataSet);
+var
+  Year, Month, Day, Hour, Minute, Second, Mili: Word;
+begin
+  with FDTable1 do
+  begin
+    // DB�� ���Ⱓ�� TEdit.Text�� �ݿ�
+    DecodeDate(FieldByName('event_start_date').AsDateTime, Year, Month, Day);
+    edtStartYear.Text := IntToStr(Year);
+    edtStartMonth.Text := IntToStr(Month);
+    edtStartDay.Text := IntToStr(Day);
+
+    DecodeDate(FieldByName('event_end_date').AsDateTime, Year, Month, Day);
+    edtEndYear.Text := IntToStr(Year);
+    edtEndMonth.Text := IntToStr(Month);
+    edtEndDay.Text := IntToStr(Day);
+
+    // DB�� �װ� ��߽ð��� TEdit.Text�� �ݿ�
+    if FieldByName('start_time').AsString = '' then
+    begin
+      edtDepartMonth.Text   := '';
+      edtDepartDay.Text     := '';
+      edtDepartHour.Text    := '';
+      edtDepartMinute.Text  := '';
+    end
+    else begin
+      DecodeDateTime(FieldByName('start_time').AsDateTime,
+        Year, Month, Day, Hour, Minute, Second, Mili);
+      edtDepartMonth.Text   := IntToStr(Month);
+      edtDepartDay.Text     := IntToStr(Day);
+      edtDepartHour.Text    := IntToStr(Hour);
+      edtDepartMinute.Text  := IntToStr(Minute);
+    end;
+
+    if FieldByName('local_start_time').AsString = '' then
+    begin
+      edtLocalMonth.Text   := '';
+      edtLocalDay.Text     := '';
+      edtLocalHour.Text    := '';
+      edtLocalMinute.Text  := '';
+    end
+    else begin
+      DecodeDateTime(FieldByName('local_start_time').AsDateTime,
+        Year, Month, Day, Hour, Minute, Second, Mili);
+      edtLocalMonth.Text   := IntToStr(Month);
+      edtLocalDay.Text     := IntToStr(Day);
+      edtLocalHour.Text    := IntToStr(Hour);
+      edtLocalMinute.Text  := IntToStr(Minute);
+    end;
+  end;
+end;
+
+procedure TfrmEvent.FDTable1BeforePost(DataSet: TDataSet);
+var
+  EventStartDate, EventEndDate: TDate;
+  DepartTime, LocalTime: TDateTime;
+begin
+  // ���Ⱓ
+  EventStartDate := EncodeDate(StrToInt(edtStartYear.Text),
+    StrToInt(edtStartMonth.Text), StrToInt(edtStartDay.Text));
+  EventEndDate := EncodeDate(StrToInt(edtEndYear.Text),
+    StrToInt(edtEndMonth.Text), StrToInt(edtEndDay.Text));
+
+  // �װ� ��� �ð�
+  DepartTime := EncodeDateTime(StrToInt(edtStartYear.Text),
+    StrToInt(edtDepartMonth.Text), StrToInt(edtDepartDay.Text),
+    StrToInt(edtDepartHour.Text), StrToInt(edtDepartMinute.Text), 0, 0);
+
+  LocalTime := EncodeDateTime(StrToInt(edtStartYear.Text),
+    StrToInt(edtLocalMonth.Text), StrToInt(edtLocalDay.Text),
+    StrToInt(edtLocalHour.Text), StrToInt(edtLocalMinute.Text), 0, 0);
+
+  with FDTable1 do
+  begin
+    FieldByName('event_start_date').AsDateTime := EventStartDate;
+    FieldByName('event_end_date').AsDateTime := EventEndDate;
+    FieldByName('modified_at').AsDateTime := now;
+  end;
+end;
+
+procedure TfrmEvent.FDTable1NewRecord(DataSet: TDataSet);
 var
   NowDate: string;
+  NewSerial: string;
+  Serial: Integer;
 begin
   NowDate := formatDateTime('yyyy-mm-dd', now);
-//  DBTextReservationDate.Field.AsDateTime := now;
-//  DBTextProcessDate.Field.AsDate := now;
+
+  with FDQuerySerial do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('SELECT serial FROM event WHERE serial like "'
+      + formatDateTime('yyyymmdd', now) + '%" ORDER BY serial DESC');
+    Open;
+
+    // ����� ������ ���� ��
+    if FieldByName('serial').AsString = '' then
+      NewSerial := formatDateTime('yyyymmdd', now) + '001'
+    else begin
+      Serial := StrToInt(Copy(FieldByName('serial').AsString, 7, 3));
+      NewSerial := formatDateTime('yyyymmdd', now) + IntToStr(Serial + 1);
+    end;
+  end;
+
+  with FDTable1 do
+  begin
+    FieldByName('serial').AsString := NewSerial;
+    FieldByName('reservation_date').AsString := NowDate;
+    FieldByName('process_date').AsString := NowDate;
+    FieldByName('manager_name').AsString := DataModule1.FDQueryManager.FieldByName('name').AsString;
+    FieldByName('created_at').AsDateTime := now;
+  end;
+  DBTextReservationDate.Field.AsString := NowDate;
+
+  // ���Ⱓ TEdit.Text �ʱ�ȭ
+  edtStartYear.Text := '';
+  edtStartMonth.Text := '';
+  edtStartDay.Text := '';
+  edtEndYear.Text := '';
+  edtEndMonth.Text := '';
+  edtEndDay.Text := '';
 end;
 
+
+procedure TfrmEvent.FormActivate(Sender: TObject);
+begin
+  FDTable1.Open;
+end;
+
+procedure TfrmEvent.FormDeactivate(Sender: TObject);
+begin
+  FDTable1.Close;
+end;
+
+procedure TfrmEvent.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = VK_RETURN then
+    SelectNext(Activecontrol, True, True);
+end;
+
+
 end.
diff --git "a/\352\271\200\355\230\204\354\262\240/MainMenu.dfm" "b/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
index 51cf219..5359d7d 100644
--- "a/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
@@ -49,7 +49,6 @@ object frmMenu: TfrmMenu
       Width = 122
       Height = 41
       Caption = #50696#50557#44288#47532
-      Enabled = False
       TabOrder = 0
       OnClick = btnReservationClick
     end
@@ -168,18 +167,4 @@ object frmMenu: TfrmMenu
       TabOrder = 12
     end
   end
-  object FDQuery1: TFDQuery
-    Connection = DataModule1.FDConnection1
-    SQL.Strings = (
-      'SELECT * '
-      'FROM manager'
-      'WHERE pass = :pass')
-    Left = 216
-    Top = 280
-    ParamData = <
-      item
-        Name = 'PASS'
-        ParamType = ptInput
-      end>
-  end
 end
diff --git "a/\352\271\200\355\230\204\354\262\240/MainMenu.pas" "b/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
index 21abf6d..2f05921 100644
--- "a/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
@@ -16,7 +16,6 @@   TfrmMenu = class(TForm)
     edtPass: TEdit;
     Label1: TLabel;
     btnPass: TButton;
-    FDQuery1: TFDQuery;
     Panel1: TPanel;
     btnReservation: TButton;
     btnEvent: TButton;
@@ -61,7 +60,7 @@ procedure TfrmMenu.SetButton(Button: TButton; Bool: Integer);
 
 procedure TfrmMenu.SetAllButton;
 begin
-    with FDQuery1 do
+    with DataModule1.FDQueryManager do
     begin
       Close;
       ParamByName('pass').AsString := edtPass.Text;
diff --git "a/\352\271\200\355\230\204\354\262\240/ttms.sdb" "b/\352\271\200\355\230\204\354\262\240/ttms.sdb"
index 356d0c3526e24c733697822cd602adf82071622f..6ea1171b0c269c3436e2b41e7b1d0f82073ac771 100644
GIT binary patch
delta 2878
zcmeHI-*4Mg7`5}GiJc}^(IC~vR%eCLh&A{}k}jT*2qS`sHXR{dI|NGH#I!-N9TIoi
z9+10e@&g+hU?y6mO%!PeL^Uiji9YaeARbvk2(hFOdq90bh<ojLX{rVWs>I8pT>IYd
ze*W&c=Nw-z-{F?;aPJ=)sv-!|0?iBB&j{jp;)CPtNEL~YtNy_+5zoL8Cvgk=1bYkP
z295-l0_nh7V68c{{ItWToo}4+1ZQW_E7SU)u4&YxXWR*~F4W3=rGTADW>3A8%#vdy
zO_O0VGo2$dGn13YajZ}iK+-v0Da%s6#4ADpdm))i^`um5a#5()`%R0y#4iZ7{D=5q
z6;`bBHAMnri5Ee&?$S|;48wWhoFFNC&i1TorPUQsZO6*p0)kZ96_?8D!lF{Z(wSW9
z#Z(rimiP-j<Kj|Xk;Og0F&%JxX{n;*6<L9_?I=`SELTc<#H)+4)ZL~2o7?9W<@s_&
z|Iz)ZYJpeEkO#<WE<KfksH}Ls4B77T!*(E4<RV|m_j`8dY`+SNvLaOS(&K#usL8Sj
z)H-0QWe%hzabBq1-!M6oNxw2<LKOv3E?~LTTn+*+)&yXYQl1Aa!_B;!OHQ5cQB9Of
z<u}WJmvTCro=RrVk}s#!vttEdK5ZCUHyA{(5DGtE5lrFDi|14}1<jaCK0lcvkD9Tg
z<QQadKa4$Ac<5}P=|gAlyR-e4v*Fnr#=}hxt2iG4M|xll{S-mMjc_A05PUYMC$ZsS
z>zJd>8%Er8yl%b<?_SW2!NcmlTmC^EZ=K!x03Q6mkM#JzJkrCBIh)%97PpLf^MxC;
zyCy8saRfpA!FOh%8v1$fq}K<OTI&Xm={R<52xK8K(4c%Xb{&6@c=|2kH3zW(zQ=D6
z>cz*<gQKC)2$D1(f|n;dy^|*yicU~8OMxHkj#KnFyQ9}`thaC6Y+YVyU0!e9xJuq_
zezEn@B@(pO=j*MnH`*UxqA8Ao|42^>@O9_d1Q$CIIXIDscT1Br%P|ZWJrSYliEl{P
zb6%9lAVh}90I<LNRdm{d8VaGP2{N>gP%RkDINjMH=&??h4US1LlxkDZ#lH)FoQoy6
zC>x1Q!~wF;Otf?epd3Mwr~DnTNS9caqU{CtBzEiCN_%y=ef>7cw2W&i+rIvtoeu#)
zJPc4}YxTXm8yl^wt2jkd<21uY&5NB1KG<}Wi!!DTO!R*E;xi6QdjJtd{~4nC02up0
zbh`c{NPs=gu@pzM5nn9MbU6G;_g23`=bE>xKREmt2s%LXz<YD0{`Mex@7o~?{gpTr
zaE@Ydza1Cj#2*MsY$L=ru?;hRu`^sw1cfDBIB^eTY$C)au?aK2Cq@Y8C~DULg26Px
o9s^r949!3_!=V{Y&2VXkTQdeU!=o8q&A>DR*9@O#3~Gk|FBr=_!2kdN

delta 1781
zcmZ{jUuYaf9LIO>Pww{ab|$gvRoj@=n3^;(o!One-Hk{MHPk|rl=QT%Asn0BHd(#9
zO>Z|XK3!UIK_aN!L;Z&@qJ;`|;R;23Q1HPA9|ZqUM9_jp#RxtWd{NN3-M!0QNOu|d
z%=~`yo9}#oyX&_m)^AO`wy#fT7-ox(BpsU!!wRpDN&PxAF1*Rpl{h!Sz-yTgxVO0H
zxQXPM=G*97Ux*!i>2W)eJ#~tG`HZ74mJIt`$#jgxs&&D37cY+ap;rd|Q2jG7RR1wD
z#K!8esMh$F`#KUcFOK)r``~2#S8yQSLl1hN&X!YgN+ul))0p5&(UcpHCbHQqyJ6OU
z&-Cw~H_jUsXF(X|Q}eb_HTBYhaBL<&b#!V@xO@V#du#Jmg9gs)j%ig2McpwLgeNES
zQ-Uxvn-^xDK7M?RZe6WfONMRVF<#ay`m#|iRP-|4|IFmvk*6l-hA|r1QAV#imF~0}
z%_DwZc$6=AN1-60Lr;)oJG5T6rmiAJrMPRfVlJ;xPkbM0)QI*qi~0-O_Ow@*)@;Wr
zcgv=##ZJ|FajoPO9Lwo6c)P-iSt{-xtu@_Uu_~RmNln|ro0P3Zvvj9mV1Q#bP0t^j
zZZ<947DR0Nfo-=#>J+?UIYx=vT<dIDS0k#HRo>BuprPRrL42*eXjFGGt!$JnDr)L<
zep}R1)u7*3v7l4)n{rR)C#S^|G~UtKvQ;$Cnmdv@a`@Cp{Th7sO7aP|w~-Y7J)C5E
z83uj_uhO6FU0A<*SQ<@sK7V|?{^!O!TbHh5QOva`{vX3IztoefAF}Dj_0^jZ{xn@o
z(ZSJ?XuM&c%S3O(O<MMQSl^r-2oCC8Ig9xl4E!5z!Jpta@C*0}{0P1WFT)L3gEm}-
z^Kcd(feIXj18@&afPcVW;Ae0Xd<i}U4R8g#4PFH=f(zhzPyi>vQScZz1O`DCr1}5&
z+x&0*5ByjB=ll(-V4AO`V{De?WSK}BZZXCZ3Ye%8B8OUxR5IRXMSe73B&i6GwHOg?
z)aRru5kw9KOk`EkMnWdkvf+SnO(UZEh(AeaGRmO?ZI;PUo00l($OI#Ku*FD}9|{=}
zBtICiiZrANEf$eD5O9u`#}Bj^D_Va#R-?D?(Nv7cem_7N$>P2?BXWPhsw~R*z7``)
z_WB&hgvclxGFFIkZ^(%Ha!;GFc6Y!?RV8Il$ck3Wp}WF~s3ED(=a{I-827fAAPI(y
zs0`q9RFZN?;X@WxS<8fs3Cg8IMiR-Te2x$#iXs;<60u5>O`c{WbRubqb^zykLdL2j
z#apaMDAr<G#nDuZ%d%KguoU4aaww;2$|cYBSl5fVUextst`~Q`9@k5_UefhA*Gsux
K+VwK7$Nvw7{-s3#


From ee0e8e62b647c03aca94e1b4826576d167790a98 Mon Sep 17 00:00:00 2001
From: healt-kr <healt.kr@gmail.com>
Date: Thu, 31 Jan 2019 11:43:00 +0900
Subject: [PATCH 02/11] =?UTF-8?q?=EC=97=AC=EC=95=BD=EA=B4=80=EB=A6=AC=20?=
 =?UTF-8?q?=EC=9E=91=EC=84=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../EventManager.dfm"                         |  22 +-
 .../EventManager.pas"                         | 211 +++++++++++-------
 2 files changed, 140 insertions(+), 93 deletions(-)

diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.dfm" "b/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
index 3bba1f3..d0fb75e 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
@@ -500,58 +500,52 @@ object frmEvent: TfrmEvent
     Height = 26
     TabOrder = 21
   end
-  object edtStartYear: TEdit
+  object edtFromYear: TEdit
     Left = 83
     Top = 137
     Width = 38
     Height = 26
     TabOrder = 22
-    Text = '2019'
     OnExit = EventDateExit
   end
-  object edtStartMonth: TEdit
+  object edtFromMonth: TEdit
     Left = 146
     Top = 137
     Width = 27
     Height = 26
     TabOrder = 23
-    Text = '11'
     OnExit = EventDateExit
   end
-  object edtStartDay: TEdit
+  object edtFromDay: TEdit
     Left = 198
     Top = 137
     Width = 27
     Height = 26
     TabOrder = 24
-    Text = '30'
     OnExit = EventDateExit
   end
-  object edtEndYear: TEdit
+  object edtToYear: TEdit
     Left = 288
     Top = 137
     Width = 38
     Height = 26
     TabOrder = 25
-    Text = '2019'
     OnExit = EventDateExit
   end
-  object edtEndMonth: TEdit
+  object edtToMonth: TEdit
     Left = 351
     Top = 137
     Width = 27
     Height = 26
     TabOrder = 26
-    Text = '11'
     OnExit = EventDateExit
   end
-  object edtEndDay: TEdit
+  object edtToDay: TEdit
     Left = 403
     Top = 137
     Width = 27
     Height = 26
     TabOrder = 27
-    Text = '30'
     OnExit = EventDateExit
   end
   object edtDepartMonth: TEdit
@@ -560,7 +554,6 @@ object frmEvent: TfrmEvent
     Width = 27
     Height = 26
     TabOrder = 28
-    Text = '11'
     OnExit = EventDateExit
   end
   object edtDepartDay: TEdit
@@ -569,7 +562,6 @@ object frmEvent: TfrmEvent
     Width = 27
     Height = 26
     TabOrder = 29
-    Text = '30'
     OnExit = EventDateExit
   end
   object edtLocalMonth: TEdit
@@ -578,7 +570,6 @@ object frmEvent: TfrmEvent
     Width = 27
     Height = 26
     TabOrder = 30
-    Text = '11'
     OnExit = EventDateExit
   end
   object edtLocalDay: TEdit
@@ -587,7 +578,6 @@ object frmEvent: TfrmEvent
     Width = 27
     Height = 26
     TabOrder = 31
-    Text = '30'
     OnExit = EventDateExit
   end
   object DataSource1: TDataSource
diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.pas" "b/\352\271\200\355\230\204\354\262\240/EventManager.pas"
index 7578c75..85849cc 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.pas"
@@ -74,15 +74,15 @@   TfrmEvent = class(TForm)
     Label28: TLabel;
     FDQuerySerial: TFDQuery;
     DataSource2: TDataSource;
-    edtStartYear: TEdit;
-    edtStartMonth: TEdit;
-    edtStartDay: TEdit;
+    edtFromYear: TEdit;
+    edtFromMonth: TEdit;
+    edtFromDay: TEdit;
     Label29: TLabel;
     Label30: TLabel;
     Label31: TLabel;
-    edtEndYear: TEdit;
-    edtEndMonth: TEdit;
-    edtEndDay: TEdit;
+    edtToYear: TEdit;
+    edtToMonth: TEdit;
+    edtToDay: TEdit;
     Label32: TLabel;
     Label33: TLabel;
     Label34: TLabel;
@@ -103,6 +103,9 @@   TfrmEvent = class(TForm)
     procedure FDTable1AfterScroll(DataSet: TDataSet);
   private
     { Private declarations }
+    procedure SetDate2Edit(Date: TDate; edtYear: TEdit; edtMonth: TEdit; edtDay: TEdit);
+    procedure SetTime2edit(Time: TDateTime; edtMonth: TEdit; edtDay: TEdit; edtHour: TEdit; edtMinute: TEdit);
+    function GetNewSerial: string;
   public
     { Public declarations }
   end;
@@ -116,16 +119,17 @@ implementation
 
 uses DataModule, DateUtils;
 
-// ���Ⱓ �Է½� ��� ������ �ڵ����� ���
+{** ���Ⱓ �Է½� ��� ������ �ڵ����� ���
+*}
 procedure TfrmEvent.EventDateExit(Sender: TObject);
 var
   fromDate, toDate : TDate;
   Night: Integer;
 begin
-  fromDate := EncodeDate(StrToInt(edtStartYear.Text),
-    StrToInt(edtStartMonth.Text), StrToInt(edtStartDay.Text));
-  toDate := EncodeDate(StrToInt(edtEndYear.Text),
-    StrToInt(edtEndMonth.Text), StrToInt(edtEndDay.Text));
+  fromDate := EncodeDate(StrToInt(edtFromYear.Text),
+    StrToInt(edtFromMonth.Text), StrToInt(edtFromDay.Text));
+  toDate := EncodeDate(StrToInt(edtToYear.Text),
+    StrToInt(edtToMonth.Text), StrToInt(edtToDay.Text));
 
   Night := DaysBetween(toDate, fromDate);
   with FDTable1 do
@@ -138,6 +142,59 @@ procedure TfrmEvent.EventDateExit(Sender: TObject);
   end;
 end;
 
+{** �����(TDate)�� ������ TEdit.Text������
+  @param Date �����
+  @param Year �⵵ TEdit
+  @param Month �� TMonth
+  @param Day ��  TEdit
+*}
+procedure TfrmEvent.SetDate2Edit(Date: TDate; edtYear: TEdit; edtMonth: TEdit; edtDay: TEdit);
+var
+  Year, Month, Day: Word;
+begin
+    if Date = 0 then
+    begin
+      edtYear.Clear;
+      edtMonth.Clear;
+      edtDay.Clear;
+    end  else
+    begin
+      DecodeDate(Date, Year, Month, Day);
+      edtYear.Text := IntToStr(Year);
+      edtMonth.Text := IntToStr(Month);
+      edtDay.Text := IntToStr(Day);
+    end;
+end;
+
+{** ���Ͻú��� �װ��� TEdit�� �Է�
+  @param Time �����
+  @param Month �� TMonth
+  @param Day ��  TEdit
+  @param Hour ��  TEdit
+  @param Minute ��
++}
+procedure TfrmEvent.SetTime2edit(Time: TDateTime; edtMonth: TEdit; edtDay: TEdit; edtHour: TEdit; edtMinute: TEdit);
+var
+  Year, Month, Day, Hour, Minute, Second, Mili: Word;
+begin
+  if Time = 0 then
+  begin
+    edtMonth.Clear;
+    edtDay.Clear;
+    edtHour.Clear;
+    edtMinute.Clear;
+  end
+  else begin
+    DecodeDateTime(Time, Year, Month, Day, Hour, Minute, Second, Mili);
+    edtMonth.Text   := IntToStr(Month);
+    edtDay.Text     := IntToStr(Day);
+    edtHour.Text    := IntToStr(Hour);
+    edtMinute.Text  := IntToStr(Minute);
+  end;
+end;
+
+{** ��� ���̺��� ���ڵ� �̵��� TEdit�� ����ϴ� Field ���� �ݿ�
+*}
 procedure TfrmEvent.FDTable1AfterScroll(DataSet: TDataSet);
 var
   Year, Month, Day, Hour, Minute, Second, Mili: Word;
@@ -145,87 +202,65 @@ procedure TfrmEvent.FDTable1AfterScroll(DataSet: TDataSet);
   with FDTable1 do
   begin
     // DB�� ���Ⱓ�� TEdit.Text�� �ݿ�
-    DecodeDate(FieldByName('event_start_date').AsDateTime, Year, Month, Day);
-    edtStartYear.Text := IntToStr(Year);
-    edtStartMonth.Text := IntToStr(Month);
-    edtStartDay.Text := IntToStr(Day);
-
-    DecodeDate(FieldByName('event_end_date').AsDateTime, Year, Month, Day);
-    edtEndYear.Text := IntToStr(Year);
-    edtEndMonth.Text := IntToStr(Month);
-    edtEndDay.Text := IntToStr(Day);
+    SetDate2Edit(FieldByName('event_start_date').AsDateTime,
+      edtFromYear, edtFromMonth, edtFromDay);
+    SetDate2Edit(FieldByName('event_end_date').AsDateTime,
+      edtToYear, edtToMonth, edtToDay);
 
     // DB�� �װ� ��߽ð��� TEdit.Text�� �ݿ�
-    if FieldByName('start_time').AsString = '' then
-    begin
-      edtDepartMonth.Text   := '';
-      edtDepartDay.Text     := '';
-      edtDepartHour.Text    := '';
-      edtDepartMinute.Text  := '';
-    end
-    else begin
-      DecodeDateTime(FieldByName('start_time').AsDateTime,
-        Year, Month, Day, Hour, Minute, Second, Mili);
-      edtDepartMonth.Text   := IntToStr(Month);
-      edtDepartDay.Text     := IntToStr(Day);
-      edtDepartHour.Text    := IntToStr(Hour);
-      edtDepartMinute.Text  := IntToStr(Minute);
-    end;
+    SetTime2Edit(FieldByName('start_time').AsDateTime,
+      edtDepartMonth, edtDepartDay, edtDepartHour, edtDepartMinute);
 
-    if FieldByName('local_start_time').AsString = '' then
-    begin
-      edtLocalMonth.Text   := '';
-      edtLocalDay.Text     := '';
-      edtLocalHour.Text    := '';
-      edtLocalMinute.Text  := '';
-    end
-    else begin
-      DecodeDateTime(FieldByName('local_start_time').AsDateTime,
-        Year, Month, Day, Hour, Minute, Second, Mili);
-      edtLocalMonth.Text   := IntToStr(Month);
-      edtLocalDay.Text     := IntToStr(Day);
-      edtLocalHour.Text    := IntToStr(Hour);
-      edtLocalMinute.Text  := IntToStr(Minute);
-    end;
+    // DB�� ���� ��߽ð��� TEdit.Text�� �ݿ�
+    SetTime2Edit(FieldByName('local_start_time').AsDateTime,
+      edtLocalMonth, edtLocalDay, edtLocalHour, edtLocalMinute);
   end;
 end;
 
+{**
+  1. TEdit�� ����ϴ� �ʵ�(���Ⱓ, �װ����, �������)�� �����͸� �ݿ�
+  2. �����ð� ������Ʈ
+*}
 procedure TfrmEvent.FDTable1BeforePost(DataSet: TDataSet);
 var
   EventStartDate, EventEndDate: TDate;
   DepartTime, LocalTime: TDateTime;
 begin
-  // ���Ⱓ
-  EventStartDate := EncodeDate(StrToInt(edtStartYear.Text),
-    StrToInt(edtStartMonth.Text), StrToInt(edtStartDay.Text));
-  EventEndDate := EncodeDate(StrToInt(edtEndYear.Text),
-    StrToInt(edtEndMonth.Text), StrToInt(edtEndDay.Text));
+  // ���Ⱓ(TDate)�� ���Ѵ�
+  EventStartDate := EncodeDate(StrToInt(edtFromYear.Text),
+    StrToInt(edtFromMonth.Text), StrToInt(edtFromDay.Text));
+  EventEndDate := EncodeDate(StrToInt(edtToYear.Text),
+    StrToInt(edtToMonth.Text), StrToInt(edtToDay.Text));
 
-  // �װ� ��� �ð�
-  DepartTime := EncodeDateTime(StrToInt(edtStartYear.Text),
+  // �װ� ��� �ð�(TDateTime)�� ���Ѵ�
+  DepartTime := EncodeDateTime(StrToInt(edtFromYear.Text),
     StrToInt(edtDepartMonth.Text), StrToInt(edtDepartDay.Text),
     StrToInt(edtDepartHour.Text), StrToInt(edtDepartMinute.Text), 0, 0);
 
-  LocalTime := EncodeDateTime(StrToInt(edtStartYear.Text),
+  // ���� ��� �ð�(TDateTime)�� ���Ѵ�
+  LocalTime := EncodeDateTime(StrToInt(edtFromYear.Text),
     StrToInt(edtLocalMonth.Text), StrToInt(edtLocalDay.Text),
     StrToInt(edtLocalHour.Text), StrToInt(edtLocalMinute.Text), 0, 0);
 
   with FDTable1 do
   begin
-    FieldByName('event_start_date').AsDateTime := EventStartDate;
-    FieldByName('event_end_date').AsDateTime := EventEndDate;
-    FieldByName('modified_at').AsDateTime := now;
+    FieldByName('event_start_date').AsDateTime  := EventStartDate;
+    FieldByName('event_end_date').AsDateTime    := EventEndDate;
+    FieldByName('start_time').AsDateTime        := DepartTime;
+    FieldByName('local_time').AsDateTime        := EventEndDate;
+    FieldByName('modified_at').AsDateTime       := now;
   end;
 end;
 
-procedure TfrmEvent.FDTable1NewRecord(DataSet: TDataSet);
+
+{** �� ���ڵ� �߰��� ����ϴ� serial ���Ѵ�
+  @return ���ο� serial�� ���ڿ�
+  �Ϸù�ȣ(serial) ���� yyyymmdd001 ex) 20190131001
+*}
+function TfrmEvent.GetNewSerial: string;
 var
-  NowDate: string;
-  NewSerial: string;
   Serial: Integer;
 begin
-  NowDate := formatDateTime('yyyy-mm-dd', now);
-
   with FDQuerySerial do
   begin
     Close;
@@ -234,18 +269,37 @@ procedure TfrmEvent.FDTable1NewRecord(DataSet: TDataSet);
       + formatDateTime('yyyymmdd', now) + '%" ORDER BY serial DESC');
     Open;
 
-    // ����� ������ ���� ��
+    // ����� ������ ���� �� '001' ���� ����
     if FieldByName('serial').AsString = '' then
-      NewSerial := formatDateTime('yyyymmdd', now) + '001'
+      result := formatDateTime('yyyymmdd', now) + '001'
+    // ���� ��¥�� ������ ������ 1 ����
     else begin
       Serial := StrToInt(Copy(FieldByName('serial').AsString, 7, 3));
-      NewSerial := formatDateTime('yyyymmdd', now) + IntToStr(Serial + 1);
+      result := formatDateTime('yyyymmdd', now) + IntToStr(Serial + 1);
     end;
   end;
+end;
+
+{** ��� ���̺��� �� ���ڵ� �߰���
+  1. ���ο� �Ϸù�ȣ ����
+  2. �����ϰ� ������� ���� ��¥��
+  3. ����ڸ� �α����� ����ڷ�
+  4. �����ۼ��ð��� ��������
+  5. ���Ⱓ�� �⵵�� ���ط�,  ������ Clear
+  6. �װ���߽ð��� Clear
+*}
+procedure TfrmEvent.FDTable1NewRecord(DataSet: TDataSet);
+var
+  NowDate: string;
+  NowYear: string;
+begin
+  NowDate := formatDateTime('yyyy-mm-dd', now);
+  NowYear := formatDateTime('yyyy', now);
 
+  // 1 ~ 4
   with FDTable1 do
   begin
-    FieldByName('serial').AsString := NewSerial;
+    FieldByName('serial').AsString := GetNewSerial;
     FieldByName('reservation_date').AsString := NowDate;
     FieldByName('process_date').AsString := NowDate;
     FieldByName('manager_name').AsString := DataModule1.FDQueryManager.FieldByName('name').AsString;
@@ -253,13 +307,16 @@ procedure TfrmEvent.FDTable1NewRecord(DataSet: TDataSet);
   end;
   DBTextReservationDate.Field.AsString := NowDate;
 
-  // ���Ⱓ TEdit.Text �ʱ�ȭ
-  edtStartYear.Text := '';
-  edtStartMonth.Text := '';
-  edtStartDay.Text := '';
-  edtEndYear.Text := '';
-  edtEndMonth.Text := '';
-  edtEndDay.Text := '';
+  // 5. ���Ⱓ�� �⵵�� ���ط�,  ������ Clear
+  edtFromYear.Text := NowYear;    edtToYear.Text := NowYear;
+  edtFromMonth.Clear;             edtToMonth.Clear;
+  edtFromDay.Clear;               edtToDay.Clear;
+
+  // 6. �װ���߽ð��� Clear
+  edtDepartMonth.Clear;           edtLocalMonth.Clear;
+  edtDepartDay.Clear;             edtLocalDay.Clear;
+  edtDepartHour.Clear;            edtLocalHour.Clear;
+  edtDepartMinute.Clear;          edtLocalMinute.Clear;
 end;
 
 

From 5ad6816a99ec197f39ecfe4226d5cff9c82149d2 Mon Sep 17 00:00:00 2001
From: healt-kr <healt.kr@gmail.com>
Date: Thu, 31 Jan 2019 15:06:33 +0900
Subject: [PATCH 03/11] =?UTF-8?q?=EB=AA=A8=EA=B0=9D=ED=98=84=ED=99=A9=20?=
 =?UTF-8?q?=EC=9E=91=EC=84=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

사실상 모객현황은 여행예약의 목록임
행사관리 Form을 만들고 행사명 Combobox 처리해야 함
---
 "\352\271\200\355\230\204\354\262\240/MainMenu.dfm" |  5 ++---
 "\352\271\200\355\230\204\354\262\240/MainMenu.pas" | 12 +++++++++---
 "\352\271\200\355\230\204\354\262\240/TTMS.dpr"     |  4 +++-
 "\352\271\200\355\230\204\354\262\240/TTMS.dproj"   |  4 ++++
 4 files changed, 18 insertions(+), 7 deletions(-)

diff --git "a/\352\271\200\355\230\204\354\262\240/MainMenu.dfm" "b/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
index 5359d7d..187f42b 100644
--- "a/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
@@ -71,15 +71,14 @@ object frmMenu: TfrmMenu
       TabOrder = 2
       OnClick = btnManagerClick
     end
-    object btnMogaek: TButton
+    object btnTourist: TButton
       Left = 15
       Top = 63
       Width = 122
       Height = 41
       Caption = #47784#44061#54788#54889
-      Enabled = False
       TabOrder = 3
-      OnClick = btnReservationClick
+      OnClick = btnTouristClick
     end
     object btnPartner: TButton
       Left = 143
diff --git "a/\352\271\200\355\230\204\354\262\240/MainMenu.pas" "b/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
index 2f05921..e628f85 100644
--- "a/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
@@ -20,7 +20,7 @@   TfrmMenu = class(TForm)
     btnReservation: TButton;
     btnEvent: TButton;
     btnManager: TButton;
-    btnMogaek: TButton;
+    btnTourist: TButton;
     btnPartner: TButton;
     btnCalculate: TButton;
     btnHotel: TButton;
@@ -33,6 +33,7 @@   TfrmMenu = class(TForm)
     procedure btnReservationClick(Sender: TObject);
     procedure edtPassKeyPress(Sender: TObject; var Key: Char);
     procedure btnManagerClick(Sender: TObject);
+    procedure btnTouristClick(Sender: TObject);
   private
     { Private declarations }
     procedure SetButton(Button: TButton; Bool: Integer);
@@ -48,7 +49,7 @@ implementation
 
 {$R *.dfm}
 
-uses DataModule, EventManager, Manager;
+uses DataModule, EventManager, Manager, TouristStatusForm;
 
 procedure TfrmMenu.SetButton(Button: TButton; Bool: Integer);
 begin
@@ -74,7 +75,7 @@ procedure TfrmMenu.SetAllButton;
       else begin
         SetButton(btnReservation, FieldByName('auth_reservation').AsInteger);
         SetButton(btnEvent,       FieldByName('auth_event').AsInteger);
-        SetButton(btnMogaek,      FieldByName('auth_mogaek').AsInteger);
+        SetButton(btnTourist,     FieldByName('auth_mogaek').AsInteger);
         SetButton(btnPartner,     FieldByName('auth_partner').AsInteger);
         SetButton(btnCalculate,   FieldByName('auth_calculate').AsInteger);
         SetButton(btnHotel,       FieldByName('auth_hotel').AsInteger);
@@ -94,6 +95,11 @@ procedure TfrmMenu.btnReservationClick(Sender: TObject);
   frmEvent.Show;
 end;
 
+procedure TfrmMenu.btnTouristClick(Sender: TObject);
+begin
+  frmTouristStatus.Show;
+end;
+
 procedure TfrmMenu.btnManagerClick(Sender: TObject);
 begin
   frmManager.Show;
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS.dpr" "b/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
index b960a8e..f363f15 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
@@ -5,7 +5,8 @@ uses
   MainMenu in 'MainMenu.pas' {frmMenu},
   EventManager in 'EventManager.pas' {frmEvent},
   Manager in 'Manager.pas' {frmManager},
-  DataModule in 'DataModule.pas' {DataModule1: TDataModule};
+  DataModule in 'DataModule.pas' {DataModule1: TDataModule},
+  TouristStatusForm in 'TouristStatusForm.pas' {frmTouristStatus};
 
 {$R *.res}
 
@@ -16,5 +17,6 @@ begin
   Application.CreateForm(TfrmEvent, frmEvent);
   Application.CreateForm(TfrmManager, frmManager);
   Application.CreateForm(TDataModule1, DataModule1);
+  Application.CreateForm(TfrmTouristStatus, frmTouristStatus);
   Application.Run;
 end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS.dproj" "b/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
index faf4266..1d30247 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
@@ -115,6 +115,10 @@
             <FormType>dfm</FormType>
             <DesignClass>TDataModule</DesignClass>
         </DCCReference>
+        <DCCReference Include="TouristStatusForm.pas">
+            <Form>frmTouristStatus</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

From 24581ef8a556577a500cd3ec6dbcb66c08b01b2c Mon Sep 17 00:00:00 2001
From: healt-kr <healt.kr@gmail.com>
Date: Thu, 31 Jan 2019 19:28:55 +0900
Subject: [PATCH 04/11] =?UTF-8?q?=EA=B3=B5=ED=86=B5=20=EB=9D=BC=EC=9D=B4?=
 =?UTF-8?q?=EB=B8=8C=EB=9F=AC=EB=A6=AC=20=ED=8C=8C=EC=9D=BC=20=EC=83=9D?=
 =?UTF-8?q?=EC=84=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../DataModule.dfm"                           |    1 +
 .../EventManager.dfm"                         | 1132 +++++++++--------
 .../EventManager.pas"                         |  101 +-
 .../EventManager.vlb"                         |   11 +-
 .../MainMenu.dfm"                             |    2 +-
 .../MainMenu.pas"                             |    8 +-
 .../MyLib.pas"                                |   63 +
 .../TTMS.dpr"                                 |    5 +-
 .../TTMS.dproj"                               |    4 +
 .../ttms.sdb"                                 |  Bin 962560 -> 962560 bytes
 10 files changed, 713 insertions(+), 614 deletions(-)
 create mode 100644 "\352\271\200\355\230\204\354\262\240/MyLib.pas"

diff --git "a/\352\271\200\355\230\204\354\262\240/DataModule.dfm" "b/\352\271\200\355\230\204\354\262\240/DataModule.dfm"
index 6d814ab..1c3dd26 100644
--- "a/\352\271\200\355\230\204\354\262\240/DataModule.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/DataModule.dfm"
@@ -8,6 +8,7 @@ object DataModule1: TDataModule1
     Params.Strings = (
       'Database=D:\DelphiProject\EduMaster201901\'#44608#54788#52384'\ttms.sdb'
       'DriverID=SQLite')
+    Connected = True
     Left = 55
     Top = 96
   end
diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.dfm" "b/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
index d0fb75e..4f9c083 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
@@ -2,7 +2,7 @@ object frmEvent: TfrmEvent
   Left = 0
   Top = 0
   Caption = 'frmEvent'
-  ClientHeight = 559
+  ClientHeight = 648
   ClientWidth = 682
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -17,568 +17,587 @@ object frmEvent: TfrmEvent
   OnKeyDown = FormKeyDown
   PixelsPerInch = 96
   TextHeight = 18
-  object DBText1: TDBText
-    Left = 82
-    Top = 22
-    Width = 119
-    Height = 17
-    DataField = 'serial'
-    DataSource = DataSource1
-  end
-  object Label1: TLabel
-    Left = 14
-    Top = 21
-    Width = 62
-    Height = 18
-    Caption = #54665#49324#48264#54840' :'
-  end
-  object Label2: TLabel
-    Left = 226
-    Top = 21
-    Width = 62
-    Height = 18
-    Caption = #51217#49688#51068#51088' :'
-  end
-  object Label3: TLabel
-    Left = 421
-    Top = 21
-    Width = 62
-    Height = 18
-    Caption = #51652#54665#51068#51088' :'
-  end
-  object Label4: TLabel
-    Left = 24
-    Top = 56
-    Width = 39
-    Height = 18
-    Caption = #45812#45817#51088
-  end
-  object Label5: TLabel
-    Left = 224
-    Top = 56
-    Width = 39
-    Height = 18
-    Caption = #44144#47000#52376
-  end
-  object Label6: TLabel
-    Left = 24
-    Top = 96
-    Width = 39
-    Height = 18
-    Caption = #54665#49324#47749
-  end
-  object Label7: TLabel
-    Left = 24
-    Top = 144
-    Width = 52
-    Height = 18
-    Caption = #54665#49324#44592#44036
-  end
-  object Label8: TLabel
-    Left = 24
-    Top = 192
-    Width = 52
-    Height = 18
-    Caption = #44256#44061#49457#47749
-  end
-  object Label9: TLabel
-    Left = 24
-    Top = 232
-    Width = 52
-    Height = 18
-    Caption = #51204#54868#48264#54840
-  end
-  object Label10: TLabel
-    Left = 376
-    Top = 232
-    Width = 39
-    Height = 18
-    Caption = #54648#46300#54256
-  end
-  object Label11: TLabel
-    Left = 24
-    Top = 272
-    Width = 52
-    Height = 18
-    Caption = #52636#48156#51068#49884
-  end
-  object Label12: TLabel
-    Left = 376
-    Top = 272
-    Width = 39
-    Height = 18
-    Caption = #51665#44208#51648
-  end
-  object Label13: TLabel
-    Left = 24
-    Top = 312
-    Width = 52
-    Height = 18
-    Caption = #54788#51648#52636#48156
-  end
-  object Label14: TLabel
-    Left = 376
-    Top = 312
-    Width = 39
-    Height = 18
-    Caption = #51665#44208#51648
-  end
-  object Label15: TLabel
-    Left = 27
-    Top = 352
-    Width = 39
-    Height = 18
-    Caption = #49689#49548#47749
-  end
-  object Label16: TLabel
-    Left = 374
-    Top = 352
-    Width = 39
-    Height = 18
-    Caption = #44061#49892#47749
-  end
-  object Label17: TLabel
-    Left = 470
-    Top = 352
-    Width = 39
-    Height = 18
-    Caption = #44061#49892#49688
-  end
-  object DBTextReservationDate: TDBText
-    Left = 294
-    Top = 21
-    Width = 111
-    Height = 17
-    DataField = 'reservation_date'
-    DataSource = DataSource1
-  end
-  object DBTextProcessDate: TDBText
-    Left = 489
-    Top = 21
-    Width = 158
-    Height = 17
-    DataField = 'process_date'
-    DataSource = DataSource1
-  end
-  object Label18: TLabel
-    Left = 520
-    Top = 145
-    Width = 13
-    Height = 18
-    Caption = #48149
-  end
-  object Label19: TLabel
-    Left = 584
-    Top = 145
-    Width = 13
-    Height = 18
-    Caption = #51068
-  end
-  object Label20: TLabel
-    Left = 389
-    Top = 192
-    Width = 26
-    Height = 18
-    Caption = #51064#50896
-  end
-  object Label21: TLabel
-    Left = 508
-    Top = 192
-    Width = 26
-    Height = 18
-    Caption = #45824#51064
-  end
-  object Label22: TLabel
-    Left = 593
-    Top = 192
-    Width = 26
-    Height = 18
-    Caption = #49548#51064
-  end
-  object Label23: TLabel
-    Left = 573
-    Top = 352
-    Width = 39
-    Height = 18
-    Caption = #44061#49892#49688
-  end
-  object Label24: TLabel
-    Left = 260
-    Top = 140
-    Width = 11
-    Height = 18
-    Caption = '~'
-  end
-  object Label25: TLabel
-    Left = 207
-    Top = 272
-    Width = 13
-    Height = 18
-    Caption = #49884
-  end
-  object Label26: TLabel
-    Left = 245
-    Top = 272
-    Width = 13
-    Height = 18
-    Caption = #48516
-  end
-  object Label27: TLabel
-    Left = 206
-    Top = 311
-    Width = 13
-    Height = 18
-    Caption = #49884
-  end
-  object Label28: TLabel
-    Left = 244
-    Top = 311
-    Width = 13
-    Height = 18
-    Caption = #48516
-  end
-  object Label29: TLabel
-    Left = 127
-    Top = 140
-    Width = 13
-    Height = 18
-    Caption = #45380
-  end
-  object Label30: TLabel
-    Left = 179
-    Top = 140
-    Width = 13
-    Height = 18
-    Caption = #50900
-  end
-  object Label31: TLabel
-    Left = 231
-    Top = 140
-    Width = 13
-    Height = 18
-    Caption = #51068
-  end
-  object Label32: TLabel
-    Left = 332
-    Top = 140
-    Width = 13
-    Height = 18
-    Caption = #45380
-  end
-  object Label33: TLabel
-    Left = 384
-    Top = 140
-    Width = 13
-    Height = 18
-    Caption = #50900
-  end
-  object Label34: TLabel
-    Left = 436
-    Top = 140
-    Width = 13
-    Height = 18
-    Caption = #51068
-  end
-  object Label35: TLabel
-    Left = 115
-    Top = 272
-    Width = 13
-    Height = 18
-    Caption = #50900
-  end
-  object Label36: TLabel
-    Left = 167
-    Top = 272
-    Width = 13
-    Height = 18
-    Caption = #51068
-  end
-  object Label37: TLabel
-    Left = 115
-    Top = 311
-    Width = 13
-    Height = 18
-    Caption = #50900
-  end
-  object Label38: TLabel
-    Left = 167
-    Top = 311
-    Width = 13
-    Height = 18
-    Caption = #51068
-  end
-  object DBNavigator1: TDBNavigator
-    Left = 184
-    Top = 400
-    Width = 240
-    Height = 25
-    DataSource = DataSource1
-    TabOrder = 0
-  end
   object DBGrid1: TDBGrid
     Left = 0
-    Top = 439
+    Top = 433
     Width = 682
-    Height = 120
-    Align = alBottom
+    Height = 215
+    TabStop = False
+    Align = alClient
     DataSource = DataSource1
     Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
-    TabOrder = 1
+    TabOrder = 0
     TitleFont.Charset = DEFAULT_CHARSET
     TitleFont.Color = clWindowText
     TitleFont.Height = -15
     TitleFont.Name = 'Tahoma'
     TitleFont.Style = []
   end
-  object DBEditManagerName: TDBEdit
-    Left = 80
-    Top = 52
-    Width = 121
-    Height = 26
-    DataField = 'manager_name'
-    DataSource = DataSource1
-    TabOrder = 2
-  end
-  object DBEdit2: TDBEdit
-    Left = 288
-    Top = 52
-    Width = 121
-    Height = 26
-    DataField = 'partner_name'
-    DataSource = DataSource1
-    TabOrder = 3
-  end
-  object DBEdit3: TDBEdit
-    Left = 82
-    Top = 93
-    Width = 323
-    Height = 26
-    DataField = 'event_name'
-    DataSource = DataSource1
-    TabOrder = 4
-  end
-  object DBEditNight: TDBEdit
-    Left = 489
-    Top = 137
-    Width = 25
-    Height = 26
-    DataField = 'night'
-    DataSource = DataSource1
-    TabOrder = 5
-  end
-  object DBEditDay: TDBEdit
-    Left = 551
-    Top = 137
-    Width = 27
-    Height = 26
-    DataField = 'day'
-    DataSource = DataSource1
-    TabOrder = 6
-  end
-  object DBEdit8: TDBEdit
-    Left = 82
-    Top = 189
-    Width = 267
-    Height = 26
-    DataField = 'customer_name'
-    DataSource = DataSource1
-    TabOrder = 7
-  end
-  object DBEdit9: TDBEdit
-    Left = 421
-    Top = 189
-    Width = 29
-    Height = 26
-    DataSource = DataSource1
-    TabOrder = 8
-  end
-  object DBEdit10: TDBEdit
-    Left = 540
-    Top = 189
-    Width = 29
-    Height = 26
-    DataField = 'adult_total'
-    DataSource = DataSource1
-    TabOrder = 9
-  end
-  object DBEdit11: TDBEdit
-    Left = 625
-    Top = 189
-    Width = 29
-    Height = 26
-    DataField = 'child_total'
-    DataSource = DataSource1
-    TabOrder = 10
-  end
-  object DBEdit12: TDBEdit
-    Left = 82
-    Top = 229
-    Width = 121
-    Height = 26
-    DataField = 'phone'
-    DataSource = DataSource1
-    TabOrder = 11
-  end
-  object DBEdit13: TDBEdit
-    Left = 421
-    Top = 229
-    Width = 233
-    Height = 26
-    DataField = 'mobile'
-    DataSource = DataSource1
-    TabOrder = 12
-  end
-  object DBEdit15: TDBEdit
-    Left = 421
-    Top = 269
-    Width = 233
-    Height = 26
-    DataField = 'start_site'
-    DataSource = DataSource1
-    TabOrder = 13
-  end
-  object DBEdit17: TDBEdit
-    Left = 421
-    Top = 309
-    Width = 233
-    Height = 26
-    DataSource = DataSource1
-    TabOrder = 14
-  end
-  object DBEdit18: TDBEdit
-    Left = 82
-    Top = 349
-    Width = 267
-    Height = 26
-    DataField = 'hotel_name'
-    DataSource = DataSource1
-    TabOrder = 15
-  end
-  object DBEdit19: TDBEdit
-    Left = 419
-    Top = 349
-    Width = 121
-    Height = 26
-    DataField = 'room_name'
-    DataSource = DataSource1
-    TabOrder = 16
-  end
-  object DBEdit20: TDBEdit
-    Left = 618
-    Top = 349
-    Width = 36
-    Height = 26
-    DataField = 'room_number'
-    DataSource = DataSource1
-    TabOrder = 17
-  end
-  object edtDepartHour: TEdit
-    Left = 186
-    Top = 269
-    Width = 20
-    Height = 26
-    TabOrder = 18
-  end
-  object edtDepartMinute: TEdit
-    Left = 226
-    Top = 269
-    Width = 20
-    Height = 26
-    TabOrder = 19
-  end
-  object edtLocalHour: TEdit
-    Left = 187
-    Top = 309
-    Width = 20
-    Height = 26
-    TabOrder = 20
-  end
-  object edtLocalMinute: TEdit
-    Left = 225
-    Top = 308
-    Width = 20
-    Height = 26
-    TabOrder = 21
-  end
-  object edtFromYear: TEdit
-    Left = 83
-    Top = 137
-    Width = 38
-    Height = 26
-    TabOrder = 22
-    OnExit = EventDateExit
-  end
-  object edtFromMonth: TEdit
-    Left = 146
-    Top = 137
-    Width = 27
-    Height = 26
-    TabOrder = 23
-    OnExit = EventDateExit
-  end
-  object edtFromDay: TEdit
-    Left = 198
-    Top = 137
-    Width = 27
-    Height = 26
-    TabOrder = 24
-    OnExit = EventDateExit
-  end
-  object edtToYear: TEdit
-    Left = 288
-    Top = 137
-    Width = 38
-    Height = 26
-    TabOrder = 25
-    OnExit = EventDateExit
-  end
-  object edtToMonth: TEdit
-    Left = 351
-    Top = 137
-    Width = 27
-    Height = 26
-    TabOrder = 26
-    OnExit = EventDateExit
-  end
-  object edtToDay: TEdit
-    Left = 403
-    Top = 137
-    Width = 27
-    Height = 26
-    TabOrder = 27
-    OnExit = EventDateExit
-  end
-  object edtDepartMonth: TEdit
-    Left = 82
-    Top = 269
-    Width = 27
-    Height = 26
-    TabOrder = 28
-    OnExit = EventDateExit
-  end
-  object edtDepartDay: TEdit
-    Left = 134
-    Top = 269
-    Width = 27
-    Height = 26
-    TabOrder = 29
-    OnExit = EventDateExit
-  end
-  object edtLocalMonth: TEdit
-    Left = 82
-    Top = 308
-    Width = 27
-    Height = 26
-    TabOrder = 30
-    OnExit = EventDateExit
-  end
-  object edtLocalDay: TEdit
-    Left = 134
-    Top = 308
-    Width = 27
-    Height = 26
-    TabOrder = 31
-    OnExit = EventDateExit
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 682
+    Height = 433
+    Align = alTop
+    TabOrder = 1
+    object DBText1: TDBText
+      Left = 82
+      Top = 22
+      Width = 119
+      Height = 17
+      DataField = 'serial'
+      DataSource = DataSource1
+    end
+    object Label1: TLabel
+      Left = 14
+      Top = 21
+      Width = 62
+      Height = 18
+      Caption = #54665#49324#48264#54840' :'
+    end
+    object Label2: TLabel
+      Left = 226
+      Top = 21
+      Width = 62
+      Height = 18
+      Caption = #51217#49688#51068#51088' :'
+    end
+    object Label3: TLabel
+      Left = 421
+      Top = 21
+      Width = 62
+      Height = 18
+      Caption = #51652#54665#51068#51088' :'
+    end
+    object Label4: TLabel
+      Left = 24
+      Top = 56
+      Width = 39
+      Height = 18
+      Caption = #45812#45817#51088
+    end
+    object Label5: TLabel
+      Left = 224
+      Top = 56
+      Width = 39
+      Height = 18
+      Caption = #44144#47000#52376
+    end
+    object Label6: TLabel
+      Left = 24
+      Top = 96
+      Width = 39
+      Height = 18
+      Caption = #54665#49324#47749
+    end
+    object Label7: TLabel
+      Left = 24
+      Top = 144
+      Width = 52
+      Height = 18
+      Caption = #54665#49324#44592#44036
+    end
+    object Label8: TLabel
+      Left = 24
+      Top = 192
+      Width = 52
+      Height = 18
+      Caption = #44256#44061#49457#47749
+    end
+    object Label9: TLabel
+      Left = 24
+      Top = 232
+      Width = 52
+      Height = 18
+      Caption = #51204#54868#48264#54840
+    end
+    object Label10: TLabel
+      Left = 376
+      Top = 232
+      Width = 39
+      Height = 18
+      Caption = #54648#46300#54256
+    end
+    object Label11: TLabel
+      Left = 24
+      Top = 272
+      Width = 52
+      Height = 18
+      Caption = #52636#48156#51068#49884
+    end
+    object Label12: TLabel
+      Left = 376
+      Top = 272
+      Width = 39
+      Height = 18
+      Caption = #51665#44208#51648
+    end
+    object Label13: TLabel
+      Left = 24
+      Top = 312
+      Width = 52
+      Height = 18
+      Caption = #54788#51648#52636#48156
+    end
+    object Label14: TLabel
+      Left = 376
+      Top = 312
+      Width = 39
+      Height = 18
+      Caption = #51665#44208#51648
+    end
+    object Label15: TLabel
+      Left = 27
+      Top = 352
+      Width = 39
+      Height = 18
+      Caption = #49689#49548#47749
+    end
+    object Label16: TLabel
+      Left = 374
+      Top = 352
+      Width = 39
+      Height = 18
+      Caption = #44061#49892#47749
+    end
+    object Label17: TLabel
+      Left = 470
+      Top = 352
+      Width = 39
+      Height = 18
+      Caption = #44061#49892#49688
+    end
+    object DBTextReservationDate: TDBText
+      Left = 294
+      Top = 21
+      Width = 111
+      Height = 17
+      DataField = 'reservation_date'
+      DataSource = DataSource1
+    end
+    object DBTextProcessDate: TDBText
+      Left = 489
+      Top = 21
+      Width = 158
+      Height = 17
+      DataField = 'process_date'
+      DataSource = DataSource1
+    end
+    object Label18: TLabel
+      Left = 520
+      Top = 145
+      Width = 13
+      Height = 18
+      Caption = #48149
+    end
+    object Label19: TLabel
+      Left = 584
+      Top = 145
+      Width = 13
+      Height = 18
+      Caption = #51068
+    end
+    object Label20: TLabel
+      Left = 389
+      Top = 192
+      Width = 26
+      Height = 18
+      Caption = #51064#50896
+    end
+    object Label21: TLabel
+      Left = 508
+      Top = 192
+      Width = 26
+      Height = 18
+      Caption = #45824#51064
+    end
+    object Label22: TLabel
+      Left = 593
+      Top = 192
+      Width = 26
+      Height = 18
+      Caption = #49548#51064
+    end
+    object Label23: TLabel
+      Left = 573
+      Top = 352
+      Width = 39
+      Height = 18
+      Caption = #44061#49892#49688
+    end
+    object Label24: TLabel
+      Left = 260
+      Top = 140
+      Width = 11
+      Height = 18
+      Caption = '~'
+    end
+    object Label25: TLabel
+      Left = 207
+      Top = 272
+      Width = 13
+      Height = 18
+      Caption = #49884
+    end
+    object Label26: TLabel
+      Left = 245
+      Top = 272
+      Width = 13
+      Height = 18
+      Caption = #48516
+    end
+    object Label27: TLabel
+      Left = 206
+      Top = 311
+      Width = 13
+      Height = 18
+      Caption = #49884
+    end
+    object Label28: TLabel
+      Left = 244
+      Top = 311
+      Width = 13
+      Height = 18
+      Caption = #48516
+    end
+    object Label29: TLabel
+      Left = 127
+      Top = 140
+      Width = 13
+      Height = 18
+      Caption = #45380
+    end
+    object Label30: TLabel
+      Left = 179
+      Top = 140
+      Width = 13
+      Height = 18
+      Caption = #50900
+    end
+    object Label31: TLabel
+      Left = 231
+      Top = 140
+      Width = 13
+      Height = 18
+      Caption = #51068
+    end
+    object Label32: TLabel
+      Left = 332
+      Top = 140
+      Width = 13
+      Height = 18
+      Caption = #45380
+    end
+    object Label33: TLabel
+      Left = 384
+      Top = 140
+      Width = 13
+      Height = 18
+      Caption = #50900
+    end
+    object Label34: TLabel
+      Left = 436
+      Top = 140
+      Width = 13
+      Height = 18
+      Caption = #51068
+    end
+    object Label35: TLabel
+      Left = 115
+      Top = 272
+      Width = 13
+      Height = 18
+      Caption = #50900
+    end
+    object Label36: TLabel
+      Left = 167
+      Top = 272
+      Width = 13
+      Height = 18
+      Caption = #51068
+    end
+    object Label37: TLabel
+      Left = 115
+      Top = 311
+      Width = 13
+      Height = 18
+      Caption = #50900
+    end
+    object Label38: TLabel
+      Left = 167
+      Top = 311
+      Width = 13
+      Height = 18
+      Caption = #51068
+    end
+    object DBNavigator1: TDBNavigator
+      Left = 186
+      Top = 391
+      Width = 240
+      Height = 25
+      DataSource = DataSource1
+      TabOrder = 0
+    end
+    object DBEditManagerName: TDBEdit
+      Left = 80
+      Top = 52
+      Width = 121
+      Height = 26
+      DataField = 'manager_name'
+      DataSource = DataSource1
+      TabOrder = 1
+    end
+    object edtPartner: TDBEdit
+      Left = 288
+      Top = 52
+      Width = 121
+      Height = 26
+      DataField = 'partner_name'
+      DataSource = DataSource1
+      TabOrder = 2
+    end
+    object DBEdit3: TDBEdit
+      Left = 82
+      Top = 93
+      Width = 323
+      Height = 26
+      DataField = 'event_name'
+      DataSource = DataSource1
+      TabOrder = 3
+    end
+    object DBEditNight: TDBEdit
+      Left = 489
+      Top = 137
+      Width = 25
+      Height = 26
+      DataField = 'night'
+      DataSource = DataSource1
+      TabOrder = 10
+    end
+    object DBEditDay: TDBEdit
+      Left = 551
+      Top = 137
+      Width = 27
+      Height = 26
+      DataField = 'day'
+      DataSource = DataSource1
+      TabOrder = 11
+    end
+    object DBEdit8: TDBEdit
+      Left = 82
+      Top = 189
+      Width = 267
+      Height = 26
+      DataField = 'customer_name'
+      DataSource = DataSource1
+      TabOrder = 12
+    end
+    object DBEdit9: TDBEdit
+      Left = 421
+      Top = 189
+      Width = 29
+      Height = 26
+      DataSource = DataSource1
+      TabOrder = 13
+    end
+    object DBEdit10: TDBEdit
+      Left = 540
+      Top = 189
+      Width = 29
+      Height = 26
+      DataField = 'adult_total'
+      DataSource = DataSource1
+      TabOrder = 14
+    end
+    object DBEdit11: TDBEdit
+      Left = 625
+      Top = 189
+      Width = 29
+      Height = 26
+      DataField = 'child_total'
+      DataSource = DataSource1
+      TabOrder = 15
+    end
+    object DBEdit12: TDBEdit
+      Left = 82
+      Top = 229
+      Width = 121
+      Height = 26
+      DataField = 'phone'
+      DataSource = DataSource1
+      TabOrder = 16
+    end
+    object DBEdit13: TDBEdit
+      Left = 421
+      Top = 229
+      Width = 233
+      Height = 26
+      DataField = 'mobile'
+      DataSource = DataSource1
+      TabOrder = 17
+    end
+    object DBEdit15: TDBEdit
+      Left = 421
+      Top = 269
+      Width = 233
+      Height = 26
+      DataField = 'start_site'
+      DataSource = DataSource1
+      TabOrder = 22
+    end
+    object DBEdit17: TDBEdit
+      Left = 421
+      Top = 309
+      Width = 233
+      Height = 26
+      DataField = 'local_start_site'
+      DataSource = DataSource1
+      TabOrder = 27
+    end
+    object DBEdit18: TDBEdit
+      Left = 82
+      Top = 349
+      Width = 267
+      Height = 26
+      DataField = 'hotel_name'
+      DataSource = DataSource1
+      TabOrder = 28
+    end
+    object DBEdit19: TDBEdit
+      Left = 419
+      Top = 349
+      Width = 121
+      Height = 26
+      DataField = 'room_name'
+      DataSource = DataSource1
+      TabOrder = 29
+    end
+    object DBEdit20: TDBEdit
+      Left = 618
+      Top = 349
+      Width = 36
+      Height = 26
+      DataField = 'room_number'
+      DataSource = DataSource1
+      TabOrder = 30
+    end
+    object edtDepartHour: TEdit
+      Left = 186
+      Top = 269
+      Width = 20
+      Height = 26
+      TabOrder = 20
+    end
+    object edtDepartMinute: TEdit
+      Left = 226
+      Top = 269
+      Width = 20
+      Height = 26
+      TabOrder = 21
+    end
+    object edtLocalHour: TEdit
+      Left = 187
+      Top = 309
+      Width = 20
+      Height = 26
+      TabOrder = 25
+    end
+    object edtLocalMinute: TEdit
+      Left = 225
+      Top = 308
+      Width = 20
+      Height = 26
+      TabOrder = 26
+    end
+    object edtFromYear: TEdit
+      Left = 83
+      Top = 137
+      Width = 38
+      Height = 26
+      TabOrder = 4
+      OnExit = EventDateExit
+    end
+    object edtFromMonth: TEdit
+      Left = 146
+      Top = 137
+      Width = 27
+      Height = 26
+      TabOrder = 5
+      OnExit = EventDateExit
+    end
+    object edtFromDay: TEdit
+      Left = 198
+      Top = 137
+      Width = 27
+      Height = 26
+      TabOrder = 6
+      OnExit = EventDateExit
+    end
+    object edtToYear: TEdit
+      Left = 288
+      Top = 137
+      Width = 38
+      Height = 26
+      TabOrder = 7
+      OnExit = EventDateExit
+    end
+    object edtToMonth: TEdit
+      Left = 351
+      Top = 137
+      Width = 27
+      Height = 26
+      TabOrder = 8
+      OnExit = EventDateExit
+    end
+    object edtToDay: TEdit
+      Left = 403
+      Top = 137
+      Width = 27
+      Height = 26
+      TabOrder = 9
+      OnExit = EventDateExit
+    end
+    object edtDepartMonth: TEdit
+      Left = 82
+      Top = 269
+      Width = 27
+      Height = 26
+      TabOrder = 18
+      OnExit = EventDateExit
+    end
+    object edtDepartDay: TEdit
+      Left = 134
+      Top = 269
+      Width = 27
+      Height = 26
+      TabOrder = 19
+      OnExit = EventDateExit
+    end
+    object edtLocalMonth: TEdit
+      Left = 82
+      Top = 308
+      Width = 27
+      Height = 26
+      TabOrder = 23
+      OnExit = EventDateExit
+    end
+    object edtLocalDay: TEdit
+      Left = 134
+      Top = 308
+      Width = 27
+      Height = 26
+      TabOrder = 24
+      OnExit = EventDateExit
+    end
+    object btnPost: TButton
+      Left = 80
+      Top = 392
+      Width = 75
+      Height = 25
+      Caption = #51200#51109
+      TabOrder = 31
+      OnClick = btnPostClick
+    end
   end
   object DataSource1: TDataSource
     DataSet = FDTable1
@@ -603,12 +622,7 @@ object frmEvent: TfrmEvent
       'FROM event'
       'WHERE serial like '#39'20190130%'#39
       'ORDER BY serial DESC')
-    Left = 40
-    Top = 392
-  end
-  object DataSource2: TDataSource
-    DataSet = FDQuerySerial
-    Left = 128
-    Top = 392
+    Left = 456
+    Top = 384
   end
 end
diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.pas" "b/\352\271\200\355\230\204\354\262\240/EventManager.pas"
index 85849cc..ebd3414 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.pas"
@@ -17,11 +17,8 @@ interface
 
 type
   TfrmEvent = class(TForm)
-    DataSource1: TDataSource;
-    FDTable1: TFDTable;
-    DBNavigator1: TDBNavigator;
     DBGrid1: TDBGrid;
-    DBEditManagerName: TDBEdit;
+    Panel1: TPanel;
     DBText1: TDBText;
     Label1: TLabel;
     Label2: TLabel;
@@ -42,58 +39,62 @@   TfrmEvent = class(TForm)
     Label17: TLabel;
     DBTextReservationDate: TDBText;
     DBTextProcessDate: TDBText;
-    DBEdit2: TDBEdit;
-    DBEdit3: TDBEdit;
     Label18: TLabel;
+    Label19: TLabel;
+    Label20: TLabel;
+    Label21: TLabel;
+    Label22: TLabel;
+    Label23: TLabel;
+    Label24: TLabel;
+    Label25: TLabel;
+    Label26: TLabel;
+    Label27: TLabel;
+    Label28: TLabel;
+    Label29: TLabel;
+    Label30: TLabel;
+    Label31: TLabel;
+    Label32: TLabel;
+    Label33: TLabel;
+    Label34: TLabel;
+    Label35: TLabel;
+    Label36: TLabel;
+    Label37: TLabel;
+    Label38: TLabel;
+    DBNavigator1: TDBNavigator;
+    DBEditManagerName: TDBEdit;
+    edtPartner: TDBEdit;
+    DBEdit3: TDBEdit;
     DBEditNight: TDBEdit;
     DBEditDay: TDBEdit;
-    Label19: TLabel;
     DBEdit8: TDBEdit;
     DBEdit9: TDBEdit;
     DBEdit10: TDBEdit;
     DBEdit11: TDBEdit;
-    Label20: TLabel;
-    Label21: TLabel;
-    Label22: TLabel;
     DBEdit12: TDBEdit;
     DBEdit13: TDBEdit;
     DBEdit15: TDBEdit;
     DBEdit17: TDBEdit;
     DBEdit18: TDBEdit;
     DBEdit19: TDBEdit;
-    Label23: TLabel;
     DBEdit20: TDBEdit;
-    Label24: TLabel;
     edtDepartHour: TEdit;
-    Label25: TLabel;
     edtDepartMinute: TEdit;
-    Label26: TLabel;
     edtLocalHour: TEdit;
-    Label27: TLabel;
     edtLocalMinute: TEdit;
-    Label28: TLabel;
-    FDQuerySerial: TFDQuery;
-    DataSource2: TDataSource;
     edtFromYear: TEdit;
     edtFromMonth: TEdit;
     edtFromDay: TEdit;
-    Label29: TLabel;
-    Label30: TLabel;
-    Label31: TLabel;
     edtToYear: TEdit;
     edtToMonth: TEdit;
     edtToDay: TEdit;
-    Label32: TLabel;
-    Label33: TLabel;
-    Label34: TLabel;
-    Label35: TLabel;
-    Label36: TLabel;
     edtDepartMonth: TEdit;
     edtDepartDay: TEdit;
-    Label37: TLabel;
-    Label38: TLabel;
     edtLocalMonth: TEdit;
     edtLocalDay: TEdit;
+    DataSource1: TDataSource;
+    FDTable1: TFDTable;
+    FDQuerySerial: TFDQuery;
+    btnPost: TButton;
     procedure FormActivate(Sender: TObject);
     procedure FormDeactivate(Sender: TObject);
     procedure FDTable1NewRecord(DataSet: TDataSet);
@@ -101,6 +102,7 @@   TfrmEvent = class(TForm)
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure EventDateExit(Sender: TObject);
     procedure FDTable1AfterScroll(DataSet: TDataSet);
+    procedure btnPostClick(Sender: TObject);
   private
     { Private declarations }
     procedure SetDate2Edit(Date: TDate; edtYear: TEdit; edtMonth: TEdit; edtDay: TEdit);
@@ -117,29 +119,42 @@ implementation
 
 {$R *.dfm}
 
-uses DataModule, DateUtils;
+uses DataModule, DateUtils, MyLib;
 
 {** ���Ⱓ �Է½� ��� ������ �ڵ����� ���
 *}
+procedure TfrmEvent.btnPostClick(Sender: TObject);
+begin
+  FDTable1.Post;
+end;
+
 procedure TfrmEvent.EventDateExit(Sender: TObject);
 var
   fromDate, toDate : TDate;
+  Year, Month, Day: Integer;
   Night: Integer;
 begin
-  fromDate := EncodeDate(StrToInt(edtFromYear.Text),
-    StrToInt(edtFromMonth.Text), StrToInt(edtFromDay.Text));
-  toDate := EncodeDate(StrToInt(edtToYear.Text),
-    StrToInt(edtToMonth.Text), StrToInt(edtToDay.Text));
+  Convert3TextToDate(fromDate, edtFromYear.Text, edtFromMonth.Text, edtFromDay.Text);
+  Convert3TextToDate(ToDate, edtToYear.Text, edtToMonth.Text, edtToDay.Text);
 
-  Night := DaysBetween(toDate, fromDate);
-  with FDTable1 do
+//  fromDate := EncodeDate(StrToInt(edtFromYear.Text),
+//    StrToInt(edtFromMonth.Text), StrToInt(edtFromDay.Text));
+//  toDate := EncodeDate(StrToInt(edtToYear.Text),
+//    StrToInt(edtToMonth.Text), StrToInt(edtToDay.Text));
+
+  if (toDate <> 0) and (fromDate <> 0) then
   begin
-    Edit;
-    FieldByName('night').AsString := IntToStr(Night);
-    DBEditNight.Text := IntToStr(Night);
-    FieldByName('day').AsString := IntToStr(Night + 1);
-    DBEditDay.Text := IntToStr(Night + 1);
+    Night := DaysBetween(toDate, fromDate);
+    with FDTable1 do
+    begin
+      Edit;
+      FieldByName('night').AsString := IntToStr(Night);
+      DBEditNight.Text := IntToStr(Night);
+      FieldByName('day').AsString := IntToStr(Night + 1);
+      DBEditDay.Text := IntToStr(Night + 1);
+    end;
   end;
+
 end;
 
 {** �����(TDate)�� ������ TEdit.Text������
@@ -247,7 +262,7 @@ procedure TfrmEvent.FDTable1BeforePost(DataSet: TDataSet);
     FieldByName('event_start_date').AsDateTime  := EventStartDate;
     FieldByName('event_end_date').AsDateTime    := EventEndDate;
     FieldByName('start_time').AsDateTime        := DepartTime;
-    FieldByName('local_time').AsDateTime        := EventEndDate;
+    FieldByName('local_start_time').AsDateTime  := EventEndDate;
     FieldByName('modified_at').AsDateTime       := now;
   end;
 end;
@@ -274,7 +289,7 @@ function TfrmEvent.GetNewSerial: string;
       result := formatDateTime('yyyymmdd', now) + '001'
     // ���� ��¥�� ������ ������ 1 ����
     else begin
-      Serial := StrToInt(Copy(FieldByName('serial').AsString, 7, 3));
+      Serial := StrToInt(Copy(FieldByName('serial').AsString, 9, 3));
       result := formatDateTime('yyyymmdd', now) + IntToStr(Serial + 1);
     end;
   end;
@@ -317,6 +332,8 @@ procedure TfrmEvent.FDTable1NewRecord(DataSet: TDataSet);
   edtDepartDay.Clear;             edtLocalDay.Clear;
   edtDepartHour.Clear;            edtLocalHour.Clear;
   edtDepartMinute.Clear;          edtLocalMinute.Clear;
+
+  edtPartner.SetFocus;
 end;
 
 
diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.vlb" "b/\352\271\200\355\230\204\354\262\240/EventManager.vlb"
index 3244107..afcf461 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.vlb"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.vlb"
@@ -1,16 +1,7 @@
-[FDTable1]
+[]
 Coordinates=174,20,60,33
-
-[DataSource1]
-Coordinates=103,71,77,33
-
-[]
-Coordinates=84,124,90,33
 Visible=True
 
-[DBNavigator1]
-Coordinates=330,30,82,51
-
 [DBGrid1]
 Coordinates=25,134,56,33
 
diff --git "a/\352\271\200\355\230\204\354\262\240/MainMenu.dfm" "b/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
index 187f42b..4bb490b 100644
--- "a/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
@@ -124,8 +124,8 @@ object frmMenu: TfrmMenu
       Width = 122
       Height = 41
       Caption = #44256#44061#44288#47532
-      Enabled = False
       TabOrder = 8
+      OnClick = btnCustomerClick
     end
     object btnBanking: TButton
       Left = 15
diff --git "a/\352\271\200\355\230\204\354\262\240/MainMenu.pas" "b/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
index e628f85..ecf74f0 100644
--- "a/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
@@ -34,6 +34,7 @@   TfrmMenu = class(TForm)
     procedure edtPassKeyPress(Sender: TObject; var Key: Char);
     procedure btnManagerClick(Sender: TObject);
     procedure btnTouristClick(Sender: TObject);
+    procedure btnCustomerClick(Sender: TObject);
   private
     { Private declarations }
     procedure SetButton(Button: TButton; Bool: Integer);
@@ -49,7 +50,7 @@ implementation
 
 {$R *.dfm}
 
-uses DataModule, EventManager, Manager, TouristStatusForm;
+uses DataModule, EventManager, Manager, TouristStatusForm, CustomerForm;
 
 procedure TfrmMenu.SetButton(Button: TButton; Bool: Integer);
 begin
@@ -100,6 +101,11 @@ procedure TfrmMenu.btnTouristClick(Sender: TObject);
   frmTouristStatus.Show;
 end;
 
+procedure TfrmMenu.btnCustomerClick(Sender: TObject);
+begin
+  frmCustomer.Show;
+end;
+
 procedure TfrmMenu.btnManagerClick(Sender: TObject);
 begin
   frmManager.Show;
diff --git "a/\352\271\200\355\230\204\354\262\240/MyLib.pas" "b/\352\271\200\355\230\204\354\262\240/MyLib.pas"
new file mode 100644
index 0000000..338d753
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/MyLib.pas"
@@ -0,0 +1,63 @@
+unit MyLib;
+
+interface
+
+function Convert3TextToDate(var Date: TDate; Year: string; Month: string; Day: string): Boolean;
+
+implementation
+
+uses SysUtils;
+
+{** ������� ���� string���� TDate�� ����. ������
+  @param Date
+  @return ��ȿ�� ��¥�� ��ȯ�� �� �ִٸ� True �ƴϸ� False
+*}
+function Convert3TextToDate(var Date: TDate; Year: string; Month: string; Day: string): Boolean;
+var
+  iYear, iMonth, iDay: Integer;
+begin
+  Date := 0;
+
+  if Year <> '' then
+  begin
+    if not TryStrToInt(Year, iYear) then begin
+      result := False;
+     Exit;
+    end;
+  end else
+  begin
+    result := False;
+    Exit;
+  end;
+
+  if Month <> '' then
+  begin
+    if not TryStrToInt(Month, iMonth) then begin
+      result := False;
+      Exit;
+    end;
+  end else
+  begin
+    result := False;
+    Exit;
+  end;
+
+  if Day <> '' then
+  begin
+    if not TryStrToInt(Day, iDay) then begin
+      result := False;
+      Exit;
+    end;
+  end else
+  begin
+    result := False;
+    Exit;
+  end;
+
+  Date := EncodeDate(iYear, iMonth, iDay);
+  result := True;
+end;
+
+
+
+end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS.dpr" "b/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
index f363f15..24c1b77 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
@@ -6,7 +6,9 @@ uses
   EventManager in 'EventManager.pas' {frmEvent},
   Manager in 'Manager.pas' {frmManager},
   DataModule in 'DataModule.pas' {DataModule1: TDataModule},
-  TouristStatusForm in 'TouristStatusForm.pas' {frmTouristStatus};
+  TouristStatusForm in 'TouristStatusForm.pas' {frmTouristStatus},
+  CustomerForm in 'CustomerForm.pas' {frmCustomer},
+  MyLib in 'MyLib.pas';
 
 {$R *.res}
 
@@ -18,5 +20,6 @@ begin
   Application.CreateForm(TfrmManager, frmManager);
   Application.CreateForm(TDataModule1, DataModule1);
   Application.CreateForm(TfrmTouristStatus, frmTouristStatus);
+  Application.CreateForm(TfrmCustomer, frmCustomer);
   Application.Run;
 end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS.dproj" "b/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
index 1d30247..3899111 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
@@ -119,6 +119,10 @@
             <Form>frmTouristStatus</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="CustomerForm.pas">
+            <Form>frmCustomer</Form>
+        </DCCReference>
+        <DCCReference Include="MyLib.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
diff --git "a/\352\271\200\355\230\204\354\262\240/ttms.sdb" "b/\352\271\200\355\230\204\354\262\240/ttms.sdb"
index 6ea1171b0c269c3436e2b41e7b1d0f82073ac771..2ee380706a8a33325ee80d26484b2f02afcea1a5 100644
GIT binary patch
delta 2652
zcmcIl-E$LF6yMF}YnzX4eThYCH*_+zGbFvco6qeqQc6Z0ogz#TwP2IN(gxckBoV|1
zHwk5}S_YUc(kciuXhElyVu}U_X7mqW2H%xgUbCAAeeuNy@9yTSRUBVByEi%c-E+=8
zzjMw#$xCcrVlO<`aSA~Y87?baPY}e=dvOQjIfeMhMThx$1UGKQh;Q-F@Z&gZ-0E~X
zel>d>tBwiv5j*ld?ZS!TA&cwaL3C~~7ayPE#GjlV@v*^!I!Z=t#UMVkPV;9zD86ZN
zb#<X1?$vaTyqnFXrnyZ0+c300Iye#~M+SGl8YN?OI7ari;jt{2NyMjO_|Qv(`^nx&
z-wuc+<I`Lnp+FybVEE;I2cqiEcp@{II~qS7!}masI>KjilMouqolZBcG(YiVGI5g2
zWaF6@gDm%6!?&h29Z$w5xJ&~C8k&x0a!D0^eQ>`X8>4R=PmQlv<zpFcDlw5rCD-Gz
z$<+8bJXp7eJnGcOxa7oCB0Kp{-|5Lz5^`u9NimucHyuyF6gA*lB&lP^5=XePcl2~U
zWmo0VVoK{_)J)T<Y$B%x-mu=Fpa)c=!1ReEzGa*JYs6x4xr7e2HC!%q4%N!eo#c`^
z?ZZ)un9mtX53Rpp*e=u}uGoJxCW?p6Vh0hm^g+S3(<Kh#&x()icB`|$IBIqcb*aFX
zdT)%;b;;gee5=0QQwPVWx`ZPLnuM*5AbrI*TKt;Dq|;)7n~|2YO4pr}=uPV`w7p~{
z|9YVfX-5!Z*tyS<Ep_BM2VWR9Zs~EmySsO~-6-0PB3;|vh#UGwk%0jkP!T{e@S#-E
z3n(wsA}PgX<%_T6PZp|+dF5(Z`TRnqG$SwFuas_8=Vz+3%gU!~z09zGPoHib^3oAq
z3PV?z5t{M3ogowmcmW6lKmjj9Q+{tK90~rLm8}^FNrl-!hz$gNfiTzrM_51b1!<=6
zKBm#@^wj8eZy$j4hB|Sb9<T9($2RSoQiGpdDy#DKE6R=g^7)z9UU^Yhf`md1DPq8s
zt82=cf_(LXf$>K|-e3fTR6-QZ_`QK(DBREuks!>{0T#Rsd;rvfSJNZU<>hbAR(>eU
zORMs|xyo9;vUah$P_CYxm(R`1<@siG8hwVPgFd?MK`oC4`&oa`2LhBhoVtffqBVWF
zV-(i(C|n#|$KX07uBQ9Z!zC$w&4Ak=&<2;KG@H%aZ(0G`ZYKUD{vZ_CC69@1CJaSw
zMk9u!m=Qxz15`Dt`dT+VA$}o#hI%D}B(NS-jj+}<#@633$(Z=$cK7$YP-DB(WE-jV
zp`EvlK<nK$zSwKhixsLB3-Js@-BGGuteV?EGY3uSX|<A<*W?>>%Iu=NdP&n(>!BxH
zs|+mK!k5bGgX-b}Zvd291K<ra5xrKLGD*Qg0r;w=s@%(0&o5U>cdM6HXr+9&a(6{8
zt|^xuK%wEE)>}o_VpJ_nU)O@?$xF-1<@xHF*>#oW8&`~^A}r;Hug_1_Zj4@92nSg}
z`+~tp;e>v1JE{7`^{Ab_y>tD=^*2-0lr|>oyA{~g6<)ixz4S0syReXb?P91B15>qn
zOIavX7w63|Jzh#}ZYt=d0qkxnte>RWkQCF*SUoF%2`DpnD&>!K($$a4%9UBH85GGw
z)_`J}u#chX7F>mCHsJSB{!n35zt5X7uK52kuQqdB@!GsH{O7#d%yGqUoL9{O+?ZFJ
zFs@)vGi-qJF{WU!(2t7yQn#N`XN!rrgAl(H+H@iAzzK1U*xNc!7%E^||J%QA-oQUC
ztaTsGAA=L?!PU-!^9eA3DoTQc3X(yPFhMd3l1Y%vf@BdSt03Wm)FwzaL9#DNjz@n3
Dupc1r

delta 2040
zcmb``Z)_7~90%~bwzTWG=XsbQMJB8TCQR7qt#n&E5uROd?b+*Hxj!2N_F}R!5Ezw#
zqQ-PASpR@QQVpPyKN?UHaB5=^(HF)TUl=34AjW9q1|dcVF~k5dYV^71x(t2orN5`2
z{O;H5_nylQTk&Bl{!(pCo?)1AQdOj`FpO)#fhCc;Jku0B47gK_&pX$R-toWcf5ad6
z&V@Un1dqex<(lEeu4%<xBVE2gcQ?CF-O=~(mRxBXTYun(de&EVv1eSqps7f!OtCcT
z-cVbdWse2|>^?+CbC2Z)chJRGUg>@D&f%@)xIgc9A7_u1&Tt=<M!lDP4I`_)f#rb`
z_RlI^;Jl?l=p()EJ9=FC7~IIZ&;Uu+iwe7Eva{!hLUjx#H{~4lmGAcU<}e=%^N}z)
zY&M4Z#>gGIHgfvfkrU&44~_3VJ$__=@R#!2*I(WfBsG5W^!Vt9*ADLC!||~FY5LbC
zf;=CO#NyGmrrE8rmdQ&8`AEFEIlio|iRWA24|-Nsu}EQ%f)o<=CMd9~6EzfKSsF6*
zKSp(8G&k~<J0yy@Jrm)YW6k0C#1>5E|4;mucr+GY7HNvMwvc3R(6oGrq%5u5)>}Hi
zt+k|VJI7uwRpk%XKr+!!Do1JqDNuShzm(<5R{p5Vzm_!Ck?Ji!H#E$-&<(NyKcQOa
zp6|C4RUS$;`jcVNZ3f*&x5>cOi2;wBVO`|co@#W142&^o42_Y2i>Nd<S_c6+<wl1X
z^dtHh9U}b~P+^|i!!$N@=K6En`?du2jhpiMO@jlAqTxtGFdB_E#$pjZ=<+ZP4d&pc
z9l8Eswr~CBzJc82M1+sUf~-BE=X1IKCxYUx{Px_?(Bwp{Ey7PB|LsDz$jWR$f1q1n
z1bDb7xwC<=_Yx|QZf-eQ`h(SEUCRyGw{{&}LEoXT(dXzqdJnyYUPmSLJSw1_Xfx_V
z-6(?u6hli<J*q`D$Or#|zrmm3C3q2j2|tBr;TiZQJPh~4XW&!tQ8)m5p-$e-6)*}H
z!w?KW0Nvns@GH0qr0>Bu;0y2xD1%erD0l_z1-rrHU@KS;dVmT<&<=R85X=G7fuH-E
zyUC4nW8AmgSKMdZIc}6Y!M(;E;GX54=7z|oelWG*cL&&RRbGSFQb}?qy@o0!8A1=0
zD9h4nDy$i)ZbwQY-DRswQbfaaBp9MWg*!V%-Ik$YDWz4ENUfq$HN(t0$`tghN|_P`
zO{u6u%GlD)td@|eva+P59f?BXAu1`Oc1ToWm#C+xaF>Xajua!=X-iWxVvk5A3A&l6
z2y23^f+i-DLI-VP!w|3|MM$l*waS!)^a@9!s61FvLR@Yut4WIV0F@*NYCDyvNkW_o
zYmy$br5c8mZljVD-D)e9AY!G(Um&LyvLSlZZe~<1nO;UEYGO7*g(W@F>?nybZ%bAc
zF&n0m6g9Ebk&N{wD$&sOMn|cPzJv;|=}9kkWF|ZAca*^esllP3YKv^8RZ$Ta+LCk`
z8~52tnMzWvpOCPCN|G_2PlXk%&9jx%R9y=>60sblQcX>+bCgi^xl~vd6LV~J7EDd*
zxR+AHie5V*ZT5uH_fV;FTAfvqlnhWwx{ha3;f#duwk2wco|-|0bwikLD`93-<t{1>
z3yB(Af=cG5`P~JZnT&*JGo@yANF^$U0I0BFn4GN+y+iDpN<|)MrrME$vwlail&GR2
zPbcehgiYN`C2C21iY=_Ers1Jd3{{!oc8CqlRpk!&vD}%KMy#U67A;rNau+R6(V9}U
ZyhY1bw5p1hzi3q#t*J$eJ86Ln{{WRF;#&X!


From 8f9ec05ed974de867e549deb30930f225c5d8bfe Mon Sep 17 00:00:00 2001
From: healt-kr <healt.kr@gmail.com>
Date: Thu, 31 Jan 2019 19:30:04 +0900
Subject: [PATCH 05/11] =?UTF-8?q?=EB=AA=A8=EA=B0=9D=ED=98=84=ED=99=A9=20Fo?=
 =?UTF-8?q?rm=20=EC=9E=91=EC=84=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../CustomerForm.dfm"                         | 478 ++++++++++++++++++
 .../CustomerForm.pas"                         |  83 +++
 2 files changed, 561 insertions(+)
 create mode 100644 "\352\271\200\355\230\204\354\262\240/CustomerForm.dfm"
 create mode 100644 "\352\271\200\355\230\204\354\262\240/CustomerForm.pas"

diff --git "a/\352\271\200\355\230\204\354\262\240/CustomerForm.dfm" "b/\352\271\200\355\230\204\354\262\240/CustomerForm.dfm"
new file mode 100644
index 0000000..7a8ccd0
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/CustomerForm.dfm"
@@ -0,0 +1,478 @@
+object frmCustomer: TfrmCustomer
+  Left = 0
+  Top = 0
+  Caption = #44256#44061#44288#47532
+  ClientHeight = 576
+  ClientWidth = 783
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -15
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 18
+  object CategoryPanelGroup1: TCategoryPanelGroup
+    Left = 0
+    Top = 41
+    Width = 783
+    Height = 535
+    VertScrollBar.Position = 283
+    VertScrollBar.Tracking = True
+    Align = alClient
+    HeaderFont.Charset = DEFAULT_CHARSET
+    HeaderFont.Color = clWindowText
+    HeaderFont.Height = -11
+    HeaderFont.Name = 'Tahoma'
+    HeaderFont.Style = []
+    TabOrder = 0
+    ExplicitTop = 0
+    ExplicitHeight = 576
+    object CategoryPanel8: TCategoryPanel
+      Top = 374
+      Caption = #44160#49353#47785#47197
+      TabOrder = 0
+      object DBText1: TDBText
+        Left = 352
+        Top = 96
+        Width = 65
+        Height = 17
+      end
+      object DBText2: TDBText
+        Left = 552
+        Top = -616
+        Width = 65
+        Height = 17
+      end
+      object DBGrid1: TDBGrid
+        Left = 0
+        Top = 0
+        Width = 762
+        Height = 174
+        Align = alClient
+        DataSource = DataSource1
+        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
+        TabOrder = 0
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -15
+        TitleFont.Name = 'Tahoma'
+        TitleFont.Style = []
+        Columns = <
+          item
+            Expanded = False
+            FieldName = 'serial'
+            Title.Caption = #44256#44061#48264#54840
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'name'
+            Title.Caption = #51060#47492
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'phone'
+            Title.Caption = #50672#46973#52376
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'office_name'
+            Title.Caption = #51649#51109
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'office_position'
+            Title.Caption = #51649#50948
+            Visible = True
+          end>
+      end
+      object DBEdit16: TDBEdit
+        Left = 584
+        Top = -608
+        Width = 121
+        Height = 26
+        TabOrder = 1
+      end
+    end
+    object CategoryPanel7: TCategoryPanel
+      Top = 174
+      Caption = #44160#49353#51312#44148
+      TabOrder = 1
+      object Label16: TLabel
+        Left = 15
+        Top = 16
+        Width = 49
+        Height = 18
+        Caption = 'Label16'
+      end
+      object Edit1: TEdit
+        Left = 64
+        Top = 8
+        Width = 121
+        Height = 26
+        TabOrder = 0
+        Text = 'Edit1'
+      end
+      object Edit2: TEdit
+        Left = 248
+        Top = 8
+        Width = 121
+        Height = 26
+        TabOrder = 1
+        Text = 'Edit2'
+      end
+    end
+    object CategoryPanel6: TCategoryPanel
+      Top = 46
+      Height = 128
+      Caption = #47700#47784
+      TabOrder = 2
+      object DBMemo1: TDBMemo
+        Left = 0
+        Top = 0
+        Width = 762
+        Height = 102
+        Align = alClient
+        DataSource = DataSource1
+        TabOrder = 0
+      end
+    end
+    object CategoryPanel3: TCategoryPanel
+      Top = -18
+      Height = 64
+      Caption = #51649#51109' '#51221#48372
+      TabOrder = 3
+      object Label7: TLabel
+        Left = 25
+        Top = 16
+        Width = 39
+        Height = 18
+        Caption = #51649#51109#47749
+      end
+      object Label8: TLabel
+        Left = 191
+        Top = 11
+        Width = 52
+        Height = 18
+        Caption = #51649#51109#51204#54868
+      end
+      object Label9: TLabel
+        Left = 392
+        Top = 15
+        Width = 26
+        Height = 18
+        Caption = #48512#49436
+      end
+      object Label10: TLabel
+        Left = 592
+        Top = 11
+        Width = 26
+        Height = 18
+        Caption = #51649#50948
+      end
+      object DBEdit7: TDBEdit
+        Left = 64
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'office_name'
+        DataSource = DataSource1
+        TabOrder = 0
+      end
+      object DBEdit8: TDBEdit
+        Left = 248
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'office_phone'
+        DataSource = DataSource1
+        TabOrder = 1
+      end
+      object DBEdit9: TDBEdit
+        Left = 424
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'office_part'
+        DataSource = DataSource1
+        TabOrder = 2
+      end
+      object DBEdit10: TDBEdit
+        Left = 624
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'office_position'
+        DataSource = DataSource1
+        TabOrder = 3
+      end
+    end
+    object CategoryPanel5: TCategoryPanel
+      Top = -106
+      Height = 88
+      Caption = #44592#45392#51068
+      TabOrder = 4
+      object Label14: TLabel
+        Left = 37
+        Top = 11
+        Width = 26
+        Height = 18
+        Caption = #49373#51068
+      end
+      object Label15: TLabel
+        Left = 359
+        Top = 11
+        Width = 65
+        Height = 18
+        Caption = #44208#54844#44592#45392#51068
+      end
+      object DBEdit14: TDBEdit
+        Left = 64
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'birhtday'
+        DataSource = DataSource1
+        TabOrder = 0
+      end
+      object DBEdit15: TDBEdit
+        Left = 424
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'anniversary'
+        DataSource = DataSource1
+        TabOrder = 1
+      end
+      object DBRadioGroup1: TDBRadioGroup
+        Left = 191
+        Top = 8
+        Width = 130
+        Height = 49
+        Caption = #49373#51068' '#44396#48516
+        Columns = 2
+        Items.Strings = (
+          #50577#47141
+          #51020#47141)
+        TabOrder = 2
+      end
+    end
+    object CategoryPanel4: TCategoryPanel
+      Top = -178
+      Height = 72
+      Caption = #44288#49900#49324
+      TabOrder = 5
+      object Label11: TLabel
+        Left = 37
+        Top = 11
+        Width = 26
+        Height = 18
+        Caption = #51649#50629
+      end
+      object Label12: TLabel
+        Left = 222
+        Top = 11
+        Width = 26
+        Height = 18
+        Caption = #51333#44368
+      end
+      object Label13: TLabel
+        Left = 392
+        Top = 11
+        Width = 26
+        Height = 18
+        Caption = #52712#48120
+      end
+      object DBEdit11: TDBEdit
+        Left = 64
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'job'
+        DataSource = DataSource1
+        TabOrder = 0
+      end
+      object DBEdit12: TDBEdit
+        Left = 248
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'religion'
+        DataSource = DataSource1
+        TabOrder = 1
+      end
+      object DBEdit13: TDBEdit
+        Left = 424
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'hobby'
+        DataSource = DataSource1
+        TabOrder = 2
+      end
+    end
+    object CategoryPanel1: TCategoryPanel
+      Top = -283
+      Height = 105
+      Caption = #44592#48376#51221#48372
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -15
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 6
+      object Label1: TLabel
+        Left = 25
+        Top = 16
+        Width = 39
+        Height = 18
+        Caption = #44256#44061#47749
+      end
+      object Label2: TLabel
+        Left = 209
+        Top = 11
+        Width = 39
+        Height = 18
+        Caption = #50689#47928#47749
+      end
+      object Label3: TLabel
+        Left = 384
+        Top = 43
+        Width = 39
+        Height = 18
+        Caption = #44144#47000#52376
+      end
+      object Label4: TLabel
+        Left = 579
+        Top = 43
+        Width = 39
+        Height = 18
+        Caption = #45812#45817#51088
+      end
+      object Label5: TLabel
+        Left = 25
+        Top = 48
+        Width = 39
+        Height = 18
+        Caption = #55092#45824#54256
+      end
+      object Label6: TLabel
+        Left = 209
+        Top = 43
+        Width = 39
+        Height = 18
+        Caption = #51060#47700#51068
+      end
+      object Label18: TLabel
+        Left = 566
+        Top = 16
+        Width = 52
+        Height = 18
+        Caption = #44256#44061#48264#54840
+      end
+      object DBEdit1: TDBEdit
+        Left = 64
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'name'
+        DataSource = DataSource1
+        TabOrder = 0
+      end
+      object DBEdit2: TDBEdit
+        Left = 248
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'name_english'
+        DataSource = DataSource1
+        TabOrder = 1
+      end
+      object DBEdit3: TDBEdit
+        Left = 424
+        Top = 40
+        Width = 121
+        Height = 26
+        DataField = 'partner'
+        DataSource = DataSource1
+        TabOrder = 2
+      end
+      object DBEdit4: TDBEdit
+        Left = 624
+        Top = 40
+        Width = 121
+        Height = 26
+        DataField = 'manager'
+        DataSource = DataSource1
+        TabOrder = 3
+      end
+      object DBEdit5: TDBEdit
+        Left = 64
+        Top = 40
+        Width = 121
+        Height = 26
+        DataField = 'phone'
+        DataSource = DataSource1
+        TabOrder = 4
+      end
+      object DBEdit6: TDBEdit
+        Left = 248
+        Top = 40
+        Width = 121
+        Height = 26
+        DataField = 'email'
+        DataSource = DataSource1
+        TabOrder = 5
+      end
+      object DBEdit18: TDBEdit
+        Left = 624
+        Top = 8
+        Width = 121
+        Height = 26
+        DataField = 'serial'
+        DataSource = DataSource1
+        ReadOnly = True
+        TabOrder = 6
+      end
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 783
+    Height = 41
+    Align = alTop
+    TabOrder = 1
+    ExplicitLeft = 304
+    ExplicitTop = 288
+    ExplicitWidth = 185
+    object DBNavigator1: TDBNavigator
+      Left = 272
+      Top = 8
+      Width = 240
+      Height = 25
+      DataSource = DataSource1
+      TabOrder = 0
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = FDTable1
+    Left = 480
+    Top = 441
+  end
+  object FDTable1: TFDTable
+    Active = True
+    IndexFieldNames = 'serial'
+    Connection = DataModule1.FDConnection1
+    UpdateOptions.UpdateTableName = 'customer'
+    TableName = 'customer'
+    Left = 440
+    Top = 441
+  end
+end
diff --git "a/\352\271\200\355\230\204\354\262\240/CustomerForm.pas" "b/\352\271\200\355\230\204\354\262\240/CustomerForm.pas"
new file mode 100644
index 0000000..05d1500
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/CustomerForm.pas"
@@ -0,0 +1,83 @@
+unit CustomerForm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls,
+  Vcl.ExtCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids, FireDAC.Stan.Intf,
+  FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
+  FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
+  FireDAC.Comp.DataSet, FireDAC.Comp.Client;
+
+type
+  TfrmCustomer = class(TForm)
+    CategoryPanelGroup1: TCategoryPanelGroup;
+    CategoryPanel1: TCategoryPanel;
+    DBEdit1: TDBEdit;
+    DBEdit2: TDBEdit;
+    DBEdit3: TDBEdit;
+    DBEdit4: TDBEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    CategoryPanel3: TCategoryPanel;
+    Label7: TLabel;
+    DBEdit7: TDBEdit;
+    Label8: TLabel;
+    DBEdit8: TDBEdit;
+    Label9: TLabel;
+    DBEdit9: TDBEdit;
+    Label10: TLabel;
+    DBEdit10: TDBEdit;
+    CategoryPanel4: TCategoryPanel;
+    Label11: TLabel;
+    DBEdit11: TDBEdit;
+    Label12: TLabel;
+    DBEdit12: TDBEdit;
+    Label13: TLabel;
+    DBEdit13: TDBEdit;
+    CategoryPanel5: TCategoryPanel;
+    Label14: TLabel;
+    DBEdit14: TDBEdit;
+    Label15: TLabel;
+    DBEdit15: TDBEdit;
+    DBRadioGroup1: TDBRadioGroup;
+    CategoryPanel6: TCategoryPanel;
+    DBMemo1: TDBMemo;
+    CategoryPanel7: TCategoryPanel;
+    CategoryPanel8: TCategoryPanel;
+    DBGrid1: TDBGrid;
+    Edit1: TEdit;
+    Edit2: TEdit;
+    Label16: TLabel;
+    Label5: TLabel;
+    DBEdit5: TDBEdit;
+    Label6: TLabel;
+    DBEdit6: TDBEdit;
+    Label18: TLabel;
+    DBEdit16: TDBEdit;
+    DBText1: TDBText;
+    DBText2: TDBText;
+    DBEdit18: TDBEdit;
+    DataSource1: TDataSource;
+    FDTable1: TFDTable;
+    Panel1: TPanel;
+    DBNavigator1: TDBNavigator;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCustomer: TfrmCustomer;
+
+implementation
+
+{$R *.dfm}
+
+uses DataModule;
+
+end.

From 5c891de7fb12bfb1c0a417b4650c2f1e695ec50b Mon Sep 17 00:00:00 2001
From: healt-kr <healt.kr@gmail.com>
Date: Fri, 1 Feb 2019 09:24:17 +0900
Subject: [PATCH 06/11] =?UTF-8?q?=ED=8C=8C=EC=9D=B4=EC=96=B4=EB=AA=BD?=
 =?UTF-8?q?=ED=82=A4=20=EB=B2=84=EC=A0=84=20=ED=94=84=EB=A1=9C=EC=A0=9D?=
 =?UTF-8?q?=ED=8A=B8=20=EC=8B=9C=EC=9E=91?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../TTMS_FMX/EventForm.fmx"                   |  11 +
 .../TTMS_FMX/EventForm.pas"                   |  24 +
 .../TTMS_FMX/TTMS_FMX.dpr"                    |  14 +
 .../TTMS_FMX/TTMS_FMX.dproj"                  | 856 ++++++++++++++++++
 4 files changed, 905 insertions(+)
 create mode 100644 "\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.fmx"
 create mode 100644 "\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.pas"
 create mode 100644 "\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dpr"
 create mode 100644 "\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dproj"

diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.fmx" "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.fmx"
new file mode 100644
index 0000000..f9e8edf
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.fmx"
@@ -0,0 +1,11 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 480
+  ClientWidth = 640
+  FormFactor.Width = 320
+  FormFactor.Height = 480
+  FormFactor.Devices = [Desktop]
+  DesignerMasterStyle = 0
+end
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.pas" "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.pas"
new file mode 100644
index 0000000..4eda912
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.pas"
@@ -0,0 +1,24 @@
+unit EventForm;
+
+interface
+
+uses
+  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
+  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs;
+
+type
+  TForm1 = class(TForm)
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.fmx}
+
+end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dpr" "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dpr"
new file mode 100644
index 0000000..e0d3a98
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dpr"
@@ -0,0 +1,14 @@
+program TTMS_FMX;
+
+uses
+  System.StartUpCopy,
+  FMX.Forms,
+  EventForm in 'EventForm.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dproj" "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dproj"
new file mode 100644
index 0000000..27a6b82
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dproj"
@@ -0,0 +1,856 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{269C2642-38EB-4ACA-B443-D0552A8720DF}</ProjectGuid>
+        <ProjectVersion>18.5</ProjectVersion>
+        <FrameworkType>FMX</FrameworkType>
+        <MainSource>TTMS_FMX.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <TargetedPlatforms>1119</TargetedPlatforms>
+        <AppType>Application</AppType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
+        <Base_Android>true</Base_Android>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='iOSDevice32' and '$(Base)'=='true') or '$(Base_iOSDevice32)'!=''">
+        <Base_iOSDevice32>true</Base_iOSDevice32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
+        <Base_iOSDevice64>true</Base_iOSDevice64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Base)'=='true') or '$(Base_iOSSimulator)'!=''">
+        <Base_iOSSimulator>true</Base_iOSSimulator>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
+        <Base_OSX32>true</Base_OSX32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
+        <Cfg_1_Win64>true</Cfg_1_Win64>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
+        <Cfg_2_Win64>true</Cfg_2_Win64>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_E>false</DCC_E>
+        <DCC_N>false</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+        <AUP_ACCESS_COARSE_LOCATION>true</AUP_ACCESS_COARSE_LOCATION>
+        <AUP_ACCESS_FINE_LOCATION>true</AUP_ACCESS_FINE_LOCATION>
+        <AUP_CALL_PHONE>true</AUP_CALL_PHONE>
+        <AUP_CAMERA>true</AUP_CAMERA>
+        <AUP_INTERNET>true</AUP_INTERNET>
+        <AUP_READ_EXTERNAL_STORAGE>true</AUP_READ_EXTERNAL_STORAGE>
+        <AUP_WRITE_EXTERNAL_STORAGE>true</AUP_WRITE_EXTERNAL_STORAGE>
+        <AUP_READ_PHONE_STATE>true</AUP_READ_PHONE_STATE>
+        <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
+        <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
+        <SanitizedProjectName>TTMS_FMX</SanitizedProjectName>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Android)'!=''">
+        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;IndyIPServer;IndySystem;tethering;fmxFireDAC;FireDAC;bindcompfmx;FireDACSqliteDriver;ibmonitor;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpress;fmx;FireDACIBDriver;xmlrtl;soapmidas;ibxbindings;rtl;DbxClientDriver;CustomIPTransport;dbexpress;IndyCore;bindcomp;dsnap;FireDACCommon;IndyIPClient;RESTBackendComponents;soapserver;dbxcds;bindengine;CloudService;dsnapxml;dbrtl;IndyProtocols;FireDACCommonDriver;inet;$(DCC_UsePackage)</DCC_UsePackage>
+        <VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <Android_LauncherIcon36>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png</Android_LauncherIcon36>
+        <Android_LauncherIcon48>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_48x48.png</Android_LauncherIcon48>
+        <Android_LauncherIcon72>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png</Android_LauncherIcon72>
+        <Android_LauncherIcon96>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_96x96.png</Android_LauncherIcon96>
+        <Android_LauncherIcon144>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_144x144.png</Android_LauncherIcon144>
+        <Android_SplashImage426>$(BDS)\bin\Artwork\Android\FM_SplashImage_426x320.png</Android_SplashImage426>
+        <Android_SplashImage470>$(BDS)\bin\Artwork\Android\FM_SplashImage_470x320.png</Android_SplashImage470>
+        <Android_SplashImage640>$(BDS)\bin\Artwork\Android\FM_SplashImage_640x480.png</Android_SplashImage640>
+        <Android_SplashImage960>$(BDS)\bin\Artwork\Android\FM_SplashImage_960x720.png</Android_SplashImage960>
+        <EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;fmx.dex.jar;google-analytics-v2.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar;google-play-services-ads-7.0.0.dex.jar;google-play-services-analytics-7.0.0.dex.jar;google-play-services-base-7.0.0.dex.jar;google-play-services-gcm-7.0.0.dex.jar;google-play-services-identity-7.0.0.dex.jar;google-play-services-maps-7.0.0.dex.jar;google-play-services-panorama-7.0.0.dex.jar;google-play-services-plus-7.0.0.dex.jar;google-play-services-wallet-7.0.0.dex.jar</EnabledSysJars>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_iOSDevice32)'!=''">
+        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;IndyIPServer;IndySystem;tethering;fmxFireDAC;FireDAC;bindcompfmx;FireDACSqliteDriver;ibmonitor;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpress;fmx;FireDACIBDriver;xmlrtl;soapmidas;ibxbindings;rtl;DbxClientDriver;CustomIPTransport;dbexpress;IndyCore;bindcomp;dsnap;FireDACCommon;IndyIPClient;RESTBackendComponents;soapserver;dbxcds;bindengine;CloudService;dsnapxml;dbrtl;IndyProtocols;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
+        <VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone &amp; iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysAndWhenInUseUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSPhotoLibraryAddUsageDescription=The reason for adding to the photo library;NSCameraUsageDescription=The reason for accessing the camera;NSFaceIDUsageDescription=The reason for accessing the face id;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSSiriUsageDescription=The reason for accessing Siri</VerInfo_Keys>
+        <VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_BundleId>$(MSBuildProjectName)</VerInfo_BundleId>
+        <iPhone_AppIcon57>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_57x57.png</iPhone_AppIcon57>
+        <iPhone_AppIcon60>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_60x60.png</iPhone_AppIcon60>
+        <iPhone_AppIcon87>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_87x87.png</iPhone_AppIcon87>
+        <iPhone_AppIcon114>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_114x114.png</iPhone_AppIcon114>
+        <iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120>
+        <iPhone_AppIcon180>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png</iPhone_AppIcon180>
+        <iPhone_Launch320>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_320x480.png</iPhone_Launch320>
+        <iPhone_Launch640>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x960.png</iPhone_Launch640>
+        <iPhone_Launch640x1136>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x1136.png</iPhone_Launch640x1136>
+        <iPhone_Launch750>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_750x1334.png</iPhone_Launch750>
+        <iPhone_Launch1242>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1242x2208.png</iPhone_Launch1242>
+        <iPhone_Launch2208>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2208x1242.png</iPhone_Launch2208>
+        <iPhone_Launch1125>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1125x2436.png</iPhone_Launch1125>
+        <iPhone_Launch2436>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2436x1125.png</iPhone_Launch2436>
+        <iPhone_Spotlight29>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_29x29.png</iPhone_Spotlight29>
+        <iPhone_Spotlight40>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png</iPhone_Spotlight40>
+        <iPhone_Spotlight58>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_58x58.png</iPhone_Spotlight58>
+        <iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80>
+        <iPad_AppIcon72>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_72x72.png</iPad_AppIcon72>
+        <iPad_AppIcon76>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_76x76.png</iPad_AppIcon76>
+        <iPad_AppIcon144>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_144x144.png</iPad_AppIcon144>
+        <iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152>
+        <iPad_Launch768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1004.png</iPad_Launch768>
+        <iPad_Launch768x1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1024.png</iPad_Launch768x1024>
+        <iPad_Launch1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x748.png</iPad_Launch1024>
+        <iPad_Launch1024x768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x768.png</iPad_Launch1024x768>
+        <iPad_Launch1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2008.png</iPad_Launch1536>
+        <iPad_Launch1536x2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png</iPad_Launch1536x2048>
+        <iPad_Launch2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1496.png</iPad_Launch2048>
+        <iPad_Launch2048x1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png</iPad_Launch2048x1536>
+        <iPad_SpotLight40>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_40x40.png</iPad_SpotLight40>
+        <iPad_SpotLight50>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_50x50.png</iPad_SpotLight50>
+        <iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80>
+        <iPad_SpotLight100>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_100x100.png</iPad_SpotLight100>
+        <iPad_Setting29>$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_29x29.png</iPad_Setting29>
+        <iPad_Setting58>$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png</iPad_Setting58>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
+        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;IndyIPServer;IndySystem;tethering;fmxFireDAC;FireDAC;bindcompfmx;FireDACSqliteDriver;ibmonitor;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpress;fmx;FireDACIBDriver;xmlrtl;soapmidas;ibxbindings;rtl;DbxClientDriver;CustomIPTransport;dbexpress;IndyCore;bindcomp;dsnap;FireDACCommon;IndyIPClient;RESTBackendComponents;soapserver;dbxcds;bindengine;CloudService;dsnapxml;dbrtl;IndyProtocols;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
+        <VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone &amp; iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysAndWhenInUseUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSPhotoLibraryAddUsageDescription=The reason for adding to the photo library;NSCameraUsageDescription=The reason for accessing the camera;NSFaceIDUsageDescription=The reason for accessing the face id;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSSiriUsageDescription=The reason for accessing Siri</VerInfo_Keys>
+        <VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_BundleId>$(MSBuildProjectName)</VerInfo_BundleId>
+        <iPhone_AppIcon57>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_57x57.png</iPhone_AppIcon57>
+        <iPhone_AppIcon60>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_60x60.png</iPhone_AppIcon60>
+        <iPhone_AppIcon87>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_87x87.png</iPhone_AppIcon87>
+        <iPhone_AppIcon114>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_114x114.png</iPhone_AppIcon114>
+        <iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120>
+        <iPhone_AppIcon180>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png</iPhone_AppIcon180>
+        <iPhone_Launch320>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_320x480.png</iPhone_Launch320>
+        <iPhone_Launch640>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x960.png</iPhone_Launch640>
+        <iPhone_Launch640x1136>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x1136.png</iPhone_Launch640x1136>
+        <iPhone_Launch750>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_750x1334.png</iPhone_Launch750>
+        <iPhone_Launch1242>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1242x2208.png</iPhone_Launch1242>
+        <iPhone_Launch2208>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2208x1242.png</iPhone_Launch2208>
+        <iPhone_Launch1125>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1125x2436.png</iPhone_Launch1125>
+        <iPhone_Launch2436>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2436x1125.png</iPhone_Launch2436>
+        <iPhone_Spotlight29>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_29x29.png</iPhone_Spotlight29>
+        <iPhone_Spotlight40>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png</iPhone_Spotlight40>
+        <iPhone_Spotlight58>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_58x58.png</iPhone_Spotlight58>
+        <iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80>
+        <iPad_AppIcon72>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_72x72.png</iPad_AppIcon72>
+        <iPad_AppIcon76>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_76x76.png</iPad_AppIcon76>
+        <iPad_AppIcon144>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_144x144.png</iPad_AppIcon144>
+        <iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152>
+        <iPad_Launch768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1004.png</iPad_Launch768>
+        <iPad_Launch768x1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1024.png</iPad_Launch768x1024>
+        <iPad_Launch1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x748.png</iPad_Launch1024>
+        <iPad_Launch1024x768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x768.png</iPad_Launch1024x768>
+        <iPad_Launch1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2008.png</iPad_Launch1536>
+        <iPad_Launch1536x2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png</iPad_Launch1536x2048>
+        <iPad_Launch2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1496.png</iPad_Launch2048>
+        <iPad_Launch2048x1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png</iPad_Launch2048x1536>
+        <iPad_SpotLight40>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_40x40.png</iPad_SpotLight40>
+        <iPad_SpotLight50>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_50x50.png</iPad_SpotLight50>
+        <iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80>
+        <iPad_SpotLight100>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_100x100.png</iPad_SpotLight100>
+        <iPad_Setting29>$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_29x29.png</iPad_Setting29>
+        <iPad_Setting58>$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png</iPad_Setting58>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_iOSSimulator)'!=''">
+        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;IndyIPServer;IndySystem;tethering;fmxFireDAC;FireDAC;bindcompfmx;FireDACSqliteDriver;ibmonitor;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpress;fmx;FireDACIBDriver;xmlrtl;soapmidas;ibxbindings;rtl;DbxClientDriver;CustomIPTransport;dbexpress;IndyCore;bindcomp;dsnap;FireDACCommon;IndyIPClient;RESTBackendComponents;soapserver;dbxcds;bindengine;CloudService;dsnapxml;dbrtl;IndyProtocols;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
+        <VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone &amp; iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysAndWhenInUseUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSPhotoLibraryAddUsageDescription=The reason for adding to the photo library;NSCameraUsageDescription=The reason for accessing the camera;NSFaceIDUsageDescription=The reason for accessing the face id;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSSiriUsageDescription=The reason for accessing Siri</VerInfo_Keys>
+        <VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <iPhone_AppIcon57>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_57x57.png</iPhone_AppIcon57>
+        <iPhone_AppIcon60>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_60x60.png</iPhone_AppIcon60>
+        <iPhone_AppIcon87>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_87x87.png</iPhone_AppIcon87>
+        <iPhone_AppIcon114>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_114x114.png</iPhone_AppIcon114>
+        <iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120>
+        <iPhone_AppIcon180>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png</iPhone_AppIcon180>
+        <iPhone_Launch320>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_320x480.png</iPhone_Launch320>
+        <iPhone_Launch640>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x960.png</iPhone_Launch640>
+        <iPhone_Launch640x1136>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x1136.png</iPhone_Launch640x1136>
+        <iPhone_Launch750>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_750x1334.png</iPhone_Launch750>
+        <iPhone_Launch1242>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1242x2208.png</iPhone_Launch1242>
+        <iPhone_Launch2208>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2208x1242.png</iPhone_Launch2208>
+        <iPhone_Launch1125>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1125x2436.png</iPhone_Launch1125>
+        <iPhone_Launch2436>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2436x1125.png</iPhone_Launch2436>
+        <iPhone_Spotlight29>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_29x29.png</iPhone_Spotlight29>
+        <iPhone_Spotlight40>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png</iPhone_Spotlight40>
+        <iPhone_Spotlight58>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_58x58.png</iPhone_Spotlight58>
+        <iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80>
+        <iPad_AppIcon72>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_72x72.png</iPad_AppIcon72>
+        <iPad_AppIcon76>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_76x76.png</iPad_AppIcon76>
+        <iPad_AppIcon144>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_144x144.png</iPad_AppIcon144>
+        <iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152>
+        <iPad_Launch768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1004.png</iPad_Launch768>
+        <iPad_Launch768x1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1024.png</iPad_Launch768x1024>
+        <iPad_Launch1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x748.png</iPad_Launch1024>
+        <iPad_Launch1024x768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x768.png</iPad_Launch1024x768>
+        <iPad_Launch1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2008.png</iPad_Launch1536>
+        <iPad_Launch1536x2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png</iPad_Launch1536x2048>
+        <iPad_Launch2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1496.png</iPad_Launch2048>
+        <iPad_Launch2048x1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png</iPad_Launch2048x1536>
+        <iPad_SpotLight40>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_40x40.png</iPad_SpotLight40>
+        <iPad_SpotLight50>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_50x50.png</iPad_SpotLight50>
+        <iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80>
+        <iPad_SpotLight100>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_100x100.png</iPad_SpotLight100>
+        <iPad_Setting29>$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_29x29.png</iPad_Setting29>
+        <iPad_Setting58>$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png</iPad_Setting58>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_OSX32)'!=''">
+        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;IndyIPServer;IndySystem;tethering;fmxFireDAC;FireDAC;bindcompfmx;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;inetdb;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpress;fmx;FireDACIBDriver;fmxdae;xmlrtl;soapmidas;ibxbindings;fmxobj;rtl;DbxClientDriver;CustomIPTransport;dbexpress;IndyCore;bindcomp;dsnap;FireDACCommon;IndyIPClient;RESTBackendComponents;soapserver;dbxcds;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
+        <VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysAndWhenInUseUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts</VerInfo_Keys>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;svnui;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;TeeDB;FireDAC;vcltouch;vcldb;bindcompfmx;svn;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;inetdb;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpress;fmx;FireDACIBDriver;fmxdae;xmlrtl;soapmidas;ibxbindings;fmxobj;vclwinx;vclib;rtl;Tee;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;TeeUI;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;vclie;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
+        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;TeeDB;FireDAC;vcltouch;vcldb;bindcompfmx;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;inetdb;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpress;fmx;FireDACIBDriver;fmxdae;xmlrtl;soapmidas;ibxbindings;fmxobj;vclwinx;vclib;rtl;Tee;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;TeeUI;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;vclie;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
+        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="EventForm.pas">
+            <Form>Form1</Form>
+            <FormType>fmx</FormType>
+        </DCCReference>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>Application</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">TTMS_FMX.dpr</Source>
+                </Source>
+            </Delphi.Personality>
+            <Deployment Version="3">
+                <DeployFile LocalName="$(BDS)\Redist\osx64\libcgsqlite3.dylib" Class="DependencyModule">
+                    <Platform Name="OSX64">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
+                    <Platform Name="OSX32">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule">
+                    <Platform Name="iOSSimulator">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\Redist\iossimulator\libpcre.dylib" Class="DependencyModule">
+                    <Platform Name="iOSSimulator">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\Redist\osx32\libcgsqlite3.dylib" Class="DependencyModule">
+                    <Platform Name="OSX32">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="Win32\Debug\TTMS_FMX.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>TTMS_FMX.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployClass Name="AdditionalDebugSymbols">
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidClassesDexFile">
+                    <Platform Name="Android">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidFileProvider">
+                    <Platform Name="Android">
+                        <RemoteDir>res\xml</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidGDBServer">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeMipsFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidServiceOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashImageDef">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStyles">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStylesV21">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_DefaultAppIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon144">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage426">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage470">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage640">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage960">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DebugSymbols">
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyFramework">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyModule">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.dll;.bpl</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="DependencyPackage">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.bpl</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="File">
+                    <Platform Name="Android">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1024">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1536">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2048">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch768">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch320">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch640">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch640x1136">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectAndroidManifest">
+                    <Platform Name="Android">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceDebug">
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceResourceRules">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSEntitlements">
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSInfoPList">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSResource">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXDebug">
+                    <Platform Name="OSX64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXEntitlements">
+                    <Platform Name="OSX32">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>..\</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXInfoPList">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXResource">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="ProjectOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Linux64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectUWPManifest">
+                    <Platform Name="Win32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="UWP_DelphiLogo150">
+                    <Platform Name="Win32">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="UWP_DelphiLogo44">
+                    <Platform Name="Win32">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
+            </Deployment>
+            <Platforms>
+                <Platform value="Android">True</Platform>
+                <Platform value="iOSDevice32">True</Platform>
+                <Platform value="iOSDevice64">True</Platform>
+                <Platform value="iOSSimulator">True</Platform>
+                <Platform value="OSX32">True</Platform>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">True</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
+</Project>

From 65f9da84cc2a1ec738496b519da6274b40feb164 Mon Sep 17 00:00:00 2001
From: healt-kr <healt.kr@gmail.com>
Date: Fri, 1 Feb 2019 13:29:44 +0900
Subject: [PATCH 07/11] =?UTF-8?q?=EC=98=88=EC=95=BD=EB=AA=A9=EB=A1=9D?=
 =?UTF-8?q?=EC=9D=84=20ListView=EB=A1=9C=20=EA=B5=AC=ED=98=84?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../TTMS_FMX/EventForm.fmx"                   | 197 +++++++++++++++++-
 .../TTMS_FMX/EventForm.pas"                   |  46 +++-
 .../TTMS_FMX/TTMS_FMX.dpr"                    |   4 +-
 .../TTMS_FMX/TTMS_FMX.dproj"                  | 117 ++++++++++-
 4 files changed, 354 insertions(+), 10 deletions(-)

diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.fmx" "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.fmx"
index f9e8edf..41b7973 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.fmx"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.fmx"
@@ -1,11 +1,200 @@
 object Form1: TForm1
-  Left = 0
+  Left = 336
   Top = 0
   Caption = 'Form1'
-  ClientHeight = 480
-  ClientWidth = 640
+  ClientHeight = 600
+  ClientWidth = 538
+  Position = Designed
   FormFactor.Width = 320
   FormFactor.Height = 480
   FormFactor.Devices = [Desktop]
-  DesignerMasterStyle = 0
+  Left = 336
+  DesignerMasterStyle = 3
+  object Panel1: TPanel
+    Align = Top
+    Size.Width = 538.000000000000000000
+    Size.Height = 120.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 0
+  end
+  object ListView1: TListView
+    ItemAppearanceClassName = 'TListItemRightDetailAppearance'
+    ItemEditAppearanceClassName = 'TListItemRightDetailDeleteAppearance'
+    HeaderAppearanceClassName = 'TListHeaderObjects'
+    FooterAppearanceClassName = 'TListHeaderObjects'
+    ItemIndex = 1
+    Align = Client
+    Size.Width = 538.000000000000000000
+    Size.Height = 480.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 1
+  end
+  object FDTable1: TFDTable
+    Active = True
+    IndexFieldNames = 'serial'
+    Connection = FDConnection1
+    UpdateOptions.UpdateTableName = 'event'
+    TableName = 'event'
+    Left = 256
+    Top = 56
+    object FDTable1serial: TStringField
+      FieldName = 'serial'
+      Origin = 'serial'
+      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
+      Required = True
+      Size = 11
+    end
+    object FDTable1reservation_date: TDateField
+      FieldName = 'reservation_date'
+      Origin = 'reservation_date'
+      Required = True
+    end
+    object FDTable1process_date: TDateField
+      FieldName = 'process_date'
+      Origin = 'process_date'
+      Required = True
+    end
+    object FDTable1manager_name: TStringField
+      FieldName = 'manager_name'
+      Origin = 'manager_name'
+      Required = True
+      Size = 10
+    end
+    object FDTable1partner_name: TStringField
+      FieldName = 'partner_name'
+      Origin = 'partner_name'
+      Size = 40
+    end
+    object FDTable1event_name: TStringField
+      FieldName = 'event_name'
+      Origin = 'event_name'
+      Required = True
+      Size = 40
+    end
+    object FDTable1event_start_date: TDateField
+      FieldName = 'event_start_date'
+      Origin = 'event_start_date'
+    end
+    object FDTable1event_end_date: TDateField
+      FieldName = 'event_end_date'
+      Origin = 'event_end_date'
+    end
+    object FDTable1night: TIntegerField
+      FieldName = 'night'
+      Origin = 'night'
+    end
+    object FDTable1day: TIntegerField
+      FieldName = 'day'
+      Origin = 'day'
+    end
+    object FDTable1customer_name: TStringField
+      FieldName = 'customer_name'
+      Origin = 'customer_name'
+    end
+    object FDTable1adult_total: TIntegerField
+      FieldName = 'adult_total'
+      Origin = 'adult_total'
+    end
+    object FDTable1child_total: TIntegerField
+      FieldName = 'child_total'
+      Origin = 'child_total'
+    end
+    object FDTable1phone: TStringField
+      FieldName = 'phone'
+      Origin = 'phone'
+      Size = 13
+    end
+    object FDTable1mobile: TStringField
+      FieldName = 'mobile'
+      Origin = 'mobile'
+      Size = 13
+    end
+    object FDTable1start_time: TDateTimeField
+      FieldName = 'start_time'
+      Origin = 'start_time'
+    end
+    object FDTable1start_site: TStringField
+      FieldName = 'start_site'
+      Origin = 'start_site'
+      Size = 30
+    end
+    object FDTable1local_start_time: TDateTimeField
+      FieldName = 'local_start_time'
+      Origin = 'local_start_time'
+    end
+    object FDTable1local_start_site: TStringField
+      FieldName = 'local_start_site'
+      Origin = 'local_start_site'
+      Size = 30
+    end
+    object FDTable1hotel_name: TStringField
+      FieldName = 'hotel_name'
+      Origin = 'hotel_name'
+      Size = 40
+    end
+    object FDTable1room_name: TStringField
+      FieldName = 'room_name'
+      Origin = 'room_name'
+      Size = 10
+    end
+    object FDTable1room_number: TIntegerField
+      FieldName = 'room_number'
+      Origin = 'room_number'
+    end
+    object FDTable1memo: TWideMemoField
+      FieldName = 'memo'
+      Origin = 'memo'
+      BlobType = ftWideMemo
+    end
+    object FDTable1created_at: TSQLTimeStampField
+      FieldName = 'created_at'
+      Origin = 'created_at'
+      Required = True
+    end
+    object FDTable1modified_at: TSQLTimeStampField
+      FieldName = 'modified_at'
+      Origin = 'modified_at'
+      Required = True
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = FDTable1
+    Left = 464
+    Top = 56
+  end
+  object BindSourceDB1: TBindSourceDB
+    DataSet = FDTable1
+    ScopeMappings = <>
+    Left = 360
+    Top = 56
+  end
+  object BindingsList1: TBindingsList
+    Methods = <>
+    OutputConverters = <>
+    Left = 20
+    Top = 5
+    object LinkListControlToField1: TLinkListControlToField
+      Category = 'Quick Bindings'
+      DataSource = BindSourceDB1
+      FieldName = 'event_name'
+      Control = ListView1
+      FillExpressions = <
+        item
+          SourceMemberName = 'event_start_date'
+          ControlMemberName = 'Detail'
+        end>
+      FillHeaderExpressions = <>
+      FillHeaderFieldName = 'customer_name'
+      FillBreakGroups = <>
+    end
+  end
+  object FDConnection1: TFDConnection
+    Params.Strings = (
+      'Database=D:\DelphiProject\EduMaster201901\'#44608#54788#52384'\ttms.sdb'
+      'DriverID=SQLite')
+    Connected = True
+    LoginPrompt = False
+    Left = 144
+    Top = 56
+  end
 end
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.pas" "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.pas"
index 4eda912..be28c78 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/EventForm.pas"
@@ -4,10 +4,52 @@ interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
-  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs;
+  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
+  FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
+  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
+  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
+  FireDAC.Stan.Async, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet,
+  FireDAC.Comp.Client, FMX.ListView, FMX.Controls.Presentation, FMX.StdCtrls,
+  System.Rtti, System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.EngExt,
+  Fmx.Bind.DBEngExt, Data.Bind.Components, Data.Bind.DBScope, FireDAC.UI.Intf,
+  FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.SQLite,
+  FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, FireDAC.FMXUI.Wait, FMX.Edit;
 
 type
   TForm1 = class(TForm)
+    Panel1: TPanel;
+    ListView1: TListView;
+    FDTable1: TFDTable;
+    DataSource1: TDataSource;
+    BindSourceDB1: TBindSourceDB;
+    BindingsList1: TBindingsList;
+    LinkListControlToField1: TLinkListControlToField;
+    FDTable1serial: TStringField;
+    FDTable1reservation_date: TDateField;
+    FDTable1process_date: TDateField;
+    FDTable1manager_name: TStringField;
+    FDTable1partner_name: TStringField;
+    FDTable1event_name: TStringField;
+    FDTable1event_start_date: TDateField;
+    FDTable1event_end_date: TDateField;
+    FDTable1night: TIntegerField;
+    FDTable1day: TIntegerField;
+    FDTable1customer_name: TStringField;
+    FDTable1adult_total: TIntegerField;
+    FDTable1child_total: TIntegerField;
+    FDTable1phone: TStringField;
+    FDTable1mobile: TStringField;
+    FDTable1start_time: TDateTimeField;
+    FDTable1start_site: TStringField;
+    FDTable1local_start_time: TDateTimeField;
+    FDTable1local_start_site: TStringField;
+    FDTable1hotel_name: TStringField;
+    FDTable1room_name: TStringField;
+    FDTable1room_number: TIntegerField;
+    FDTable1memo: TWideMemoField;
+    FDTable1created_at: TSQLTimeStampField;
+    FDTable1modified_at: TSQLTimeStampField;
+    FDConnection1: TFDConnection;
   private
     { Private declarations }
   public
@@ -21,4 +63,6 @@ implementation
 
 {$R *.fmx}
 
+uses DataModule;
+
 end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dpr" "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dpr"
index e0d3a98..91fda5a 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dpr"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dpr"
@@ -3,12 +3,14 @@ program TTMS_FMX;
 uses
   System.StartUpCopy,
   FMX.Forms,
-  EventForm in 'EventForm.pas' {Form1};
+  EventForm in 'EventForm.pas' {Form1},
+  DataModule in 'DataModule.pas' {DataModule1: TDataModule};
 
 {$R *.res}
 
 begin
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
+  Application.CreateForm(TDataModule1, DataModule1);
   Application.Run;
 end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dproj" "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dproj"
index 27a6b82..7a2ed22 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dproj"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS_FMX/TTMS_FMX.dproj"
@@ -316,6 +316,11 @@
             <Form>Form1</Form>
             <FormType>fmx</FormType>
         </DCCReference>
+        <DCCReference Include="DataModule.pas">
+            <Form>DataModule1</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -338,13 +343,26 @@
                 </Source>
             </Delphi.Personality>
             <Deployment Version="3">
-                <DeployFile LocalName="$(BDS)\Redist\osx64\libcgsqlite3.dylib" Class="DependencyModule">
-                    <Platform Name="OSX64">
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png" Configuration="Debug" Class="Android_LauncherIcon36">
+                    <Platform Name="Android">
+                        <RemoteName>ic_launcher.png</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
-                    <Platform Name="OSX32">
+                <DeployFile LocalName="Android\Debug\AndroidManifest.xml" Configuration="Debug" Class="ProjectAndroidManifest">
+                    <Platform Name="Android">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\lib\android\debug\armeabi\libnative-activity.so" Configuration="Debug" Class="AndroidLibnativeArmeabiFile">
+                    <Platform Name="Android">
+                        <RemoteName>libTTMS_FMX.so</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png" Configuration="Debug" Class="Android_LauncherIcon72">
+                    <Platform Name="Android">
+                        <RemoteName>ic_launcher.png</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
@@ -369,6 +387,97 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="Android\Debug\libTTMS_FMX.so" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Android">
+                        <RemoteName>libTTMS_FMX.so</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_LauncherIcon_144x144.png" Configuration="Debug" Class="Android_LauncherIcon144">
+                    <Platform Name="Android">
+                        <RemoteName>ic_launcher.png</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_SplashImage_426x320.png" Configuration="Debug" Class="Android_SplashImage426">
+                    <Platform Name="Android">
+                        <RemoteName>splash_image.png</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
+                    <Platform Name="OSX32">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_LauncherIcon_96x96.png" Configuration="Debug" Class="Android_LauncherIcon96">
+                    <Platform Name="Android">
+                        <RemoteName>ic_launcher.png</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_SplashImage_470x320.png" Configuration="Debug" Class="Android_SplashImage470">
+                    <Platform Name="Android">
+                        <RemoteName>splash_image.png</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_SplashImage_640x480.png" Configuration="Debug" Class="Android_SplashImage640">
+                    <Platform Name="Android">
+                        <RemoteName>splash_image.png</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_SplashImage_960x720.png" Configuration="Debug" Class="Android_SplashImage960">
+                    <Platform Name="Android">
+                        <RemoteName>splash_image.png</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_LauncherIcon_48x48.png" Configuration="Debug" Class="Android_LauncherIcon48">
+                    <Platform Name="Android">
+                        <RemoteName>ic_launcher.png</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\Redist\osx64\libcgsqlite3.dylib" Class="DependencyModule">
+                    <Platform Name="OSX64">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\lib\android\debug\mips\libnative-activity.so" Configuration="Debug" Class="AndroidLibnativeMipsFile">
+                    <Platform Name="Android">
+                        <RemoteName>libTTMS_FMX.so</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(NDKBasePath)\prebuilt\android-arm\gdbserver\gdbserver" Configuration="Debug" Class="AndroidGDBServer">
+                    <Platform Name="Android">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="Android\Debug\styles-v21.xml" Configuration="Debug" Class="AndroidSplashStylesV21">
+                    <Platform Name="Android">
+                        <RemoteName>styles.xml</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="Android\Debug\splash_image_def.xml" Configuration="Debug" Class="AndroidSplashImageDef">
+                    <Platform Name="Android">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="Android\Debug\styles.xml" Configuration="Debug" Class="AndroidSplashStyles">
+                    <Platform Name="Android">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="Android\Debug\classes.dex" Configuration="Debug" Class="AndroidClassesDexFile">
+                    <Platform Name="Android">
+                        <RemoteName>classes.dex</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployClass Name="AdditionalDebugSymbols">
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>

From 1c393e298814ae31a20137f85ab9e37805b50a19 Mon Sep 17 00:00:00 2001
From: "healt.kr@gmail.com" <healt_kr>
Date: Sat, 9 Feb 2019 13:26:07 +0900
Subject: [PATCH 08/11] =?UTF-8?q?=ED=96=89=EC=82=AC(=EB=AA=85)=20=EA=B4=80?=
 =?UTF-8?q?=EB=A6=AC=20Form=20=EC=9E=91=EC=84=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../ManageEventForm.dfm"                      | 92 +++++++++++++++++++
 .../ManageEventForm.pas"                      | 50 ++++++++++
 2 files changed, 142 insertions(+)
 create mode 100644 "\352\271\200\355\230\204\354\262\240/ManageEventForm.dfm"
 create mode 100644 "\352\271\200\355\230\204\354\262\240/ManageEventForm.pas"

diff --git "a/\352\271\200\355\230\204\354\262\240/ManageEventForm.dfm" "b/\352\271\200\355\230\204\354\262\240/ManageEventForm.dfm"
new file mode 100644
index 0000000..76d415f
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/ManageEventForm.dfm"
@@ -0,0 +1,92 @@
+object frmManageEvent: TfrmManageEvent
+  Left = 0
+  Top = 0
+  Caption = #54665#49324#47749' '#44288#47532
+  ClientHeight = 515
+  ClientWidth = 478
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -15
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnActivate = FormActivate
+  OnDeactivate = FormDeactivate
+  PixelsPerInch = 96
+  TextHeight = 18
+  object Panel1: TPanel
+    Left = 0
+    Top = 424
+    Width = 478
+    Height = 91
+    Align = alBottom
+    TabOrder = 0
+    object DBNavigator1: TDBNavigator
+      Left = 112
+      Top = 32
+      Width = 240
+      Height = 22
+      DataSource = DataSource1
+      TabOrder = 0
+    end
+  end
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 81
+    Width = 478
+    Height = 343
+    Align = alClient
+    DataSource = DataSource1
+    Options = [dgEditing, dgAlwaysShowEditor, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -15
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    Columns = <
+      item
+        Expanded = False
+        FieldName = 'name'
+        Visible = True
+      end>
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 0
+    Width = 478
+    Height = 81
+    Align = alTop
+    TabOrder = 2
+    object Label1: TLabel
+      Left = 8
+      Top = 31
+      Width = 49
+      Height = 18
+      Caption = #54665#49324#47749' :'
+    end
+    object DBEdit1: TDBEdit
+      Left = 63
+      Top = 28
+      Width = 121
+      Height = 26
+      DataField = 'name'
+      DataSource = DataSource1
+      TabOrder = 0
+    end
+  end
+  object FDTable1: TFDTable
+    IndexFieldNames = 'name'
+    Connection = DataModule1.FDConnection1
+    UpdateOptions.UpdateTableName = 'event_name'
+    TableName = 'event_name'
+    Left = 232
+    Top = 264
+  end
+  object DataSource1: TDataSource
+    DataSet = FDTable1
+    Left = 296
+    Top = 264
+  end
+end
diff --git "a/\352\271\200\355\230\204\354\262\240/ManageEventForm.pas" "b/\352\271\200\355\230\204\354\262\240/ManageEventForm.pas"
new file mode 100644
index 0000000..7bf2bb0
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/ManageEventForm.pas"
@@ -0,0 +1,50 @@
+unit ManageEventForm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, FireDAC.Stan.Intf,
+  FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
+  FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
+  FireDAC.Comp.DataSet, FireDAC.Comp.Client, Vcl.Grids, Vcl.DBGrids,
+  Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Mask;
+
+type
+  TfrmManageEvent = class(TForm)
+    Panel1: TPanel;
+    DBNavigator1: TDBNavigator;
+    DBGrid1: TDBGrid;
+    Panel2: TPanel;
+    FDTable1: TFDTable;
+    DataSource1: TDataSource;
+    Label1: TLabel;
+    DBEdit1: TDBEdit;
+    procedure FormActivate(Sender: TObject);
+    procedure FormDeactivate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmManageEvent: TfrmManageEvent;
+
+implementation
+
+{$R *.dfm}
+
+uses DataModule;
+
+procedure TfrmManageEvent.FormActivate(Sender: TObject);
+begin
+  FDTable1.Open;
+end;
+
+procedure TfrmManageEvent.FormDeactivate(Sender: TObject);
+begin
+  FDTable1.Close;
+end;
+
+end.

From 376912beea79399f3041b25597b06736099663dd Mon Sep 17 00:00:00 2001
From: "healt.kr@gmail.com" <healt_kr>
Date: Sat, 9 Feb 2019 14:34:59 +0900
Subject: [PATCH 09/11] =?UTF-8?q?=ED=96=89=EC=82=AC=EB=AA=85=20=EA=B2=80?=
 =?UTF-8?q?=EC=83=89=ED=95=98=EC=97=AC=20=EC=9E=85=EB=A0=A5=ED=95=98?=
 =?UTF-8?q?=EB=8A=94=20Form=20=EC=9E=91=EC=84=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

예약 입력시 이미 등록되어 있는 행사명을 검색하여 입력할 수 있도록 함
---
 .../DataModule.dfm"                           |  1 -
 .../EventManager.dfm"                         |  1 +
 .../EventManager.pas"                         | 13 +++-
 .../MainMenu.dfm"                             |  2 +-
 .../MainMenu.pas"                             |  9 ++-
 .../SearchForm.dfm"                           | 75 +++++++++++++++++++
 .../SearchForm.pas"                           | 57 ++++++++++++++
 .../TTMS.dpr"                                 |  6 +-
 .../TTMS.dproj"                               | 17 ++---
 9 files changed, 167 insertions(+), 14 deletions(-)
 create mode 100644 "\352\271\200\355\230\204\354\262\240/SearchForm.dfm"
 create mode 100644 "\352\271\200\355\230\204\354\262\240/SearchForm.pas"

diff --git "a/\352\271\200\355\230\204\354\262\240/DataModule.dfm" "b/\352\271\200\355\230\204\354\262\240/DataModule.dfm"
index 1c3dd26..6d814ab 100644
--- "a/\352\271\200\355\230\204\354\262\240/DataModule.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/DataModule.dfm"
@@ -8,7 +8,6 @@ object DataModule1: TDataModule1
     Params.Strings = (
       'Database=D:\DelphiProject\EduMaster201901\'#44608#54788#52384'\ttms.sdb'
       'DriverID=SQLite')
-    Connected = True
     Left = 55
     Top = 96
   end
diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.dfm" "b/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
index 4f9c083..8a2c51d 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
@@ -364,6 +364,7 @@ object frmEvent: TfrmEvent
       DataField = 'event_name'
       DataSource = DataSource1
       TabOrder = 3
+      OnDblClick = DBEdit3DblClick
     end
     object DBEditNight: TDBEdit
       Left = 489
diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.pas" "b/\352\271\200\355\230\204\354\262\240/EventManager.pas"
index ebd3414..be2b07a 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.pas"
@@ -103,6 +103,7 @@   TfrmEvent = class(TForm)
     procedure EventDateExit(Sender: TObject);
     procedure FDTable1AfterScroll(DataSet: TDataSet);
     procedure btnPostClick(Sender: TObject);
+    procedure DBEdit3DblClick(Sender: TObject);
   private
     { Private declarations }
     procedure SetDate2Edit(Date: TDate; edtYear: TEdit; edtMonth: TEdit; edtDay: TEdit);
@@ -119,7 +120,7 @@ implementation
 
 {$R *.dfm}
 
-uses DataModule, DateUtils, MyLib;
+uses DataModule, DateUtils, MyLib, SearchForm;
 
 {** ���Ⱓ �Է½� ��� ������ �ڵ����� ���
 *}
@@ -128,6 +129,16 @@ procedure TfrmEvent.btnPostClick(Sender: TObject);
   FDTable1.Post;
 end;
 
+procedure TfrmEvent.DBEdit3DblClick(Sender: TObject);
+begin
+  if frmSearch.ShowModal = mrOk then
+  begin
+    FDTable1.Edit;
+//    FDTable1.FieldByName('event_name').AsString := frmSearch.SearchResult;
+    DBEdit3.Text := frmSearch.SearchResult;
+  end;
+end;
+
 procedure TfrmEvent.EventDateExit(Sender: TObject);
 var
   fromDate, toDate : TDate;
diff --git "a/\352\271\200\355\230\204\354\262\240/MainMenu.dfm" "b/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
index 4bb490b..7b26eec 100644
--- "a/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
@@ -58,8 +58,8 @@ object frmMenu: TfrmMenu
       Width = 122
       Height = 41
       Caption = #54665#49324#44288#47532
-      Enabled = False
       TabOrder = 1
+      OnClick = btnEventClick
     end
     object btnManager: TButton
       Left = 143
diff --git "a/\352\271\200\355\230\204\354\262\240/MainMenu.pas" "b/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
index ecf74f0..e2168ac 100644
--- "a/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
@@ -35,6 +35,7 @@   TfrmMenu = class(TForm)
     procedure btnManagerClick(Sender: TObject);
     procedure btnTouristClick(Sender: TObject);
     procedure btnCustomerClick(Sender: TObject);
+    procedure btnEventClick(Sender: TObject);
   private
     { Private declarations }
     procedure SetButton(Button: TButton; Bool: Integer);
@@ -50,7 +51,8 @@ implementation
 
 {$R *.dfm}
 
-uses DataModule, EventManager, Manager, TouristStatusForm, CustomerForm;
+uses DataModule, EventManager, Manager, TouristStatusForm, CustomerForm,
+  ManageEventForm;
 
 procedure TfrmMenu.SetButton(Button: TButton; Bool: Integer);
 begin
@@ -106,6 +108,11 @@ procedure TfrmMenu.btnCustomerClick(Sender: TObject);
   frmCustomer.Show;
 end;
 
+procedure TfrmMenu.btnEventClick(Sender: TObject);
+begin
+  frmManageEvent.Show;
+end;
+
 procedure TfrmMenu.btnManagerClick(Sender: TObject);
 begin
   frmManager.Show;
diff --git "a/\352\271\200\355\230\204\354\262\240/SearchForm.dfm" "b/\352\271\200\355\230\204\354\262\240/SearchForm.dfm"
new file mode 100644
index 0000000..0eebccc
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/SearchForm.dfm"
@@ -0,0 +1,75 @@
+object frmSearch: TfrmSearch
+  Left = 0
+  Top = 0
+  Caption = 'frmSearch'
+  ClientHeight = 397
+  ClientWidth = 515
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -15
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnActivate = FormActivate
+  OnDeactivate = FormDeactivate
+  PixelsPerInch = 96
+  TextHeight = 18
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 515
+    Height = 73
+    Align = alTop
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 16
+      Top = 27
+      Width = 54
+      Height = 18
+      Caption = #54665#49324#47749' : '
+    end
+    object Edit1: TEdit
+      Left = 72
+      Top = 24
+      Width = 121
+      Height = 26
+      TabOrder = 0
+    end
+  end
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 73
+    Width = 515
+    Height = 324
+    Align = alClient
+    DataSource = DataSource1
+    Options = [dgEditing, dgAlwaysShowEditor, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -15
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    OnDblClick = DBGrid1DblClick
+    Columns = <
+      item
+        Expanded = False
+        FieldName = 'name'
+        Visible = True
+      end>
+  end
+  object DataSource1: TDataSource
+    DataSet = FDTable1
+    Left = 256
+    Top = 216
+  end
+  object FDTable1: TFDTable
+    IndexFieldNames = 'serial'
+    Connection = DataModule1.FDConnection1
+    UpdateOptions.UpdateTableName = 'event_name'
+    TableName = 'event_name'
+    Left = 192
+    Top = 216
+  end
+end
diff --git "a/\352\271\200\355\230\204\354\262\240/SearchForm.pas" "b/\352\271\200\355\230\204\354\262\240/SearchForm.pas"
new file mode 100644
index 0000000..8e016d6
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/SearchForm.pas"
@@ -0,0 +1,57 @@
+unit SearchForm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, FireDAC.Stan.Intf,
+  FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
+  FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
+  FireDAC.Comp.DataSet, FireDAC.Comp.Client, Vcl.StdCtrls, Vcl.Grids,
+  Vcl.DBGrids, Vcl.ExtCtrls;
+
+type
+  TfrmSearch = class(TForm)
+    Panel1: TPanel;
+    DBGrid1: TDBGrid;
+    Label1: TLabel;
+    Edit1: TEdit;
+    DataSource1: TDataSource;
+    FDTable1: TFDTable;
+    procedure DBGrid1DblClick(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
+    procedure FormDeactivate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    var SearchResult: string;
+  end;
+
+var
+  frmSearch: TfrmSearch;
+
+implementation
+
+{$R *.dfm}
+
+uses DataModule;
+
+procedure TfrmSearch.DBGrid1DblClick(Sender: TObject);
+begin
+  SearchResult := FDTable1.FieldByName('name').AsString;
+  ModalResult := mrOk;
+end;
+
+procedure TfrmSearch.FormActivate(Sender: TObject);
+begin
+  FDTable1.Open;
+  DBGrid1.SelectedRows.CurrentRowSelected := False;
+end;
+
+procedure TfrmSearch.FormDeactivate(Sender: TObject);
+begin
+  FDTable1.Close;
+end;
+
+end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS.dpr" "b/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
index 24c1b77..b6ea50f 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
@@ -8,7 +8,9 @@ uses
   DataModule in 'DataModule.pas' {DataModule1: TDataModule},
   TouristStatusForm in 'TouristStatusForm.pas' {frmTouristStatus},
   CustomerForm in 'CustomerForm.pas' {frmCustomer},
-  MyLib in 'MyLib.pas';
+  MyLib in 'MyLib.pas',
+  ManageEventForm in 'ManageEventForm.pas' {frmManageEvent},
+  SearchForm in 'SearchForm.pas' {frmSearch};
 
 {$R *.res}
 
@@ -21,5 +23,7 @@ begin
   Application.CreateForm(TDataModule1, DataModule1);
   Application.CreateForm(TfrmTouristStatus, frmTouristStatus);
   Application.CreateForm(TfrmCustomer, frmCustomer);
+  Application.CreateForm(TfrmManageEvent, frmManageEvent);
+  Application.CreateForm(TfrmSearch, frmSearch);
   Application.Run;
 end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS.dproj" "b/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
index 3899111..57ce95d 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
@@ -18,11 +18,6 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
-        <Base_Win64>true</Base_Win64>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
         <Cfg_1>true</Cfg_1>
         <CfgParent>Base</CfgParent>
@@ -68,9 +63,6 @@
         <VerInfo_Locale>1033</VerInfo_Locale>
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
     </PropertyGroup>
-    <PropertyGroup Condition="'$(Base_Win64)'!=''">
-        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;FireDAC;vcltouch;vcldb;bindcompfmx;FireDACSqliteDriver;FireDACPgDriver;inetdb;soaprtl;DbxCommonDriver;fmx;FireDACIBDriver;fmxdae;xmlrtl;soapmidas;fmxobj;vclwinx;rtl;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;vclie;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
-    </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1)'!=''">
         <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
         <DCC_DebugDCUs>true</DCC_DebugDCUs>
@@ -123,6 +115,14 @@
             <Form>frmCustomer</Form>
         </DCCReference>
         <DCCReference Include="MyLib.pas"/>
+        <DCCReference Include="ManageEventForm.pas">
+            <Form>frmManageEvent</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="SearchForm.pas">
+            <Form>frmSearch</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -622,7 +622,6 @@
             </Deployment>
             <Platforms>
                 <Platform value="Win32">True</Platform>
-                <Platform value="Win64">False</Platform>
             </Platforms>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>

From ebe1badc617ea0fe051921fed29a8eff55f25fc6 Mon Sep 17 00:00:00 2001
From: "healt.kr@gmail.com" <healt_kr>
Date: Sat, 9 Feb 2019 15:23:41 +0900
Subject: [PATCH 10/11] =?UTF-8?q?=EA=B1=B0=EB=9E=98=EC=B2=98=EA=B4=80?=
 =?UTF-8?q?=EB=A6=AC=20Form=20=EC=9E=91=EC=84=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../MainMenu.dfm"                             |   2 +-
 .../MainMenu.pas"                             |   8 +-
 .../PartnerForm.dfm"                          | 214 ++++++++++++++++++
 .../PartnerForm.pas"                          |  62 +++++
 .../TTMS.dpr"                                 |   4 +-
 .../TTMS.dproj"                               |   4 +
 6 files changed, 291 insertions(+), 3 deletions(-)
 create mode 100644 "\352\271\200\355\230\204\354\262\240/PartnerForm.dfm"
 create mode 100644 "\352\271\200\355\230\204\354\262\240/PartnerForm.pas"

diff --git "a/\352\271\200\355\230\204\354\262\240/MainMenu.dfm" "b/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
index 7b26eec..4f60075 100644
--- "a/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/MainMenu.dfm"
@@ -86,8 +86,8 @@ object frmMenu: TfrmMenu
       Width = 122
       Height = 41
       Caption = #44144#47000#52376#44288#47532
-      Enabled = False
       TabOrder = 4
+      OnClick = btnPartnerClick
     end
     object btnCalculate: TButton
       Left = 15
diff --git "a/\352\271\200\355\230\204\354\262\240/MainMenu.pas" "b/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
index e2168ac..ddbaff9 100644
--- "a/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/MainMenu.pas"
@@ -36,6 +36,7 @@   TfrmMenu = class(TForm)
     procedure btnTouristClick(Sender: TObject);
     procedure btnCustomerClick(Sender: TObject);
     procedure btnEventClick(Sender: TObject);
+    procedure btnPartnerClick(Sender: TObject);
   private
     { Private declarations }
     procedure SetButton(Button: TButton; Bool: Integer);
@@ -52,7 +53,7 @@ implementation
 {$R *.dfm}
 
 uses DataModule, EventManager, Manager, TouristStatusForm, CustomerForm,
-  ManageEventForm;
+  ManageEventForm, PartnerForm;
 
 procedure TfrmMenu.SetButton(Button: TButton; Bool: Integer);
 begin
@@ -118,6 +119,11 @@ procedure TfrmMenu.btnManagerClick(Sender: TObject);
   frmManager.Show;
 end;
 
+procedure TfrmMenu.btnPartnerClick(Sender: TObject);
+begin
+  frmPartner.Show;
+end;
+
 procedure TfrmMenu.edtPassKeyPress(Sender: TObject; var Key: Char);
 begin
   if ord(Key) = VK_RETURN then
diff --git "a/\352\271\200\355\230\204\354\262\240/PartnerForm.dfm" "b/\352\271\200\355\230\204\354\262\240/PartnerForm.dfm"
new file mode 100644
index 0000000..bd0e915
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/PartnerForm.dfm"
@@ -0,0 +1,214 @@
+object frmPartner: TfrmPartner
+  Left = 0
+  Top = 0
+  Caption = 'frmPartner'
+  ClientHeight = 546
+  ClientWidth = 853
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -15
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnActivate = FormActivate
+  OnDeactivate = FormDeactivate
+  PixelsPerInch = 96
+  TextHeight = 18
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 853
+    Height = 225
+    Align = alTop
+    TabOrder = 0
+    ExplicitTop = -6
+    object Label1: TLabel
+      Left = 33
+      Top = 32
+      Width = 49
+      Height = 18
+      Caption = #49345#54840#47749' :'
+    end
+    object Label2: TLabel
+      Left = 32
+      Top = 64
+      Width = 49
+      Height = 18
+      Caption = #45824#54364#51088' :'
+    end
+    object Label3: TLabel
+      Left = 33
+      Top = 97
+      Width = 49
+      Height = 18
+      Caption = #50672#46973#52376' :'
+    end
+    object Label4: TLabel
+      Left = 239
+      Top = 95
+      Width = 36
+      Height = 18
+      Caption = 'FAX :'
+    end
+    object Label5: TLabel
+      Left = 438
+      Top = 95
+      Width = 40
+      Height = 18
+      Caption = 'Web :'
+    end
+    object Label6: TLabel
+      Left = 216
+      Top = 64
+      Width = 62
+      Height = 18
+      Caption = #45812#45817#48512#49436' :'
+    end
+    object Label7: TLabel
+      Left = 429
+      Top = 64
+      Width = 49
+      Height = 18
+      Caption = #45812#45817#51088' :'
+    end
+    object DBNavigator1: TDBNavigator
+      Left = 376
+      Top = 176
+      Width = 240
+      Height = 25
+      DataSource = DataSource1
+      TabOrder = 0
+    end
+    object DBEdit1: TDBEdit
+      Left = 88
+      Top = 24
+      Width = 121
+      Height = 26
+      DataField = 'name'
+      DataSource = DataSource1
+      TabOrder = 1
+    end
+    object DBEdit2: TDBEdit
+      Left = 88
+      Top = 56
+      Width = 121
+      Height = 26
+      DataField = 'president'
+      DataSource = DataSource1
+      TabOrder = 2
+    end
+    object DBEdit3: TDBEdit
+      Left = 88
+      Top = 88
+      Width = 121
+      Height = 26
+      DataField = 'phone'
+      DataSource = DataSource1
+      TabOrder = 5
+    end
+    object DBEdit4: TDBEdit
+      Left = 280
+      Top = 88
+      Width = 121
+      Height = 26
+      DataField = 'fax'
+      DataSource = DataSource1
+      TabOrder = 6
+    end
+    object DBEdit5: TDBEdit
+      Left = 480
+      Top = 92
+      Width = 121
+      Height = 26
+      DataField = 'website'
+      DataSource = DataSource1
+      TabOrder = 7
+    end
+    object DBMemo1: TDBMemo
+      Left = 88
+      Top = 121
+      Width = 265
+      Height = 89
+      DataField = 'memo'
+      DataSource = DataSource1
+      TabOrder = 8
+    end
+    object DBEdit6: TDBEdit
+      Left = 280
+      Top = 56
+      Width = 121
+      Height = 26
+      DataField = 'department'
+      DataSource = DataSource1
+      TabOrder = 3
+    end
+    object DBEdit7: TDBEdit
+      Left = 480
+      Top = 56
+      Width = 121
+      Height = 26
+      DataField = 'manager'
+      DataSource = DataSource1
+      TabOrder = 4
+    end
+  end
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 225
+    Width = 853
+    Height = 321
+    Align = alClient
+    DataSource = DataSource1
+    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -15
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    Columns = <
+      item
+        Expanded = False
+        FieldName = 'name'
+        Width = 182
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'president'
+        Width = 187
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'phone'
+        Width = 120
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'fax'
+        Width = 122
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'website'
+        Visible = True
+      end>
+  end
+  object FDTable1: TFDTable
+    IndexFieldNames = 'serial'
+    Connection = DataModule1.FDConnection1
+    UpdateOptions.UpdateTableName = 'partner'
+    TableName = 'partner'
+    Left = 248
+    Top = 320
+  end
+  object DataSource1: TDataSource
+    DataSet = FDTable1
+    Left = 352
+    Top = 328
+  end
+end
diff --git "a/\352\271\200\355\230\204\354\262\240/PartnerForm.pas" "b/\352\271\200\355\230\204\354\262\240/PartnerForm.pas"
new file mode 100644
index 0000000..a6de2c7
--- /dev/null
+++ "b/\352\271\200\355\230\204\354\262\240/PartnerForm.pas"
@@ -0,0 +1,62 @@
+unit PartnerForm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, FireDAC.Stan.Intf,
+  FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
+  FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
+  Vcl.StdCtrls, Vcl.DBCtrls, Vcl.Mask, FireDAC.Comp.DataSet,
+  FireDAC.Comp.Client, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls;
+
+type
+  TfrmPartner = class(TForm)
+    Panel1: TPanel;
+    DBGrid1: TDBGrid;
+    DBNavigator1: TDBNavigator;
+    FDTable1: TFDTable;
+    DataSource1: TDataSource;
+    DBEdit1: TDBEdit;
+    DBEdit2: TDBEdit;
+    DBEdit3: TDBEdit;
+    DBEdit4: TDBEdit;
+    DBEdit5: TDBEdit;
+    DBMemo1: TDBMemo;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    DBEdit6: TDBEdit;
+    Label7: TLabel;
+    DBEdit7: TDBEdit;
+    procedure FormActivate(Sender: TObject);
+    procedure FormDeactivate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmPartner: TfrmPartner;
+
+implementation
+
+{$R *.dfm}
+
+uses DataModule;
+
+procedure TfrmPartner.FormActivate(Sender: TObject);
+begin
+  FDTable1.Open;
+end;
+
+procedure TfrmPartner.FormDeactivate(Sender: TObject);
+begin
+  FDTable1.Close;
+end;
+
+end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS.dpr" "b/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
index b6ea50f..d8e6230 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS.dpr"
@@ -10,7 +10,8 @@ uses
   CustomerForm in 'CustomerForm.pas' {frmCustomer},
   MyLib in 'MyLib.pas',
   ManageEventForm in 'ManageEventForm.pas' {frmManageEvent},
-  SearchForm in 'SearchForm.pas' {frmSearch};
+  SearchForm in 'SearchForm.pas' {frmSearch},
+  PartnerForm in 'PartnerForm.pas' {frmPartner};
 
 {$R *.res}
 
@@ -25,5 +26,6 @@ begin
   Application.CreateForm(TfrmCustomer, frmCustomer);
   Application.CreateForm(TfrmManageEvent, frmManageEvent);
   Application.CreateForm(TfrmSearch, frmSearch);
+  Application.CreateForm(TfrmPartner, frmPartner);
   Application.Run;
 end.
diff --git "a/\352\271\200\355\230\204\354\262\240/TTMS.dproj" "b/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
index 57ce95d..5b6c6a4 100644
--- "a/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
+++ "b/\352\271\200\355\230\204\354\262\240/TTMS.dproj"
@@ -123,6 +123,10 @@
             <Form>frmSearch</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="PartnerForm.pas">
+            <Form>frmPartner</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

From 7c303064220080c1c10ccef6b2ce0de036df42d6 Mon Sep 17 00:00:00 2001
From: "healt.kr@gmail.com" <healt_kr>
Date: Sat, 9 Feb 2019 16:03:31 +0900
Subject: [PATCH 11/11] =?UTF-8?q?=EA=B1=B0=EB=9E=98=EC=B2=98=EB=AA=85=20?=
 =?UTF-8?q?=EA=B2=80=EC=83=89=ED=95=98=EC=97=AC=20=EC=9E=85=EB=A0=A5?=
 =?UTF-8?q?=ED=95=98=EB=8A=94=20Form=20=EC=9E=91=EC=84=B1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

예약 입력시 이미 등록되어 있는 거래처명을 검색하여 입력할 수 있도록 함
---
 .../EventManager.dfm"                         |  1 +
 .../EventManager.pas"                         | 23 +++++++++++++++++--
 .../SearchForm.dfm"                           | 20 ++++++++++------
 .../SearchForm.pas"                           | 18 +++------------
 4 files changed, 38 insertions(+), 24 deletions(-)

diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.dfm" "b/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
index 8a2c51d..cb35f7f 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.dfm"
@@ -355,6 +355,7 @@ object frmEvent: TfrmEvent
       DataField = 'partner_name'
       DataSource = DataSource1
       TabOrder = 2
+      OnDblClick = edtPartnerDblClick
     end
     object DBEdit3: TDBEdit
       Left = 82
diff --git "a/\352\271\200\355\230\204\354\262\240/EventManager.pas" "b/\352\271\200\355\230\204\354\262\240/EventManager.pas"
index be2b07a..619b80c 100644
--- "a/\352\271\200\355\230\204\354\262\240/EventManager.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/EventManager.pas"
@@ -104,6 +104,7 @@   TfrmEvent = class(TForm)
     procedure FDTable1AfterScroll(DataSet: TDataSet);
     procedure btnPostClick(Sender: TObject);
     procedure DBEdit3DblClick(Sender: TObject);
+    procedure edtPartnerDblClick(Sender: TObject);
   private
     { Private declarations }
     procedure SetDate2Edit(Date: TDate; edtYear: TEdit; edtMonth: TEdit; edtDay: TEdit);
@@ -131,12 +132,30 @@ procedure TfrmEvent.btnPostClick(Sender: TObject);
 
 procedure TfrmEvent.DBEdit3DblClick(Sender: TObject);
 begin
+  frmSearch.DataSource1.DataSet := frmSearch.FDTableEvent;
+  frmSearch.FDTableEvent.Open;
+
   if frmSearch.ShowModal = mrOk then
   begin
     FDTable1.Edit;
-//    FDTable1.FieldByName('event_name').AsString := frmSearch.SearchResult;
-    DBEdit3.Text := frmSearch.SearchResult;
+    FDTable1.FieldByName('event_name').AsString := frmSearch.SearchResult;
   end;
+
+  frmSearch.FDTableEvent.Close;
+end;
+
+procedure TfrmEvent.edtPartnerDblClick(Sender: TObject);
+begin
+  frmSearch.DataSource1.DataSet := frmSearch.FDTablePartner;
+  frmSearch.FDTablePartner.Open;
+
+  if frmSearch.ShowModal = mrOk then
+  begin
+    FDTable1.Edit;
+    FDTable1.FieldByName('partner_name').AsString := frmSearch.SearchResult;
+  end;
+
+  frmSearch.FDTablePartner.Close;
 end;
 
 procedure TfrmEvent.EventDateExit(Sender: TObject);
diff --git "a/\352\271\200\355\230\204\354\262\240/SearchForm.dfm" "b/\352\271\200\355\230\204\354\262\240/SearchForm.dfm"
index 0eebccc..c574e01 100644
--- "a/\352\271\200\355\230\204\354\262\240/SearchForm.dfm"
+++ "b/\352\271\200\355\230\204\354\262\240/SearchForm.dfm"
@@ -11,8 +11,6 @@ object frmSearch: TfrmSearch
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
-  OnActivate = FormActivate
-  OnDeactivate = FormDeactivate
   PixelsPerInch = 96
   TextHeight = 18
   object Panel1: TPanel
@@ -60,16 +58,24 @@ object frmSearch: TfrmSearch
       end>
   end
   object DataSource1: TDataSource
-    DataSet = FDTable1
-    Left = 256
-    Top = 216
+    DataSet = FDTablePartner
+    Left = 328
+    Top = 168
   end
-  object FDTable1: TFDTable
+  object FDTableEvent: TFDTable
     IndexFieldNames = 'serial'
     Connection = DataModule1.FDConnection1
     UpdateOptions.UpdateTableName = 'event_name'
     TableName = 'event_name'
     Left = 192
-    Top = 216
+    Top = 168
+  end
+  object FDTablePartner: TFDTable
+    IndexFieldNames = 'serial'
+    Connection = DataModule1.FDConnection1
+    UpdateOptions.UpdateTableName = 'partner'
+    TableName = 'partner'
+    Left = 192
+    Top = 232
   end
 end
diff --git "a/\352\271\200\355\230\204\354\262\240/SearchForm.pas" "b/\352\271\200\355\230\204\354\262\240/SearchForm.pas"
index 8e016d6..d66c10e 100644
--- "a/\352\271\200\355\230\204\354\262\240/SearchForm.pas"
+++ "b/\352\271\200\355\230\204\354\262\240/SearchForm.pas"
@@ -17,10 +17,9 @@   TfrmSearch = class(TForm)
     Label1: TLabel;
     Edit1: TEdit;
     DataSource1: TDataSource;
-    FDTable1: TFDTable;
+    FDTableEvent: TFDTable;
+    FDTablePartner: TFDTable;
     procedure DBGrid1DblClick(Sender: TObject);
-    procedure FormActivate(Sender: TObject);
-    procedure FormDeactivate(Sender: TObject);
   private
     { Private declarations }
   public
@@ -39,19 +38,8 @@ implementation
 
 procedure TfrmSearch.DBGrid1DblClick(Sender: TObject);
 begin
-  SearchResult := FDTable1.FieldByName('name').AsString;
+  SearchResult := DataSource1.DataSet.FieldByName('name').AsString;
   ModalResult := mrOk;
 end;
 
-procedure TfrmSearch.FormActivate(Sender: TObject);
-begin
-  FDTable1.Open;
-  DBGrid1.SelectedRows.CurrentRowSelected := False;
-end;
-
-procedure TfrmSearch.FormDeactivate(Sender: TObject);
-begin
-  FDTable1.Close;
-end;
-
 end.