ddsh.~dfm

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

~DFM
905 行
字号
12
        Left = 339
        Top = 11
        Width = 83
        Height = 22
        Ctl3D = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 8
      end
      object ccpmc: TCheckBox
        Left = 436
        Top = 11
        Width = 57
        Height = 17
        Caption = #20135#21697
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
      end
      object qcpmc: TEdit
        Left = 482
        Top = 11
        Width = 83
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 10
      end
      object csl: TCheckBox
        Left = 581
        Top = 40
        Width = 63
        Height = 17
        Caption = #25968#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 = 11
      end
      object ccpfl: TCheckBox
        Left = 581
        Top = 11
        Width = 63
        Height = 17
        Caption = #20998#31867
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 12
      end
      object qsl: TEdit
        Left = 627
        Top = 40
        Width = 83
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 13
      end
      object qcpfl: TEdit
        Left = 627
        Top = 11
        Width = 83
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 14
      end
      object ccpdw: TCheckBox
        Left = 724
        Top = 11
        Width = 63
        Height = 17
        Caption = #21333#20301
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 15
      end
      object cdj: TCheckBox
        Left = 724
        Top = 41
        Width = 63
        Height = 17
        Caption = #21333#20215
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 16
      end
      object qcpdw: TEdit
        Left = 770
        Top = 11
        Width = 83
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 17
      end
      object qdj: TEdit
        Left = 770
        Top = 41
        Width = 83
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 18
      end
      object sq: TDateTimePicker
        Left = 58
        Top = 40
        Width = 80
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 19
      end
      object cwgzt: TCheckBox
        Left = 865
        Top = 11
        Width = 63
        Height = 17
        Caption = #23436#24037
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 20
      end
      object cje: TCheckBox
        Left = 865
        Top = 41
        Width = 63
        Height = 17
        Caption = #37329#39069
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 21
      end
      object qwgzt: TEdit
        Left = 911
        Top = 11
        Width = 83
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 22
      end
      object qje: TEdit
        Left = 911
        Top = 41
        Width = 83
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 23
      end
      object Cjq: TCheckBox
        Left = 293
        Top = 40
        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 = 24
      end
      object Cjz: TCheckBox
        Left = 436
        Top = 40
        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 = 25
      end
      object jz: TDateTimePicker
        Left = 483
        Top = 40
        Width = 84
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 26
      end
      object jq: TDateTimePicker
        Left = 339
        Top = 40
        Width = 83
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 27
      end
    end
  end
  object Pd: TPanel
    Left = 0
    Top = 655
    Width = 1016
    Height = 54
    Align = alBottom
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Color = clWhite
    TabOrder = 1
    object bprint: TBitBtn
      Left = 637
      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 = 729
      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 = 181
      Top = 9
      Width = 89
      Height = 33
      Caption = #26410#23457#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 = 546
      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 bsh: TBitBtn
      Left = 363
      Top = 9
      Width = 89
      Height = 33
      Caption = #23457'    '#26680
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = bshClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAADA0000000000DADDA7FFFFFFFFFF0DAAD7FFF88FFFFF0ADDA7FFF188FFF
        F0DAAD7FF11188FFF0ADDA7F11F118FFF0DAAD7FFFFF178FF0ADDA7FFFFFF188
        F0DAAD7FFFFFFF18F0ADDA7FFFFFFFF1F0DAAD7FFFFFFFFFF0ADDA7FF000000F
        F0DAADA770F888077DADDADADA7777DADADAADADADADADADADAD}
    end
    object bfs: TBitBtn
      Left = 455
      Top = 9
      Width = 89
      Height = 33
      Caption = #21453'    '#23457
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = bfsClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
        33333333333F8888883F33330000324334222222443333388F3833333388F333
        000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
        F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
        223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
        3338888300003AAAAAAA33333333333888888833333333330000333333333333
        333333333333333333FFFFFF000033333333333344444433FFFF333333888888
        00003A444333333A22222438888F333338F3333800003A2243333333A2222438
        F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
        22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
        33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object bquerys: TBitBtn
      Left = 272
      Top = 9
      Width = 89
      Height = 33
      Caption = #24050#23457#26597#35810
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = bquerysClick
      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
12

ddsh.~dfm - 源码说明

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

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

⌨️ 快捷键说明

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