untclientmain.dfm

关于书籍《Borland c++Builder工程实践》的源代码

    end
    object Label18: TLabel
      Left = 496
      Top = 228
      Width = 177
      Height = 16
      AutoSize = False
      Caption = 'Label18'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 168
      Top = 24
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 408
      Top = 24
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Text = 'Edit2'
    end
    object Edit3: TEdit
      Left = 680
      Top = 24
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Text = 'Edit3'
    end
    object Edit4: TEdit
      Left = 168
      Top = 64
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      Text = 'Edit4'
    end
    object Edit5: TEdit
      Left = 408
      Top = 64
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      Text = 'Edit5'
    end
    object Edit6: TEdit
      Left = 680
      Top = 64
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      Text = 'Edit6'
    end
    object Edit7: TEdit
      Left = 168
      Top = 104
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      Text = 'Edit7'
    end
    object Edit8: TEdit
      Left = 408
      Top = 104
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      Text = 'Edit8'
    end
    object Edit9: TEdit
      Left = 680
      Top = 104
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      Text = 'Edit9'
    end
    object Edit10: TEdit
      Left = 168
      Top = 144
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      Text = 'Edit10'
    end
    object Edit11: TEdit
      Left = 408
      Top = 144
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      Text = 'Edit11'
    end
    object Edit12: TEdit
      Left = 680
      Top = 144
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      Text = 'Edit12'
    end
    object Edit13: TEdit
      Left = 168
      Top = 184
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      Text = 'Edit13'
    end
    object Edit14: TEdit
      Left = 408
      Top = 184
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      Text = 'Edit14'
    end
    object Edit15: TEdit
      Left = 680
      Top = 184
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 14
      Text = 'Edit15'
    end
    object Edit16: TEdit
      Left = 168
      Top = 224
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      Text = 'Edit16'
    end
    object Edit17: TEdit
      Left = 408
      Top = 224
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 16
      Text = 'Edit17'
    end
    object Edit18: TEdit
      Left = 680
      Top = 224
      Width = 73
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 17
      Text = 'Edit18'
    end
  end
  object btnSubmit: TButton
    Left = 144
    Top = 456
    Width = 121
    Height = 25
    Caption = #25552#20132#39044#32422
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = btnSubmitClick
  end
  object btnExit: TButton
    Left = 496
    Top = 456
    Width = 121
    Height = 25
    Caption = #36864'  '#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = btnExitClick
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'paramtestid'
        ParamType = ptInput
      end>
    ProviderName = 'DataSetProvider1'
    RemoteServer = DCOMConnection1
    Left = 64
    Top = 24
  end
  object DCOMConnection1: TDCOMConnection
    Connected = True
    ServerGUID = '{092A1A75-AB60-4122-80A9-5DC247B9F437}'
    ServerName = 'server.RDMServer'
    ComputerName = 'Zhulingsen'
    Left = 16
    Top = 24
  end
end