data.~dfm

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

object fdata: Tfdata
  Left = 385
  Top = 183
  Width = 555
  Height = 305
  Caption = 'UPS'#25968#25454#36164#26009
  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 RzButton1: TRzButton
    Left = 104
    Top = 232
    Caption = #21478#23384#20026'...'
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 0
    OnClick = RzButton1Click
  end
  object RzButton2: TRzButton
    Left = 190
    Top = 232
    Caption = #25171#21360
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 1
    OnClick = RzButton2Click
  end
  object RzButton3: TRzButton
    Left = 278
    Top = 232
    Caption = #21047#26032
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 2
    OnClick = RzButton3Click
  end
  object RzButton4: TRzButton
    Left = 367
    Top = 232
    Caption = #28165#38500
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 3
    OnClick = RzButton4Click
  end
  object RzButton5: TRzButton
    Left = 453
    Top = 232
    Caption = #36864#20986
    HotTrack = True
    HotTrackColor = clYellow
    TabOrder = 4
    OnClick = RzButton5Click
  end
  object ListView1: TListView
    Left = 16
    Top = 8
    Width = 513
    Height = 217
    Checkboxes = True
    Columns = <
      item
        Caption = #26085#26399
        Width = 80
      end
      item
        Caption = #26102#38388
        Width = 60
      end
      item
        Caption = #36755#20837#30005#21387
        Width = 55
      end
      item
        Caption = #36755#20986#30005#21387
        Width = 55
      end
      item
        Caption = #36755#20837#39057#29575
        Width = 55
      end
      item
        Caption = 'UPS'#36127#36733#29575
      end
      item
        Caption = #30005#27744#20805#30005#29575
      end
      item
        Caption = #30005#27744#30005#21387
      end
      item
        Caption = #26426#20869#28201#24230
      end>
    GridLines = True
    TabOrder = 5
    ViewStyle = vsReport
  end
  object SaveDialog1: TSaveDialog
    Left = 48
    Top = 232
  end
  object PrintDialog1: TPrintDialog
    Left = 72
    Top = 232
  end
  object qry1: TADOQuery
    Connection = fmain.dbcon
    Parameters = <>
    SQL.Strings = (
      'select * from data')
    Left = 16
    Top = 232
  end
end