fy.dfm

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

DFM
1,323 行
字号
123
      OnChange = tbxrChange
      OnKeyPress = tbxrKeyPress
    end
    object tzy: TEdit
      Left = 57
      Top = 524
      Width = 138
      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 = 3
      OnKeyPress = tzyKeyPress
    end
    object tbh: TEdit
      Left = 57
      Top = 485
      Width = 138
      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 = 4
      OnKeyPress = tbhKeyPress
    end
    object tbz: TEdit
      Left = 866
      Top = 524
      Width = 138
      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 = 5
      OnKeyPress = tbzKeyPress
    end
    object tje: TEdit
      Left = 465
      Top = 524
      Width = 138
      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 = 6
      OnKeyPress = tjeKeyPress
    end
    object fb: TDBLookupComboBox
      Left = 465
      Top = 485
      Width = 138
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      KeyField = 'fb'
      ListField = 'fb'
      ListFieldIndex = 1
      ListSource = DataModule1.DataSource1
      ParentFont = False
      TabOrder = 7
      OnKeyPress = fbKeyPress
    end
    object DBGrid4: TDBGrid
      Left = 313
      Top = 296
      Width = 209
      Height = 167
      DataSource = DataModule1.DataSource16
      FixedColor = clCaptionText
      ReadOnly = True
      TabOrder = 8
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid4DblClick
      Columns = <
        item
          Color = clWhite
          Expanded = False
          FieldName = 'fylb'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clFuchsia
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #36153#29992#31867#21035
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 174
          Visible = True
        end>
    end
    object fylb: TEdit
      Left = 283
      Top = 524
      Width = 103
      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 = 9
      OnChange = fylbChange
      OnKeyPress = fylbKeyPress
    end
    object GroupBox1: TGroupBox
      Left = -1
      Top = 0
      Width = 1018
      Height = 201
      Caption = #35746#21333#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 = 10
      object DBGrid5: TDBGrid
        Left = 2
        Top = 15
        Width = 1014
        Height = 184
        Align = alClient
        Color = clWhite
        DataSource = DataModule1.DataSource17
        FixedColor = clWhite
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlue
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid5DrawColumnCell
        OnDblClick = DBGrid5DblClick
        OnTitleClick = DBGrid5TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ddh'
            Title.Alignment = taCenter
            Title.Caption = #35746#21333#21495
            Title.Color = clMoneyGreen
            Width = 92
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'jglx'
            Title.Alignment = taCenter
            Title.Caption = #21152#24037#31867#22411
            Title.Color = clMoneyGreen
            Width = 69
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'khmc'
            Title.Alignment = taCenter
            Title.Caption = #23458#25143#21517#31216
            Title.Color = clMoneyGreen
            Width = 87
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cpmc'
            Title.Alignment = taCenter
            Title.Caption = #20135#21697#21517#31216
            Title.Color = clMoneyGreen
            Width = 75
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cpfl'
            Title.Alignment = taCenter
            Title.Caption = #20135#21697#20998#31867
            Title.Color = clMoneyGreen
            Width = 54
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cpdw'
            Title.Alignment = taCenter
            Title.Caption = #20135#21697#21333#20301
            Title.Color = clMoneyGreen
            Width = 62
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'jdrq'
            Title.Alignment = taCenter
            Title.Caption = #25509#21333#26085#26399
            Title.Color = clMoneyGreen
            Width = 91
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'jhrq'
            Title.Alignment = taCenter
            Title.Caption = #20132#36135#26085#26399
            Title.Color = clMoneyGreen
            Width = 86
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'sl'
            Title.Alignment = taCenter
            Title.Caption = #25968#37327
            Title.Color = clMoneyGreen
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            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 fz: TDBLookupComboBox
      Left = 669
      Top = 485
      Width = 132
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      KeyField = 'fz'
      ListField = 'fz'
      ListFieldIndex = 1
      ListSource = DataModule1.DataSource2
      ParentFont = False
      TabOrder = 11
      OnKeyPress = fzKeyPress
    end
    object tddh: TEdit
      Left = 669
      Top = 524
      Width = 132
      Height = 19
      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 = 12
      OnKeyPress = tddhKeyPress
    end
  end
  object Pd: TPanel
    Left = 0
    Top = 650
    Width = 1016
    Height = 54
    Align = alBottom
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Color = clWhite
    TabOrder = 1
    object bnew: TBitBtn
      Left = 327
      Top = 8
      Width = 89
      Height = 33
      Caption = #26032'    '#22686'(&N)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = bnewClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAADADADADADADA0ADDADADADADADAD0DAADADADADADA00000DADADADADADA
        D0DA000000000000A0AD0FFFFFFFFFF0DADA0F00F00F00F0ADAD0FFFFFFFFFF0
        DADA0444444444444DADD4FFFFFFFFFF4ADAA4F00F00F00F4DADD4FFFFFFFFFF
        4ADAA444444444444DADD484484484484ADAA444444444444DAD}
    end
    object bsave: TBitBtn
      Left = 416
      Top = 8
      Width = 89
      Height = 33
      Caption = #20445'    '#23384'(&S)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = bsaveClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F7330099999999900333777777777777733}
      NumGlyphs = 2
    end
    object bcancel: TBitBtn
      Left = 505
      Top = 8
      Width = 89
      Height = 33
      Caption = #21462'    '#28040
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = bcancelClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        71F77777777777777EF77771F77777777777777EF7777777777777991F777777
        9F777788EF7777778F7777191F777771F77777E8EF77777EF777777199F77791
        F777777E88F7778EF7777777191F719F77777777E8EF7E8F77777777719199F7
        777777777E8E88F77777777777919F7777777777778E8F7777777777791911F7
        7777777778E8EEF777777777191F79F777777777E8EF78F77777779191F77719
        F777778E8EF777E8F77771919F7777719F777E8E8F77777E8F77791F77777777
123

fy.dfm - 源码说明

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

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

⌨️ 快捷键说明

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