swmmc_form.dfm

Delphi三层原代码掩饰及补丁

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'swServer Manage Control'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 32
    Width = 536
    Height = 297
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    TabOrder = 0
    DataSource = DataSource1
    Filter.Criteria = {00000000}
    OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
    object dxDBGrid1ModuleIndex: TdxDBGridMaskColumn
      Caption = 'MI'
      DisableEditor = True
      HeaderAlignment = taCenter
      ReadOnly = True
      Width = 51
      BandIndex = 0
      RowIndex = 0
      FieldName = 'md_ModuleIndex'
    end
    object dxDBGrid1ModuleName: TdxDBGridMaskColumn
      Caption = 'ModuleName'
      DisableEditor = True
      HeaderAlignment = taCenter
      ReadOnly = True
      Width = 160
      BandIndex = 0
      RowIndex = 0
      FieldName = 'md_ModuleName'
    end
    object dxDBGrid1Version: TdxDBGridMaskColumn
      Caption = 'Version'
      DisableEditor = True
      HeaderAlignment = taCenter
      ReadOnly = True
      Width = 90
      BandIndex = 0
      RowIndex = 0
      FieldName = 'md_Version'
    end
    object dxDBGrid1Designner: TdxDBGridMaskColumn
      Caption = 'Designner'
      DisableEditor = True
      HeaderAlignment = taCenter
      ReadOnly = True
      Width = 90
      BandIndex = 0
      RowIndex = 0
      FieldName = 'md_Designner'
    end
    object dxDBGrid1Memo: TdxDBGridMemoColumn
      Caption = 'Memo'
      DisableEditor = True
      HeaderAlignment = taCenter
      ReadOnly = True
      Visible = False
      Width = 95
      BandIndex = 0
      RowIndex = 0
      FieldName = 'md_Memo'
    end
    object dxDBGrid1LastUpdate: TdxDBGridMaskColumn
      Caption = 'LastUpdate'
      DisableEditor = True
      HeaderAlignment = taCenter
      ReadOnly = True
      Width = 84
      BandIndex = 0
      RowIndex = 0
      FieldName = 'md_LastUpdate'
    end
    object dxDBGrid1State: TdxDBGridMaskColumn
      Caption = 'State'
      DisableEditor = True
      HeaderAlignment = taCenter
      ReadOnly = True
      Width = 43
      BandIndex = 0
      RowIndex = 0
      FieldName = 'md_State'
      OnGetText = dxDBGrid1StateGetText
    end
    object dxDBGrid1Filename: TdxDBGridMaskColumn
      Caption = 'Filename'
      DisableEditor = True
      HeaderAlignment = taCenter
      ReadOnly = True
      Width = 210
      BandIndex = 0
      RowIndex = 0
      FieldName = 'md_Filename'
    end
    object dxDBGrid1System: TdxDBGridCheckColumn
      Caption = 'System'
      DisableEditor = True
      HeaderAlignment = taCenter
      ReadOnly = True
      Width = 50
      BandIndex = 0
      RowIndex = 0
      FieldName = 'md_System'
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object dxDBGrid1LoadWhenStart: TdxDBGridCheckColumn
      Caption = 'LoadWhenStart'
      DisableEditor = True
      HeaderAlignment = taCenter
      ReadOnly = True
      Visible = False
      Width = 103
      BandIndex = 0
      RowIndex = 0
      FieldName = 'md_LoadWhenStart'
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 536
    AutoSize = True
    BorderWidth = 1
    Caption = 'ToolBar1'
    EdgeBorders = [ebTop, ebBottom]
    Images = ImageList1
    TabOrder = 1
    object btnWriteConfig: TToolButton
      Left = 0
      Top = 2
      Caption = 'btnWriteConfig'
      ImageIndex = 0
      OnClick = btnWriteConfigClick
    end
    object btnRefresh: TToolButton
      Left = 23
      Top = 2
      Caption = 'btnRefresh'
      ImageIndex = 7
      OnClick = btnRefreshClick
    end
    object ToolButton8: TToolButton
      Left = 46
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object btnAddModule: TToolButton
      Left = 54
      Top = 2
      Caption = 'btnAddModule'
      ImageIndex = 1
      OnClick = btnAddModuleClick
    end
    object btnDeleteModule: TToolButton
      Left = 77
      Top = 2
      Caption = 'btnDeleteModule'
      ImageIndex = 2
      OnClick = btnDeleteModuleClick
    end
    object ToolButton9: TToolButton
      Left = 100
      Top = 2
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object btnStart: TToolButton
      Left = 108
      Top = 2
      Caption = 'btnStart'
      ImageIndex = 3
      OnClick = btnStartClick
    end
    object btnPause: TToolButton
      Left = 131
      Top = 2
      Caption = 'btnPause'
      ImageIndex = 4
    end
    object btnStop: TToolButton
      Left = 154
      Top = 2
      Caption = 'btnStop'
      ImageIndex = 5
      OnClick = btnStopClick
    end
    object ToolButton10: TToolButton
      Left = 177
      Top = 2
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object btnExit: TToolButton
      Left = 185
      Top = 2
      Caption = 'btnExit'
      ImageIndex = 6
      OnClick = btnExitClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 329
    Width = 536
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 100
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object sckConn: TSocketConnection
    ServerGUID = '{9EEE633C-0B28-4DD2-8CFA-137440FC0539}'
    ServerName = 'swServer2.SystemData'
    Left = 24
    Top = 260
  end
  object dspModules: THMClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'RecId'
        Attributes = [faReadonly]
        DataType = ftInteger
      end
      item
        Name = 'Filename'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'ModuleName'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ModuleIndex'
        DataType = ftInteger
      end
      item
        Name = 'Version'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Designner'