object MainForm: TMainForm
  Left = 0
  Top = 0
  ClientHeight = 464
  ClientWidth = 420
  Caption = 'MainForm'
  BorderStyle = bsNone
  OldCreateOrder = False
  MonitoredKeys.Keys = <>
  ClientEvents.ExtEvents.Strings = (
    
      'window.close=function window.close(panel, eOpts)'#13#10'{'#13#10'  alert('#39'go' +
      'od bye'#39');'#13#10'}')
  OnCreate = UniFormCreate
  OnDestroy = UniFormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object bGetSMSCode: TUniBitBtn
    Left = 88
    Top = 233
    Width = 209
    Height = 48
    Hint = ''
    Caption = #1055#1086#1083#1091#1095#1080#1090#1100' '#1057#1052#1057' '#1082#1086#1076
    ParentFont = False
    Font.Height = -19
    TabOrder = 0
    OnClick = bGetSMSCodeClick
  end
  object ePhoneNumber: TUniEdit
    Left = 24
    Top = 113
    Width = 313
    Height = 27
    Hint = ''
    Text = #1042#1074#1077#1076#1080#1090#1077' '#1085#1086#1084#1077#1088' '#1090#1077#1083#1077#1092#1086#1085#1072'...'
    ParentFont = False
    Font.Height = -16
    TabOrder = 1
    OnClick = ePhoneNumberClick
  end
  object cbCountry: TUniComboBox
    Left = 24
    Top = 80
    Width = 313
    Height = 27
    Hint = ''
    Style = csDropDownList
    Text = #1056#1086#1089#1089#1080#1103
    Items.Strings = (
      #1056#1086#1089#1089#1080#1103
      #1059#1082#1088#1072#1080#1085#1072
      #1050#1072#1079#1072#1093#1089#1090#1072#1085
      #1044#1088#1091#1075#1072#1103' '#1089#1090#1088#1072#1085#1072)
    ItemIndex = 0
    ParentFont = False
    Font.Height = -16
    TabOrder = 2
    OnSelect = cbCountrySelect
  end
  object eCode: TUniEdit
    Left = 24
    Top = 329
    Width = 313
    Height = 49
    Hint = ''
    Visible = False
    Text = #1042#1074#1077#1076#1080#1090#1077' '#1082#1086#1076' '#1087#1086#1076#1090#1074#1077#1088#1078#1076#1077#1085#1080#1103'...'
    ParentFont = False
    Font.Height = -16
    TabOrder = 3
    InputMask.Mask = '9999'
    OnClick = eCodeClick
  end
  object lPhoneExample: TUniLabel
    Left = 40
    Top = 146
    Width = 178
    Height = 19
    Hint = ''
    Caption = #1055#1088#1080#1084#1077#1088': +79163080631'
    ParentFont = False
    Font.Height = -16
    TabOrder = 4
  end
  object lTitle: TUniLabel
    Left = 24
    Top = 24
    Width = 386
    Height = 23
    Hint = ''
    Caption = #1042#1093#1086#1076' '#1074' '#1089#1080#1089#1090#1077#1084#1091' '#1090#1077#1089#1090#1080#1088#1086#1074#1072#1085#1080#1103' ('#1076#1077#1084#1086' '#1088#1077#1078#1080#1084')'
    ParentFont = False
    Font.Height = -19
    TabOrder = 5
  end
  object bSendCode: TUniBitBtn
    Left = 88
    Top = 394
    Width = 209
    Height = 41
    Hint = ''
    Visible = False
    Caption = #1054#1090#1087#1088#1072#1074#1080#1090#1100' '#1082#1086#1076
    ParentFont = False
    Font.Height = -19
    TabOrder = 6
    OnClick = bSendCodeClick
  end
  object lCountDown: TUniLabel
    Left = 316
    Top = 217
    Width = 58
    Height = 13
    Hint = ''
    Caption = 'lCountDown'
    TabOrder = 7
  end
  object eName: TUniEdit
    Left = 24
    Top = 184
    Width = 313
    Height = 27
    Hint = ''
    Text = #1042#1072#1096#1077' '#1080#1084#1103'...'
    ParentFont = False
    Font.Height = -16
    TabOrder = 8
    OnClick = eNameClick
  end
  object cbFreeConsultation: TUniCheckBox
    Left = 121
    Top = 287
    Width = 160
    Height = 17
    Hint = ''
    Checked = True
    Caption = #1041#1077#1089#1087#1083#1072#1090#1085#1072#1103' '#1082#1086#1085#1089#1091#1083#1100#1090#1072#1094#1080#1103
    TabOrder = 9
  end
  object qStartSession: TFDQuery
    SQL.Strings = (
      'INSERT INTO `smsmessendger_db`.`sessions` (`TimeStart`) '
      'VALUES(:DateTime);'
      ''
      '')
    Left = 352
    Top = 144
    ParamData = <
      item
        Name = 'DATETIME'
        ParamType = ptInput
      end>
  end
  object qLastInsertID: TFDQuery
    SQL.Strings = (
      'SELECT Max(id) as newkey FROM smsmessendger_db.sessions;')
    Left = 384
    Top = 272
  end
  object qSelectCode: TFDQuery
    SQL.Strings = (
      
        'SELECT Code FROM smsmessendger_db.codes where Sessions_id=:Sessi' +
        'ons_id;')
    Left = 336
    Top = 272
    ParamData = <
      item
        Name = 'SESSIONS_ID'
        ParamType = ptInput
      end>
  end
  object qInsertPhoneNumber: TFDQuery
    SQL.Strings = (
      'INSERT INTO `smsmessendger_db`.`people` '
      
        '(`PhoneNumber`, `Sessions_id`) VALUES (:PhoneNumber, :Sessions_i' +
        'd);')
    Left = 48
    Top = 232
    ParamData = <
      item
        Name = 'PHONENUMBER'
        ParamType = ptInput
      end
      item
        Name = 'SESSIONS_ID'
        ParamType = ptInput
      end>
  end
  object qFinishSession: TFDQuery
    SQL.Strings = (
      'UPDATE `smsmessendger_db`.`sessions` '
      'SET `TimeFinish`=:TimeFinish WHERE `id`=:id;')
    Left = 32
    Top = 336
    ParamData = <
      item
        Name = 'TIMEFINISH'
        ParamType = ptInput
      end
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object qDeleteCode: TFDQuery
    SQL.Strings = (
      'DELETE FROM `smsmessendger_db`.`codes` WHERE `Sessions_id`=:id;')
    Left = 104
    Top = 328
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object tUniEnableSendSMSButton: TUniTimer
    Enabled = False
    ClientEvent.Strings = (
      'function(sender)'
      '{'
      ' '
      '}')
    OnTimer = tUniEnableSendSMSButtonTimer
    OnEventHandler = tUniEnableSendSMSButtonEventHandler
    Left = 296
    Top = 64
  end
  object qSelectNULLSessions: TFDQuery
    SQL.Strings = (
      
        #10'SELECT * FROM smsmessendger_db.sessions where `TimeFinish` is N' +
        'ULL;'#10)
    Left = 16
    Top = 32
  end
  object qDeleteNULLSessions: TFDQuery
    SQL.Strings = (
      'DELETE FROM `smsmessendger_db`.`Sessions` WHERE `id`=:id;')
    Left = 120
    Top = 40
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object tTotal: TUniTimer
    ClientEvent.Strings = (
      'function(sender)'
      '{'
      ' '
      '}')
    OnTimer = tTotalTimer
    Left = 368
    Top = 64
  end
end
