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

Form3. ListBox1. Items: =Form2. ComboBox4. Items;

Form3. ListBox2. Items: =Form2. ComboBox3. Items;

Form3. ListBox3. Items: =Form2. ComboBox2. Items;

if WorkersCount>0 then

CurWorker: =0;

RefreshList;

CloseFile(F);

end;

function TForm1. DataToStr(D: Data): String;

begin

Result: =IntToStr(D. D) +'. '+IntToStr(D. M) +'. '+IntToStr(D. Y);

end;

procedure TForm1. FormCreate(Sender: TObject);

begin

StringGrid1. Cells [0,0]: ='№';

StringGrid1. Cells [1,0]: ='Таб. №';

StringGrid1. Cells [2,0]: ='Прізвище';

StringGrid1. Cells [3,0]: ='Ім’я';

StringGrid1. Cells [4,0]: ='По Батькові';

StringGrid1. Cells [5,0]: ='Ідн. код';

StringGrid1. Cells [6,0]: ='Дата прийому на роботу';

StringGrid1. Cells [7,0]: ='Стаж роботи';

StringGrid1. Cells [8,0]: ='Дата звільнення';

StringGrid1. Cells [9,0]: ='Назва посади';

StringGrid1. Cells [10,0]: ='Назва відділу';

StringGrid1. Cells [11,0]: ='Назва підрозділу';

end;

procedure TForm1. RecToRow(Index,Row: Integer);

begin