test1_form.dfm

Delphi三层原代码掩饰及补丁

object Form1: TForm1
  Left = 192
  Top = 157
  Width = 598
  Height = 399
  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 PageControl1: TPageControl
    Left = 4
    Top = 4
    Width = 577
    Height = 325
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'First Demo'
      object Button3: TButton
        Left = 4
        Top = 260
        Width = 157
        Height = 25
        Caption = 'Open Table (Mode 1)'
        TabOrder = 0
        OnClick = Button3Click
      end
      object Button2: TButton
        Left = 176
        Top = 260
        Width = 157
        Height = 25
        Caption = 'Open Table (Mode 2)'
        TabOrder = 1
        OnClick = Button2Click
      end
      object DBGrid1: TDBGrid
        Left = 2
        Top = 1
        Width = 565
        Height = 250
        DataSource = dsDemo1
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'au_id'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'au_lname'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'au_fname'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'phone'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'address'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'city'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'state'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zip'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'contract'
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = '2nd Demo'
      ImageIndex = 1
      object Label1: TLabel
        Left = 344
        Top = 264
        Width = 31
        Height = 13
        Caption = 'State='
      end
      object Button1: TButton
        Left = 4
        Top = 260
        Width = 157
        Height = 25
        Caption = 'Open Table (Mode 1)'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Edit1: TEdit
        Left = 384
        Top = 260
        Width = 49
        Height = 21
        TabOrder = 1
        Text = 'Edit1'
      end
      object Button4: TButton
        Left = 176
        Top = 260
        Width = 157
        Height = 25
        Caption = 'Open Table (Mode 2)'
        TabOrder = 2
        OnClick = Button4Click
      end
      object DBGrid2: TDBGrid
        Left = 2
        Top = 1
        Width = 565
        Height = 250
        DataSource = dsDemo2
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'au_id'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'au_lname'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'au_fname'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'phone'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'address'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'city'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'state'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zip'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'contract'
            Visible = True
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = '3th Demo'
      ImageIndex = 2
      object Button5: TButton
        Left = 180
        Top = 260
        Width = 177
        Height = 25
        Caption = 'Update All Record'
        TabOrder = 0
        OnClick = Button5Click
      end
      object Button6: TButton
        Left = 396
        Top = 260
        Width = 157
        Height = 25
        Caption = 'Update with RuleAction'
        TabOrder = 1
        OnClick = Button6Click
      end
      object Button7: TButton
        Left = 4
        Top = 260
        Width = 157
        Height = 25
        Caption = 'Open Table'
        TabOrder = 2
        OnClick = Button7Click
      end
      object DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 565
        Height = 253
        DataSource = dsDemo3
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'title_id'
            ReadOnly = True
            Width = 56
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'title'
            Width = 142
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'type'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'pub_id'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'price'
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'advance'
            Width = 74
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'royalty'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ytd_sales'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'notes'
            Width = 172
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'pubdate'
            Width = 74
            Visible = True
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = '4th Demo'
      ImageIndex = 3
    end
  end
  object btnClose: TButton
    Left = 504
    Top = 332
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 1
    OnClick = btnCloseClick
  end
  object btnConnect: TButton
    Left = 280
    Top = 332
    Width = 129
    Height = 25
    Caption = 'Connection Server'
    TabOrder = 2
    OnClick = btnConnectClick
  end
  object sckConn: TSocketConnection
    ServerGUID = '{AB9D9E86-493E-4F1E-B831-34AFD495C0E2}'
    ServerName = 'swServer2.DataServer2'
    Address = '127.0.0.1'
    Left = 8
    Top = 340
  end
  object cdsDemo1: THMClientDataSet
    Aggregates = <>
    Params = <>
    RemoteServer = sckConn
    DemoView = 100001
    DemoActive = False
    Left = 36
    Top = 340
  end
  object dsDemo1: TDataSource
    DataSet = cdsDemo1
    Left = 64
    Top = 340
  end
  object cdsDemo2: THMClientDataSet
    Aggregates = <>
    Params = <>
    RemoteServer = sckConn
    DemoView = 0
    DemoActive = False
    Left = 92
    Top = 340
  end
  object dsDemo2: TDataSource
    DataSet = cdsDemo2
    Left = 120
    Top = 340
  end
  object cdsDemo3: THMClientDataSet
    Aggregates = <>
    Params = <>
    RemoteServer = sckConn
    DemoView = 100005
    DemoActive = False
    Left = 148
    Top = 340
  end
  object dsDemo3: TDataSource
    DataSet = cdsDemo3
    Left = 176
    Top = 340
  end
  object Cmd: THMClientCommand
    AutoShowMessage = False
    RemoteServer = sckConn
    Left = 204
    Top = 340
  end
end