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
