edit_depot.dfm

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

inherited Frm_edit_depot: TFrm_edit_depot
  Caption = 'Frm_edit_depot'
  ClientWidth = 373
  PixelsPerInch = 96
  TextHeight = 12
  inherited PanelBkGnd: TPanel
    Width = 373
    inherited Panel_button: TPanel
      Width = 373
      inherited OKBtn: TDsFancyButton
        Caption = #20445#23384'[&S]'
        OnClick = OKBtnClick
      end
    end
    object FlatPanel_edit: TFlatPanel
      Left = 12
      Top = 6
      Width = 346
      Height = 202
      ParentColor = True
      TabOrder = 1
      object Label1: TLabel
        Left = 14
        Top = 14
        Width = 36
        Height = 12
        Caption = #21517#31216#65306
      end
      object Label2: TLabel
        Left = 14
        Top = 68
        Width = 36
        Height = 12
        Caption = #32534#21495#65306
      end
      object Label4: TLabel
        Left = 14
        Top = 123
        Width = 36
        Height = 12
        Caption = #23646#24615#65306
      end
      object Label6: TLabel
        Left = 14
        Top = 178
        Width = 36
        Height = 12
        Caption = #22791#27880#65306
      end
      object E_name: TFlatEdit
        Left = 53
        Top = 11
        Width = 278
        Height = 18
        ColorFocused = clCream
        ColorFlat = 15658734
        MaxLength = 20
        TabOrder = 0
        OnExit = E_nameExit
        OnKeyDown = E_nameKeyDown
      end
      object E_id: TFlatEdit
        Left = 53
        Top = 66
        Width = 278
        Height = 18
        ColorFocused = clCream
        ColorFlat = 15658734
        MaxLength = 20
        TabOrder = 1
        OnExit = E_idExit
        OnKeyDown = E_nameKeyDown
      end
      object E_type: TFlatEdit
        Left = 53
        Top = 121
        Width = 278
        Height = 18
        ColorFocused = clCream
        ColorFlat = 15658734
        MaxLength = 20
        TabOrder = 2
        OnEnter = E_typeEnter
        OnKeyDown = E_nameKeyDown
      end
      object E_memo: TFlatEdit
        Left = 53
        Top = 176
        Width = 278
        Height = 18
        ColorFocused = clCream
        ColorFlat = 15658734
        MaxLength = 200
        TabOrder = 3
        OnKeyDown = E_nameKeyDown
      end
      object LB_type: TFlatListBox
        Left = 53
        Top = 3
        Width = 278
        Height = 195
        Items.Strings = (
          #20869#37096
          #22806#37096
          #26242#20572)
        ScrollBars = True
        Color = clSkyBlue
        ColorItemsRect = clCream
        ParentColor = False
        Visible = False
        OnClick = LB_typeClick
      end
    end
  end
  object Query_data: TQuery
    Left = 26
    Top = 23
  end
end