addclass.dfm

来自「是我编写的一个考勤机管理系统,用于计算某员工某段时间以来的迟到与早退等情况.」· DFM 代码 · 共 86 行

inherited frmAddClass: TfrmAddClass
  Left = 311
  Top = 295
  Caption = #21152#29677#30331#35760
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited Grid: TDBGrid
    Columns = <
      item
        Expanded = False
        FieldName = 'Name'
        Title.Alignment = taCenter
        Title.Caption = #21592#24037#21517#31216
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BeginDate'
        Title.Alignment = taCenter
        Title.Caption = #24320#22987#26085#26399
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EndDate'
        Title.Alignment = taCenter
        Title.Caption = #32467#26463#26085#26399
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TimeMode'
        Title.Alignment = taCenter
        Title.Caption = #26102#38388#27169#24335
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BeginTime'
        Title.Alignment = taCenter
        Title.Caption = #24320#22987#26102#38388
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EndTime'
        Title.Alignment = taCenter
        Title.Caption = #32467#26463#26102#38388
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ClassName'
        Title.Alignment = taCenter
        Title.Caption = #29677#27425#21517#31216
        Width = 100
        Visible = True
      end>
  end
  inherited ToolBar1: TToolBar
    inherited BtnAdd: TToolButton
      OnClick = BtnAddClick
    end
    inherited BtnView: TToolButton
      OnClick = BtnViewClick
    end
    inherited BtnDel: TToolButton
      OnClick = BtnDelClick
    end
    inherited BtnClose: TToolButton
      OnClick = BtnCloseClick
    end
  end
  inherited DSGrid: TDataSource
    DataSet = frmDM.QurAddClass
  end
end