object prestamos: Tprestamos
  Left = 0
  Top = 0
  Caption = 'Prestamo de libros'
  ClientHeight = 691
  ClientWidth = 961
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 961
    Height = 249
    Align = alTop
    TabOrder = 0
    object Panel4: TPanel
      Left = 401
      Top = 1
      Width = 559
      Height = 247
      Align = alClient
      TabOrder = 0
      object Panel6: TPanel
        Left = 1
        Top = 1
        Width = 557
        Height = 41
        Align = alTop
        TabOrder = 0
        object Label1: TLabel
          Left = 15
          Top = 0
          Width = 49
          Height = 16
          Caption = 'Buscar:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object tbuscarlibro: TEdit
          Left = 15
          Top = 15
          Width = 365
          Height = 25
          CharCase = ecUpperCase
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Segoe UI Light'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnChange = tbuscarlibroChange
        end
        object gcrpagado: TDBCheckBox
          Left = 460
          Top = -8
          Width = 97
          Height = 17
          Caption = 'gcrpagado'
          TabOrder = 1
          Visible = False
        end
      end
      object DBGrid1: TDBGrid
        Left = 1
        Top = 42
        Width = 557
        Height = 204
        Align = alClient
        DataSource = dsqlibros
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'id'
            Title.Caption = 'C'#243'digo'
            Width = 131
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'titulo'
            Title.Caption = 'T'#237'tulo'
            Width = 394
            Visible = True
          end>
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 400
      Height = 247
      Align = alLeft
      TabOrder = 1
      object Panel7: TPanel
        Left = 1
        Top = 1
        Width = 398
        Height = 41
        Align = alTop
        TabOrder = 0
        object Label2: TLabel
          Left = 15
          Top = 0
          Width = 49
          Height = 16
          Caption = 'Buscar:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object tbuscaralumno: TEdit
          Left = 15
          Top = 15
          Width = 365
          Height = 25
          CharCase = ecUpperCase
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Segoe UI Light'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnChange = tbuscaralumnoChange
        end
      end
      object DBGrid2: TDBGrid
        Left = 1
        Top = 42
        Width = 398
        Height = 204
        Align = alClient
        DataSource = dsqalumnos
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        OnCellClick = DBGrid2CellClick
        OnDblClick = DBGrid2DblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'nombre_completo'
            Title.Caption = 'Alumno'
            Visible = True
          end>
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 249
    Width = 961
    Height = 442
    Align = alClient
    TabOrder = 1
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 959
      Height = 48
      Align = alTop
      TabOrder = 0
      object Button1: TButton
        Left = 360
        Top = 6
        Width = 75
        Height = 25
        Caption = 'Prestar'
        TabOrder = 0
        OnClick = Button1Click
      end
    end
    object DBGrid3: TDBGrid
      Left = 1
      Top = 49
      Width = 959
      Height = 392
      Align = alClient
      DataSource = dsqprestamos
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      OnCellClick = DBGrid3CellClick
      OnDrawColumnCell = DBGrid3DrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = 'id'
          Width = 46
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fecha'
          Title.Caption = 'F. Prestamo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fecha_devolucion'
          Title.Caption = 'F Devolucion'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fecha_limite'
          Title.Caption = 'F limite'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'alumno'
          Title.Caption = 'Alumno'
          Width = 298
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'idl'
          Title.Caption = 'C'#243'digo'
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'titulo'
          Title.Caption = 'T'#237'tulo'
          Width = 219
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'devuelto'
          Title.Caption = 'Devuelto'
          Width = 47
          Visible = True
        end>
    end
  end
  object qalumnos: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select id,nombre_completo from alumnos where nombre_completo lik' +
        'e(:FILTRO) order by nombre_completo')
    Params = <
      item
        DataType = ftWideString
        Name = 'FILTRO'
        ParamType = ptUnknown
        Value = '%'
      end>
    Left = 176
    Top = 144
    ParamData = <
      item
        DataType = ftWideString
        Name = 'FILTRO'
        ParamType = ptUnknown
        Value = '%'
      end>
    object qalumnosnombre_completo: TWideStringField
      FieldName = 'nombre_completo'
      Required = True
      Size = 100
    end
    object qalumnosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
  end
  object qprestamos: TZQuery
    Connection = DM.dbjolly
    OnCalcFields = qprestamosCalcFields
    AfterPost = qprestamosAfterPost
    SQL.Strings = (
      
        'SELECT * FROM PRESTAMO_LIBROS where ida like(:ALUMNO) order by f' +
        'echa '
      '')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALUMNO'
        ParamType = ptUnknown
      end>
    Left = 336
    Top = 408
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALUMNO'
        ParamType = ptUnknown
      end>
    object qprestamosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qprestamoside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qprestamosidl: TWideStringField
      FieldName = 'idl'
      Required = True
      Size = 100
    end
    object qprestamosida: TIntegerField
      FieldName = 'ida'
      Required = True
    end
    object qprestamosfecha: TDateField
      FieldName = 'fecha'
    end
    object qprestamosfecha_limite: TDateField
      FieldName = 'fecha_limite'
    end
    object qprestamosfecha_devolucion: TDateField
      FieldName = 'fecha_devolucion'
    end
    object qprestamosimporte_devuelto: TFloatField
      FieldName = 'importe_devuelto'
    end
    object qprestamosseloqueda: TSmallintField
      FieldName = 'seloqueda'
      Required = True
    end
    object qprestamosdevuelto: TSmallintField
      FieldName = 'devuelto'
      Required = True
    end
    object qprestamosalumno: TStringField
      FieldKind = fkCalculated
      FieldName = 'alumno'
      Size = 100
      Calculated = True
    end
    object qprestamostitulo: TStringField
      FieldKind = fkCalculated
      FieldName = 'titulo'
      Size = 100
      Calculated = True
    end
  end
  object dsqprestamos: TDataSource
    DataSet = qprestamos
    Left = 152
    Top = 384
  end
  object dsqalumnos: TDataSource
    DataSet = qalumnos
    OnDataChange = dsqalumnosDataChange
    Left = 176
    Top = 96
  end
  object dsqlibros: TDataSource
    DataSet = qlibros
    Left = 624
    Top = 120
  end
  object qlibros: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      
        'select id,titulo from libros where prestado=0 and (id like (:FIL' +
        'TRO) or titulo like (:FILTRO)) order by titulo')
    Params = <
      item
        DataType = ftWideString
        Name = 'FILTRO'
        ParamType = ptUnknown
        Value = '%'
      end>
    Left = 624
    Top = 168
    ParamData = <
      item
        DataType = ftWideString
        Name = 'FILTRO'
        ParamType = ptUnknown
        Value = '%'
      end>
    object qlibrosid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 100
    end
    object qlibrostitulo: TWideStringField
      FieldName = 'titulo'
      Required = True
      Size = 50
    end
  end
  object qalumnos2: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      'select nombre_completo from alumnos where id=:ALUMNO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALUMNO'
        ParamType = ptUnknown
      end>
    Left = 168
    Top = 536
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALUMNO'
        ParamType = ptUnknown
      end>
    object qalumnos2nombre_completo: TWideStringField
      FieldName = 'nombre_completo'
      Required = True
      Size = 100
    end
  end
  object qlibros2: TZReadOnlyQuery
    Connection = DM.dbjolly
    SQL.Strings = (
      'select titulo from libros where id=:TITULO ')
    Params = <
      item
        DataType = ftUnknown
        Name = 'TITULO'
        ParamType = ptUnknown
      end>
    Left = 616
    Top = 560
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TITULO'
        ParamType = ptUnknown
      end>
    object qlibros2titulo: TWideStringField
      FieldName = 'titulo'
      Required = True
      Size = 50
    end
  end
end