parameter.~dfm

串口监控程序,可与UPS进行通信,适合初学者使用

object fparameter: Tfparameter
  Left = 334
  Top = 212
  Width = 595
  Height = 415
  Caption = #21442#25968#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 265
    Height = 169
    Caption = #20844#20849#21442#25968#30340#35774#32622
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #36890#35759#31867#22411':'
    end
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 105
      Height = 13
      AutoSize = False
      Caption = #36873#25321#20018#34892#36890#35759#21475':'
    end
    object Label3: TLabel
      Left = 8
      Top = 80
      Width = 81
      Height = 13
      AutoSize = False
      Caption = #23494'      '#30721':'
    end
    object Label4: TLabel
      Left = 62
      Top = 144
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #38388'     '#38548':'
    end
    object Label5: TLabel
      Left = 198
      Top = 144
      Width = 27
      Height = 13
      AutoSize = False
      Caption = #31186
    end
    object Edit1: TEdit
      Left = 112
      Top = 79
      Width = 142
      Height = 21
      PasswordChar = '*'
      TabOrder = 0
    end
    object RzDBComboBox1: TRzDBComboBox
      Left = 112
      Top = 16
      Width = 145
      Height = 21
      DataField = 'comtype'
      DataSource = DataSource1
      ItemHeight = 13
      TabOrder = 1
      Items.Strings = (
        'MegaTec'
        'Demo'
        'Mega(USB)'
        'SEC(2400bps)'
        'SEC(9600bps)')
    end
    object RzDBComboBox2: TRzDBComboBox
      Left = 112
      Top = 42
      Width = 145
      Height = 21
      DataField = 'comport'
      DataSource = DataSource1
      ItemHeight = 13
      TabOrder = 2
    end
    object RzDBCheckBox1: TRzDBCheckBox
      Left = 8
      Top = 122
      Width = 115
      Height = 17
      DataField = 'intervalsave'
      DataSource = DataSource1
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      Caption = #35760#24405'UPS'#30340#25968#25454
      TabOrder = 3
    end
  end
  object GroupBox2: TGroupBox
    Left = 272
    Top = 0
    Width = 313
    Height = 169
    Caption = #20851#38381#35745#31639#26426#31995#32479#30340#31243#24207#30340#35774#32622
    TabOrder = 1
    object RzButton4: TRzButton
      Left = 224
      Top = 38
      Width = 53
      Caption = #27983#35272'.....'
      HotTrack = True
      HotTrackColor = clYellow
      TabOrder = 0
      OnClick = RzButton4Click
    end
    object Edit2: TEdit
      Left = 37
      Top = 39
      Width = 181
      Height = 21
      TabOrder = 1
      Text = 'Edit2'
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 172
    Width = 266
    Height = 165
    Caption = #24191#25773#20449#24687#30340#35774#32622
    TabOrder = 2
    object RzButton5: TRzButton
      Left = 60
      Top = 36
      Width = 180
      Height = 21
      Caption = #35774#23450#25253#35686#31383#21644#30005#23376#37038#20214#30340#20449#24687
      TabOrder = 0
      OnClick = RzButton5Click
    end
    object RzButton6: TRzButton
      Left = 60
      Top = 86
      Width = 180
      Height = 21
      Caption = #35774#32622#30005#23376#37038#20214#30340#22320#22336
      TabOrder = 1
      OnClick = RzButton6Click
    end
    object RzButton7: TRzButton
      Left = 60
      Top = 136
      Width = 180
      Height = 21
      Caption = #35774#32622#20256#21628#26426#21495#30721#21644#20449#24687#20195#30721
      TabOrder = 2
    end
  end
  object GroupBox4: TGroupBox
    Left = 272
    Top = 172
    Width = 313
    Height = 165
    Caption = #33258#21160#20851#38381#31995#32479#30340#26102#38388#21442#25968
    TabOrder = 3
    object Label6: TLabel
      Left = 6
      Top = 19
      Width = 225
      Height = 26
      AutoSize = False
      Caption = #24403#24066#30005#25925#38556#26102','#22312#27492#26102#38388#21518#24320#22987#20851#38381#13#35745#31639#26426#31995#32479'(0-2880):'
    end
    object Label7: TLabel
      Left = 6
      Top = 59
      Width = 225
      Height = 26
      AutoSize = False
      Caption = #24403#20986#29616#30005#27744#20302#30005#21387#26102','#22312#27492#26102#38388#21518#24320#13#22987#20851#38381#35745#31639#26426#31995#32479'(0-600):'
    end
    object Label8: TLabel
      Left = 6
      Top = 99
      Width = 225
      Height = 26
      AutoSize = False
      Caption = #22312'UPS'#20572#26426#21069#20851#38381#25805#20316#31995#32479#25152#38656#35201#13#30340#26102#38388':'
    end
    object Label9: TLabel
      Left = 5
      Top = 138
      Width = 217
      Height = 13
      AutoSize = False
      Caption = #24377#20986#25253#35686#20449#24687#31383#30340#26102#38388#38388#38548':'
    end
    object Label10: TLabel
      Left = 275
      Top = 26
      Width = 32
      Height = 13
      AutoSize = False
      Caption = #20998#38047
    end
    object Label11: TLabel
      Left = 276
      Top = 65
      Width = 30
      Height = 13
      AutoSize = False
      Caption = #20998#38047
    end
    object Label12: TLabel
      Left = 277
      Top = 103
      Width = 29
      Height = 13
      AutoSize = False
      Caption = #20998#38047
    end
    object Label13: TLabel
      Left = 281
      Top = 139
      Width = 12
      Height = 13
      AutoSize = False
      Caption = #31186
    end
    object RzDBSpinEdit2: TRzDBSpinEdit
      Left = 221
      Top = 21
      Width = 50
      Height = 21
      DataSource = DataSource1
      DataField = 'acclosetime'
      Alignment = taRightJustify
      TabOrder = 0
      Value = 2.000000000000000000
    end
    object RzDBSpinEdit3: TRzDBSpinEdit
      Left = 221
      Top = 62
      Width = 50
      Height = 21
      DataSource = DataSource1
      DataField = 'batteryclose'
      Alignment = taRightJustify
      TabOrder = 1
      AllowKeyEdit = True
      Value = 3.000000000000000000
    end
    object RzDBSpinEdit4: TRzDBSpinEdit
      Left = 221
      Top = 99
      Width = 50
      Height = 21
      DataSource = DataSource1
      DataField = 'closesystemtime'
      Alignment = taRightJustify
      TabOrder = 2
      Value = 4.000000000000000000
    end
    object RzDBSpinEdit5: TRzDBSpinEdit
      Left = 221
      Top = 133
      Width = 50
      Height = 21
      DataSource = DataSource1
      DataField = 'warningtime'
      Alignment = taRightJustify
      TabOrder = 3
      Value = 5.000000000000000000
    end
  end
  object RzButton1: TRzButton
    Left = 272
    Top = 347
    Caption = #32570#30465#20540
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 4
    OnClick = RzButton1Click
  end
  object RzButton2: TRzButton
    Left = 376
    Top = 347
    Caption = #21462#28040
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 5
    OnClick = RzButton2Click
  end
  object RzButton3: TRzButton
    Left = 480
    Top = 347
    Caption = #30830#23450
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 6
    OnClick = RzButton3Click
  end
  object RzDBSpinEdit1: TRzDBSpinEdit
    Left = 117
    Top = 141
    Width = 67
    Height = 21
    DataSource = DataSource1
    DataField = 'intervaltime'
    Alignment = taRightJustify
    TabOrder = 7
    Value = 1.000000000000000000
  end
  object RzDBCheckBox3: TRzDBCheckBox
    Left = 8
    Top = 190
    Width = 153
    Height = 17
    DataField = 'warning'
    DataSource = DataSource1
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    Caption = #24377#20986#25253#35686#20449#24687#31383#21475
    TabOrder = 8
  end
  object RzDBCheckBox4: TRzDBCheckBox
    Left = 288
    Top = 93
    Width = 115
    Height = 17
    DataField = 'closesystem'
    DataSource = DataSource1
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    Caption = #20851#38381#25805#20316#31995#32479
    TabOrder = 9
  end
  object RzDBCheckBox5: TRzDBCheckBox
    Left = 288
    Top = 117
    Width = 115
    Height = 17
    DataField = 'closeoutput'
    DataSource = DataSource1
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    Caption = #20851#38381'UPS'#30340#36755#20986
    TabOrder = 10
  end
  object RzDBCheckBox6: TRzDBCheckBox
    Left = 288
    Top = 141
    Width = 281
    Height = 17
    DataField = 'autoshow'
    DataSource = DataSource1
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    Caption = #22312'UPS'#30417#25511#31995#32479#37325#21551#26102#26174#31034#19978#27425#20851#38381#30340#25991#26723
    TabOrder = 11
  end
  object RzDBCheckBox7: TRzDBCheckBox
    Left = 288
    Top = 69
    Width = 177
    Height = 17
    DataField = 'autosave'
    DataSource = DataSource1
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    Caption = #33258#21160#20445#23384#25152#26377#25171#24320#30340#25991#26723
    TabOrder = 12
  end
  object RzDBCheckBox8: TRzDBCheckBox
    Left = 288
    Top = 19
    Width = 273
    Height = 17
    DataField = 'closeorder'
    DataSource = DataSource1
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    Caption = #20851#26426#21069#27442#25191#34892#30340#22806#37096#21629#20196'(5'#20998#38047#36229#26102'):'
    TabOrder = 13
  end
  object RzDBCheckBox9: TRzDBCheckBox
    Left = 9
    Top = 237
    Width = 153
    Height = 17
    DataField = 'email'
    DataSource = DataSource1
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    Caption = #21551#21160#30005#23376#37038#20214#21457#36865#21151#33021
    TabOrder = 14
  end
  object RzDBCheckBox10: TRzDBCheckBox
    Left = 11
    Top = 289
    Width = 153
    Height = 17
    DataSource = DataSource1
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    Caption = #21551#21160#20256#21628#26426#20256#21628#21151#33021
    TabOrder = 15
  end
  object OpenDialog1: TOpenDialog
    Left = 504
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 224
    Top = 136
  end
  object ADOQuery1: TADOQuery
    Connection = fmain.dbcon
    Parameters = <>
    SQL.Strings = (
      'select * from user_set where type='#39'user_set'#39)
    Left = 224
    Top = 104
  end
  object Timer1: TTimer
    Left = 112
    Top = 112
  end
end