delphi实现执勤表

按周循环排班, 员工人数及值班人数可自定义.

单元文件

object Form15: TForm15  Left = 0  Top = 0  Caption = 'Form15'  ClientHeight = 562  ClientWidth = 712  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -12  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  OnCreate = FormCreate  PixelsPerInch = 106  TextHeight = 14  object mmo1: TMemo    Left = 216    Top = 72    Width = 481    Height = 482    Lines.Strings = (      'mmo1')    ScrollBars = ssBoth    TabOrder = 0  end  object cbb_Month: TComboBox    Left = 8    Top = 72    Width = 145    Height = 22    TabOrder = 1    OnChange = cbb_MonthChange  endend