unit1.~dfm

串口通讯 串口通讯 支持指令存储

object Form1: TForm1
  Left = 250
  Top = 151
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20018#21475#36890#35759
  ClientHeight = 435
  ClientWidth = 644
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 644
    Height = 435
    ActivePage = TabSheet4
    Align = alClient
    TabIndex = 3
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20018#21475#36890#35759
      object GroupBox3: TGroupBox
        Left = 8
        Top = 8
        Width = 625
        Height = 393
        Caption = #25968#25454#26174#31034
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label1: TLabel
          Left = 10
          Top = 189
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #26657#39564#30721#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 16
          Top = 20
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #21457#36865#25968#25454#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 11
          Top = 212
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #25509#25910#25968#25454#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 10
          Top = 131
          Width = 60
          Height = 13
          Caption = #25351#20196#35828#26126#65306
        end
        object Label5: TLabel
          Left = 11
          Top = 161
          Width = 60
          Height = 13
          Caption = #25805#20316#23545#35937#65306
        end
        object Label13: TLabel
          Left = 152
          Top = 368
          Width = 401
          Height = 16
          AutoSize = False
          Caption = #27880#65306#21457#36865#25968#25454#21487#36890#36807#21452#20987#25351#20196#21015#34920#36827#34892#36873#25321#65281
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clFuchsia
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Memo1: TMemo
          Left = 16
          Top = 40
          Width = 297
          Height = 81
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 0
          OnChange = Memo1Change
        end
        object Memo2: TMemo
          Left = 12
          Top = 232
          Width = 301
          Height = 129
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 1
        end
        object Edit2: TEdit
          Left = 72
          Top = 184
          Width = 89
          Height = 24
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
        end
        object BitBtn12: TBitBtn
          Left = 16
          Top = 365
          Width = 75
          Height = 23
          Caption = #28165#31354
          TabOrder = 3
          OnClick = BitBtn12Click
          Glyph.Data = {
            06030000424D0603000000000000060200002800000010000000100000000100
            08000000000000010000120B0000120B00007400000074000000CCC7DF00D4CD
            DD00D6CEDD00D8D0DD00FF00FF00DDD3DC00DFD5DB00E1D6DB00ECDED900F6F8
            FF004865F7004865F6004866F6004867F6004967F5004968F5004E6DF500516E
            F6005470F3005671F3005874F7005B75F8005873F2006179F1006780F700B9C4
            FC004864F700526BF800536CF800677CFA008193FB008FA0FB008997EA00435B
            F900445CF9005C72FA006275FB006A7CFC007585FD008190EC0093A1FC008B98
            EA008E9AE900929DE900949EE80096A0E800EFF1FF003F53FC00465BFC004D60
            FC0098A1E8009DA5E700BCC3FF00F5F6FF003A48FF003B49FF003F4DFF00404E
            FF004654FF004754FF004856FF005866FE00616EFF006E7AFF00757FFF00838C
            FF008690FE008992FF00969EFF009AA3FF009DA4FF00B0B6FF00B3BAFF00A3A9
            E600B9BFFF00C6CBFF00CACEFF00CED2FF00D7DAFF00E5E7FF003B48FF00424E
            FF00424FFF004552FF004653FF004D59FF00505CFF00535FFF005F6AFF00646E
            FF00737CFF00747DFF007A83FF008B93FF008C93FF0099A0FF009AA0FF009AA1
            FF00A0A6FF00A6ACFF00A9AFFF00B5BAFF00BBBFFF00BCC0FF00D0D3FF00E2E4
            FF002D33F3002E33F3002424EA004C4FF3005356F3006768F3006B6DF300FFFF
            FF00FFFFFF0000000000080808080229130F0F162B0508080808080808331A31
            3F434645250D4908080808082C223A54543B575C66341C2C0808083321363636
            3636363652604D1B4908011A37366A6C6C6A6A6C6C6B5F480D07202F36366C71
            716C6C71716C5347242D0F5036366C7171717171716C364042170B3636366A6C
            717171716C6A36565E0E0C55585A6D6C717171716C6A36515B0E0F5C43446C71
            71717171716C38393D17272661646C71716C6C71716C593C302C0015644A6F6C
            6C706F6C6C6E413E0A06082C1E4B4E694F694E4B65625D23320808082C1F692E
            352E696867631D2C08080808082C181909354F4C28142D080808080808080120
            121110132A0308080808}
        end
        object BitBtn13: TBitBtn
          Left = 176
          Top = 185
          Width = 57
          Height = 24
          Caption = #21457#36865
          TabOrder = 4
          OnClick = BitBtn13Click
          Glyph.Data = {
            7E000000424D7E000000000000003E0000002800000010000000100000000100
            010000000000400000000000000000000000020000000000000000000000FFFF
            FF00FFFF0000FFFF0000FFBF0000FF9F0000FFAF000088370000ABFB0000ABFD
            0000ABFD0000ABFB000088370000FFAF0000FF9F0000FFBF0000FFFF0000FFFF
            0000}
        end
        object BitBtn3: TBitBtn
          Left = 584
          Top = 365
          Width = 33
          Height = 23
          Caption = 'out!'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 5
          OnClick = BitBtn3Click
        end
        object DBGrid1: TDBGrid
          Left = 320
          Top = 40
          Width = 297
          Height = 321
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ReadOnly = True
          TabOrder = 6
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clPurple
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = DBGrid1DblClick
          Columns = <
            item
              Expanded = False
              FieldName = #25351#20196#35828#26126
              Width = 112
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25351#20196#30721
              Width = 139
              Visible = True
            end