object FBuscar: TFBuscar
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = 'Buscar...'
  ClientHeight = 370
  ClientWidth = 672
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 70
    Height = 19
    Caption = 'Nombre:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 3
    Top = 80
    Width = 663
    Height = 225
    DataSource = DSBuscar
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ide'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NombreCom'
        Title.Caption = 'Nombre'
        Width = 200
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Area'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Puesto'
        Width = 225
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Lugar'
        Visible = True
      end>
  end
  object txtNombre: TEdit
    Left = 13
    Top = 31
    Width = 510
    Height = 21
    TabOrder = 0
  end
  object Buscar: TBitBtn
    Left = 535
    Top = 23
    Width = 113
    Height = 37
    Caption = 'Buscar'
    Default = True
    Glyph.Data = {
      [encoded data, 6208 characters]
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    TabOrder = 1
    OnClick = BuscarClick
  end
  object BitBtn1: TBitBtn
    Left = 104
    Top = 320
    Width = 112
    Height = 41
    Caption = 'Aceptar'
    Glyph.Data = {
      [encoded data, 6208 characters]
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    ModalResult = 1
    TabOrder = 3
  end
  object BitBtn2: TBitBtn
    Left = 484
    Top = 320
    Width = 104
    Height = 41
    Caption = 'Cancelar'
    Glyph.Data = {
      [encoded data, 6208 characters]
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    ModalResult = 2
    TabOrder = 4
  end
  object QBuscar: TADOQuery
    Active = True
    Connection = dm.Conector
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT Personal.ide, trim([Personal.Nombre]) & " " & [Personal.A' +
        'paterno] &" " &  +[Personal.AMaterno] As NombreCom,    '
      
        'CatPuestos.Puesto, CatAreas.Area, CatLugares.Lugar  FROM ((Perso' +
        'nal LEFT JOIN CatPuestos ON Personal.Puesto = CatPuestos.ide) LE' +
        'FT JOIN CatAreas'
      
        ' ON Personal.Area = CatAreas.ide) LEFT JOIN CatLugares ON Person' +
        'al.Lugar = CatLugares.ide ')
    Left = 512
    Top = 64
  end
  object DSBuscar: TDataSource
    DataSet = QBuscar
    Left = 560
    Top = 64
  end
end
