object Form1: TForm1
  Left = 191
  Top = 117
  Width = 783
  Height = 540
  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 Splitter1: TSplitter
    Left = 0
    Top = 265
    Width = 775
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 775
    Height = 265
    Align = alTop
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 656
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object DBGrid2: TDBGrid
    Left = 8
    Top = 272
    Width = 641
    Height = 225
    DataSource = DataSource2
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button2: TButton
    Left = 656
    Top = 312
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 3
    OnClick = Button2Click
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=nuevo;Persist Security Info=True;Use' +
      'r ID=jd;Data Source=sample-MySQL;Mode=Read|Write;Connect Timeout' +
      '=15;Extended Properties="DSN=sample-MySQL;DATABASE=test;SERVER=i' +
      'nfdj.com;UID=jd;PWD=nuevo;PORT=3306;OPTION=0;STMT=;";Locale Iden' +
      'tifier=3082'
    LoginPrompt = False
    Mode = cmReadWrite
    Left = 520
    Top = 16
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = ADOTable1
    Left = 520
    Top = 48
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    OnRecordChangeComplete = ADOTable1RecordChangeComplete
    TableName = 'pet'
    Left = 552
    Top = 80
    object ADOTable1name: TStringField
      FieldName = 'name'
      Size = 18
    end
    object ADOTable1owner: TStringField
      FieldName = 'owner'
      Size = 16
    end
    object ADOTable1species: TStringField
      FieldName = 'species'
      Size = 12
    end
    object ADOTable1sex: TStringField
      FieldName = 'sex'
      FixedChar = True
      Size = 1
    end
    object ADOTable1birth: TDateField
      FieldName = 'birth'
    end
    object ADOTable1death: TDateField
      FieldName = 'death'
    end
    object ADOTable1id: TAutoIncField
      AutoGenerateValue = arAutoInc
      FieldName = 'id'
    end
  end
  object DataSource2: TDataSource
    DataSet = mySQLTable1
    Left = 112
    Top = 440
  end
  object Table1: TTable
    AutoRefresh = True
    DatabaseName = 'SINPASWORD'
    TableName = 'pet'
    Left = 144
    Top = 416
  end
  object Database1: TDatabase
    AliasName = 'sample-MySQL'
    DatabaseName = 'SINPASWORD'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'USER NAME=jd'
      'ODBC DSN=sample-MySQL'
      'OPEN MODE=READ/WRITE'
      'BATCH COUNT=200'
      'LANGDRIVER='
      'MAX ROWS=-1'
      'SCHEMA CACHE DIR='
      'SCHEMA CACHE SIZE=8'
      'SCHEMA CACHE TIME=-1'
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SQLQRYMODE='
      'ENABLE SCHEMA CACHE=FALSE'
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=nuevo')
    SessionName = 'Default'
    Left = 296
    Top = 440
  end
  object Query1: TQuery
    AutoRefresh = True
    DatabaseName = 'SINPASWORD'
    RequestLive = True
    SQL.Strings = (
      'select * from pet'
      'order by name')
    UpdateObject = UpdateSQL1
    Left = 664
    Top = 384
    object Query1name: TStringField
      FieldName = 'name'
      Origin = 'SINPASWORD.pet.name'
    end
    object Query1owner: TStringField
      FieldName = 'owner'
      Origin = 'SINPASWORD.pet.owner'
    end
    object Query1species: TStringField
      FieldName = 'species'
      Origin = 'SINPASWORD.pet.species'
    end
    object Query1sex: TStringField
      FieldName = 'sex'
      Origin = 'SINPASWORD.pet.sex'
      FixedChar = True
      Size = 1
    end
    object Query1birth: TDateField
      FieldName = 'birth'
      Origin = 'SINPASWORD.pet.birth'
    end
    object Query1death: TDateField
      FieldName = 'death'
      Origin = 'SINPASWORD.pet.death'
    end
    object Query1id: TIntegerField
      AutoGenerateValue = arAutoInc
      FieldName = 'id'
      Origin = 'SINPASWORD.pet.id'
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update pet'
      'set'
      '  name = :name,'
      '  owner = :owner,'
      '  species = :species,'
      '  sex = :sex,'
      '  birth = :birth,'
      '  death = :death,'
      '  id = :id'
      'where'
      '  id = :OLD_id')
    InsertSQL.Strings = (
      'insert into pet'
      '  (name, owner, species, sex, birth, death, id)'
      'values'
      '  (:name, :owner, :species, :sex, :birth, :death, :id)')
    DeleteSQL.Strings = (
      'delete from pet'
      'where'
      '  id = :OLD_id')
    Left = 696
    Top = 384
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from pet')
    Left = 584
    Top = 80
    object ADOQuery1id: TAutoIncField
      AutoGenerateValue = arAutoInc
      FieldName = 'id'
    end
    object ADOQuery1name: TStringField
      FieldName = 'name'
      Size = 18
    end
    object ADOQuery1owner: TStringField
      FieldName = 'owner'
      Size = 16
    end
    object ADOQuery1species: TStringField
      FieldName = 'species'
      Size = 12
    end
    object ADOQuery1sex: TStringField
      FieldName = 'sex'
      FixedChar = True
      Size = 1
    end
    object ADOQuery1birth: TDateField
      FieldName = 'birth'
    end
    object ADOQuery1death: TDateField
      FieldName = 'death'
    end
  end
  object mySQLDatabase1: TmySQLDatabase
    Connected = True
    DatabaseName = 'test'
    UserName = 'jd'
    UserPassword = 'nuevo'
    Host = 'infdj.com'
    ConnectOptions = []
    Params.Strings = (
      'Port=3306'
      'DatabaseName=test'
      'UID=jd'
      'PWD=nuevo'
      'Host=infdj.com')
    Left = 688
    Top = 456
  end
  object mySQLTable1: TmySQLTable
    AutoRefresh = True
    Database = mySQLDatabase1
    Active = True
    TableName = 'pet'
    Left = 688
    Top = 424
    object mySQLTable1name: TStringField
      FieldName = 'name'
      Size = 21
    end
    object mySQLTable1owner: TStringField
      FieldName = 'owner'
      Size = 21
    end
    object mySQLTable1species: TStringField
      FieldName = 'species'
      Size = 21
    end
    object mySQLTable1sex: TStringField
      FieldName = 'sex'
      Size = 2
    end
    object mySQLTable1birth: TDateField
      FieldName = 'birth'
    end
    object mySQLTable1death: TDateField
      FieldName = 'death'
    end
    object mySQLTable1id: TLargeintField
      AutoGenerateValue = arAutoInc
      FieldName = 'id'
      Required = True
    end
  end
end