glfysh.~dfm

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

~DFM
683 行
字号
12
object Frmglfysh: TFrmglfysh
  Left = 122
  Top = -9
  Width = 1027
  Height = 743
  Align = alClient
  Caption = #12304#36153#29992#23457#26680#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 = 0
    Width = 1019
    Height = 709
    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 = 624
      Width = 1011
      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 Pd: TPanel
      Left = 2
      Top = 649
      Width = 1011
      Height = 54
      Align = alBottom
      BevelInner = bvLowered
      BorderStyle = bsSingle
      Color = clWhite
      TabOrder = 0
      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 GroupBox4: TGroupBox
      Left = 0
      Top = 72
      Width = 1013
      Height = 552
      Caption = #31649#29702#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 = 1
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 1009
        Height = 535
        Align = alClient
        Color = clWhite
        DataSource = DataModule1.DataSource12
        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 = 'skbh'
            Title.Alignment = taCenter
            Title.Caption = #32534#21495
            Title.Color = clMoneyGreen
            Width = 92
            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 = 'ks'
            Title.Alignment = taCenter
            Title.Caption = #31185#23460
            Title.Color = clMoneyGreen
            Width = 65
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'khmc'
            Title.Alignment = taCenter
            Title.Caption = #25253#38144#20154
            Title.Color = clMoneyGreen
            Width = 97
            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 = 'zy'
            Title.Alignment = taCenter
            Title.Caption = #25688#35201
            Title.Color = clMoneyGreen
            Width = 101
            Visible = True
          end
          item
12

glfysh.~dfm - 源码说明

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

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

⌨️ 快捷键说明

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