eeprom_form.dfm

AVR开发板电路图/PCB/示范程序

        Top = 164
        Width = 85
        Height = 21
        ComPort = ComPort1
        ComProperty = cpFlowControl
        Text = 'Custom'
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 3
        TabOrder = 3
      end
      object cmbParity: TComComboBox
        Left = 60
        Top = 196
        Width = 85
        Height = 21
        ComPort = ComPort1
        ComProperty = cpParity
        Text = 'None'
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 4
      end
      object cmbStop: TComComboBox
        Left = 60
        Top = 228
        Width = 85
        Height = 21
        ComPort = ComPort1
        ComProperty = cpStopBits
        Text = '1'
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 5
      end
      object btnUpdate: TButton
        Left = 60
        Top = 264
        Width = 75
        Height = 25
        Caption = 'Update'
        TabOrder = 6
        OnClick = btnUpdateClick
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = cdsAVR
    Left = 592
    Top = 65532
  end
  object cdsAVR: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'FI'
        Attributes = [faFixed]
        DataType = ftString
        Size = 5
      end
      item
        Name = 'F0'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'F1'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'F2'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'F3'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'F4'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'F5'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'F6'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'F7'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'F8'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'F9'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'FA'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'FB'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'FC'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'FD'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'FE'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'FF'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'FS'
        Attributes = [faFixed]
        DataType = ftString
        Size = 16
      end>
    IndexDefs = <
      item
        Name = 'cdsAVRIndex1'
        Fields = 'FI'
      end>
    IndexFieldNames = 'FI'
    Params = <>
    StoreDefs = True
    BeforePost = cdsAVRBeforePost
    Left = 564
    Top = 65532
    object cdsAVRFI: TStringField
      Alignment = taCenter
      FieldName = 'FI'
      ReadOnly = True
      FixedChar = True
      Size = 5
    end
    object cdsAVRF0: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'F0'
      FixedChar = True
      Size = 2
    end
    object cdsAVRF1: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'F1'
      FixedChar = True
      Size = 2
    end
    object cdsAVRF2: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'F2'
      FixedChar = True
      Size = 2
    end
    object cdsAVRF3: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'F3'
      FixedChar = True
      Size = 2
    end
    object cdsAVRF4: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'F4'
      FixedChar = True
      Size = 2
    end
    object cdsAVRF5: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'F5'
      FixedChar = True
      Size = 2
    end
    object cdsAVRF6: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'F6'
      FixedChar = True
      Size = 2
    end
    object cdsAVRF7: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'F7'
      FixedChar = True
      Size = 2
    end
    object cdsAVRF8: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'F8'
      FixedChar = True
      Size = 2
    end
    object cdsAVRF9: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'F9'
      FixedChar = True
      Size = 2
    end
    object cdsAVRFA: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'FA'
      FixedChar = True
      Size = 2
    end
    object cdsAVRFB: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'FB'
      FixedChar = True
      Size = 2
    end
    object cdsAVRFC: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'FC'
      FixedChar = True
      Size = 2
    end
    object cdsAVRFD: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'FD'
      FixedChar = True
      Size = 2
    end
    object cdsAVRFE: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'FE'
      FixedChar = True
      Size = 2
    end
    object cdsAVRFF: TStringField
      Alignment = taCenter
      DisplayWidth = 4
      FieldName = 'FF'
      FixedChar = True
      Size = 2
    end
    object cdsAVRFS: TStringField
      Alignment = taCenter
      FieldName = 'FS'
      ReadOnly = True
      FixedChar = True
      Size = 16
    end
  end
  object ActionList1: TActionList
    Left = 620
    Top = 65532
    object actHelp: TAction
      Caption = 'Help'
      OnExecute = actHelpExecute
    end
    object actRead: TAction
      Caption = 'Read'
      OnExecute = actReadExecute
    end
    object actWrite: TAction
      Caption = 'Write'
      OnExecute = actWriteExecute
    end
    object actExit: TAction
      Caption = 'Exit'
      OnExecute = actExitExecute
    end
    object actStart: TAction
      Caption = 'Start'
      OnExecute = actStartExecute
    end
    object actStop: TAction
      Caption = 'Stop'
      Enabled = False
      OnExecute = actStopExecute
    end
    object actOpen: TAction
      Caption = 'Open'
      OnExecute = actOpenExecute
    end
    object actSave: TAction
      Caption = 'Save'
      OnExecute = actSaveExecute
    end
  end
  object cdsImport: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 676
    Top = 65532
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'bin'
    Filter = 'Bin Files(*.bin)|*.bin'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 704
    Top = 65532
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'bin'
    Filter = 'Bin Files(*.bin)|*.bin'
    Left = 732
    Top = 65532
  end
  object ComPort1: TComPort
    BaudRate = br9600
    Port = 'COM1'
    Parity.Bits = prNone
    StopBits = sbOneStopBit
    DataBits = dbEight
    Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
    FlowControl.OutCTSFlow = False
    FlowControl.OutDSRFlow = False
    FlowControl.ControlDTR = dtrEnable
    FlowControl.ControlRTS = rtsEnable
    FlowControl.XonXoffOut = False
    FlowControl.XonXoffIn = False
    SyncMethod = smWindowSync
    OnRxChar = ComPort1RxChar
    Left = 536
  end
  object Reg: THMRegistry
    RootKey = 2
    SubKey = '\EEPROM'
    DefineKey = dfHunMing
    Left = 508
  end
end