fclientmain.dfm

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

object Form2: TForm2
  Left = 85
  Top = 118
  Width = 644
  Height = 381
  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 = 270
    Height = 31
    DataSource = DataSource1
    TabOrder = 0
  end
  object Button1: TButton
    Left = 339
    Top = 0
    Width = 203
    Height = 31
    Caption = 'ApplyUpdate(SQL)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 272
    Top = -2
    Width = 64
    Height = 33
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object DBCtrlGrid1: TDBCtrlGrid
    Left = -15
    Top = 64
    Width = 643
    Height = 280
    ColCount = 1
    DataSource = DataSource1
    PanelHeight = 140
    PanelWidth = 620
    TabOrder = 3
    RowCount = 2
    SelectedColor = clTeal
    object Label1: TLabel
      Left = 26
      Top = 8
      Width = 56
      Height = 16
      Caption = 'EMP_NO'
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 172
      Top = 8
      Width = 85
      Height = 16
      Caption = 'FIRST_NAME'
      FocusControl = DBEdit2
    end
    object Label3: TLabel
      Left = 379
      Top = 8
      Width = 80
      Height = 16
      Caption = 'LAST_NAME'
      FocusControl = DBEdit3
    end
    object Label4: TLabel
      Left = 22
      Top = 38
      Width = 81
      Height = 16
      Caption = 'PHONE_EXT'
      FocusControl = DBEdit4
    end
    object Label5: TLabel
      Left = 152
      Top = 39
      Width = 76
      Height = 16
      Caption = 'HIRE_DATE'
      FocusControl = DBEdit5
    end
    object Label6: TLabel
      Left = 376
      Top = 36
      Width = 64
      Height = 16
      Caption = 'DEPT_NO'
      FocusControl = DBEdit6
    end
    object Label7: TLabel
      Left = 23
      Top = 76
      Width = 71
      Height = 16
      Caption = 'JOB_CODE'
      FocusControl = DBEdit7
    end
    object Label8: TLabel
      Left = 144
      Top = 73
      Width = 81
      Height = 16
      Caption = 'JOB_GRADE'
      FocusControl = DBEdit8
    end
    object Label9: TLabel
      Left = 308
      Top = 74
      Width = 100
      Height = 16
      Caption = 'JOB_COUNTRY'
      FocusControl = DBEdit9
    end
    object Label10: TLabel
      Left = 25
      Top = 104
      Width = 53
      Height = 16
      Caption = 'SALARY'
      FocusControl = DBEdit10
    end
    object Label11: TLabel
      Left = 181
      Top = 104
      Width = 78
      Height = 16
      Caption = 'FULL_NAME'
      FocusControl = DBEdit11
    end
    object DBEdit1: TDBEdit
      Left = 89
      Top = 8
      Width = 74
      Height = 24
      DataField = 'EMP_NO'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 262
      Top = 6
      Width = 109
      Height = 24
      DataField = 'FIRST_NAME'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 464
      Top = 3
      Width = 144
      Height = 24
      DataField = 'LAST_NAME'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 115
      Top = 37
      Width = 32
      Height = 24
      DataField = 'PHONE_EXT'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 238
      Top = 36
      Width = 130
      Height = 24
      DataField = 'HIRE_DATE'
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 452
      Top = 33
      Width = 25
      Height = 24
      DataField = 'DEPT_NO'
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBEdit7: TDBEdit
      Left = 100
      Top = 75
      Width = 39
      Height = 24
      DataField = 'JOB_CODE'
      DataSource = DataSource1
      TabOrder = 6
    end
    object DBEdit8: TDBEdit
      Left = 227
      Top = 73
      Width = 74
      Height = 24
      DataField = 'JOB_GRADE'
      DataSource = DataSource1
      TabOrder = 7
    end
    object DBEdit9: TDBEdit
      Left = 413
      Top = 70
      Width = 109
      Height = 24
      DataField = 'JOB_COUNTRY'
      DataSource = DataSource1
      TabOrder = 8
    end
    object DBEdit10: TDBEdit
      Left = 94
      Top = 106
      Width = 74
      Height = 24
      DataField = 'SALARY'
      DataSource = DataSource1
      TabOrder = 9
    end
    object DBEdit11: TDBEdit
      Left = 261
      Top = 106
      Width = 263
      Height = 24
      DataField = 'FULL_NAME'
      DataSource = DataSource1
      TabOrder = 10
    end
  end
  object Button2: TButton
    Left = 340
    Top = 32
    Width = 203
    Height = 31
    Caption = 'ApplyUpdate(DataSet)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button2Click
  end
  object Edit2: TEdit
    Left = 273
    Top = 33
    Width = 64
    Height = 33
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object Button3: TButton
    Left = 19
    Top = 31
    Width = 213
    Height = 34
    Caption = 'Switch SQL/DataSet'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button3Click
  end
  object DCOMConnection1: TDCOMConnection
    Connected = True
    ServerGUID = '{AF8195C3-6903-11D3-A2BA-0080C8518D0A}'
    ServerName = 'PSingleTableServer.SingleTableServer'
    Left = 590
    Top = 99
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'sgUpdateSQLProvider'
    RemoteServer = DCOMConnection1
    AfterPost = ClientDataSet1AfterPost
    Left = 565
    Top = 153
    object ClientDataSet1EMP_NO: TSmallintField
      FieldName = 'EMP_NO'
    end
    object ClientDataSet1FIRST_NAME: TStringField
      FieldName = 'FIRST_NAME'
      Size = 15
    end
    object ClientDataSet1LAST_NAME: TStringField
      FieldName = 'LAST_NAME'
    end
    object ClientDataSet1PHONE_EXT: TStringField
      FieldName = 'PHONE_EXT'
      Size = 4
    end
    object ClientDataSet1HIRE_DATE: TDateTimeField
      FieldName = 'HIRE_DATE'
    end
    object ClientDataSet1DEPT_NO: TStringField
      FieldName = 'DEPT_NO'
      Size = 3
    end
    object ClientDataSet1JOB_CODE: TStringField
      FieldName = 'JOB_CODE'
      Size = 5
    end
    object ClientDataSet1JOB_GRADE: TSmallintField
      FieldName = 'JOB_GRADE'
    end
    object ClientDataSet1JOB_COUNTRY: TStringField
      FieldName = 'JOB_COUNTRY'
      Size = 15
    end
    object ClientDataSet1SALARY: TFloatField
      FieldName = 'SALARY'
    end
    object ClientDataSet1FULL_NAME: TStringField
      FieldName = 'FULL_NAME'
      Size = 37
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 358
    Top = 197
  end
  object ClientDataSet2: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'sgUpdateDataSetProvider'
    RemoteServer = DCOMConnection1
    AfterPost = ClientDataSet2AfterPost
    Left = 442
    Top = 235
  end
end