mainunit.dfm

华海成本核算辅助系统是基于用友U8企业资源管理系统开发的一套半成品成本统计分析软件。本软件界面美观、初始化简单、操作快捷、功能全面、报表多样等优点

object frm_main: Tfrm_main
  Left = 0
  Top = 0
  Width = 1024
  Height = 738
  Align = alClient
  Caption = #21322#25104#21697#20272#31639
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object RzPanel1: TRzPanel
    Left = 0
    Top = 44
    Width = 1016
    Height = 81
    Align = alTop
    BorderOuter = fsNone
    TabOrder = 0
    object RzSeparator1: TRzSeparator
      Left = 0
      Top = 77
      Width = 1016
      Height = 4
      ShowGradient = True
      Align = alBottom
      ParentColor = False
    end
    object lbl1: TRzLabel
      Left = 368
      Top = 24
      Width = 60
      Height = 12
      Caption = #25240#26087#36153#29992#65306
    end
    object lblCurDate: TRzLabel
      Left = 17
      Top = 57
      Width = 84
      Height = 12
      Caption = #24403#21069#20250#35745#21306#38388#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object lblDepreciation: TRzLabel
      Left = 369
      Top = 57
      Width = 84
      Height = 12
      Caption = #24403#21069#25240#26087#36153#29992#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object RzLabel3: TRzLabel
      Left = 584
      Top = 24
      Width = 48
      Height = 12
      Caption = #20135#21697#31867#21035
    end
    object edtdep: TRzNumericEdit
      Left = 431
      Top = 20
      Width = 117
      Height = 20
      TabOrder = 0
      OnExit = edtdepExit
      DisplayFormat = ',0.00;(,0.00)'
    end
    object rzgrpbx1: TRzGroupBox
      Left = 16
      Top = 8
      Width = 337
      Height = 41
      Caption = #20250#35745#21306#38388
      TabOrder = 1
      object RzLabel1: TRzLabel
        Left = 13
        Top = 16
        Width = 24
        Height = 12
        Caption = #20174#65306
      end
      object RzLabel2: TRzLabel
        Left = 173
        Top = 16
        Width = 24
        Height = 12
        Caption = #21040#65306
      end
      object dtpBegin: TRzDateTimePicker
        Left = 56
        Top = 12
        Width = 94
        Height = 20
        Date = 39256.749442453710000000
        Time = 39256.749442453710000000
        TabOrder = 0
      end
      object dtpEnd: TRzDateTimePicker
        Left = 208
        Top = 12
        Width = 94
        Height = 20
        Date = 39256.749442453710000000
        Time = 39256.749442453710000000
        TabOrder = 1
        OnChange = dtpEndChange
      end
    end
    object cbbType: TRzComboBox
      Left = 656
      Top = 20
      Width = 177
      Height = 20
      ItemHeight = 12
      TabOrder = 2
    end
  end
  object RzSizePanel1: TRzSizePanel
    Left = 0
    Top = 125
    Width = 1016
    Height = 559
    Align = alClient
    TabOrder = 1
    object cxGrid1: TcxGrid
      Left = 0
      Top = 0
      Width = 1016
      Height = 559
      Align = alClient
      TabOrder = 0
      object cxGrid1DBTableView1: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.DataSource = dsResult
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skSum
            FieldName = 'cInvDefine12'
            Column = minute
          end
          item
            Kind = skSum
            FieldName = 'cInvDefine4cast'
            Column = cxgrdbclmnoutfee
          end
          item
            Kind = skSum
            FieldName = 'cInvDefine5cast'
            Column = cxgrdbclmnblack
          end
          item
            Kind = skSum
            FieldName = 'cInvDefine6cast'
            Column = cxgrdbclmnother
          end
          item
            Kind = skSum
            FieldName = 'cworkvalue'
            Column = cxgrdbclmnwork
          end
          item
            Kind = skSum
            FieldName = 'ccostvalue'
            Column = cxgrdbclmncost
          end
          item
            Kind = skSum
            FieldName = 'csingleallvalue'
            Column = cxgrdbclmnscost
          end
          item
            Kind = skSum
            FieldName = 'callvalue'
            Column = cxgrdbclmnallcost
          end
          item
            Kind = skSum
            FieldName = 'cinvdefine11cast'
            Column = cxGrid1DBTableView1DBColumn1
          end
          item
            Kind = skSum
            FieldName = 'cdeprec'
            Column = cxgrdbclmnGrid1DBTableView1DBColumn2
          end
          item
            Kind = skSum
            FieldName = 'cdatumallvalue'
            Column = cxgrdbclmnGrid1DBTableView1DBColumn3
          end>
        DataController.Summary.SummaryGroups = <>
        OptionsSelection.CellSelect = False
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        Styles.StyleSheet = GridTableViewStyleSheetDevExpress
        object cxgrdbclmncode: TcxGridDBColumn
          Caption = #23384#36135#32534#21495
          DataBinding.FieldName = 'cInvCode'
          Options.Editing = False
          Options.Filtering = False
          Width = 98
        end
        object cxgrdbclmnname: TcxGridDBColumn
          Caption = #23384#36135#21517#31216
          DataBinding.FieldName = 'cInvName'
          Options.Editing = False
          Options.Filtering = False
          Width = 94
        end
        object cxGrid1DBTableView1DBColumn1: TcxGridDBColumn
          Caption = #20928#37325
          DataBinding.FieldName = 'cinvdefine11cast'