invoiceprintbrowsefrm.dfm

供水营销打印程序源码

            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.OnChange = edtCustomerPropertiesChange
        Properties.OnCloseUp = edtNamePropertiesCloseUp
        Properties.OnInitPopup = edtNamePropertiesInitPopup
        EditValue = ''
        Style.Color = clBtnFace
        Style.Edges = [bBottom]
        Style.Shadow = False
        Style.ButtonTransparency = ebtHideInactive
        TabOrder = 1
      end
      object edtInvoiceNO: TcxMaskEdit
        Left = 568
        Top = 5
        Width = 73
        Height = 20
        Hint = #27492#22788#36755#20837#23558#35201#20351#29992#30340#21457#31080#21495#30721
        TabStop = False
        Anchors = [akTop, akRight]
        ParentFont = False
        Properties.Alignment.Horz = taLeftJustify
        Properties.Alignment.Vert = taBottomJustify
        Style.Color = clBtnFace
        Style.Edges = [bBottom]
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clRed
        Style.Font.Height = -12
        Style.Font.Name = #23435#20307
        Style.Font.Style = [fsBold]
        TabOrder = 0
        Text = '12345678'
      end
      object spinYear: TcxSpinEdit
        Left = 456
        Top = 29
        Width = 41
        Height = 20
        Anchors = [akTop, akRight]
        Properties.Alignment.Horz = taRightJustify
        Style.Color = clBtnFace
        Style.Edges = [bBottom]
        Style.ButtonTransparency = ebtHideInactive
        TabOrder = 2
        Value = 2003
      end
      object spinMonth: TcxSpinEdit
        Left = 515
        Top = 29
        Width = 30
        Height = 20
        Anchors = [akTop, akRight]
        Properties.Alignment.Horz = taRightJustify
        Style.Color = clBtnFace
        Style.Edges = [bBottom]
        Style.ButtonTransparency = ebtHideInactive
        TabOrder = 3
        Value = 7
      end
      object spinDay: TcxSpinEdit
        Left = 563
        Top = 29
        Width = 30
        Height = 20
        Anchors = [akTop, akRight]
        Properties.Alignment.Horz = taRightJustify
        Style.Color = clBtnFace
        Style.Edges = [bBottom]
        Style.ButtonTransparency = ebtHideInactive
        TabOrder = 4
        Value = 7
      end
      object DBGridEh1: TDBGridEh
        Left = 8
        Top = 51
        Width = 631
        Height = 70
        TabStop = False
        Anchors = [akLeft, akTop, akRight]
        AutoFitColWidths = True
        DataSource = dmInvPrint.dsPrint
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        HorzScrollBar.Visible = False
        Options = [dgTitles, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
        TabOrder = 5
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        VertScrollBar.VisibleMode = sbNeverShowEh
        OnColWidthsChanged = DBGridEh1ColWidthsChanged
        Columns = <
          item
            EditButtons = <>
            FieldName = 'Item'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21697'  '#21517'  '#35268'  '#26684
            Width = 197
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = 'Units'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21333' '#20301
            Width = 49
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = 'Quantity'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25968' '#37327
            Width = 128
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = 'sPrice'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21333' '#20215
            Width = 40
          end
          item
            AutoFitColWidth = False
            EditButtons = <>
            FieldName = 'Amont'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #37329#39069
            Width = 128
          end
          item
            EditButtons = <>
            FieldName = 'Description'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Width = 83
          end>
      end
      object edtCharge: TcxLookupComboBox
        Left = 54
        Top = 155
        Width = 83
        Height = 20
        TabStop = False
        Properties.KeyFieldNames = 'UserID'
        Properties.ListColumns = <
          item
            FieldName = 'Name'
          end>
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = dmInvPrint.dsUsers
        Style.Color = clBtnFace
        Style.Edges = [bBottom]
        Style.ButtonTransparency = ebtHideInactive
        TabOrder = 6
      end
      object edtCompany: TcxMaskEdit
        Left = 424
        Top = 155
        Width = 217
        Height = 20
        TabStop = False
        Anchors = [akTop, akRight]
        Style.Color = clBtnFace
        Style.Edges = [bBottom]
        TabOrder = 8
      end
      object btnPrintInvoice: TcxButton
        Left = 526
        Top = 178
        Width = 113
        Height = 21
        Action = actBrowsePrintInvoice
        Anchors = [akRight, akBottom]
        TabOrder = 11
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C00000000000000000000000000000000000000000000
          1F7C1F7C1F7C1F7C000018631863186318631863186318631863186300001863
          00001F7C1F7C0000000000000000000000000000000000000000000000000000
          186300001F7C0000186318631863186318631863E07FE07FE07F186318630000
          000000001F7C0000186318631863186318631863104210421042186318630000
          186300001F7C0000000000000000000000000000000000000000000000000000
          1863186300000000186318631863186318631863186318631863186300001863
          0000186300001F7C000000000000000000000000000000000000000018630000
          1863000000001F7C1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001863
          0000186300001F7C1F7C1F7C0000FF7F00000000000000000000FF7F00000000
          000000001F7C1F7C1F7C1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7F00000000000000000000FF7F0000
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
          00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00000000000000000000000000000000
          00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object chkSeriesPrint1: TcxCheckBox
        Left = 3
        Top = 179
        Width = 101
        Height = 21
        TabStop = False
        Properties.DisplayUnchecked = 'False'
        Properties.Caption = #36830#32493#25171#21360'(&S)'
        TabOrder = 9
      end
      object chkShowAll1: TcxCheckBox
        Left = 155
        Top = 179
        Width = 157
        Height = 21
        TabStop = False
        Properties.DisplayUnchecked = 'False'
        Properties.Caption = #26174#31034#25152#26377#26410#25171#21360#35760#24405'(&A)'
        TabOrder = 10
        OnClick = chkShowallClick
      end
      object edtCollector: TcxLookupComboBox
        Left = 206
        Top = 155
        Width = 83
        Height = 20
        TabStop = False
        Properties.KeyFieldNames = 'UserID'
        Properties.ListColumns = <
          item
            FieldName = 'Name'
          end>
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = dmInvPrint.dsUsers
        Style.Color = clBtnFace
        Style.Edges = [bBottom]
        Style.ButtonTransparency = ebtHideInactive
        TabOrder = 7
      end
      object Panel1: TPanel
        Left = 8
        Top = 122
        Width = 632
        Height = 33
        Anchors = [akLeft, akTop, akRight]
        BevelOuter = bvLowered
        TabOrder = 12
        object Splitter1: TSplitter
          Left = 419
          Top = 1
          Width = 0
          Height = 31
        end
        object BigAmontPanel: TPanel
          Left = 1
          Top = 1
          Width = 418
          Height = 31
          Align = alLeft
          TabOrder = 0
          object Bevel2: TBevel
            Left = 83
            Top = 1
            Width = 2
            Height = 29
            Align = alLeft
            Shape = bsLeftLine
          end
          object Shape1: TShape
            Left = 85
            Top = 1
            Width = 332
            Height = 29
            Align = alClient
            Brush.Color = clInactiveCaption
            Brush.Style = bsFDiagonal
            Pen.Style = psClear
          end
          object labBigAmont: TfcLabel
            Left = 85
            Top = 1
            Width = 332
            Height = 29
            Align = alClient
            AutoSize = False
            Caption = #22777#19975#20237#20191#38470#20336#21441#25342#26578#20803#27491
            DataField = 'Bigamont'
            DataSource = dmInvPrint.dsPrint
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clHighlight
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            TextOptions.Alignment = taLeftJustify
            TextOptions.VAlignment = vaVCenter
            Transparent = True
          end
          object Panel2: TPanel
            Left = 1
            Top = 1
            Width = 82
            Height = 29
            Align = alLeft
            BevelOuter = bvNone
            TabOrder = 0
            object Label15: TLabel
              Left = 4
              Top = 2
              Width = 45
              Height = 25
              AutoSize = False
              Caption = #21512'  '#35745#20154#27665#24065
              WordWrap = True
            end
            object Label16: TLabel
              Left = 38
              Top = 9
              Width = 48
              Height = 12
              Caption = #65288#22823#20889#65289
            end
          end
        end
        object AmontPanel: TPanel
          Left = 419
          Top = 1
          Width = 212
          Height = 31
          Align = alClient
          TabOrder = 1
          object Bevel4: TBevel
            Left = 49
            Top = 1
            Width = 2
            Height = 29
            Align = alLeft
            Shape = bsLeftLine
          end
          object Shape2: TShape
            Left = 51
            Top = 1
            Width = 160
            Height = 29
            Align = alClient
            Brush.Color = clInactiveCaption
            Brush.Style = bsFDiagonal
            Pen.Style = psClear
          end
          object fcLabel1: TfcLabel
            Left = 51
            Top = 1
            Width = 160
            Height = 29
            Align = alClient
            AutoSize = False
            Caption = #65509'15637.00'
            DataField = 'Amont'
            DataSource = dmInvPrint.dsPrint
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clHighlight
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            TextOptions.Alignment = taRightJustify
            TextOptions.VAlignment = vaVCenter
            Transparent = True
          end
          object Panel3: TPanel
            Left = 1
            Top = 1
            Width = 48
            Height = 29
            Align = alLeft
            BevelOuter = bvNone
            TabOrder = 0
            DesignSize = (
              48
              29)
            object Label17: TLabel
              Left = 0
              Top = 9
              Width = 48
              Height = 12
              Anchors = [akTop, akRight]
              Caption = #65288#23567#20889#65289
              Transparent = True
            end
          end
        end
      end
    end
  end
  inherited PropStorage: TPropStorageEh
    Left = 8
    Top = 336
  end
  inherited RegPropManager: TRegPropStorageManEh
    Left = 40
    Top = 336
  end
  inherited pmBrowse: TPopupMenu
    Left = 72
    Top = 336
    object N6: TMenuItem [1]
      Caption = '-'
    end
    object L1: TMenuItem [2]
      Action = actBrowseLoadSetting
    end
    object B1: TMenuItem [3]
      Action = actBrowseBlankoutInvoice
    end
    object N7: TMenuItem [4]
      Caption = '-'
    end
    object R2: TMenuItem [5]
      Caption = #25968#25454#25253#34920'(&R)'
      object T1: TMenuItem
        Action = actBrowseMonthChargeGroupReport
        Caption = #26376#25910#36153#20998#32452#25253#34920'(&G)...'
      end
      object N8: TMenuItem
        Action = actBrowseMonthChargeDetailReport
      end
    end
  end
  inherited XPMenu1: TXPMenu
    Left = 104
    Top = 336
  end
  inherited ActList: TActionList
    Left = 8
    Top = 368
    inherited actBrowseNew: TAction
      Visible = False
    end
    inherited actBrowseEdit: TAction
      Visible = False
    end
    inherited actBrowseDelete: TAction
      Visible = False
    end
    object actBrowseLoadSetting: TAction
      Caption = #21152#36733#25171#21360#36873#39033'(&L)'
      OnExecute = actBrowseLoadSettingExecute
    end
    object actBrowsePrintSetting: TAction
      Caption = #25171#21360#35774#32622'(&O)...'
      OnExecute = actBrowsePrintSettingExecute
    end
    object actBrowseMonthChargeGroupReport: TAction
      Tag = 1
      Caption = #24403#26376#25910#36153#20998#32452#25253#34920'(&G)...'
      OnExecute = actBrowseMonthChargeGroupReportExecute
    end
    object actBrowseMonthChargeDetailReport: TAction
      Tag = 2
      Caption = #26376#25910#36153#26126#32454#25253#34920'(&D)...'
      OnExecute = actBrowseMonthChargeGroupReportExecute
    end
    object actBrowsePrintInvoice: TAction
      Caption = #25171#21360#21457#31080'(&P)'
      Hint = #31243#24207#40664#35748#21482#25171#21360#19968#26465#35760#24405#30340#21457#31080#65292#22914#38656#25171#21360#25152#26377#35760#24405#35831#36873#25321#8220#36830#32493#25171#21360#8221#21450#8220#26174#31034#25152#26377#26410#25171#21360#35760#24405#8221
      OnExecute = actBrowsePrintExecute
    end
    object actBrowseBlankoutInvoice: TAction
      Caption = #20316#24223#24050#25171#21457#31080'(&B)...'
      OnExecute = actBrowseBlankoutInvoiceExecute
    end
  end
  inherited Savedlg: TSaveDialog
    Left = 39
    Top = 368
  end
  inherited FilterDialog: TwwFilterDialog
    Caption = #26597#25214
    DefaultFilterBy = fdFilterByValue
    DefaultField = 'CustID'
    Left = 72
    Top = 368
  end
end