unit3.dfm

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

object Form3: TForm3
  Left = 104
  Top = 387
  Width = 581
  Height = 461
  Caption = #25968#25454#35835#20889
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 427
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 0
    object RadioGroup1: TRadioGroup
      Left = 1
      Top = 1
      Width = 183
      Height = 248
      Align = alTop
      Caption = #20869#23384#31867#22411
      ItemIndex = 0
      Items.Strings = (
        #36755#20837
        #36755#20986
        'M'#21306
        'DB'#22359
        #23450#26102#22120
        #35745#25968#22120)
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 56
      Top = 139
      Width = 33
      Height = 21
      TabOrder = 1
      Text = '0'
    end
  end
  object Panel2: TPanel
    Left = 185
    Top = 0
    Width = 388
    Height = 427
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 386
      Height = 425
      ActivePage = TabSheet1
      Align = alClient
      MultiLine = True
      TabOrder = 0
      TabPosition = tpBottom
      object TabSheet1: TTabSheet
        Caption = #35835'(    '#23383'  )  '
        object Panel5: TPanel
          Left = 0
          Top = 358
          Width = 378
          Height = 41
          Align = alBottom
          TabOrder = 0
          object Button1: TButton
            Left = 16
            Top = 8
            Width = 75
            Height = 25
            Caption = #35835#21462
            TabOrder = 0
            OnClick = Button1Click
          end
          object Button2: TButton
            Left = 120
            Top = 8
            Width = 75
            Height = 25
            Caption = #28165#31354
            TabOrder = 1
            OnClick = Button2Click
          end
          object Button3: TButton
            Left = 216
            Top = 8
            Width = 75
            Height = 25
            Caption = #20445#23384
            TabOrder = 2
            OnClick = Button3Click
          end
        end
        object RichEdit2: TRichEdit
          Left = 0
          Top = 65
          Width = 378
          Height = 293
          Align = alClient
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            'RichEdit1')
          ParentFont = False
          ScrollBars = ssBoth
          TabOrder = 1
        end
        object Panel6: TPanel
          Left = 0
          Top = 0
          Width = 378
          Height = 65
          Align = alTop
          TabOrder = 2
          object Label1: TLabel
            Left = 104
            Top = 13
            Width = 48
            Height = 13
            AutoSize = False
            Caption = #36215#22987#22320#22336
          end
          object Label2: TLabel
            Left = 104
            Top = 40
            Width = 32
            Height = 13
            AutoSize = False
            Caption = #25968#37327
          end
          object Label3: TLabel
            Left = 224
            Top = 8
            Width = 77
            Height = 13
            Caption = #39'Label3 '#39'#13#10'
          end
          object Edit2: TEdit
            Left = 160
            Top = 10
            Width = 49
            Height = 21
            TabOrder = 0
            Text = '0'
          end
          object Edit3: TEdit
            Left = 160
            Top = 37
            Width = 49
            Height = 21
            TabOrder = 1
            Text = '1'
          end
          object RadioGroup2: TRadioGroup
            Left = 2
            Top = 3
            Width = 81
            Height = 57
            Caption = #26174#31034#27169#24335
            ItemIndex = 0
            Items.Strings = (
              #21313#36827#21046
              #21313#20845#36827#21046)
            TabOrder = 2
          end
          object CheckBox1: TCheckBox
            Left = 224
            Top = 24
            Width = 97
            Height = 17
            Caption = #23383'/'#23383#33410
            TabOrder = 3
          end
          object CheckBox2: TCheckBox
            Left = 224
            Top = 40
            Width = 97
            Height = 17
            Caption = #33258#21160#28378#21160
            TabOrder = 4
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #20889'('#23383#25110#23383#33410')'
        ImageIndex = 1
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 378
          Height = 89
          Align = alTop
          BevelInner = bvRaised
          BevelOuter = bvNone
          TabOrder = 0
          object Label4: TLabel
            Left = 56
            Top = 48
            Width = 32
            Height = 13
            AutoSize = False
            Caption = #25968#37327
          end
          object Label5: TLabel
            Left = 40
            Top = 21
            Width = 64
            Height = 13
            AutoSize = False
            Caption = #36215#22987#22320#22336
          end
          object Label6: TLabel
            Left = 216
            Top = 24
            Width = 54
            Height = 13
            Caption = #20540'('#21313#36827#21046')'
          end
          object Edit4: TEdit
            Left = 112
            Top = 45
            Width = 49
            Height = 21
            TabOrder = 0
            Text = '1'
          end
          object Edit5: TEdit
            Left = 112
            Top = 18
            Width = 49
            Height = 21
            TabOrder = 1
            Text = '0'
          end
          object Edit6: TEdit
            Left = 216
            Top = 40
            Width = 121
            Height = 21
            TabOrder = 2
            Text = 'Edit6'
          end
        end
        object Panel4: TPanel
          Left = 0
          Top = 327
          Width = 378
          Height = 72
          Align = alBottom
          TabOrder = 1
          object Button6: TButton
            Left = 56
            Top = 24
            Width = 75
            Height = 25
            Caption = #20889#20837
            TabOrder = 0
            OnClick = Button6Click
          end
        end
        object RichEdit1: TRichEdit
          Left = 0
          Top = 89
          Width = 378
          Height = 238
          Align = alClient
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            'RichEdit1')
          ParentFont = False
          ScrollBars = ssBoth
          TabOrder = 2
        end
      end
    end
  end
  object SaveDialog1: TSaveDialog
    FileName = 'xx.txt'
    Filter = '|*.txt'
    Left = 158
    Top = 61
  end
end