fclientdemomain.dfm

delphi多层应用系统 delphi多层应用系统

object Form2: TForm2
  Left = 85
  Top = 191
  Width = 645
  Height = 333
  Caption = 'Form2'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 120
  TextHeight = 16
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 0
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 0
  end
  object Edit1: TEdit
    Left = 241
    Top = 1
    Width = 121
    Height = 33
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Button1: TButton
    Left = 366
    Top = 1
    Width = 188
    Height = 32
    Caption = 'ApplyUpdates'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button1Click
  end
  object DBCtrlGrid1: TDBCtrlGrid
    Left = 0
    Top = 37
    Width = 637
    Height = 264
    Align = alBottom
    ColCount = 1
    DataSource = DataSource1
    PanelHeight = 132
    PanelWidth = 614
    TabOrder = 3
    RowCount = 2
    SelectedColor = clTeal
    object Label1: TLabel
      Left = 11
      Top = 7
      Width = 44
      Height = 16
      Caption = 'CustNo'
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 141
      Top = 6
      Width = 58
      Height = 16
      Caption = 'Company'
      FocusControl = DBEdit2
    end
    object Label3: TLabel
      Left = 425
      Top = 8
      Width = 22
      Height = 16
      Caption = 'City'
      FocusControl = DBEdit3
    end
    object Label4: TLabel
      Left = 13
      Top = 40
      Width = 45
      Height = 16
      Caption = 'Country'
      FocusControl = DBEdit4
    end
    object Label5: TLabel
      Left = 213
      Top = 38
      Width = 52
      Height = 16
      Caption = 'OrderNo'
      FocusControl = DBEdit5
    end
    object Label6: TLabel
      Left = 357
      Top = 38
      Width = 73
      Height = 16
      Caption = 'AmountPaid'
      FocusControl = DBEdit6
    end
    object Label7: TLabel
      Left = 7
      Top = 68
      Width = 62
      Height = 16
      Caption = 'LastName'
      FocusControl = DBEdit7
    end
    object Label8: TLabel
      Left = 229
      Top = 69
      Width = 62
      Height = 16
      Caption = 'FirstName'
      FocusControl = DBEdit8
    end
    object Label9: TLabel
      Left = 424
      Top = 67
      Width = 39
      Height = 16
      Caption = 'Salary'
      FocusControl = DBEdit9
    end
    object Label10: TLabel
      Left = 7
      Top = 101
      Width = 54
      Height = 16
      Caption = 'HireDate'
      FocusControl = DBEdit10
    end
    object Label11: TLabel
      Left = 209
      Top = 100
      Width = 57
      Height = 16
      Caption = 'PhoneExt'
      FocusControl = DBEdit11
    end
    object DBEdit1: TDBEdit
      Left = 62
      Top = 6
      Width = 74
      Height = 24
      DataField = 'CustNo'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 203
      Top = 6
      Width = 214
      Height = 24
      DataField = 'Company'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 464
      Top = 7
      Width = 137
      Height = 24
      DataField = 'City'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 64
      Top = 36
      Width = 144
      Height = 24
      DataField = 'Country'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 272
      Top = 38
      Width = 74
      Height = 24
      DataField = 'OrderNo'
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 435
      Top = 38
      Width = 74
      Height = 24
      DataField = 'AmountPaid'
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBEdit7: TDBEdit
      Left = 77
      Top = 68
      Width = 144
      Height = 24
      DataField = 'LastName'
      DataSource = DataSource1
      TabOrder = 6
    end
    object DBEdit8: TDBEdit
      Left = 301
      Top = 68
      Width = 109
      Height = 24
      DataField = 'FirstName'
      DataSource = DataSource1
      TabOrder = 7
    end
    object DBEdit9: TDBEdit
      Left = 468
      Top = 67
      Width = 113
      Height = 24
      DataField = 'Salary'
      DataSource = DataSource1
      TabOrder = 8
    end
    object DBEdit10: TDBEdit
      Left = 74
      Top = 99
      Width = 130
      Height = 24
      DataField = 'HireDate'
      DataSource = DataSource1
      TabOrder = 9
    end
    object DBEdit11: TDBEdit
      Left = 273
      Top = 99
      Width = 59
      Height = 24
      DataField = 'PhoneExt'
      DataSource = DataSource1
      TabOrder = 10
    end
  end
  object DCOMConnection1: TDCOMConnection
    Connected = True
    ServerGUID = '{44393B63-69A8-11D3-A2BA-0080C8518D0A}'
    ServerName = 'PMultiTablesUpdateServer.MultiTablesUpdateServer'
    Left = 535
    Top = 130
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspMultiJoins'
    RemoteServer = DCOMConnection1
    AfterPost = ClientDataSet1AfterPost
    OnReconcileError = ClientDataSet1ReconcileError
    Left = 530
    Top = 67
    object ClientDataSet1CustNo: TFloatField
      FieldName = 'CustNo'
    end
    object ClientDataSet1Company: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object ClientDataSet1City: TStringField
      FieldName = 'City'
      Size = 15
    end
    object ClientDataSet1Country: TStringField
      FieldName = 'Country'
    end
    object ClientDataSet1OrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object ClientDataSet1AmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
    object ClientDataSet1LastName: TStringField
      FieldName = 'LastName'
    end
    object ClientDataSet1FirstName: TStringField
      FieldName = 'FirstName'
      Size = 15
    end
    object ClientDataSet1Salary: TFloatField
      FieldName = 'Salary'
    end
    object ClientDataSet1HireDate: TDateTimeField
      FieldName = 'HireDate'
    end
    object ClientDataSet1PhoneExt: TStringField
      FieldName = 'PhoneExt'
      Size = 4
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 296
    Top = 181
  end
end