unit1.dfm

Asta For d2006 自己修改版 经典中间件 速度超快

object Form1: TForm1
  Left = 308
  Top = 240
  Width = 544
  Height = 258
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 111
    Width = 536
    Height = 120
    Align = alBottom
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object RadioGroup2: TRadioGroup
    Left = 328
    Top = 8
    Width = 193
    Height = 89
    Caption = 'Remoute CONTROL SERVER'
    ItemIndex = 1
    Items.Strings = (
      'START'
      'STOP')
    TabOrder = 1
    OnClick = RadioGroup2Click
  end
  object AstaClientSocket1: TAstaClientSocket
    Active = False
    Address = '127.0.0.1'
    ClientType = ctNonBlocking
    Port = 9000
    SQLTransactionStart = 'BEGIN TRANSACTION'
    SQLTransactionEnd = 'COMMIT'
    IsapiTimeOut = 5
    Left = 56
    Top = 48
  end
  object AstaClientDataSet1: TAstaClientDataSet
    Constraints = <>
    EditMode = 'Read Only'
    AstaClientSocket = AstaClientSocket1
    SQL.Strings = (
      'SELECT * FROM animals')
    Params = <>
    TableName = 'animals'
    Left = 120
    Top = 104
    DetailFilter = ''
    FastFields = ()
    FMultiTable = ()
    OracleSequence = ''
    UpdateMethod = umCached
  end
  object DataSource1: TDataSource
    DataSet = AstaClientDataSet1
    Left = 48
    Top = 96
  end
  object RemoteControlServer1: TRemoteControlServer
    Port = 23
    Password = 'Remote Control Password'
    Left = 408
    Top = 48
  end
end