price.dfm

Monitor.dfm Meter.dpr pasMain.pas

object frmprice: Tfrmprice
  Left = 227
  Top = 100
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '设置计费标准'
  ClientHeight = 307
  ClientWidth = 380
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000088
    8888888888888888888888888888008888888888888888888888888888880000
    00000000000000000000000000880FFFFCFFFCFFFCFFFCFFFCFFFCFFF0880FFF
    FCFFFCFFFCFFFCFFFCFFFCFFF088099FFC0FFC0FFC0FFCFFFCFFFCFFF0880CCC
    CCCCCCCCCCCCCCCCCCCCCCCCC0880FFFFCFFFCFFFCFFFCFFFCFFFCFFF0880FFF
    FCFFFCFFFCFFFCFFFCFFFCFFF088099FFC0FFC0FFC0FFC0FFC0FFC0FF0880CCC
    CCCCCCCCCCCCCCCCCCCCCCCCC0880FFFFCFFFCFFFCFFFCFFFCFFFCFFF0880FFF
    FCFFFCFFFCFFFCFFFCFFFCFFF088099FFC0FFC0FFC0FFC0FFC0FFC0FF0880CCC
    CCCCCCCCCCCCCCCCCCCCCCCCC0880FFFFCFFFCFFFCFFFCFFFCFFFCFFF0880FFF
    FCFFFCFFFCFFFCFFFCFFFCFFF088099FFC0FFC0FFC0FFC0FFC0FFC0FF0880CCC
    CCCCCCCCCCCCCCCCCCCCCCCCC0880FFFFCFFFCFFFCFFFCFFFCFFFCFFF0880FFF
    FCFFFCFFFCFFFCFFFCFFFCFFF0880FFFFCFFFC0FFC0FFC0FFC0FFC0FF0880CCC
    CCCCCCCCCCCCCCCCCCCCCCCCC0880FFFFFFFFFFFFFFFFFFFFFFFFFFFF0880FFF
    FFFFFFFFFFFFFFFFFFFFFFFFF0880F0F0F0F0FFF00000FFFF0F0F0F0F0880FFF
    FFFFFFFF0F0F0FFFFFFFFFFFF0880F0F0F0F0FFFFFFFFFFFF0F0F0F0F0880FFF
    FFFFFFF0000000FFFFFFFFFFF0880F0F0F0F0FF0F0F0F0FFF0F0F0F0F0880FFF
    FFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000C000
    0000C00000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000300000003}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 1
    Top = 178
    Width = 378
    Height = 125
    Caption = '计费参数'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 10
      Top = 39
      Width = 78
      Height = 12
      Caption = '电费单价( $ )'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 9
      Top = 18
      Width = 48
      Height = 12
      Caption = '用电类型'
    end
    object Label4: TLabel
      Left = 198
      Top = 19
      Width = 48
      Height = 12
      Caption = '类型编码'
    end
    object Label5: TLabel
      Left = 11
      Top = 61
      Width = 66
      Height = 12
      Caption = '计量税( $ )'
    end
    object Label6: TLabel
      Left = 197
      Top = 61
      Width = 66
      Height = 12
      Caption = '其他税( $ )'
    end
    object Rate_E: TEdit
      Left = 114
      Top = 37
      Width = 74
      Height = 20
      Color = clWhite
      MaxLength = 10
      TabOrder = 2
      Text = '0.58'
    end
    object Name_E: TEdit
      Left = 114
      Top = 16
      Width = 74
      Height = 20
      Color = clWhite
      MaxLength = 20
      TabOrder = 0
    end
    object Usg_E: TEdit
      Left = 291
      Top = 17
      Width = 74
      Height = 20
      Color = clWhite
      MaxLength = 8
      TabOrder = 1
    end
    object MCharge_E: TEdit
      Left = 114
      Top = 58
      Width = 74
      Height = 20
      Color = clWhite
      MaxLength = 10
      TabOrder = 3
      Text = '0.0'
    end
    object OCharge_E: TEdit
      Left = 291
      Top = 58
      Width = 74
      Height = 20
      Color = clWhite
      MaxLength = 10
      TabOrder = 4
      Text = '0.0'
    end
    object btnCancel: TButton
      Left = 290
      Top = 91
      Width = 75
      Height = 21
      Caption = '退出'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = btnCancelClick
    end
    object btnDelete: TButton
      Left = 202
      Top = 91
      Width = 75
      Height = 21
      Caption = '删除'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = btnDeleteClick
    end
    object bntAppend: TButton
      Left = 113
      Top = 91
      Width = 75
      Height = 21
      Caption = '添加'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = bntAppendClick
    end
  end
  object BillListView: TListView
    Left = 1
    Top = 2
    Width = 378
    Height = 171
    Columns = <
      item
        Caption = '用电类型'
        Width = 100
      end
      item
        Caption = '类型编码'
        Width = 68
      end
      item
        Alignment = taRightJustify
        Caption = '单价'
        Width = 40
      end
      item
        Alignment = taRightJustify
        Caption = '计量税'
        Width = 76
      end
      item
        Alignment = taRightJustify
        AutoSize = True
        Caption = '其他税'
      end>
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    SortType = stData
    TabOrder = 1
    TabStop = False
    ViewStyle = vsReport
    OnSelectItem = BillListViewSelectItem
  end
end