waterfeepropertyfrm.dfm

供水营销打印程序源码

inherited frmPropertyWaterfee: TfrmPropertyWaterfee
  Left = 311
  Caption = #29992#27700#35760#24405#23646#24615
  PixelsPerInch = 96
  TextHeight = 12
  inherited btnOK: TcxButton
    ModalResult = 0
    OnClick = btnOKClick
  end
  object PageControl: TPageControl [4]
    Left = 8
    Top = 56
    Width = 457
    Height = 201
    ActivePage = TabCopiesinfo
    TabOrder = 3
    object TabCopiesinfo: TTabSheet
      Caption = #29992#27700#35760#24405
      object GroupBox1: TGroupBox
        Left = 8
        Top = 0
        Width = 433
        Height = 169
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 10
          Width = 66
          Height = 12
          Caption = #23458#25143#32534#21495'(&C)'
          FocusControl = edtCustID
        end
        object Label2: TLabel
          Left = 120
          Top = 10
          Width = 66
          Height = 12
          Caption = #23458#25143#21517#31216'(&N)'
          FocusControl = edtName
        end
        object Label3: TLabel
          Left = 8
          Top = 50
          Width = 66
          Height = 12
          Caption = #25220#34920#26102#38388'(&T)'
          FocusControl = edtCopiesdate
        end
        object Label4: TLabel
          Left = 120
          Top = 50
          Width = 66
          Height = 12
          Caption = #19978#26399#21051#24230'(&P)'
          FocusControl = edtPriorQty
        end
        object Label5: TLabel
          Left = 232
          Top = 50
          Width = 66
          Height = 12
          Caption = #26412#26399#21051#24230'(&U)'
          FocusControl = edtCurrQty
        end
        object Label6: TLabel
          Left = 344
          Top = 50
          Width = 66
          Height = 12
          Caption = #20943#20813#27700#37327'(&D)'
          FocusControl = edtDerate
        end
        object Label7: TLabel
          Left = 8
          Top = 130
          Width = 42
          Height = 12
          Caption = #22791#27880'(&M)'
          FocusControl = edtDescription
        end
        object Label8: TLabel
          Left = 8
          Top = 90
          Width = 66
          Height = 12
          Caption = #26412#26399#27700#37327'(&Q)'
          FocusControl = edtQuantity
        end
        object Label9: TLabel
          Left = 232
          Top = 90
          Width = 66
          Height = 12
          Caption = #24212#32564#24635#39069'(&O)'
          FocusControl = edtAmont
        end
        object Label15: TLabel
          Left = 120
          Top = 90
          Width = 66
          Height = 12
          Caption = #27700#36153#37329#39069'(&W)'
          FocusControl = edtWaterfee
        end
        object edtCustID: TcxDBMaskEdit
          Left = 8
          Top = 24
          Width = 97
          Height = 23
          DataBinding.DataField = 'CustID'
          DataBinding.DataSource = dasProperty
          Properties.ReadOnly = False
          Style.Shadow = True
          TabOrder = 0
          OnExit = edtCustIDExit
        end
        object edtName: TcxDBMaskEdit
          Left = 120
          Top = 24
          Width = 305
          Height = 23
          DataBinding.DataField = 'Name'
          DataBinding.DataSource = dasProperty
          Properties.ReadOnly = False
          Style.Shadow = True
          TabOrder = 1
        end
        object edtCopiesdate: TcxDBDateEdit
          Left = 8
          Top = 64
          Width = 97
          Height = 23
          DataBinding.DataField = 'Copiesdate'
          DataBinding.DataSource = dasProperty
          Style.Shadow = True
          TabOrder = 2
        end
        object edtPriorQty: TcxDBMaskEdit
          Left = 120
          Top = 64
          Width = 97
          Height = 23
          DataBinding.DataField = 'PriorQty'
          DataBinding.DataSource = dasProperty
          Properties.Alignment.Horz = taRightJustify
          Properties.OnEditValueChanged = edtPriorQtyPropertiesEditValueChanged
          Style.Shadow = True
          TabOrder = 3
        end
        object edtCurrQty: TcxDBMaskEdit
          Left = 232
          Top = 64
          Width = 97
          Height = 23
          DataBinding.DataField = 'CurrQty'
          DataBinding.DataSource = dasProperty
          Properties.Alignment.Horz = taRightJustify
          Properties.OnEditValueChanged = edtPriorQtyPropertiesEditValueChanged
          Style.Shadow = True
          TabOrder = 4
        end
        object edtDerate: TcxDBMaskEdit
          Left = 344
          Top = 64
          Width = 81
          Height = 23
          DataBinding.DataField = 'Derate'
          DataBinding.DataSource = dasProperty
          Properties.Alignment.Horz = taRightJustify
          Properties.OnEditValueChanged = edtPriorQtyPropertiesEditValueChanged
          Style.Shadow = True
          TabOrder = 5
        end
        object edtDescription: TcxDBTextEdit
          Left = 8
          Top = 144
          Width = 417
          Height = 23
          DataBinding.DataField = 'Description'
          DataBinding.DataSource = dasProperty
          Style.Shadow = True
          TabOrder = 9
        end
        object edtQuantity: TcxDBMaskEdit
          Left = 8
          Top = 104
          Width = 97
          Height = 23
          DataBinding.DataField = 'Quantity'
          DataBinding.DataSource = dasProperty
          Properties.Alignment.Horz = taRightJustify
          Properties.OnEditValueChanged = edtQuantityPropertiesEditValueChanged
          Style.Shadow = True
          TabOrder = 6
        end
        object edtAmont: TcxDBCurrencyEdit
          Left = 232
          Top = 104
          Width = 193
          Height = 23
          DataBinding.DataField = 'Amont'
          DataBinding.DataSource = dasProperty
          Style.Shadow = True
          TabOrder = 8
        end
        object edtWaterfee: TcxDBCurrencyEdit
          Left = 120
          Top = 104
          Width = 97
          Height = 23
          DataBinding.DataField = 'Waterfee'
          DataBinding.DataSource = dasProperty
          Properties.OnEditValueChanged = edtWaterfeePropertiesEditValueChanged
          Style.Shadow = True
          TabOrder = 7
        end
      end
    end
    object TabPayment: TTabSheet
      Caption = #32564#36153#24773#20917
      ImageIndex = 1
      object GroupBox2: TGroupBox
        Left = 8
        Top = 0
        Width = 433
        Height = 169
        TabOrder = 0
        object Label10: TLabel
          Left = 8
          Top = 10
          Width = 66
          Height = 12
          Caption = #21457#31080#32534#21495'(&I)'
          FocusControl = edtInvoice
        end
        object Label11: TLabel
          Left = 120
          Top = 50
          Width = 66
          Height = 12
          Caption = #32564#36153#26102#38388'(&T)'
          FocusControl = edtPaydate
        end
        object Label12: TLabel
          Left = 120
          Top = 10
          Width = 66
          Height = 12
          Caption = #23454#32564#37329#39069'(&M)'
          FocusControl = edtPayment
        end
        object Label13: TLabel
          Left = 8
          Top = 50
          Width = 54
          Height = 12
          Caption = #25910#36153#21592'(&C)'
          FocusControl = edtCollector
        end
        object Label14: TLabel
          Left = 26
          Top = 142
          Width = 90
          Height = 12
          Caption = #21457#31080#20316#24223#26102#38388'(&O)'
          FocusControl = edtBlankoutdate
        end
        object Bevel2: TBevel
          Left = 8
          Top = 91
          Width = 417
          Height = 9
          Shape = bsTopLine
        end
        object chkPayflag: TcxDBCheckBox
          Left = 5
          Top = 93
          Width = 92
          Height = 21
          Hint = #24403#20320#23558#32564#36153#26631#24535#35774#20026#31354#26102#65292#31995#32479#23558#33258#21160#28165#38500#30456#20851#26631#24535
          DataBinding.DataField = 'Payflag'
          DataBinding.DataSource = dasProperty
          Properties.DisplayUnchecked = 'False'
          Properties.OnEditValueChanged = chkPayflagPropertiesEditValueChanged
          Properties.Caption = #32564#36153#26631#24535'(&P)'
          TabOrder = 4
        end
        object edtInvoice: TcxDBMaskEdit
          Left = 8
          Top = 24
          Width = 97
          Height = 23
          DataBinding.DataField = 'Invoice'
          DataBinding.DataSource = dasProperty
          Properties.ReadOnly = False
          Style.Shadow = True
          TabOrder = 0
        end
        object edtPaydate: TcxDBDateEdit
          Left = 120
          Top = 64
          Width = 97
          Height = 23
          DataBinding.DataField = 'Paydate'
          DataBinding.DataSource = dasProperty
          Style.Shadow = True
          TabOrder = 3
        end
        object edtPayment: TcxDBCurrencyEdit
          Left = 120
          Top = 24
          Width = 305
          Height = 23
          DataBinding.DataField = 'Payment'
          DataBinding.DataSource = dasProperty
          Properties.ReadOnly = False
          Style.Shadow = True
          TabOrder = 1
        end
        object edtCollector: TcxDBLookupComboBox
          Left = 8
          Top = 64
          Width = 97
          Height = 23
          DataBinding.DataField = 'Collector'
          DataBinding.DataSource = dasProperty
          Properties.KeyFieldNames = 'UserID'
          Properties.ListColumns = <
            item
              FieldName = 'Name'
            end>
          Properties.ListSource = dmInvPrint.dsUsers
          Style.Shadow = True
          TabOrder = 2
        end
        object chkBlankoutflag: TcxDBCheckBox
          Left = 5
          Top = 117
          Width = 116
          Height = 21
          DataBinding.DataField = 'Blankoutflag'
          DataBinding.DataSource = dasProperty
          Properties.DisplayUnchecked = 'False'
          Properties.OnEditValueChanged = chkBlankoutflagPropertiesEditValueChanged
          Properties.Caption = #21457#31080#20316#24223#26631#24535'(&B)'
          TabOrder = 5
        end
        object edtBlankoutdate: TcxDBDateEdit
          Left = 120
          Top = 138
          Width = 97
          Height = 23
          DataBinding.DataField = 'Blankoutdate'
          DataBinding.DataSource = dasProperty
          Style.Shadow = True
          TabOrder = 6
        end
      end
    end
  end
end