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

Text File | 2005-04-01 | 3.9 KB | 173 lines

object Form1: TForm1
  Left = 155
  Top = 161
  Width = 532
  Height = 294
  VertScrollBar.Range = 41
  ActiveControl = DBGrid1
  Caption = 'Sequences Demo'
  Color = clBackground
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object DBGrid1: TDBGrid
    Left = 0
    Top = 41
    Width = 532
    Height = 253
    Align = alClient
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'MS Shell Dlg'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
    TitleFont.Weight = 40
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Width = 200
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'age'
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 532
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Button1: TButton
      Left = 292
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Create Table'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 373
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Delete Table'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 2
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Open Table'
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 455
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Structure'
      TabOrder = 3
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 83
      Top = 8
      Width = 84
      Height = 25
      Caption = 'Apply Updates'
      TabOrder = 4
      OnClick = Button5Click
    end
  end
  object DataSource1: TDataSource
    DataSet = cdsSequences_Demo
    Left = 352
    Top = 104
  end
  object SQLConnection: TSQLConnection
    ConnectionName = 'PGEConnection'
    DriverName = 'PostgreSQL'
    GetDriverFunc = 'getSQLDriverPOSTGRESQL'
    LibraryName = 'dbexppge.dll'
    LoadParamsOnConnect = True
    LoginPrompt = False
    Params.Strings = (
      '')
    VendorLib = 'libpq.dll'
    Connected = True
    Left = 76
    Top = 96
  end
  object sdsSequences_Demo: TSQLDataSet
    CommandText = 'sequences_demo'
    CommandType = ctTable
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection
    Left = 76
    Top = 144
    object sdsSequences_Demoid: TIntegerField
      FieldName = 'id'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sdsSequences_Demoname: TStringField
      FieldName = 'name'
      Size = 100
    end
    object sdsSequences_Demoage: TSmallintField
      FieldName = 'age'
    end
  end
  object cdsSequences_Demo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspSequences_Demo'
    AfterOpen = cdsSequences_DemoAfterOpen
    AfterClose = cdsSequences_DemoAfterClose
    Left = 72
    Top = 240
    object cdsSequences_Demoid: TIntegerField
      FieldName = 'id'
    end
    object cdsSequences_Demoname: TStringField
      FieldName = 'name'
      Size = 100
    end
    object cdsSequences_Demoage: TSmallintField
      FieldName = 'age'
    end
  end
  object dspSequences_Demo: TDataSetProvider
    DataSet = sdsSequences_Demo
    Options = [poPropogateChanges]
    BeforeUpdateRecord = dspSequences_DemoBeforeUpdateRecord
    Left = 74
    Top = 192
  end
  object sdsGetID: TSQLDataSet
    CommandText = 'select nextval('#39'sequences_demo_id_seq'#39');'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection
    Left = 176
    Top = 100
  end
end