setvac.dfm

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

inherited frmSetVac: TfrmSetVac
  Left = 259
  Top = 234
  Width = 584
  Height = 391
  Caption = #20241#20551#30331#35760
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited Grid: TDBGrid
    Width = 576
    Height = 343
    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 = 'TimePos'
        Title.Alignment = taCenter
        Title.Caption = #26102#38388#27573
        Width = 100
        Visible = True
      end>
  end
  inherited ToolBar1: TToolBar
    Width = 576
    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.QurSetVac
  end
end