object AuthDatabase: TAuthDatabase
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 202
  Width = 578
  object uqWebTasksUrl: TUniQuery
    Connection = ucETaskAuth
    SQL.Strings = (
      'select'
      '  u.USER_ID,'
      '  u.USER_NAME,'
      '  u.NAME,'
      '  u.STATUS,'
      '  u.EMAIL,'
      '  u.ACCESS_LEVEL,'
      '  u.TASK_RIGHTS,'
      '  u.PERSPECTIVE_ID,'
      '  u.LAST_NAME,'
      '  u.FIRST_NAME,'
      '  w.URL_TIME,'
      '  w.URL_TIME_EXP'
      'from web_tasks_url w'
      'join users u on u.USER_ID = w.USER_ID'
      'where w.USER_ID = :USER_ID'
      '  and w.TASK_ID = :TASK_ID'
      '  and w.URL_CODE = :URL_CODE'
      
        '  and TIMESTAMPDIFF(SECOND, w.URL_TIME, NOW()) between 0 and w.U' +
        'RL_TIME_EXP'
      'order by w.URL_TIME desc'
      'limit 1')
    FetchRows = 100
    Left = 78
    Top = 43
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'USER_ID'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'TASK_ID'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'URL_CODE'
        Value = nil
      end>
    object uqWebTasksUrlUSER_ID: TStringField
      FieldName = 'USER_ID'
      Required = True
      Size = 7
    end
    object uqWebTasksUrlUSER_NAME: TStringField
      FieldName = 'USER_NAME'
      Required = True
      Size = 12
    end
    object uqWebTasksUrlNAME: TStringField
      FieldName = 'NAME'
      Size = 40
    end
    object uqWebTasksUrlSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 7
    end
    object uqWebTasksUrlEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object uqWebTasksUrlACCESS_LEVEL: TIntegerField
      FieldName = 'ACCESS_LEVEL'
    end
    object uqWebTasksUrlTASK_RIGHTS: TIntegerField
      FieldName = 'TASK_RIGHTS'
    end
    object uqWebTasksUrlPERSPECTIVE_ID: TStringField
      FieldName = 'PERSPECTIVE_ID'
      Size = 45
    end
    object uqWebTasksUrlLAST_NAME: TStringField
      FieldName = 'LAST_NAME'
      Size = 35
    end
    object uqWebTasksUrlFIRST_NAME: TStringField
      FieldName = 'FIRST_NAME'
      Size = 25
    end
    object uqWebTasksUrlURL_TIME: TDateTimeField
      FieldName = 'URL_TIME'
      ReadOnly = True
      Required = True
    end
    object uqWebTasksUrlURL_TIME_EXP: TIntegerField
      FieldName = 'URL_TIME_EXP'
      ReadOnly = True
      Required = True
    end
  end
  object ucETaskAuth: TUniConnection
    ProviderName = 'MySQL'
    Database = 'eTask'
    Username = 'root'
    Server = '192.168.102.131'
    Connected = True
    LoginPrompt = False
    Left = 71
    Top = 133
    EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
  end
  object MySQLUniProvider1: TMySQLUniProvider
    Left = 194
    Top = 132
  end
  object uqWebLogin: TUniQuery
    Connection = ucETaskAuth
    SQL.Strings = (
      'select'
      '  u.USER_ID,'
      '  u.USER_NAME,'
      '  u.NAME,'
      '  u.STATUS,'
      '  u.EMAIL,'
      '  u.ACCESS_LEVEL,'
      '  u.TASK_RIGHTS,'
      '  u.PERSPECTIVE_ID,'
      '  u.LAST_NAME,'
      '  u.FIRST_NAME,'
      '  w.WEB_LOGIN'
      'from web_tasks_url w'
      'join users u on u.USER_ID = w.USER_ID'
      'where u.USER_NAME = :USER_NAME'
      '  and w.TASK_ID = :TASK_ID'
      '  and u.PASSWORD = :PASSWORD'
      '  and w.URL_CODE = :URL_CODE')
    Left = 194
    Top = 44
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'USER_NAME'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'TASK_ID'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'PASSWORD'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'URL_CODE'
        Value = nil
      end>
    object uqWebLoginUSER_ID: TStringField
      FieldName = 'USER_ID'
      Required = True
      Size = 7
    end
    object uqWebLoginUSER_NAME: TStringField
      FieldName = 'USER_NAME'
      Required = True
      Size = 12
    end
    object uqWebLoginNAME: TStringField
      FieldName = 'NAME'
      Size = 40
    end
    object uqWebLoginSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 7
    end
    object uqWebLoginEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object uqWebLoginACCESS_LEVEL: TIntegerField
      FieldName = 'ACCESS_LEVEL'
    end
    object uqWebLoginTASK_RIGHTS: TIntegerField
      FieldName = 'TASK_RIGHTS'
    end
    object uqWebLoginPERSPECTIVE_ID: TStringField
      FieldName = 'PERSPECTIVE_ID'
      Size = 45
    end
    object uqWebLoginLAST_NAME: TStringField
      FieldName = 'LAST_NAME'
      Size = 35
    end
    object uqWebLoginFIRST_NAME: TStringField
      FieldName = 'FIRST_NAME'
      Size = 25
    end
    object uqWebLoginWEB_LOGIN: TStringField
      FieldName = 'WEB_LOGIN'
      ReadOnly = True
      Required = True
      FixedChar = True
      Size = 1
    end
  end
end
