Chip 2005 May/CMCD0505.ISO/Software/Shareware/Programare/pgedri/Source/Demos/PGEDemo/CLX/Main.xfm

Text File | 2005-04-01 | 4.9 KB | 231 lines

object frmDemo: TfrmDemo
  Left = 11
  Top = 45
  Width = 1152
  Height = 815
  VertScrollBar.Range = 136
  HorzScrollBar.Range = 176
  ActiveControl = Grid
  AutoScroll = False
  Caption = 'pgExpress Driver Demo'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  ParentFont = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object Label1: TLabel
    Left = 2
    Top = 25
    Width = 31
    Height = 13
    Caption = 'Query:'
    Font.Color = clText
    Font.Height = 3
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
  end
  object Grid: TDBGrid
    Left = 0
    Top = 238
    Width = 1152
    Height = 558
    Align = alBottom
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = dsDemo
    TabOrder = 0
    TitleFont.Color = clText
    TitleFont.Height = 11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
    TitleFont.Weight = 40
  end
  object btnConnect: TButton
    Left = 1
    Top = 2
    Width = 54
    Height = 22
    Caption = 'Connect!'
    TabOrder = 1
    OnClick = btnConnectClick
  end
  object btnApplyUpdates: TButton
    Left = 2
    Top = 114
    Width = 81
    Height = 21
    Caption = 'Apply Updates'
    Enabled = False
    TabOrder = 2
    OnClick = btnApplyUpdatesClick
  end
  object Memo1: TMemo
    Left = 1
    Top = 40
    Width = 299
    Height = 71
    Lines.Strings = (
      'select * from pg_type;')
    TabOrder = 3
  end
  object btnRun: TButton
    Left = 65
    Top = 2
    Width = 64
    Height = 22
    Caption = 'Run Query'
    Default = True
    TabOrder = 4
    OnClick = btnRunClick
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 796
    Width = 1152
    Height = 19
    Panels = <
      item
      end>
  end
  object Panel2: TPanel
    Left = 2
    Top = 139
    Width = 298
    Height = 33
    Color = clInfoBk
    TabOrder = 6
    object Label3: TLabel
      Left = 1
      Top = 1
      Width = 296
      Height = 31
      Align = alClient
      Caption =
        'WARNING: do not edit the pg_type table. It'#39's a PostgreSQL system' +
        ' table and you could damage your database server.'
      WordWrap = True
    end
  end
  object btnCancelUpdates: TButton
    Left = 86
    Top = 114
    Width = 93
    Height = 21
    Caption = 'Cancel Updates'
    Enabled = False
    TabOrder = 8
    OnClick = btnCancelUpdatesClick
  end
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 211
    Width = 1152
    Height = 27
    DataSource = dsDemo
    Align = alBottom
    TabOrder = 9
  end
  object Panel1: TPanel
    Left = 346
    Top = 138
    Width = 263
    Height = 33
    Color = clInfoBk
    TabOrder = 10
    Visible = False
    object Label2: TLabel
      Left = 1
      Top = 1
      Width = 261
      Height = 31
      Align = alClient
      Caption =
        'Please configure the connDemo component to your real server, or ' +
        'add a new connection of your own.'
      WordWrap = True
    end
  end
  object SQLLog: TMemo
    Left = 305
    Top = 40
    Width = 845
    Height = 161
    Anchors = [akLeft, akTop, akRight]
    ScrollBars = ssAutoVertical
    TabOrder = 11
  end
  object Label4: TLabel
    Left = 306
    Top = 25
    Width = 45
    Height = 13
    Caption = 'SQL Log:'
    Font.Color = clText
    Font.Height = 3
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
  end
  object dsDemo: TDataSource
    DataSet = cdsDemo
    OnStateChange = dsDemoUpdateData
    OnUpdateData = dsDemoUpdateData
    Left = 316
    Top = 396
  end
  object SQLMonitor: TSQLMonitor
    OnLogTrace = SQLMonitorLogTrace
    SQLConnection = connDemo
    Left = 367
    Top = 352
  end
  object connDemo: TSQLConnection
    ConnectionName = 'PGEConnection'
    DriverName = 'PostgreSQL'
    GetDriverFunc = 'getSQLDriverPOSTGRESQL'
    LibraryName = 'dbexppge.dll'
    LoginPrompt = False
    Params.Strings = (
      '')
    VendorLib = 'libpq.dll'
    AfterConnect = connDemoAfterConnect
    AfterDisconnect = connDemoAfterDisconnect
    OnLogin = connDemoLogin
    Left = 311
    Top = 140
  end
  object cdsDemo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dpDemo'
    OnReconcileError = cdsDemoReconcileError
    Left = 316
    Top = 348
  end
  object sdsDemo: TSQLDataSet
    MaxBlobSize = -1
    Params = <>
    SQLConnection = connDemo
    Left = 316
    Top = 296
  end
  object dpDemo: TDataSetProvider
    DataSet = sdsDemo
    Left = 364
    Top = 300
  end
end