fastups.~dfm

来自「串口监控程序,可与UPS进行通信,适合初学者使用」· ~DFM 代码 · 共 223 行

object ffastups: Tffastups
  Left = 582
  Top = 253
  Width = 364
  Height = 327
  Caption = #36873#25321#36828#29790'UPS'
  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 Label1: TLabel
    Left = 169
    Top = 10
    Width = 135
    Height = 18
    AutoSize = False
    Caption = #36873#25321#35201#30417#25511#30340'UPS'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 19
    Top = 132
    Width = 127
    Height = 19
    AutoSize = False
    Caption = #36828#31243'UPS'#30340#20449#24687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 16
    Top = 159
    Width = 322
    Height = 98
  end
  object Label3: TLabel
    Left = 40
    Top = 165
    Width = 73
    Height = 13
    AutoSize = False
    Caption = 'UPS'#30340#21517#31216':'
  end
  object Label4: TLabel
    Left = 40
    Top = 187
    Width = 43
    Height = 13
    Caption = 'IP '#22320' '#22336':'
  end
  object Label5: TLabel
    Left = 40
    Top = 235
    Width = 36
    Height = 13
    Caption = #23494'   '#30721':'
  end
  object Label6: TLabel
    Left = 40
    Top = 210
    Width = 73
    Height = 13
    AutoSize = False
    Caption = 'UPS'#30340#20301#32622':'
  end
  object ffdel: TRzButton
    Left = 25
    Top = 36
    Caption = #21024#38500
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 0
    OnClick = ffdelClick
  end
  object ffin: TRzButton
    Left = 25
    Top = 84
    Caption = #25554#20837
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 1
    OnClick = ffinClick
  end
  object ffme: TMemo
    Left = 197
    Top = 33
    Width = 68
    Height = 89
    DragCursor = crHandPoint
    Lines.Strings = (
      'ffme')
    ReadOnly = True
    TabOrder = 2
  end
  object ffsh: TRzButton
    Left = 144
    Top = 264
    Caption = #21047#26032
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 3
  end
  object ffex: TRzButton
    Left = 257
    Top = 264
    Caption = #36864#20986
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 4
    OnClick = ffexClick
  end
  object RzEdit1: TRzEdit
    Left = 113
    Top = 164
    Width = 99
    Height = 21
    TabOrder = 5
  end
  object RzEdit2: TRzEdit
    Left = 113
    Top = 187
    Width = 99
    Height = 21
    TabOrder = 6
  end
  object RzEdit3: TRzEdit
    Left = 113
    Top = 209
    Width = 99
    Height = 21
    TabOrder = 7
  end
  object RzEdit4: TRzEdit
    Left = 113
    Top = 231
    Width = 99
    Height = 21
    PasswordChar = '*'
    TabOrder = 8
  end
  object ListBox1: TListBox
    Left = 272
    Top = 24
    Width = 65
    Height = 97
    ItemHeight = 13
    TabOrder = 9
    OnClick = ListBox1Click
  end
  object RzDBMemo1: TRzDBMemo
    Left = 112
    Top = 32
    Width = 81
    Height = 89
    DataField = 'upsname'
    DataSource = DataSource1
    TabOrder = 10
  end
  object RzDBEdit1: TRzDBEdit
    Left = 216
    Top = 165
    Width = 121
    Height = 21
    DataSource = DataSource1
    DataField = 'upsname'
    TabOrder = 11
  end
  object RzDBEdit3: TRzDBEdit
    Left = 216
    Top = 192
    Width = 121
    Height = 21
    DataSource = DataSource1
    DataField = 'upsip'
    TabOrder = 12
  end
  object RzDBEdit6: TRzDBEdit
    Left = 216
    Top = 216
    Width = 121
    Height = 21
    DataSource = DataSource1
    DataField = 'upsaddr'
    TabOrder = 13
  end
  object RzDBEdit7: TRzDBEdit
    Left = 216
    Top = 240
    Width = 121
    Height = 21
    DataSource = DataSource1
    DataField = 'upspass'
    TabOrder = 14
  end
  object ADOQuery1: TADOQuery
    Connection = fmain.dbcon
    Parameters = <>
    SQL.Strings = (
      'select * from fastups')
    Left = 64
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 104
  end
end