invoiceprintbrowsefrm.dfm

供水营销打印程序源码

inherited frmBrowseInvoicePrint: TfrmBrowseInvoicePrint
  Left = 227
  Top = 152
  Width = 661
  Caption = #25171#21360#21457#31080
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited grdBrowse: TDBGridEh
    Top = 209
    Width = 653
    Height = 192
    DataSource = dmInvPrint.dsPrint
    Columns = <
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = 'Payflag'
        Footers = <>
        Width = 28
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = 'WRID'
        Footers = <>
        Title.Caption = #23458#25143#20449#24687'|'#24207#21495
        Width = 51
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = 'CustID'
        Footers = <>
        Title.Caption = #23458#25143#20449#24687'|'#23458#25143#32534#21495
        Width = 52
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = 'Name'
        Footers = <>
        Title.Caption = #23458#25143#20449#24687'|'#23458#25143#21517#31216
        Width = 115
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = 'Address'
        Footers = <>
        Title.Caption = #23458#25143#20449#24687'|'#32852#31995#22320#22336
        Width = 177
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = 'CurrQty'
        Footers = <>
        Title.Caption = #23458#25143#29992#27700#20449#24687'|'#26412#26399#21051#24230
        Width = 96
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = 'PriorQty'
        Footers = <>
        Title.Caption = #23458#25143#29992#27700#20449#24687'|'#19978#26399#21051#24230
        Width = 96
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = 'Derate'
        Footers = <>
        Title.Caption = #23458#25143#29992#27700#20449#24687'|'#20943#20813#27700#37327
        Width = 96
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = 'Quantity'
        Footers = <>
        Title.Caption = #23458#25143#29992#27700#20449#24687'|'#26412#26399#27700#37327
        Width = 96
      end
      item
        AutoFitColWidth = False
        EditButtons = <>
        FieldName = 'Amont'
        Footers = <>
        Title.Caption = #23458#25143#29992#27700#20449#24687'|'#24212#32564#37329#39069
        Width = 108
      end>
  end
  object ControlPanel: TPanel [1]
    Left = 0
    Top = 0
    Width = 653
    Height = 209
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    DesignSize = (
      653
      209)
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 66
      Height = 12
      Caption = #23458#25143#32534#21495'(&C)'
      FocusControl = edtCustID
    end
    object Label2: TLabel
      Left = 120
      Top = 8
      Width = 66
      Height = 12
      Caption = #23458#25143#21517#31216'(&N)'
    end
    object Label3: TLabel
      Left = 504
      Top = 8
      Width = 66
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #21457#31080#21495#30721'(&I)'
      FocusControl = edtInvoice
    end
    object Label4: TLabel
      Left = 8
      Top = 48
      Width = 66
      Height = 12
      Caption = #24320#31080#26085#26399'(&T)'
      FocusControl = edtPaydate
    end
    object Label5: TLabel
      Left = 120
      Top = 48
      Width = 66
      Height = 12
      Caption = #26412#26399#21051#24230'(&U)'
    end
    object Label6: TLabel
      Left = 248
      Top = 48
      Width = 66
      Height = 12
      Caption = #19978#26399#21051#24230'(&R)'
      FocusControl = edtPriorQty
    end
    object Label7: TLabel
      Left = 376
      Top = 48
      Width = 66
      Height = 12
      Caption = #20943#20813#27700#37327'(&D)'
      FocusControl = edtDerate
    end
    object Label8: TLabel
      Left = 504
      Top = 48
      Width = 66
      Height = 12
      Caption = #26412#26399#27700#37327'(&Q)'
      FocusControl = edtQty
    end
    object Label9: TLabel
      Left = 8
      Top = 88
      Width = 66
      Height = 12
      Caption = #24212#32564#37329#39069'(&M)'
    end
    object edtCustID: TcxDBMaskEdit
      Left = 8
      Top = 21
      Width = 97
      Height = 23
      DataBinding.DataField = 'CustID'
      DataBinding.DataSource = dmInvPrint.dsPrint
      Properties.Alignment.Horz = taRightJustify
      Properties.ReadOnly = False
      Style.Shadow = True
      TabOrder = 0
      OnExit = edtCustIDExit
      OnKeyPress = edtCustIDKeyPress
    end
    object edtInvoice: TcxMaskEdit
      Left = 572
      Top = 3
      Width = 73
      Height = 23
      Hint = #22312#27492#22788#36755#20837#19979#19968#24352#24453#25171#21360#21457#31080#30340#21495#30721
      TabStop = False
      Anchors = [akTop, akRight]
      ParentFont = False
      Style.Color = clBtnFace
      Style.Edges = [bBottom]
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clHotLight
      Style.Font.Height = -12
      Style.Font.Name = #23435#20307
      Style.Font.Style = [fsBold]
      Style.Shadow = True
      TabOrder = 1
    end
    object chkStopUpdateInvoice: TcxCheckBox
      Left = 499
      Top = 26
      Width = 142
      Height = 21
      TabStop = False
      Anchors = [akTop, akRight]
      Properties.DisplayUnchecked = 'False'
      Properties.Caption = #20572#27490#26356#26032#21457#31080#21495#30721'(&S)'
      Style.Shadow = False
      TabOrder = 2
    end
    object edtPaydate: TcxDateEdit
      Left = 8
      Top = 62
      Width = 97
      Height = 23
      Style.Shadow = True
      TabOrder = 3
    end
    object edtPriorQty: TcxDBMaskEdit
      Left = 248
      Top = 62
      Width = 113
      Height = 23
      TabStop = False
      DataBinding.DataField = 'PriorQty'
      DataBinding.DataSource = dmInvPrint.dsPrint
      Properties.Alignment.Horz = taRightJustify
      Style.Shadow = True
      TabOrder = 4
    end
    object edtDerate: TcxDBMaskEdit
      Left = 376
      Top = 62
      Width = 113
      Height = 23
      TabStop = False
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'Derate'
      DataBinding.DataSource = dmInvPrint.dsPrint
      Properties.Alignment.Horz = taRightJustify
      Style.Shadow = True
      TabOrder = 5
    end
    object edtQty: TcxDBMaskEdit
      Left = 503
      Top = 62
      Width = 141
      Height = 23
      TabStop = False
      Anchors = [akTop, akRight]
      DataBinding.DataField = 'Quantity'
      DataBinding.DataSource = dmInvPrint.dsPrint
      Properties.Alignment.Horz = taRightJustify
      Style.Shadow = True
      TabOrder = 6
    end
    object btnPrint: TcxButton
      Left = 486
      Top = 128
      Width = 75
      Height = 25
      Action = actBrowsePrintInvoice
      Anchors = [akTop, akRight]
      TabOrder = 9
      LookAndFeel.Kind = lfUltraFlat
    end
    object chkShowall: TcxCheckBox
      Left = 5
      Top = 140
      Width = 156
      Height = 21
      Hint = #20801#35768#20320#19968#27425#22788#29702#25152#26377#30340#35760#24405
      TabStop = False
      Properties.DisplayUnchecked = 'False'
      Properties.Caption = #26174#31034#25152#26377#26410#25171#21360#35760#24405'(&A)'
      TabOrder = 8
      OnClick = chkShowallClick
    end
    object chkSeriesPrint: TcxCheckBox
      Left = 5
      Top = 124
      Width = 100
      Height = 21
      Hint = #36830#32493#25171#21360#25152#26377#35760#24405
      TabStop = False
      Properties.DisplayUnchecked = 'False'
      Properties.Caption = #36830#32493#25171#21360'(&S)'
      TabOrder = 7
    end
    object cxButton1: TcxButton
      Left = 566
      Top = 128
      Width = 75
      Height = 25
      Hint = #35774#32622#21457#31080#25171#21360#36873#39033
      Action = actBrowsePrintSetting
      Anchors = [akTop, akRight]
      Caption = #25171#21360#35774#32622'(&O)'
      TabOrder = 10
      LookAndFeel.Kind = lfUltraFlat
    end
    object edtName: TcxLookupComboBox
      Left = 120
      Top = 21
      Width = 369
      Height = 23
      Properties.DropDownSizeable = True
      Properties.KeyFieldNames = 'CustID'
      Properties.ListColumns = <
        item
          MinWidth = 57
          FieldName = 'CustID'
        end
        item
          MinWidth = 96
          FieldName = 'Name'
        end
        item
          MinWidth = 64
          FieldName = 'Phone'
        end
        item
          MinWidth = 128
          FieldName = 'Address'
        end
        item
          MinWidth = 256
          FieldName = 'Description'
        end>
      Properties.ListFieldIndex = 1
      Properties.ListOptions.GridLines = glVertical
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dmInvPrint.dsCustomer
      Properties.OnCloseUp = edtNamePropertiesCloseUp
      Properties.OnInitPopup = edtNamePropertiesInitPopup
      EditValue = ''
      Style.Shadow = True
      TabOrder = 11
    end
    object edtCurrQty: TcxDBMaskEdit
      Left = 120
      Top = 62
      Width = 113
      Height = 23
      TabStop = False
      DataBinding.DataField = 'CurrQty'
      DataBinding.DataSource = dmInvPrint.dsPrint
      Properties.Alignment.Horz = taRightJustify
      Style.Shadow = True
      TabOrder = 12
    end
    object edtBigAmont: TcxDBMaskEdit
      Left = 9
      Top = 101
      Width = 636
      Height = 23
      DataBinding.DataField = 'BigAmont'
      DataBinding.DataSource = dmInvPrint.dsPrint
      Style.Shadow = True
      TabOrder = 13
    end
    object InvoicePanel: TPanel
      Left = 2
      Top = 2
      Width = 649
      Height = 205
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 14
      DesignSize = (
        649
        205)
      object fcLabel2: TfcLabel
        Left = 2
        Top = 2
        Width = 645
        Height = 24
        Align = alTop
        Caption = #24191#19996#30465#21830#21697#38144#21806#32479#19968#21457#31080
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
        TextOptions.Alignment = taCenter
        TextOptions.VAlignment = vaVCenter
        Transparent = True
      end
      object Label10: TLabel
        Left = 9
        Top = 35
        Width = 66
        Height = 12
        Caption = #23458#25143#21517#31216'(&N)'
      end
      object Label11: TLabel
        Left = 546
        Top = 8
        Width = 21
        Height = 12
        Anchors = [akTop, akRight]
        Caption = 'N&o.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label12: TLabel
        Left = 500
        Top = 34
        Width = 12
        Height = 12
        Anchors = [akTop, akRight]
        Caption = #24180
      end
      object Label13: TLabel
        Left = 548
        Top = 34
        Width = 12
        Height = 12
        Anchors = [akTop, akRight]
        Caption = #26376
      end
      object Label14: TLabel
        Left = 596
        Top = 34
        Width = 42
        Height = 12
        Anchors = [akTop, akRight]
        Caption = #26085' '#22635#21457
      end
      object Label18: TLabel
        Left = 8
        Top = 160
        Width = 48
        Height = 12
        Caption = #24320#31080#20154#65306
      end
      object Label19: TLabel
        Left = 160
        Top = 160
        Width = 48
        Height = 12
        Caption = #25910#27454#20154#65306
      end
      object Label20: TLabel
        Left = 328
        Top = 154
        Width = 49
        Height = 27
        Anchors = [akTop, akRight]
        AutoSize = False
        Caption = #19994#25143#21517#31216#21450' '#22320' '#22336
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Label21: TLabel
        Left = 376
        Top = 160
        Width = 48
        Height = 12
        Anchors = [akTop, akRight]
        Caption = #65288#30422#31456#65289
      end
      object edtCustomer: TcxLookupComboBox
        Left = 80
        Top = 29
        Width = 233
        Height = 20
        Hint = #36755#20837#20219#24847#23383#31526#23558#24377#20986#24403#21069#23458#25143#21015#34920#20197#20379#36873#25321
        Properties.DropDownSizeable = True
        Properties.KeyFieldNames = 'CustID'
        Properties.ListColumns = <
          item
            MinWidth = 57
            FieldName = 'CustID'
          end
          item
            MinWidth = 96
            FieldName = 'Name'
          end
          item
            MinWidth = 64
            FieldName = 'Phone'
          end
          item