object SQLAccessMainForm: TSQLAccessMainForm
  Left = 319
  Top = 116
  AutoScroll = False
  BorderWidth = 5
  Caption = 'SQL Access'
  ClientHeight = 444
  ClientWidth = 576
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 576
    Height = 444
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      BorderWidth = 5
      Caption = 'Where'
      object Label1: TLabel
        Left = 0
        Top = 76
        Width = 34
        Height = 13
        Caption = 'ID Like'
      end
      object Label2: TLabel
        Left = 0
        Top = 100
        Width = 143
        Height = 13
        Caption = 'CompanyName Different Than'
      end
      object Label3: TLabel
        Left = 0
        Top = 124
        Width = 114
        Height = 13
        Caption = 'PhoneNumber Equal To'
      end
      object Label4: TLabel
        Left = 0
        Top = 148
        Width = 44
        Height = 13
        Caption = 'Order By:'
      end
      object ExecuteButton: TButton
        Left = 410
        Top = 143
        Width = 113
        Height = 22
        Caption = 'E&xecute'
        TabOrder = 5
        OnClick = ExecuteButtonClick
      end
      object Memo: TMemo
        Left = 0
        Top = 199
        Width = 558
        Height = 207
        Align = alBottom
        Anchors = [akLeft, akTop, akRight, akBottom]
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
      end
      object rgConnections: TRadioGroup
        Left = 0
        Top = 0
        Width = 558
        Height = 65
        Align = alTop
        Caption = 'Connection'
        TabOrder = 0
      end
      object eID: TEdit
        Left = 152
        Top = 72
        Width = 255
        Height = 21
        TabOrder = 1
        Text = 'A%'
      end
      object eCompanyName: TEdit
        Left = 152
        Top = 96
        Width = 255
        Height = 21
        TabOrder = 2
        Text = 'Noname'
      end
      object ePhoneNumber: TEdit
        Left = 152
        Top = 120
        Width = 255
        Height = 21
        TabOrder = 3
        Text = '13456789'
      end
      object cbOrderBy: TComboBox
        Left = 152
        Top = 144
        Width = 255
        Height = 21
        ItemHeight = 13
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      BorderWidth = 5
      Caption = 'Macros'
      ImageIndex = 1
      object ProcessSQLButton: TButton
        Left = 325
        Top = 6
        Width = 75
        Height = 22
        Caption = 'ProcessSQL'
        TabOrder = 1
        OnClick = ProcessSQLButtonClick
      end
      object Memo1: TMemo
        Left = 0
        Top = 74
        Width = 558
        Height = 141
        Align = alBottom
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          'SELECT * FROM Orders WHERE OrderDate>{DateTime()}'
          'SELECT * FROM Orders WHERE OrderDate>{Date()}'
          'SELECT * FROM Orders WHERE OrderDate>{AddTime(Date(), 2, day)}'
          
            'SELECT * FROM Orders WHERE OrderDate>{FormatDateTime('#39'12/22/2003' +
            ' 22:10:22.123'#39')}'
          'SELECT * FROM Orders WHERE OrderDate>{FormatDate('#39'12/22/2003'#39')}'
          'SELECT {Length(CustomerID)} FROM Orders'
          'SELECT {TrimLeft(CustomerID)} FROM Orders'
          'SELECT {TrimRight(CustomerID)} FROM Orders'
          'SELECT {UpperCase(CustomerID)} FROM Orders'
          'SELECT {Copy(CustomerID, 2, 3)} FROM Orders')
        TabOrder = 2
      end
      object Memo2: TMemo
        Left = 0
        Top = 219
        Width = 558
        Height = 187
        Align = alBottom
        TabOrder = 4
      end
      object rgProcessors: TRadioGroup
        Left = 0
        Top = 0
        Width = 322
        Height = 71
        Caption = 'Processor'
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          'TMSSQLMacroProcessor'
          'TIBMacroProcessor'
          'TOracleMacroProcessor'
          'TDBISAMMacroProcessor')
        TabOrder = 0
      end
      object Panel1: TPanel
        Left = 0
        Top = 215
        Width = 558
        Height = 4
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 3
      end
    end
  end
  object DriverManager: TDADriverManager
    DriverDirectory = '%SYSTEM%\'
    TraceActive = False
    TraceFlags = []
    Left = 24
    Top = 216
  end
  object DAADODriver: TDAADODriver
    Left = 54
    Top = 216
  end
  object DAConnectionManager: TDAConnectionManager
    Connections = <
      item
        Name = 'NorthwindCustomers'
        ConnectionString = 
          'ADO?Server=localhost;AuxDriver=SQLOLEDB.1;UserID=sa;Database=Nor' +
          'thwind;password='
        Description = 'Query that point to the Customers table'
        Default = True
        Tag = 0
      end
      item
        Name = 'NorthwindShippers'
        ConnectionString = 
          'ADO?Server=localhost;AuxDriver=SQLOLEDB.1;UserID=sa;Database=Nor' +
          'thwind;password='
        Description = 'Query that point to the Shippers table'
        Default = False
        Tag = 0
      end>
    DriverManager = DriverManager
    PoolingEnabled = False
    Left = 88
    Top = 216
  end
  object DASchema: TDASchema
    ConnectionManager = DAConnectionManager
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'NorthwindCustomers'
            TargetTable = 'Customers'
            SQL = 'SELECT CustomerID,CompanyName,Phone FROM Customers'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'CustomerID'
              end
              item
                DatasetField = 'CompanyName'
                TableField = 'CompanyName'
              end
              item
                DatasetField = 'PhoneNumber'
                TableField = 'Phone'
              end>
          end
          item
            Connection = 'NorthwindShippers'
            TargetTable = 'Shippers'
            SQL = 'SELECT ShipperID, CompanyName, Phone FROM Shippers'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ShipperID'
              end
              item
                DatasetField = 'CompanyName'
                TableField = 'CompanyName'
              end
              item
                DatasetField = 'PhoneNumber'
                TableField = 'Phone'
              end>
          end>
        Name = 'Customers'
        Fields = <
          item
            Name = 'ID'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CompanyName'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PhoneNumber'
            DataType = datString
            Size = 24
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'NorthwindShippers'
            TargetTable = 'Orders'
            SQL = 
              'SELECT OrderID, CustomerID, EmployeeID, OrderDate, RequiredDate,' +
              #10' ShippedDate, ShipVia, Freight, ShipName, ShipAddress,'#10' ShipCit' +
              'y, ShipRegion, ShipPostalCode, ShipCountry'#10' FROM Orders'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'OrderID'
                TableField = 'OrderID'
              end
              item
                DatasetField = 'CustomerID'
                TableField = 'CustomerID'
              end
              item
                DatasetField = 'EmployeeID'
                TableField = 'EmployeeID'
              end
              item
                DatasetField = 'OrderDate'
                TableField = 'OrderDate'
              end
              item
                DatasetField = 'RequiredDate'
                TableField = 'RequiredDate'
              end
              item
                DatasetField = 'ShippedDate'
                TableField = 'ShippedDate'
              end
              item
                DatasetField = 'ShipVia'
                TableField = 'ShipVia'
              end
              item
                DatasetField = 'Freight'
                TableField = 'Freight'
              end
              item
                DatasetField = 'ShipName'
                TableField = 'ShipName'
              end
              item
                DatasetField = 'ShipAddress'
                TableField = 'ShipAddress'
              end
              item
                DatasetField = 'ShipCity'
                TableField = 'ShipCity'
              end
              item
                DatasetField = 'ShipRegion'
                TableField = 'ShipRegion'
              end
              item
                DatasetField = 'ShipPostalCode'
                TableField = 'ShipPostalCode'
              end
              item
                DatasetField = 'ShipCountry'
                TableField = 'ShipCountry'
              end>
          end>
        Name = 'Orders'
        Fields = <
          item
            Name = 'OrderID'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CustomerID'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'EmployeeID'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'OrderDate'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'RequiredDate'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ShippedDate'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ShipVia'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'Freight'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ShipName'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ShipAddress'
            DataType = datString
            Size = 60
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ShipCity'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ShipRegion'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ShipPostalCode'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ShipCountry'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <>
    RelationShips = <>
    UpdateRules = <>
    Left = 24
    Top = 248
  end
end