cllr.~dfm

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

~DFM
1,734 行
字号
1234
            FieldName = 'dj'
            Title.Alignment = taCenter
            Title.Caption = #21333#20215
            Title.Color = clMoneyGreen
            Width = 55
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'je'
            Title.Alignment = taCenter
            Title.Caption = #37329#39069
            Title.Color = clMoneyGreen
            Width = 62
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'bz'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Title.Color = clMoneyGreen
            Width = 61
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'wgzt'
            Title.Alignment = taCenter
            Title.Caption = #23436#24037#29366#24577
            Title.Color = clMoneyGreen
            Width = 61
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'czy'
            Title.Alignment = taCenter
            Title.Caption = #25805#20316#21592
            Title.Color = clMoneyGreen
            Width = 52
            Visible = True
          end>
      end
    end
    object tfb: TEdit
      Left = 331
      Top = 554
      Width = 89
      Height = 19
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      OnKeyPress = tfbKeyPress
    end
    object tys: TEdit
      Left = 893
      Top = 554
      Width = 89
      Height = 19
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      OnKeyPress = tysKeyPress
    end
    object tgh: TEdit
      Left = 190
      Top = 554
      Width = 89
      Height = 19
      AutoSize = False
      Color = clWhite
      Ctl3D = False
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      OnKeyPress = tghKeyPress
    end
    object tfz: TEdit
      Left = 471
      Top = 554
      Width = 89
      Height = 19
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
      OnKeyPress = tfzKeyPress
    end
    object tsl: TEdit
      Left = 612
      Top = 593
      Width = 89
      Height = 19
      BiDiMode = bdRightToLeft
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBiDiMode = False
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
      OnChange = tbhChange
      OnKeyPress = tslKeyPress
    end
    object tbz: TEdit
      Left = 893
      Top = 593
      Width = 89
      Height = 19
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 6
      OnKeyPress = tbzKeyPress
    end
    object tdj: TEdit
      Left = 471
      Top = 593
      Width = 89
      Height = 19
      BiDiMode = bdRightToLeft
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBiDiMode = False
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 7
      OnKeyPress = tdjKeyPress
    end
    object tyg: TEdit
      Left = 612
      Top = 554
      Width = 89
      Height = 19
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 8
      OnChange = tygChange
      OnKeyPress = tygKeyPress
    end
    object rq: TDateTimePicker
      Left = 50
      Top = 554
      Width = 89
      Height = 21
      BevelInner = bvNone
      BevelOuter = bvNone
      Date = 38907.000000000000000000
      Time = 38907.000000000000000000
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnKeyPress = rqKeyPress
    end
    object tcz: TEdit
      Left = 752
      Top = 593
      Width = 89
      Height = 19
      BiDiMode = bdRightToLeft
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBiDiMode = False
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 10
      OnKeyPress = tczKeyPress
    end
    object pq: TPanel
      Left = 2
      Top = 2
      Width = 1016
      Height = 69
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Color = clSkyBlue
      TabOrder = 11
      object csq: TCheckBox
        Left = 12
        Top = 40
        Width = 57
        Height = 17
        Caption = #25509#36215
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      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 = 1
      end
      object qddh: TEdit
        Left = 58
        Top = 11
        Width = 80
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 2
      end
      object cjglx: TCheckBox
        Left = 152
        Top = 11
        Width = 57
        Height = 16
        Caption = #21152#24037
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object csz: TCheckBox
        Left = 152
        Top = 40
        Width = 57
        Height = 17
        Caption = #25509#27490
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object sz: TDateTimePicker
        Left = 199
        Top = 40
        Width = 81
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 5
      end
      object qjglx: TEdit
        Left = 199
        Top = 11
        Width = 81
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 6
      end
      object ckhmc: TCheckBox
        Left = 293
        Top = 11
        Width = 57
        Height = 17
        Caption = #23458#25143
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
      object qkhmc: TEdit
        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
1234

cllr.~dfm - 源码说明

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

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

⌨️ 快捷键说明

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