main.dfm

AbsDataBase5.16 最新版

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 681
  Height = 405
  Caption = 'ClientDataset Demo'
  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 Label2: TLabel
    Left = 8
    Top = 104
    Width = 49
    Height = 13
    Caption = 'Employee:'
  end
  object Label1: TLabel
    Left = 104
    Top = 96
    Width = 296
    Height = 13
    Caption = 'You can Browse and Insert/Update/Delete Data in the DBGrid'
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 120
    Width = 657
    Height = 184
    DataSource = DataSource
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object rgDataSet: TRadioGroup
    Left = 8
    Top = 8
    Width = 265
    Height = 69
    Caption = 'Employee Table Data: '
    ItemIndex = 0
    Items.Strings = (
      'Via Table'
      'Via Query:  select * from employee')
    TabOrder = 1
  end
  object btnReOpen: TButton
    Left = 204
    Top = 47
    Width = 61
    Height = 21
    Caption = 'ReOpen'
    TabOrder = 2
    OnClick = btnReOpenClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 312
    Width = 657
    Height = 57
    Caption = 'Info: '
    TabOrder = 3
    object Label3: TLabel
      Left = 144
      Top = 24
      Width = 364
      Height = 13
      Caption = 
        'This demo illustrates how to work with ClientDataset using IProv' +
        'ider interface.'
    end
  end
  object GroupBox2: TGroupBox
    Left = 280
    Top = 8
    Width = 385
    Height = 69
    Caption = 'Update via Query: '
    TabOrder = 4
    object eUpdateSql: TEdit
      Left = 8
      Top = 16
      Width = 369
      Height = 21
      TabOrder = 0
      Text = 
        'update employee set phoneext=cast(phoneext, integer)+1 where emp' +
        'no=2'
    end
    object Button2: TButton
      Left = 336
      Top = 41
      Width = 41
      Height = 21
      Caption = 'Exec'
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object Button1: TButton
    Left = 203
    Top = 20
    Width = 62
    Height = 21
    Caption = 'Close'
    TabOrder = 5
    OnClick = Button1Click
  end
  object DBNavigator1: TDBNavigator
    Left = 424
    Top = 88
    Width = 240
    Height = 25
    DataSource = DataSource
    TabOrder = 6
  end
  object dbDemos: TABSDatabase
    CurrentVersion = '4.76 '
    DatabaseFileName = '..\..\Data\Demos.abs'
    DatabaseName = 'demos'
    Exclusive = False
    MaxConnections = 20
    MultiUser = False
    SessionName = 'Default'
    Left = 40
    Top = 208
  end
  object ABSTable: TABSTable
    CurrentVersion = '4.76 '
    DatabaseName = 'demos'
    InMemory = False
    ReadOnly = False
    TableName = 'employee'
    Exclusive = False
    Left = 72
    Top = 192
  end
  object ABSQuery: TABSQuery
    CurrentVersion = '4.76 '
    DatabaseName = 'demos'
    InMemory = False
    ReadOnly = False
    RequestLive = True
    SQL.Strings = (
      'select * from employee')
    Left = 72
    Top = 224
  end
  object DataSource: TDataSource
    DataSet = ClientDataSet
    Left = 176
    Top = 208
  end
  object DataSetProvider: TDataSetProvider
    DataSet = ABSTable
    Constraints = True
    Left = 112
    Top = 208
  end
  object ClientDataSet: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider'
    AfterPost = ClientDataSetAfterDelete
    AfterDelete = ClientDataSetAfterDelete
    Left = 144
    Top = 208
  end
  object DataSetProviderUpdate: TDataSetProvider
    DataSet = ABSQueryUpdate
    Constraints = True
    Options = [poAllowCommandText]
    Left = 416
    Top = 50
  end
  object ClientDataSetUpdate: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProviderUpdate'
    Left = 456
    Top = 50
  end
  object ABSQueryUpdate: TABSQuery
    CurrentVersion = '4.76 '
    DatabaseName = 'demos'
    InMemory = False
    ReadOnly = False
    Left = 384
    Top = 50
  end
end