u_dept.dfm

来自「ehlib双击功能ehlib双击功能ehlib双击功能ehlib双击功能」· DFM 代码 · 共 78 行

inherited FORM_Dept: TFORM_Dept
  Left = 240
  Top = 243
  Width = 783
  Caption = #24314#31435#37096#38376#20449#24687
  OldCreateOrder = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited StatusBar1: TStatusBar
    Width = 775
  end
  inherited ToolBar1: TToolBar
    Width = 775
    inherited cmd_First: TToolButton
      OnClick = cmd_FirstClick
    end
    inherited cmd_Front: TToolButton
      OnClick = cmd_FrontClick
    end
    inherited cmd_back: TToolButton
      OnClick = cmd_backClick
    end
    inherited cmd_Finally: TToolButton
      OnClick = cmd_FinallyClick
    end
    inherited cmd_add: TToolButton
      OnClick = cmd_addClick
    end
    inherited CMD_del: TToolButton
      OnClick = CMD_delClick
    end
    inherited cmd_edit: TToolButton
      OnClick = cmd_editClick
    end
    inherited cmd_save: TToolButton
      OnClick = cmd_saveClick
    end
    inherited cmd_cancel: TToolButton
      OnClick = cmd_cancelClick
    end
    inherited cmd_CX: TToolButton
      OnClick = cmd_CXClick
    end
    inherited cmd_quit: TToolButton
      OnClick = cmd_quitClick
    end
  end
  inherited Panel1: TPanel
    Width = 775
    inherited DBGridEh1: TDBGridEh
      Width = 767
      DataSource = DM.DS_Dept
      OnKeyDown = DBGridEh1KeyDown
      Columns = <
        item
          EditButtons = <>
          FieldName = 'DeptID'
          Footers = <>
          Title.Caption = #37096#38376'ID'
        end
        item
          EditButtons = <>
          FieldName = 'DeptName'
          Footers = <>
          Title.Caption = #37096#38376#21517#31216
        end
        item
          EditButtons = <>
          FieldName = 'BZ1'
          Footers = <>
          Title.Caption = #22791#27880
        end>
    end
  end
end