object Login: TLogin
  Left = 0
  Top = 0
  BorderIcons = []
  Caption = 'Login'
  ClientHeight = 129
  ClientWidth = 242
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Panel43: TPanel
    Left = 0
    Top = 0
    Width = 242
    Height = 129
    Align = alClient
    BevelOuter = bvLowered
    Color = 13553150
    ParentBackground = False
    TabOrder = 0
    object Label92: TLabel
      Left = 30
      Top = 16
      Width = 36
      Height = 13
      Caption = 'Usuario'
    end
    object Label97: TLabel
      Left = 28
      Top = 39
      Width = 46
      Height = 13
      Alignment = taRightJustify
      Caption = 'Password'
    end
    object Edit2: TEdit
      Left = 80
      Top = 13
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Button22: TButton
      Left = 45
      Top = 72
      Width = 75
      Height = 25
      Caption = 'Aceptar'
      ImageIndex = 3
      TabOrder = 2
      OnClick = Button22Click
    end
    object MaskEdit1: TMaskEdit
      Left = 80
      Top = 36
      Width = 121
      Height = 21
      PasswordChar = '*'
      TabOrder = 1
      Text = ''
    end
    object Button1: TButton
      Left = 141
      Top = 72
      Width = 75
      Height = 25
      Caption = 'Cancelar'
      ImageIndex = 3
      TabOrder = 3
      OnClick = Button1Click
    end
  end
  object qusuario: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from usuarios where usuario=:USUARIO and active=1')
    Params = <
      item
        DataType = ftUnknown
        Name = 'USUARIO'
        ParamType = ptUnknown
      end>
    Left = 184
    Top = 72
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'USUARIO'
        ParamType = ptUnknown
      end>
    object qusuarioid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qusuarionombre: TWideStringField
      FieldName = 'nombre'
      Size = 500
    end
    object qusuarionif: TWideStringField
      FieldName = 'nif'
      Size = 18
    end
    object qusuarioempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
    object qusuariodireccion: TWideStringField
      FieldName = 'direccion'
      Size = 500
    end
    object qusuarioprovin: TWideStringField
      FieldName = 'provin'
      Size = 500
    end
    object qusuariocity: TWideStringField
      FieldName = 'city'
      Size = 500
    end
    object qusuariocp: TWideStringField
      FieldName = 'cp'
      Size = 18
    end
    object qusuariophone: TWideStringField
      FieldName = 'phone'
      Size = 18
    end
    object qusuariomovil: TWideStringField
      FieldName = 'movil'
      Size = 18
    end
    object qusuariousuario: TWideStringField
      FieldName = 'usuario'
      Size = 40
    end
    object qusuariocontra: TWideStringField
      FieldName = 'contra'
      Size = 40
    end
    object qusuarioadministrador: TIntegerField
      FieldName = 'administrador'
    end
    object qusuariogestorgrupo: TIntegerField
      FieldName = 'gestorgrupo'
    end
    object qusuariogrupo: TIntegerField
      FieldName = 'grupo'
      Required = True
    end
    object qusuariogestorindividual: TIntegerField
      FieldName = 'gestorindividual'
    end
    object qusuarioidemp: TIntegerField
      FieldName = 'idemp'
    end
    object qusuarioactive: TIntegerField
      FieldName = 'active'
    end
    object qusuarionomgrupo: TWideStringField
      FieldName = 'nomgrupo'
      Size = 90
    end
    object qusuarionomtrabajador: TWideStringField
      FieldName = 'nomtrabajador'
      Size = 90
    end
    object qusuariofumigador: TIntegerField
      FieldName = 'fumigador'
    end
    object qusuariotecnico: TIntegerField
      FieldName = 'tecnico'
    end
  end
  object qinsertlogin: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'insert into logins (ide,inicio,idusuario,usuario,equipo) values ' +
        '(:EMPRESA,now(),:IDUSUARIO,:USUARIO,:EQUIPO)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDUSUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'EQUIPO'
        ParamType = ptUnknown
      end>
    Left = 24
    Top = 80
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDUSUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'EQUIPO'
        ParamType = ptUnknown
      end>
  end
  object qlogin: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select id from logins where idusuario=:idusuario and fin is null')
    Params = <
      item
        DataType = ftUnknown
        Name = 'idusuario'
        ParamType = ptUnknown
      end>
    Left = 144
    Top = 72
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idusuario'
        ParamType = ptUnknown
      end>
    object qloginid: TIntegerField
      FieldName = 'id'
      Required = True
    end
  end
  object qlogins: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from logins where fin is null and idusuario=:IDUSUARIO ' +
        ' and ide=:EMPRESA')
    Params = <
      item
        DataType = ftUnknown
        Name = 'IDUSUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end>
    Left = 192
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDUSUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end>
    object qloginsid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qloginsinicio: TDateTimeField
      FieldName = 'inicio'
    end
    object qloginsfin: TDateTimeField
      FieldName = 'fin'
    end
    object qloginsidusuario: TIntegerField
      FieldName = 'idusuario'
    end
    object qloginsusuario: TWideStringField
      FieldName = 'usuario'
      Size = 90
    end
    object qloginside: TIntegerField
      FieldName = 'ide'
      ReadOnly = True
    end
  end
end