clientunit1.~dfm

来自「Delphi6分布式开发例程11 )」· ~DFM 代码 · 共 67 行

object Form1: TForm1
  Left = 299
  Top = 217
  Width = 367
  Height = 252
  Caption = 'CORBA'#25968#25454#27169#22359#23458#25143#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 359
    Height = 166
    Align = alClient
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 166
    Width = 359
    Height = 59
    Align = alBottom
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      Left = 72
      Top = 16
      Width = 224
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 0
    end
  end
  object CorbaConnection1: TCorbaConnection
    RepositoryId = 'IDL:ServerApp/DataCorbaServerFactory:1.0'
    Left = 280
    Top = 64
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = CorbaConnection1
    Left = 184
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 136
    Top = 48
  end
end