loopscrunit.dfm

DELPHI 下远程控制源码

              ItemHeight = 18
              Mask = '*.cds'
              MultiSelect = True
              ParentShowHint = False
              ShowHint = True
              TabOrder = 0
              OnDblClick = FileListBox1DblClick
              OnMouseMove = FileListBox1MouseMove
            end
            object Panel17: TPanel
              Left = 1
              Top = 1
              Width = 183
              Height = 26
              Align = alTop
              BevelOuter = bvLowered
              Caption = '=='#21382#21490#35760#24405#25991#20214#21015#34920'=='
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              DesignSize = (
                183
                26)
              object SpeedButton7: TSpeedButton
                Left = 204
                Top = 2
                Width = 23
                Height = 22
                Hint = #21024#38500#21382#21490#35760#24405#25991#20214
                Anchors = [akRight]
                Flat = True
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  333333333333333333FF33333333333330003333333333333777333333333333
                  300033FFFFFF3333377739999993333333333777777F3333333F399999933333
                  3300377777733333337733333333333333003333333333333377333333333333
                  3333333333333333333F333333333333330033333F33333333773333C3333333
                  330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
                  993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
                  333333377F33333333FF3333C333333330003333733333333777333333333333
                  3000333333333333377733333333333333333333333333333333}
                NumGlyphs = 2
                ParentShowHint = False
                ShowHint = True
                OnClick = SpeedButton7Click
              end
            end
          end
          object DBGrid3: TDBGrid
            Left = 190
            Top = 1
            Width = 231
            Height = 231
            Align = alClient
            DataSource = DataSource2
            FixedColor = cl3DLight
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            ParentFont = False
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clBlack
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnDblClick = DBGrid3DblClick
            Columns = <
              item
                Expanded = False
                FieldName = 'HostName'
                Width = 128
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'HostIP'
                Width = 121
                Visible = True
              end>
          end
        end
      end
    end
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    AutoCalcFields = False
    FieldDefs = <
      item
        Name = 'HostIP'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'RecTime'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ScrPicture'
        DataType = ftGraphic
      end
      item
        Name = 'States'
        DataType = ftString
        Size = 12
      end>
    IndexDefs = <>
    IndexFieldNames = 'HostIP'
    FetchOnDemand = False
    MasterFields = 'HostIP'
    MasterSource = DataSource2
    ObjectView = False
    PacketRecords = 0
    Params = <>
    StoreDefs = True
    BeforeClose = ClientDataSet1BeforeClose
    Left = 104
    Top = 104
    object ClientDataSet1HostIP: TStringField
      DisplayLabel = #20027#26426'IP'#22320#22336
      FieldName = 'HostIP'
      LookupDataSet = LoopMCDS
      LookupResultField = 'HostIP'
    end
    object ClientDataSet1RecTime: TStringField
      DisplayLabel = #23631#24149#33719#21462#26102#38388
      FieldName = 'RecTime'
      KeyFields = 'RecTime'
      Size = 30
    end
    object ClientDataSet1ScrPicture: TGraphicField
      FieldName = 'ScrPicture'
      BlobType = ftGraphic
    end
    object ClientDataSet1States: TStringField
      DisplayLabel = #38468#21152#35828#26126
      FieldName = 'States'
      Size = 12
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 136
    Top = 104
  end
  object LoopMCDS: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'HostName'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'HostIP'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'HostPort'
        DataType = ftInteger
      end
      item
        Name = 'UserName'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Password'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'PictureID'
        DataType = ftInteger
      end
      item
        Name = 'ColorID'
        DataType = ftInteger
      end
      item
        Name = 'CompressRatio'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'DEFAULT_ORDER'
      end
      item
        Name = 'CHANGEINDEX'
      end>
    Params = <>
    StoreDefs = True
    BeforeClose = LoopMCDSBeforeClose
    AfterDelete = LoopMCDSAfterDelete
    Left = 16
    Top = 104
    object LoopMCDSHostName: TStringField
      DisplayLabel = #20027#26426#21517#31216
      DisplayWidth = 12
      FieldName = 'HostName'
    end
    object LoopMCDSHostIP: TStringField
      DisplayLabel = 'IP'#22320#22336
      DisplayWidth = 16
      FieldName = 'HostIP'
    end
    object LoopMCDSHostPort: TIntegerField
      DisplayLabel = #31471#21475
      DisplayWidth = 5
      FieldName = 'HostPort'
    end
    object LoopMCDSUserName: TStringField
      DisplayLabel = #35775#38382#35282#33394
      DisplayWidth = 12
      FieldName = 'UserName'
    end
    object LoopMCDSPassword: TStringField
      FieldName = 'Password'
      Size = 12
    end
    object LoopMCDSPictureID: TIntegerField
      FieldName = 'PictureID'
    end
    object LoopMCDSColorID: TIntegerField
      FieldName = 'ColorID'
    end
    object LoopMCDSCompressRatio: TIntegerField
      FieldName = 'CompressRatio'
    end
  end
  object DataSource2: TDataSource
    DataSet = LoopMCDS
    Left = 48
    Top = 104
  end
  object SavePictureDialog1: TSavePictureDialog
    Left = 384
    Top = 104
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 168
    Top = 104
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 30000
    OnTimer = Timer2Timer
    Left = 352
    Top = 104
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'HostIP'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'RecTime'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ScrPicture'
        DataType = ftGraphic
      end
      item
        Name = 'States'
        DataType = ftString
        Size = 12
      end>
    IndexDefs = <>
    IndexFieldNames = 'HostIP'
    MasterFields = 'HostIP'
    MasterSource = DataSource2
    PacketRecords = 0
    Params = <>
    StoreDefs = True
    Left = 320
    Top = 104
    object ClientDataSet2HostIP: TStringField
      DisplayLabel = #30417#35270#20027#26426'IP'
      FieldName = 'HostIP'
    end
    object ClientDataSet2RecTime: TStringField
      DisplayLabel = #30417#35270#26102#38388
      FieldName = 'RecTime'
      Size = 30
    end
    object ClientDataSet2ScrPicture: TGraphicField
      FieldName = 'ScrPicture'
      BlobType = ftGraphic
    end
    object ClientDataSet2States: TStringField
      DisplayLabel = #30417#35270#29366#24577
      FieldName = 'States'
      Size = 12
    end
  end
  object DataSource3: TDataSource
    DataSet = ClientDataSet2
    Left = 288
    Top = 104
  end
end