Курсовая работа: Кадровий облік

StringGrid1. Rows [Row]. Clear;

StringGrid1. Cells [0,Row]: =IntToStr(Row);

StringGrid1. Cells [1,Row]: =IntToStr(Worker [Index]. TabN);

StringGrid1. Cells [2,Row]: =Worker [Index]. LastName;

StringGrid1. Cells [3,Row]: =Worker [Index]. Name;

StringGrid1. Cells [4,Row]: =Worker [Index]. Patronymic;

StringGrid1. Cells [5,Row]: =Worker [Index]. IndCode;

StringGrid1. Cells [6,Row]: =DataToStr(Worker [Index]. ReceptionData);

StringGrid1. Cells [7,Row]: =IntToStr(Worker [Index]. Experience);

if Worker [Index]. Exempt then

StringGrid1. Cells [8,Row]: =DataToStr(Worker [Index]. LiberationData);

StringGrid1. Cells [9,Row]: =Worker [Index]. PositionName;

StringGrid1. Cells [10,Row]: =Worker [Index]. DepartmentName;

StringGrid1. Cells [11,Row]: =Worker [Index]. SubsectionName;

end;

procedure TForm1. RefreshList;

var i: Integer;

begin

if WorkersCount=0 then begin

StringGrid1. RowCount: =WorkersCount+2;

StringGrid1. Rows [1]. Clear;

Button2. Enabled: =False;

Button3. Enabled: =False;

Exit;

end;

Button2. Enabled: =True;

if not CheckBox1. Checked then

Button3. Enabled: =True;

StringGrid1. RowCount: =WorkersCount+1;