cpml.~dfm

来自「应对服装行业的生产成本控制系统」· ~DFM 代码 · 共 620 行 · 第 1/2 页

            Width = 82
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bz'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Title.Color = clMoneyGreen
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clTeal
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 82
            Visible = True
          end>
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 235
        Width = 590
        Height = 177
        DataSource = DataModule1.DataSource13
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clFuchsia
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
        OnTitleClick = DBGrid1TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'cpmc'
            Title.Alignment = taCenter
            Title.Caption = #21517#31216
            Title.Color = clMoneyGreen
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clTeal
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 135
            Visible = True
          end
          item
            Color = clCream
            Expanded = False
            FieldName = 'cpfl'
            Title.Alignment = taCenter
            Title.Caption = #20998#31867
            Title.Color = clMoneyGreen
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clTeal
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 105
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cpdw'
            Title.Alignment = taCenter
            Title.Caption = #21333#20301
            Title.Color = clMoneyGreen
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clTeal
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 147
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bz'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Title.Color = clMoneyGreen
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clTeal
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 145
            Visible = True
          end>
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 435
      Width = 622
      Height = 41
      Align = alBottom
      BorderStyle = bsSingle
      TabOrder = 1
      object Tnew: TBitBtn
        Left = 8
        Top = 8
        Width = 75
        Height = 25
        Caption = #26032'    '#22686
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = TnewClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
          DADAADADADADADADA0ADDADADADADADAD0DAADADADADADA00000DADADADADADA
          D0DA000000000000A0AD0FFFFFFFFFF0DADA0F00F00F00F0ADAD0FFFFFFFFFF0
          DADA0444444444444DADD4FFFFFFFFFF4ADAA4F00F00F00F4DADD4FFFFFFFFFF
          4ADAA444444444444DADD484484484484ADAA444444444444DAD}
      end
      object Trepair: TBitBtn
        Left = 83
        Top = 8
        Width = 75
        Height = 25
        Caption = #20462'    '#25913
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = TrepairClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
          DADAADADADADADADADADDADADADADADADADAA70000007DADADADD088888800DA
          DADAA0888888070DADADD70888880770DADAAD08F8F8F0770DADDAD08F8F8F07
          70DAADAD08F8F8F0777DDADAD08F8F8F070AADADAD08F8F8F70DDADADAD08F8F
          880AADADADAD7000077DDADADADADADADADAADADADADADADADAD}
      end
      object Tdelete: TBitBtn
        Left = 158
        Top = 8
        Width = 75
        Height = 25
        Caption = #21024'    '#38500
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = TdeleteClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
          DADAADADADADA1ADADADDADADADA11DADAD1ADADADAD111DAD1DDADADADAD11A
          D11A00000000000115AD0888888888511ADA08008008081511AD08888888811A
          D1150444444514444D51D4FFFFF15FFF4ADAA4F00F00F00F4DADD4FFFFFFFFFF
          4ADAA444444444444DADD484484484484ADAA444444444444DAD}
      end
      object Tcancel: TBitBtn
        Left = 233
        Top = 8
        Width = 75
        Height = 25
        Caption = #21462'    '#28040
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = TcancelClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777777777777777777777777777777777777777777777777777777777
          71F77777777777777EF77771F77777777777777EF7777777777777991F777777
          9F777788EF7777778F7777191F777771F77777E8EF77777EF777777199F77791
          F777777E88F7778EF7777777191F719F77777777E8EF7E8F77777777719199F7
          777777777E8E88F77777777777919F7777777777778E8F7777777777791911F7
          7777777778E8EEF777777777191F79F777777777E8EF78F77777779191F77719
          F777778E8EF777E8F77771919F7777719F777E8E8F77777E8F77791F77777777
          19F778EF77777777E8F777777777777777777777777777777777}
        NumGlyphs = 2
      end
      object Tsave: TBitBtn
        Left = 308
        Top = 8
        Width = 75
        Height = 25
        Caption = #20445'    '#23384
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = TsaveClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
          00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
          00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
          00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
          0003737FFFFFFFFF7F7330099999999900333777777777777733}
        NumGlyphs = 2
      end
      object Treturn: TBitBtn
        Left = 383
        Top = 8
        Width = 75
        Height = 25
        Caption = #36820'    '#22238
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = TreturnClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADA0ADADA
          DADAADADA00DADADADADDADA0A007ADADADAADA0ADAD707DADADDAD0DADADA07
          DADAADAD0D007DA0ADADDADAD00A70DA0ADAADADAD0DAD0D0DADDADADADADAD0
          0ADAADADADADADA00DADDADADADAD70A0ADAADADADA707AD0DADDADA0007DAD0
          DADAADAD0DADA707ADADDADA0AD7077ADADAADAD00077DADADAD}
      end
      object BitBtn1: TBitBtn
        Left = 533
        Top = 8
        Width = 75
        Height = 25
        Caption = #20840#37096#26174#31034
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = BitBtn1Click
      end
      object bprintc: TBitBtn
        Left = 458
        Top = 8
        Width = 75
        Height = 25
        Caption = 'EXCEL'#34920
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -9
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = bprintcClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
          DADAADADADAD00000000DADA4ADA0FFFFFF0ADAD44AD0F7777F04444444A0FFF
          FFF0ADAD44AD0F7777F0DADA4ADA0FFFFFF0ADADADAD0F7777F0DA00000A0FFF
          FFF0AD0FFF0D0000000000000F0ADADADADA0FFF0F0DADADADAD0F7F000ADADA
          DADA0F7F00ADADADADAD0FF00ADADADADADA0000ADADADADADAD}
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 296
    Top = 96
  end
end