testdelta_p.dfm

该程序可用于com+中delphi组件的交易控制

object Form1: TForm1
  Left = 195
  Top = 192
  Width = 793
  Height = 479
  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 Splitter1: TSplitter
    Left = 0
    Top = 153
    Width = 785
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 785
    Height = 153
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 0
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 783
      Height = 41
      Align = alTop
      Caption = 'Panel3'
      TabOrder = 0
      object Button1: TButton
        Left = 328
        Top = 8
        Width = 75
        Height = 25
        Caption = 'set data'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 8
        Top = 8
        Width = 75
        Height = 25
        Caption = 'read'
        TabOrder = 1
        OnClick = Button2Click
      end
      object DBNavigator1: TDBNavigator
        Left = 88
        Top = 8
        Width = 240
        Height = 25
        DataSource = DataSource1
        TabOrder = 2
      end
      object Button3: TButton
        Left = 496
        Top = 8
        Width = 75
        Height = 25
        Caption = 'client1 statu'
        TabOrder = 3
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 576
        Top = 8
        Width = 75
        Height = 25
        Caption = '2 status'
        TabOrder = 4
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 408
        Top = 8
        Width = 75
        Height = 25
        Caption = 'client1 Field'
        TabOrder = 5
        OnClick = Button5Click
      end
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 42
      Width = 783
      Height = 110
      Align = alClient
      DataSource = DataSource1
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 156
    Width = 785
    Height = 296
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 1
      Top = 1
      Width = 783
      Height = 99
      Align = alClient
      DataSource = DataSource2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object Panel4: TPanel
      Left = 1
      Top = 100
      Width = 783
      Height = 195
      Align = alBottom
      Caption = 'Panel4'
      TabOrder = 1
      object Button6: TButton
        Left = 8
        Top = 8
        Width = 75
        Height = 25
        Caption = 'client2 field'
        TabOrder = 0
        OnClick = Button6Click
      end
      object Button7: TButton
        Left = 88
        Top = 8
        Width = 75
        Height = 25
        Caption = 'mksql'
        TabOrder = 1
        OnClick = Button7Click
      end
      object Edit1: TEdit
        Left = 288
        Top = 8
        Width = 489
        Height = 21
        TabOrder = 2
        Text = 
          'customerInfo,1,custNo;custNo,custName,modifyman,modifytime;cusNo' +
          ',cusName,modifyman,modifytime;[;;]'
      end
      object Memo1: TMemo
        Left = 1
        Top = 48
        Width = 781
        Height = 146
        Align = alBottom
        Lines.Strings = (
          'Memo1')
        TabOrder = 3
      end
      object Button8: TButton
        Left = 168
        Top = 8
        Width = 75
        Height = 25
        Caption = 'save'
        TabOrder = 4
        OnClick = Button8Click
      end
    end
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider2'
    RemoteServer = DCOMConnection1
    Left = 56
    Top = 8
  end
  object DCOMConnection1: TDCOMConnection
    ServerGUID = '{93D4C323-2FCA-11D4-B3C8-00C04F1CD08D}'
    ServerName = 'DesignManage_s.DesignManage'
    Left = 24
    Top = 8
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = DCOMConnection1
    Left = 608
    Top = 224
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 88
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 648
    Top = 220
  end
  object ADOConnection1: TADOConnection
    Left = 233
    Top = 224
  end
  object writeDCom: TDCOMConnection
    ServerGUID = '{84DB1754-19CC-11D4-B3AF-00C04F1CD08D}'
    ServerName = 'OurWriteData_s.OurWriteData'
    Left = 65
    Top = 296
  end
end