⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 base.~dfm

📁 家具行業的成本核算報价系統,主要征對家個產品的結構展開進行材料成本及人工制造費用統計,加上可調節的利潤設定,將其成本核算出來,同時將報價單作出來
💻 ~DFM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            FieldName = 'fsize1'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'frmup'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'famt'
            Footer.FieldName = 'famt'
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'frtname'
            Footers = <>
            Width = 55
          end>
      end
    end
    object wj: TTabSheet
      Caption = #34180#29255#39006
      ImageIndex = 6
      object bpgrid: TDBGridEh
        Left = 0
        Top = 0
        Width = 805
        Height = 573
        Align = alClient
        AutoFitColWidths = True
        DataSource = DSUP
        EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #26032#32048#26126#39636
        Font.Style = []
        FooterColor = clYellow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = 'Arial'
        FooterFont.Style = []
        FooterRowCount = 1
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ParentFont = False
        ParentShowHint = False
        RowHeight = 2
        RowLines = 1
        RowSizingAllowed = True
        ShowHint = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -13
        TitleFont.Name = #26032#32048#26126#39636
        TitleFont.Style = []
        TitleLines = 1
        UseMultiTitle = True
        OnEditButtonClick = bpgridEditButtonClick
        OnEnter = smgridEnter
        OnExit = smgridExit
        OnKeyPress = bpgridKeyPress
        WColor = True
        WFirstColor = 16252655
        WSecondColor = 16119033
        Columns = <
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'fptname'
            Footer.Value = #23567#35336':'
            Footer.ValueType = fvtStaticText
            Footers = <>
            Width = 91
          end
          item
            EditButtons = <>
            FieldName = 'funit'
            Footers = <>
            PickList.Strings = (
              'MM'
              'CM'
              'IN')
            Width = 32
          end
          item
            EditButtons = <>
            FieldName = 'fnl'
            Footers = <>
            Title.Caption = #25104#21697#23610#23544'|('#21934#20301':)|'#38263
          end
          item
            EditButtons = <>
            FieldName = 'fnw'
            Footers = <>
            Title.Caption = #25104#21697#23610#23544'|('#21934#20301':)|'#23532
          end
          item
            EditButtons = <>
            FieldName = 'fnh'
            Footers = <>
            Title.Caption = #25104#21697#23610#23544'|('#21934#20301':)|'#21402
          end
          item
            EditButtons = <>
            FieldName = 'fqty'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'fusize'
            Footer.FieldName = 'fusize'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = #23526#38555' |'#38754#31309
            Width = 60
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'frmname'
            Footers = <>
            Width = 128
          end
          item
            EditButtons = <>
            FieldName = 'fsize1'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'frmup'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'famt'
            Footer.FieldName = 'famt'
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'frtname'
            Footers = <>
            Width = 55
          end>
      end
    end
    object bt: TTabSheet
      Caption = #20116#37329#39006
      ImageIndex = 3
      object WJGrid: TDBGridEh
        Left = 0
        Top = 0
        Width = 805
        Height = 573
        Align = alClient
        AutoFitColWidths = True
        DataSource = DSUP
        EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #26032#32048#26126#39636
        Font.Style = []
        FooterColor = clYellow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = 'Arial'
        FooterFont.Style = []
        FooterRowCount = 1
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ParentFont = False
        ParentShowHint = False
        RowHeight = 2
        RowLines = 1
        RowSizingAllowed = True
        ShowHint = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -13
        TitleFont.Name = #26032#32048#26126#39636
        TitleFont.Style = []
        TitleLines = 1
        UseMultiTitle = True
        OnEditButtonClick = WJGridEditButtonClick
        OnEnter = smgridEnter
        OnExit = smgridExit
        OnKeyPress = WJGridKeyPress
        WColor = True
        WFirstColor = 16252655
        WSecondColor = 16119033
        Columns = <
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'frmname'
            Footers = <>
            Width = 210
          end
          item
            EditButtons = <>
            FieldName = 'fqty'
            Footers = <>
            Title.Caption = #25976#37327
            Width = 69
          end
          item
            EditButtons = <>
            FieldName = 'frmup'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'famt'
            Footer.FieldName = 'famt'
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'frtname'
            Footers = <>
            Width = 55
          end>
      end
    end
    object other: TTabSheet
      Caption = #32025#31665#39006
      ImageIndex = 7
      object bcGrid: TDBGridEh
        Left = 0
        Top = 0
        Width = 805
        Height = 573
        Align = alClient
        AutoFitColWidths = True
        DataSource = DSUP
        EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #26032#32048#26126#39636
        Font.Style = []
        FooterColor = clYellow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = 'Arial'
        FooterFont.Style = []
        FooterRowCount = 1
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ParentFont = False
        ParentShowHint = False
        RowHeight = 2
        RowLines = 1
        RowSizingAllowed = True
        ShowHint = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -13
        TitleFont.Name = #26032#32048#26126#39636
        TitleFont.Style = []
        TitleLines = 1
        UseMultiTitle = True
        OnEditButtonClick = bcGridEditButtonClick
        OnEnter = smgridEnter
        OnExit = smgridExit
        OnKeyPress = bcGridKeyPress
        WColor = True
        WFirstColor = 16252655
        WSecondColor = 16119033
        Columns = <
          item
            EditButtons = <>
            FieldName = 'fnl'
            Footers = <>
            Title.Caption = #32025#31665#23610#23544'|('#21934#20301':IN)|'#38263
          end
          item
            EditButtons = <>
            FieldName = 'fnw'
            Footers = <>
            Title.Caption = #32025#31665#23610#23544'|('#21934#20301':IN)|'#23532
          end
          item
            EditButtons = <>
            FieldName = 'fnh'
            Footers = <>
            Title.Caption = #32025#31665#23610#23544'|('#21934#20301':IN)|'#39640
          end
          item
            EditButtons = <>
            FieldName = 'fqty'
            Footers = <>
            Title.Caption = #32025#31665'|'#25976#37327
          end
          item
            EditButtons = <>
            FieldName = 'fusize'
            Footer.FieldName = 'fusize'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = #32025#31665' |'#26448#31309
            Width = 60
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'frmname'
            Footers = <>
            Width = 128
          end
          item
            EditButtons = <>
            FieldName = 'frmup'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'famt'
            Footer.FieldName = 'famt'
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'frtname'
            Footers = <>
            Width = 55
          end>
      end
    end
    object tot: TTabSheet
      Caption = #20854#23427#39006
      ImageIndex = 5
      object OTHerGrid: TDBGridEh
        Left = 0
        Top = 0
        Width = 788
        Height = 670
        Align = alClient
        AutoFitColWidths = True
        DataSource = DSUP
        EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #26032#32048#26126#39636
        Font.Style = []
        FooterColor = clYellow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = 'Arial'
        FooterFont.Style = []
        FooterRowCount = 1
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ParentFont = False
        ParentShowHint = False
        RowHeight = 2
        RowLines = 1
        RowSizingAllowed = True
        ShowHint = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -13
        TitleFont.Name = #26032#32048#26126#39636
        TitleFont.Style = []
        TitleLines = 1
        UseMultiTitle = True
        OnEditButtonClick = OTHerGridEditButtonClick
        OnEnter = smgridEnter
        OnExit = smgridExit
        OnKeyPress = OTHerGridKeyPress
        WColor = True
        WFirstColor = 16252655
        WSecondColor = 16119033
        Columns = <
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'frmname'
            Footers = <>
            Width = 210
          end
          item
            EditButtons = <>
            FieldName = 'fqty'
            Footers = <>
            Title.Caption = #25976#37327
            Width = 69
          end
          item
            EditButtons = <>
            FieldName = 'frmup'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'famt'
            Footer.FieldName = 'famt'
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'frtname'
            Footers = <>
            Width = 55
          end>
      end
    end
    object TabSheet7: TTabSheet
      Caption = #32317'  '#35336
      ImageIndex = 6
      object Panel15: TPanel
        Left = 0
        Top = 0
        Width = 788
        Height = 670
        Align = alClient
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #27161#26999#39636
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label99: TLabel
          Left = 15
          Top = 4
          Width = 32
          Height = 15
          Caption = #26448#26009
          Font.Charset = CHINESEBIG5_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = #27161#26999#39636
          Font.Style = []
          ParentFont = False
        end
        object Label106: TLabel
          Left = 89
          Top = 4
          Width = 64
          Height = 15
          Caption = #26448#26009#36027#29992
          Font.Charset = CHINESEBIG5_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = #27161#26999#39636
          Font.Style = []
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -