yg.dfm

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

object Frmyg: TFrmyg
  Left = 264
  Top = 98
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #12304#21592#24037#20449#24687#12305
  ClientHeight = 481
  ClientWidth = 628
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000007777
    77777777777777777777777777707888888888888FFFFFFFFFFFFFFFFF707888
    888888888FFFFFFFFFFFFFFFFF707888888888888FFFFFFFFFFFFFFFFF700666
    6000660666677777777777777F700666066600F0660FFFFFFFFFFFFFFF707060
    0660FFF000777777777777777F707800660FFF008FFFFFFFFFFFFFFFFF707880
    00FF88088F777777777777777F7078770FFF7000055505555FFFFFFFFF707870
    07FFFFFF070050500FFFFFFFFF70787077FFFFFF7888500FFFFFFFFFFF707807
    80FFFF7008880044444444444F707078880FFFFF08870444444444444F707088
    870FFFFFF0800FFFFFFFFFFFFF70708880FFFFFF088880FFFFFFFFFFFF70708F
    80FFFFF7888880FFFFFFFFFFFF7070FF8807FFF0888880FFFFFFFFFFFF7070FF
    FFFFFFF08888880FFFFFFFFFFF70787FFFFFFFF888888880FFFFFFFFFF70780F
    FFFFFFF00888880FFFFFFFFFFF70777007FFF007788887777777777777700000
    00000888778880000000000000000000000FF888878880000000000000000000
    0007FF888877780000000000000000000000FFF8888888000000000000000000
    000077FFFFF70000000000000000000000000077000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFF00000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000FC003FFFFC003FFFFE001FFFFE00
    1FFFFF003FFFFFC1FFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    0000000000008777777FFFFFFFF08777777FFFFFFFF080660060888888F08700
    FF0FFFFFFFF0870FF005050888F08000FFF070FFFFF0077FFFF0704444F00770
    FFFF070FFFF00770FF00770FFFF007770FF07770FFF080777770700888800000
    00087700000000000888880000000000000000000000FFFF0000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000800F0000C01F0000F83F0000}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 628
    Height = 481
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 6
      Top = 5
      Width = 611
      Height = 420
      Caption = #21592#24037#24405#20837
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label8: TLabel
        Left = 32
        Top = 212
        Width = 169
        Height = 20
        AutoSize = False
        Caption = #8595#21592#24037#35760#24405#34920#8595
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 392
        Top = 212
        Width = 169
        Height = 20
        AutoSize = False
        Caption = #65342#30456#20284#35760#24405#21306#65342
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 18
        Width = 589
        Height = 191
        TabOrder = 0
        object Label2: TLabel
          Left = 15
          Top = 159
          Width = 36
          Height = 13
          Caption = #22995#21517#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 15
          Top = 115
          Width = 36
          Height = 13
          Caption = #20998#32452#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label1: TLabel
          Left = 15
          Top = 70
          Width = 36
          Height = 13
          Caption = #37096#38376#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 15
          Top = 27
          Width = 36
          Height = 13
          Caption = #24037#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object SpeedButton2: TSpeedButton
          Left = 208
          Top = 109
          Width = 12
          Height = 22
          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 DBEdit2: TDBEdit
          Left = 55
          Top = 110
          Width = 153
          Height = 21
          DataField = 'fz'
          DataSource = DataModule1.DataSource3
          TabOrder = 2
        end
        object fz: TDBLookupComboBox
          Left = 55
          Top = 110
          Width = 153
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'fz'
          ListField = 'fz'
          ListSource = DataModule1.DataSource2
          ParentFont = False
          TabOrder = 1
          OnKeyPress = fzKeyPress
        end
        object edit2: TDBEdit
          Left = 55
          Top = 154
          Width = 153
          Height = 21
          DataField = 'xm'
          DataSource = DataModule1.DataSource3
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnChange = edit2Change
        end
        object DBEdit1: TDBEdit
          Left = 55
          Top = 66
          Width = 153
          Height = 21
          DataField = 'fb'
          DataSource = DataModule1.DataSource3
          TabOrder = 3
        end
        object fb: TDBLookupComboBox
          Left = 55
          Top = 65
          Width = 153
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'fb'
          ListField = 'fb'
          ListSource = DataModule1.DataSource1
          ParentFont = False
          TabOrder = 4
          OnKeyPress = fbKeyPress
        end
        object DBEdit3: TDBEdit
          Left = 55
          Top = 22
          Width = 153
          Height = 21
          DataField = 'gh'
          DataSource = DataModule1.DataSource3
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnChange = DBEdit3Change
          OnKeyPress = DBEdit3KeyPress
        end
      end
      object DBGrid2: TDBGrid
        Left = 234
        Top = 31
        Width = 343
        Height = 169
        DataSource = DataModule1.DataSource28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'xm'
            Title.Alignment = taCenter
            Title.Caption = #22995#21517
            Title.Color = clMoneyGreen
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clTeal
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 72
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gh'
            Title.Alignment = taCenter
            Title.Caption = #24037#21495
            Title.Color = clMoneyGreen
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clTeal
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 72
            Visible = True
          end
          item
            Expanded = False