glfywh.~dfm

应对服装行业的生产成本控制系统

            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 = 255
      Top = 477
      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 = 877
      Top = 477
      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
      OnKeyPress = tbxrKeyPress
    end
    object tzy: TEdit
      Left = 51
      Top = 516
      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 = 51
      Top = 477
      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 = 860
      Top = 516
      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 = 459
      Top = 516
      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 tddh: TEdit
      Left = 674
      Top = 516
      Width = 121
      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 = 7
      OnKeyPress = tddhKeyPress
    end
    object fb: TDBLookupComboBox
      Left = 459
      Top = 477
      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 = 8
      OnKeyPress = fbKeyPress
    end
    object fylb: TEdit
      Left = 277
      Top = 516
      Width = 116
      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 fz: TDBLookupComboBox
      Left = 674
      Top = 477
      Width = 121
      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 = 10
    end
    object DBGrid4: TDBGrid
      Left = 250
      Top = 286
      Width = 209
      Height = 167
      DataSource = DataModule1.DataSource16
      FixedColor = clCaptionText
      ReadOnly = True
      TabOrder = 11
      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
  end
  object pq: TPanel
    Left = 0
    Top = 0
    Width = 1016
    Height = 69
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Color = clSkyBlue
    TabOrder = 1
    object cqrq: TCheckBox
      Left = 34
      Top = 11
      Width = 57
      Height = 17
      Caption = #36215#26399
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object cje: TCheckBox
      Left = 275
      Top = 40
      Width = 57
      Height = 16
      Caption = #37329#39069
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object czrq: TCheckBox
      Left = 194
      Top = 11
      Width = 57
      Height = 17
      Caption = #27490#26399
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object zrq: TDateTimePicker
      Left = 243
      Top = 11
      Width = 89
      Height = 21
      BevelInner = bvNone
      BevelOuter = bvNone
      Date = 38907.000000000000000000
      Time = 38907.000000000000000000
      TabOrder = 3
    end
    object qje: TEdit
      Left = 324
      Top = 40
      Width = 89
      Height = 21
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 4
    end
    object cbxr: TCheckBox
      Left = 354
      Top = 11
      Width = 57
      Height = 17
      Caption = #25253#38144#20154
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object qbxr: TEdit
      Left = 419
      Top = 11
      Width = 75
      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 = 6
    end
    object cfz: TCheckBox
      Left = 514
      Top = 11
      Width = 57
      Height = 17
      Caption = #20998#32452
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object qfz: TEdit
      Left = 567
      Top = 11
      Width = 89
      Height = 21
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 8
    end
    object czy: TCheckBox
      Left = 676
      Top = 11
      Width = 63
      Height = 17
      Caption = #25688#35201
      Color = clSkyBlue
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11