strct.dfm

西门子与计算机通讯程序包括源代码 程序说明 可以进行时时数据采集记录

object Form9: TForm9
  Left = 193
  Top = 384
  Width = 542
  Height = 442
  Caption = #21019#24314#25968#25454#24211
  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 PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 529
    Height = 401
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #28151#21512#35835#21462
      object Label1: TLabel
        Left = 8
        Top = 0
        Width = 222
        Height = 13
        Caption = #20381#27425#28155#21152#38656#35201#35835#21462#30340#25968#25454'('#26368#22810#20108#21313#20010#25968#25454')'
      end
      object Label2: TLabel
        Left = 136
        Top = 24
        Width = 24
        Height = 13
        Caption = #31867#22411
      end
      object Label3: TLabel
        Left = 224
        Top = 24
        Width = 41
        Height = 13
        Caption = #23383'/'#23383#33410
      end
      object Label4: TLabel
        Left = 304
        Top = 24
        Width = 48
        Height = 13
        Caption = #25968#25454#22359#21495
      end
      object Label5: TLabel
        Left = 376
        Top = 24
        Width = 24
        Height = 13
        Caption = #22320#22336
      end
      object Label6: TLabel
        Left = 16
        Top = 24
        Width = 24
        Height = 13
        Caption = #21517#31216
      end
      object Label7: TLabel
        Left = 424
        Top = 8
        Width = 60
        Height = 13
        Caption = #24403#21069#34892#21495#65306
      end
      object Label8: TLabel
        Left = 432
        Top = 24
        Width = 32
        Height = 13
        Caption = 'Label8'
      end
      object ComboBox1: TComboBox
        Left = 112
        Top = 56
        Width = 89
        Height = 19
        Style = csOwnerDrawFixed
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 0
        Text = 'e  input bytes '
        Items.Strings = (
          'e  input bytes '
          'a  output bytes '
          'm  flag bytes '
          't  timer words '
          'z  counter words '
          'd  data from DB ')
      end
      object ComboBox2: TComboBox
        Left = 208
        Top = 56
        Width = 81
        Height = 19
        Style = csOwnerDrawFixed
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 1
        Text = 'b'
        Items.Strings = (
          'b'
          'w')
      end
      object Edit1: TEdit
        Left = 304
        Top = 56
        Width = 57
        Height = 21
        TabOrder = 2
        Text = '0'
      end
      object Edit2: TEdit
        Left = 368
        Top = 56
        Width = 49
        Height = 21
        TabOrder = 3
        Text = '1'
      end
      object Button1: TButton
        Left = 440
        Top = 120
        Width = 75
        Height = 25
        Caption = #28155#21152
        TabOrder = 4
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 440
        Top = 160
        Width = 75
        Height = 25
        Caption = #21024#38500#36873#23450
        TabOrder = 5
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 440
        Top = 200
        Width = 75
        Height = 25
        Caption = #20840#37096#21024#38500
        TabOrder = 6
        OnClick = Button3Click
      end
      object Edit3: TEdit
        Left = 8
        Top = 56
        Width = 97
        Height = 21
        MaxLength = 20
        TabOrder = 7
        Text = #28201#24230#19968
      end
      object Panel1: TPanel
        Left = 10
        Top = 88
        Width = 425
        Height = 249
        BevelOuter = bvSpace
        BevelWidth = 2
        Caption = 'Panel1'
        TabOrder = 8
        object ListView1: TListView
          Left = 2
          Top = 2
          Width = 421
          Height = 245
          Align = alClient
          BevelInner = bvNone
          BiDiMode = bdLeftToRight
          Columns = <
            item
              Caption = #21517#31216
              Width = 150
            end
            item
              Caption = #31867#22411
            end
            item
              Caption = #23383'/'#23383#33410
            end
            item
              Caption = #25968#25454#22359#21495
            end
            item
              Caption = #22320#22336
            end>
          ColumnClick = False
          DragMode = dmAutomatic
          GridLines = True
          Items.Data = {
            C40300001400000000000000FFFFFFFFFFFFFFFF040000000000000005B4F2D3
            A14101640177023131013000000000FFFFFFFFFFFFFFFF040000000000000005
            B4F2D3A14201640177023132013000000000FFFFFFFFFFFFFFFF040000000000
            00000BD6DCB1DFC8C8BACFC9CF4101640177023133013000000000FFFFFFFFFF
            FFFFFF04000000000000000BD6DCB1DFC8C8BACFCFC241016401770231340130
            00000000FFFFFFFFFFFFFFFF04000000000000000BD6DCB1DFC8C8BACFC9CF42
            01640177023135013000000000FFFFFFFFFFFFFFFF04000000000000000BD6DC
            B1DFC8C8BACFCFC24201640177023136013000000000FFFFFFFFFFFFFFFF0400
            0000000000000DD6DCB1DFC8C8BACFBFDAB9DC41016401770231370130000000
            00FFFFFFFFFFFFFFFF04000000000000000DD6DCB1DFC8C8BACFBFDAB9DC4201
            640177023138013000000000FFFFFFFFFFFFFFFF040000000000000009D4A4C8
            C8D2BBC9CF4101640177023231013000000000FFFFFFFFFFFFFFFF0400000000
            00000009D4A4C8C8D2BBCFC24101640177023232013000000000FFFFFFFFFFFF
            FFFF040000000000000009D4A4C8C8D2BBC9CF42016401770232330130000000
            00FFFFFFFFFFFFFFFF040000000000000009D4A4C8C8D2BBCFC2420164017702
            3234013000000000FFFFFFFFFFFFFFFF040000000000000009D4A4C8C8B6FEC9
            CF4101640177023235013000000000FFFFFFFFFFFFFFFF040000000000000009
            D4A4C8C8B6FECFC24101640177023236013000000000FFFFFFFFFFFFFFFF0400
            00000000000009D4A4C8C8B6FEC9CF4201640177023237013000000000FFFFFF
            FFFFFFFFFF040000000000000009D4A4C8C8B6FECFC242016401770232380130
            00000000FFFFFFFFFFFFFFFF04000000000000000BBFDAB9DCC8C8BACFC9CF41
            01640177023335013000000000FFFFFFFFFFFFFFFF04000000000000000BBFDA
            B9DCC8C8BACFCFC24101640177023336013000000000FFFFFFFFFFFFFFFF0400
            0000000000000BBFDAB9DCC8C8BACFC9CF4201640177023337013000000000FF
            FFFFFFFFFFFFFF04000000000000000BBFDAB9DCC8C8BACFCFC2420164017702
            33380130FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFF}
          MultiSelect = True
          RowSelect = True
          ParentBiDiMode = False
          TabOrder = 0
          ViewStyle = vsReport
          OnCustomDrawSubItem = ListView1CustomDrawSubItem
          OnSelectItem = ListView1SelectItem
        end
      end
      object Button5: TButton
        Left = 440
        Top = 240
        Width = 75
        Height = 25
        Caption = #21019#24314#25968#25454#24211
        TabOrder = 9
        OnClick = Button5Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36830#32493#35835#21462
      ImageIndex = 1
      object Label9: TLabel
        Left = 16
        Top = 24
        Width = 24
        Height = 13
        Caption = #21517#31216
      end
      object Label10: TLabel
        Left = 136
        Top = 24
        Width = 24
        Height = 13
        Caption = #31867#22411
      end
      object Label11: TLabel
        Left = 224
        Top = 24
        Width = 41
        Height = 13
        Caption = #23383'/'#23383#33410
      end
      object Label12: TLabel
        Left = 304
        Top = 24
        Width = 48
        Height = 13
        Caption = #25968#25454#22359#21495
      end
      object Label13: TLabel
        Left = 376
        Top = 24
        Width = 24
        Height = 13
        Caption = #22320#22336
      end
      object Label14: TLabel
        Left = 440
        Top = 24
        Width = 24
        Height = 13
        Caption = #25968#37327
      end
      object Edit4: TEdit
        Left = 8
        Top = 56
        Width = 97
        Height = 21
        MaxLength = 20
        TabOrder = 0
        Text = #28201#24230#19968
      end
      object ComboBox3: TComboBox
        Left = 112
        Top = 56
        Width = 89
        Height = 19
        Style = csOwnerDrawFixed
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 1
        Text = 'e  input bytes '
        Items.Strings = (
          'e  input bytes '
          'a  output bytes '
          'm  flag bytes '
          't  timer words '
          'z  counter words '
          'd  data from DB ')
      end
      object ComboBox4: TComboBox
        Left = 208
        Top = 56
        Width = 81
        Height = 19
        Style = csOwnerDrawFixed
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 2
        Text = 'b'
        Items.Strings = (
          'b'
          'w')
      end
      object Edit5: TEdit
        Left = 304
        Top = 56
        Width = 57
        Height = 21
        TabOrder = 3
        Text = '0'
      end
      object Edit6: TEdit
        Left = 368
        Top = 56
        Width = 49
        Height = 21
        TabOrder = 4
        Text = '1'
      end
      object Edit7: TEdit
        Left = 432
        Top = 56
        Width = 49
        Height = 21
        TabOrder = 5
        Text = '1'
      end
      object Button4: TButton
        Left = 408
        Top = 120
        Width = 89
        Height = 25
        Caption = #21019#24314#25968#25454#24211
        TabOrder = 6
      end
    end
  end
end