unit1.~dfm

这是《Delphi程序设计基础》由李文池写的书的示例代码

object Form1: TForm1
  Left = 205
  Top = 109
  Width = 621
  Height = 370
  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 Label1: TLabel
    Left = 376
    Top = 256
    Width = 130
    Height = 13
    AutoSize = False
    Caption = #26381#21153#22120#19978#23458#25143#36830#25509#25968#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 504
    Top = 256
    Width = 25
    Height = 13
    AutoSize = False
    Caption = '0'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 40
    Top = 8
    Width = 561
    Height = 233
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 528
    Top = 248
    Width = 75
    Height = 25
    Caption = #26597#30475
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 376
    Top = 296
    Width = 75
    Height = 25
    Caption = #26356#26032#26597#35810
    TabOrder = 2
    OnClick = Button2Click
  end
  object memo1: TMemo
    Left = 40
    Top = 248
    Width = 313
    Height = 73
    Lines.Strings = (
      '')
    TabOrder = 3
  end
  object Button3: TButton
    Left = 472
    Top = 296
    Width = 129
    Height = 25
    Caption = ' ClientDataSet'#25191#34892'SQL'
    TabOrder = 4
    OnClick = Button3Click
  end
  object DCOMConnection1: TDCOMConnection
    ServerGUID = '{CE3BA2FF-4389-4FBA-B0EE-407F527B80AD}'
    ServerName = 'Project1.MyDcomServer'
    Left = 8
    Top = 16
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = SocketConnection1
    Left = 8
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 8
    Top = 112
  end
  object SocketConnection1: TSocketConnection
    Connected = True
    ServerGUID = '{CE3BA2FF-4389-4FBA-B0EE-407F527B80AD}'
    ServerName = 'Project1.MyDcomServer'
    Address = '127.0.0.1'
    Port = 2111
    Left = 8
    Top = 168
  end
end