fy.~dfm

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

~DFM
1,323 行
字号
123
object Frmfy: TFrmfy
  Left = 237
  Top = -12
  Width = 1024
  Height = 738
  Align = alClient
  Caption = #12304#36153#29992#35760#24405#12305
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Pz: TPanel
    Left = 0
    Top = 69
    Width = 1016
    Height = 581
    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 Label25: TLabel
      Left = 19
      Top = 488
      Width = 102
      Height = 14
      AutoSize = False
      Caption = #32534#21495
      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 Label26: TLabel
      Left = 219
      Top = 488
      Width = 102
      Height = 14
      AutoSize = False
      Caption = #26085#26399
      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 Label28: TLabel
      Left = 825
      Top = 488
      Width = 92
      Height = 14
      AutoSize = False
      Caption = #25253#38144#20154
      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 Label29: TLabel
      Left = 19
      Top = 528
      Width = 102
      Height = 14
      AutoSize = False
      Caption = #25688#35201
      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 Label41: TLabel
      Left = 625
      Top = 488
      Width = 99
      Height = 14
      AutoSize = False
      Caption = #20998#32452
      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 help: TLabel
      Left = 2
      Top = 550
      Width = 1008
      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 Label1: TLabel
      Left = 219
      Top = 527
      Width = 102
      Height = 14
      AutoSize = False
      Caption = #36153#29992#31867#21035
      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 Label4: TLabel
      Left = 825
      Top = 527
      Width = 102
      Height = 14
      AutoSize = False
      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
    end
    object Label5: TLabel
      Left = 421
      Top = 527
      Width = 99
      Height = 14
      AutoSize = False
      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
    end
    object Label8: TLabel
      Left = 625
      Top = 527
      Width = 92
      Height = 14
      AutoSize = False
      Caption = #35746#21333#21495
      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 Label6: TLabel
      Left = 421
      Top = 489
      Width = 99
      Height = 14
      AutoSize = False
      Caption = #20998#37096
      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 SpeedButton1: TSpeedButton
      Left = 384
      Top = 524
      Width = 15
      Height = 19
      Caption = #183#183#183
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 802
      Top = 486
      Width = 12
      Height = 20
      Caption = #183#183#183
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 602
      Top = 486
      Width = 12
      Height = 20
      Caption = #183#183#183
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object GroupBox4: TGroupBox
      Left = 0
      Top = 208
      Width = 1013
      Height = 261
      Caption = #36153#29992#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 = 0
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 1009
        Height = 244
        Align = alClient
        Color = clWhite
        DataSource = DataModule1.DataSource26
        FixedColor = clWhite
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlue
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid1DrawColumnCell
        OnTitleClick = DBGrid1TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'fyh'
            Title.Alignment = taCenter
            Title.Caption = #32534#21495
            Title.Color = clMoneyGreen
            Width = 92
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ddh'
            Title.Alignment = taCenter
            Title.Caption = #35746#21333#21495
            Title.Color = clMoneyGreen
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'rq'
            Title.Alignment = taCenter
            Title.Caption = #26085#26399
            Title.Color = clMoneyGreen
            Width = 93
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fb'
            Title.Alignment = taCenter
            Title.Caption = #20998#37096
            Title.Color = clMoneyGreen
            Width = 72
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fz'
            Title.Alignment = taCenter
            Title.Caption = #20998#32452
            Title.Color = clMoneyGreen
            Width = 65
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bxr'
            Title.Alignment = taCenter
            Title.Caption = #25253#38144#20154
            Title.Color = clMoneyGreen
            Width = 97
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zy'
            Title.Alignment = taCenter
            Title.Caption = #25688#35201
            Title.Color = clMoneyGreen
            Width = 101
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fylb'
            Title.Alignment = taCenter
            Title.Caption = #36153#29992#31867#21035
            Title.Color = clMoneyGreen
            Width = 84
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'je'
            Title.Alignment = taCenter
            Title.Caption = #37329#39069
            Title.Color = clMoneyGreen
            Width = 84
            Visible = True
          end
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'bz'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Title.Color = clMoneyGreen
            Width = 85
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'czy'
            Title.Alignment = taCenter
            Title.Caption = #25805#20316#21592
            Title.Color = clMoneyGreen
            Width = 60
            Visible = True
          end>
      end
    end
    object rq: TDateTimePicker
      Left = 261
      Top = 485
      Width = 138
      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 = 1
      OnKeyPress = rqKeyPress
    end
    object tbxr: TEdit
      Left = 883
      Top = 485
      Width = 121
      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
123

fy.~dfm - 源码说明

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

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

⌨️ 快捷键说明

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