First commit 18/11/2001

MySQL_ADO.dfm

@@ -0,0 +1,317 @@
+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