CD Actual Thematic 7: Programming/CDAT7.iso/Database/ejemplos/tclientdataset/Unit1.~df/Unit1.txt

Text File | 1999-03-29 | 3.2 KB | 148 lines

object Form1: TForm1
  Left = 206
  Top = 133
  Width = 435
  Height = 300
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 32
    Top = 128
    Width = 320
    Height = 120
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 32
    Top = 88
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 1
  end
  object Button1: TButton
    Left = 128
    Top = 24
    Width = 75
    Height = 25
    Caption = '&Indexar'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 216
    Top = 24
    Width = 75
    Height = 25
    Caption = '&Deshacer'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 128
    Top = 64
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 240
    Top = 64
    Width = 75
    Height = 25
    Caption = 'Button4'
    TabOrder = 5
    OnClick = Button4Click
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    FileName = 'c:\prueba1'
    FieldDefs = <
      item
        Name = 'nombre'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'apellidos'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'direccion'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'telefono'
        DataType = ftInteger
      end
      item
        Name = 'fax'
        DataType = ftInteger
      end
      item
        Name = 'email'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <
      item
        Name = 'xnombre'
        Fields = 'nombre'
        Options = [ixCaseInsensitive]
      end>
    Params = <>
    StoreDefs = True
    Left = 64
    Top = 24
    Data = {
      A80000009619E0BD010000001800000006000000000003000000A800066E6F6D
      6272650100490000000100055749445448020002001400096170656C6C69646F
      73010049000000010005574944544802000200140009646972656363696F6E01
      004900000001000557494454480200020014000874656C65666F6E6F04000100
      0000000003666178040001000000000005656D61696C01004900000001000557
      494454480200020014000000}
    object ClientDataSet1nombre: TStringField
      FieldName = 'nombre'
    end
    object ClientDataSet1apellidos: TStringField
      FieldName = 'apellidos'
    end
    object ClientDataSet1direccion: TStringField
      FieldName = 'direccion'
    end
    object ClientDataSet1telefono: TIntegerField
      FieldName = 'telefono'
    end
    object ClientDataSet1fax: TIntegerField
      FieldName = 'fax'
    end
    object ClientDataSet1email: TStringField
      FieldName = 'email'
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 32
    Top = 24
  end
end