object DataModule1: TDataModule1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 303
  Width = 512
  object SQLConnection1: TSQLConnection
    ConnectionName = '201401QCOMBCB'
    DriverName = 'InterBase'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=InterBase'
      'DriverUnit=Data.DBXInterBase'
      
        'DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver190.' +
        'bpl'
      
        'DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borla' +
        'nd.Data.DbxCommonDriver,Version=19.0.0.0,Culture=neutral,PublicK' +
        'eyToken=91d62ebb5b0d1b1b'
      
        'MetaDataPackageLoader=TDBXInterbaseMetaDataCommandFactory,DbxInt' +
        'erBaseDriver190.bpl'
      
        'MetaDataAssemblyLoader=Borland.Data.TDBXInterbaseMetaDataCommand' +
        'Factory,Borland.Data.DbxInterBaseDriver,Version=19.0.0.0,Culture' +
        '=neutral,PublicKeyToken=91d62ebb5b0d1b1b'
      'LibraryName=dbxint.dll'
      'LibraryNameOsx=libsqlib.dylib'
      'VendorLib=GDS32.DLL'
      'VendorLibWin64=ibclient64.dll'
      'VendorLibOsx=libgds.dylib'
      'Database=c:\Seminars\201403QComBCBXE5\Data\PTCHDEMODB.GDB'
      'User_Name=sysdba'
      'Password=masterkey'
      'Role=RoleName'
      'MaxBlobSize=-1'
      'LocaleCode=0000'
      'IsolationLevel=ReadCommitted'
      'SQLDialect=3'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'TrimChar=False'
      'DisplayDriverName=InterBase Server'
      'BlobSize=-1'
      'ErrorResourceFile='
      'RoleName=RoleName'
      'ServerCharSet=UTF8'
      'Trim Char=False'
      'SEP=')
    Connected = True
    Left = 88
    Top = 32
  end
  object SQLQuery1: TSQLQuery
    Active = True
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select * from TBLDIVISIONS')
    SQLConnection = SQLConnection1
    Left = 88
    Top = 160
  end
  object qryInsertData: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftDateTime
        Name = 'NEW_ADDDT'
        ParamType = ptUnknown
      end
      item
        DataType = ftWideString
        Name = 'NEW_ADDDATETIME'
        ParamType = ptUnknown
      end
      item
        DataType = ftWideString
        Name = 'NEW_RNAME'
        ParamType = ptUnknown
      end
      item
        DataType = ftWideString
        Name = 'NEW_FAKEPHONE'
        ParamType = ptUnknown
      end
      item
        DataType = ftWideString
        Name = 'NEW_DIVISION'
        ParamType = ptUnknown
      end>
    SQL.Strings = (
      'INSERT INTO TBLTESTDATA'
      '(ADDDATETIME, RNAME, ADDDT, FAKEPHONE, DIVISION)'
      
        'VALUES (:NEW_ADDDATETIME, :NEW_RNAME, :NEW_ADDDT, :NEW_FAKEPHONE' +
        ', :NEW_DIVISION)')
    SQLConnection = SQLConnection1
    Left = 256
    Top = 32
  end
  object qryTestData: TSQLQuery
    Active = True
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select * from TBLTESTDATA order by RNAME')
    SQLConnection = SQLConnection1
    Left = 304
    Top = 152
  end
  object cdsData: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 304
    Top = 240
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = qryTestData
    Left = 424
    Top = 152
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = qryInsertData
    Options = [poAllowCommandText, poUseQuoteChar]
    Left = 368
    Top = 32
  end
  object cdsInsertData: TClientDataSet
    Aggregates = <>
    CommandText = 
      'INSERT INTO TBLTESTDATA (ADDDATETIME, RNAME, ADDDT, FAKEPHONE, D' +
      'IVISION) VALUES (:NEW_ADDDATETIME, :NEW_RNAME, :NEW_ADDDT, :NEW_' +
      'FAKEPHONE, :NEW_DIVISION)'
    Params = <
      item
        DataType = ftDateTime
        Name = 'NEW_ADDDATETIME'
        ParamType = ptUnknown
      end
      item
        DataType = ftWideString
        Name = 'NEW_RNAME'
        ParamType = ptUnknown
      end
      item
        DataType = ftWideString
        Name = 'NEW_ADDDT'
        ParamType = ptUnknown
      end
      item
        DataType = ftWideString
        Name = 'NEW_FAKEPHONE'
        ParamType = ptUnknown
      end
      item
        DataType = ftWideString
        Name = 'NEW_DIVISION'
        ParamType = ptUnknown
      end>
    ProviderName = 'DataSetProvider2'
    Left = 264
    Top = 96
  end
end
