ddchcx.~dfm

来自「应对服装行业的生产成本控制系统」· ~DFM 代码 · 共 511 行

~DFM
511 行
字号 
object Frmddchcx: TFrmddchcx
  Left = 50
  Top = -11
  Width = 1032
  Height = 746
  Align = alClient
  Caption = #12304#35746#21333#20986#36135#26597#35810#12305
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label7: TLabel
    Left = 659
    Top = 536
    Width = 92
    Height = 14
    AutoSize = False
    Caption = #23458#25143
    Color = clSkyBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Pz: TPanel
    Left = 0
    Top = 0
    Width = 1024
    Height = 658
    Align = alClient
    Alignment = taRightJustify
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Color = clSkyBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object help: TLabel
      Left = 2
      Top = 627
      Width = 1016
      Height = 25
      Align = alBottom
      AutoSize = False
      Color = clGradientActiveCaption
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object pq: TPanel
      Left = 2
      Top = 2
      Width = 1016
      Height = 47
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Color = clSkyBlue
      TabOrder = 0
      object cddh: TCheckBox
        Left = 12
        Top = 11
        Width = 57
        Height = 16
        Caption = #35746#21333
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object qddh: TEdit
        Left = 58
        Top = 11
        Width = 80
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 1
      end
      object cxh: TCheckBox
        Left = 152
        Top = 11
        Width = 57
        Height = 16
        Caption = #24207#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object qxh: TEdit
        Left = 199
        Top = 11
        Width = 81
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 3
      end
      object ccl: TCheckBox
        Left = 581
        Top = 11
        Width = 63
        Height = 17
        Caption = #20986#37327
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 4
      end
      object qcl: TEdit
        Left = 627
        Top = 11
        Width = 83
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 5
      end
      object ccz: TCheckBox
        Left = 724
        Top = 11
        Width = 63
        Height = 17
        Caption = #20986#24635
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 6
      end
      object qcz: TEdit
        Left = 770
        Top = 11
        Width = 83
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 7
      end
      object cbz: TCheckBox
        Left = 865
        Top = 11
        Width = 63
        Height = 17
        Caption = #22791#27880
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 8
      end
      object qbz: TEdit
        Left = 911
        Top = 11
        Width = 83
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 9
      end
      object Cqq: TCheckBox
        Left = 293
        Top = 11
        Width = 57
        Height = 17
        Caption = #20132#36215
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
      end
      object Czq: TCheckBox
        Left = 436
        Top = 11
        Width = 57
        Height = 17
        Caption = #20132#27490
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 11
      end
      object zq: TDateTimePicker
        Left = 483
        Top = 11
        Width = 84
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 12
      end
      object qq: TDateTimePicker
        Left = 339
        Top = 11
        Width = 83
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 13
      end
    end
    object GroupBox1: TGroupBox
      Left = -1
      Top = 48
      Width = 1019
      Height = 579
      Caption = #20986#36135#35760#24405
      Color = clSkyBlue
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      object DBGrid5: TDBGrid
        Left = 2
        Top = 15
        Width = 1015
        Height = 562
        Align = alClient
        Color = clWhite
        DataSource = DataModule1.DataSource19
        FixedColor = clWhite
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlue
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnKeyPress = DBGrid5KeyPress
        OnTitleClick = DBGrid5TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'xh'
            Title.Alignment = taCenter
            Title.Caption = #24207#21495
            Title.Color = clMoneyGreen
            Width = 52
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ddh'
            Title.Alignment = taCenter
            Title.Caption = #35746#21333#21495
            Title.Color = clMoneyGreen
            Width = 78
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'rq'
            Title.Alignment = taCenter
            Title.Caption = #26085#26399
            Title.Color = clMoneyGreen
            Width = 131
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sl'
            Title.Alignment = taCenter
            Title.Caption = #20986#36135#37327
            Title.Color = clMoneyGreen
            Width = 87
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'czl'
            Title.Alignment = taCenter
            Title.Caption = #20986#36135#24635#37327
            Title.Color = clMoneyGreen
            Width = 81
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'wcl'
            Title.Alignment = taCenter
            Title.Caption = #21097#20313#24212#20986#37327
            Title.Color = clMoneyGreen
            Width = 79
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bz'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Title.Color = clMoneyGreen
            Width = 107
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'czy'
            Title.Alignment = taCenter
            Title.Caption = #25805#20316#21592
            Title.Color = clMoneyGreen
            Width = 72
            Visible = True
          end>
      end
    end
  end
  object Pd: TPanel
    Left = 0
    Top = 658
    Width = 1024
    Height = 54
    Align = alBottom
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Color = clWhite
    TabOrder = 1
    object bprint: TBitBtn
      Left = 558
      Top = 9
      Width = 89
      Height = 33
      Caption = #25171'    '#21360
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = bprintClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000084
        840084848400C6C6C6000000FF0000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00333333333333
        3333330000000000033330313131313010330000000000000103013131355531
        0003031313122213010300000000000001100131313131301010300000000003
        0100330666666660301044446000002203033333066666663033444444000002
        2203333333066666633044444444000000003333333333333333}
    end
    object breturn: TBitBtn
      Left = 652
      Top = 9
      Width = 89
      Height = 33
      Caption = #36820'    '#22238
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = breturnClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADA0ADADA
        DADAADADA00DADADADADDADA0A007ADADADAADA0ADAD707DADADDAD0DADADA07
        DADAADAD0D007DA0ADADDADAD00A70DA0ADAADADAD0DAD0D0DADDADADADADAD0
        0ADAADADADADADA00DADDADADADAD70A0ADAADADADA707AD0DADDADA0007DAD0
        DADAADAD0DADA707ADADDADA0AD7077ADADAADAD00077DADADAD}
    end
    object Bquery: TBitBtn
      Left = 277
      Top = 9
      Width = 89
      Height = 33
      Caption = #26597'    '#35810
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BqueryClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000CE0E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFF000FFFFF000FF0000FFFF
        FFF080FFFFF080FF0000FFFFFFF0007FFF7000FF0000FFFFFFF00000000000FF
        0000FF0000008000080000FF0000FF0FFFF08000080000FF0000FF0F00F00000
        000000FF0000FF0FFFFF0000F0000FFF0000FF0CCCCCC00CCC00FFFF0000FFFC
        FFFFF00FFF00FFFF0000FFFCF00F00080F00FFFF0000FFFCFFFFFFFFFFCFFFFF
        0000FFFCCCCCCCCCCCCFFFFF0000FFFC8CC8CC8CC8CFFFFF0000FFFCCCCCCCCC
        CCCFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
        FFFFFFFFFFFFFFFF0000}
    end
    object bprintc: TBitBtn
      Left = 464
      Top = 9
      Width = 89
      Height = 33
      Caption = 'EXCEL'#34920
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -9
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = bprintcClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAADADADAD00000000DADA4ADA0FFFFFF0ADAD44AD0F7777F04444444A0FFF
        FFF0ADAD44AD0F7777F0DADA4ADA0FFFFFF0ADADADAD0F7777F0DA00000A0FFF
        FFF0AD0FFF0D0000000000000F0ADADADADA0FFF0F0DADADADAD0F7F000ADADA
        DADA0F7F00ADADADADAD0FF00ADADADADADA0000ADADADADADAD}
    end
    object Bddhz: TBitBtn
      Left = 370
      Top = 9
      Width = 89
      Height = 33
      Caption = #35746#21333#27719#24635
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BddhzClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000CE0E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFF000FFFFF000FF0000FFFF
        FFF080FFFFF080FF0000FFFFFFF0007FFF7000FF0000FFFFFFF00000000000FF
        0000FF0000008000080000FF0000FF0FFFF08000080000FF0000FF0F00F00000
        000000FF0000FF0FFFFF0000F0000FFF0000FF0CCCCCC00CCC00FFFF0000FFFC
        FFFFF00FFF00FFFF0000FFFCF00F00080F00FFFF0000FFFCFFFFFFFFFFCFFFFF
        0000FFFCCCCCCCCCCCCFFFFF0000FFFC8CC8CC8CC8CFFFFF0000FFFCCCCCCCCC
        CCCFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
        FFFFFFFFFFFFFFFF0000}
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 280
    Top = 256
  end
end

ddchcx.~dfm - 源码说明

本页面展示了「应对服装行业的生产成本控制系统」中的 ddchcx.~dfm 源码文件，采用 ~DFM 编程语言编写，共 511 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与服装相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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