cssz.dfm

完成虚拟的多功能电能表

object csszForm: TcsszForm
  Left = 245
  Top = 308
  Width = 507
  Height = 161
  AutoSize = True
  Caption = '电表参数设置'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 499
    Height = 129
    Caption = '检定信息参数'
    TabOrder = 0
    object Grid1: TDataGrid
      Left = 6
      Top = 27
      Width = 486
      Height = 43
      ColCount = 9
      Ctl3D = False
      DefaultColWidth = 60
      DefaultRowHeight = 20
      FixedCols = 0
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing]
      ParentCtl3D = False
      ScrollBars = ssNone
      TabOrder = 0
      Columns = <
        item
          Alignment = taCenter
          PickList.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9'
            '10'
            '11'
            '12'
            '13'
            '14'
            '15'
            '16')
          Title.Alignment = taCenter
          Title.Caption = '挂表数'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '单相'
            '三相四线'
            '三相三线')
          Title.Alignment = taCenter
          Title.Caption = '相线'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '57.7V'
            '100V'
            '220V'
            '380V')
          Title.Alignment = taCenter
          Title.Caption = '基本电压'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '0.1A'
            '0.5A'
            '1A'
            '1.5A'
            '2.5A'
            '5A'
            '10A'
            '15A'
            '20A'
            '30A')
          Title.Alignment = taCenter
          Title.Caption = '基本电流'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '0.2'
            '0.5'
            '1.0'
            '2.0'
            '0.2S'
            '0.5S')
          Title.Alignment = taCenter
          Title.Caption = '有功等级'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '0.2'
            '0.5'
            '1.0'
            '2.0'
            '0.2S'
            '0.5S')
          Title.Alignment = taCenter
          Title.Caption = '无功等级'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '485'
            '232')
          Title.Alignment = taCenter
          Title.Caption = '通讯方式'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            'Com1'
            'Com2'
            'Com3'
            'Com4')
          Title.Alignment = taCenter
          Title.Caption = '通讯端口'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '0.1'
            '0.5'
            '1'
            '5'
            '10'
            '100')
          Title.Alignment = taCenter
          Title.Caption = '缩放比例'
        end>
      RowCountMin = 0
      SelectedIndex = 0
      Version = '2.0'
      ColWidths = (
        41
        76
        56
        55
        50
        48
        52
        46
        54)
    end
    object BitBtn2: TBitBtn
      Left = 408
      Top = 83
      Width = 81
      Height = 30
      Caption = '取消[&N]'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
    end
  end
  object BitBtn1: TBitBtn
    Left = 318
    Top = 83
    Width = 81
    Height = 30
    Caption = '确认参数[&Q]'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
  end
end