Контрольная работа: Разработка программного комплекса

AddRowToTable(Worker,StringGrid1);

end;

end;

CloseFile(F);

end;

//событие при нажатии кнопки создания новой записи

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.editRecord := false;

if Form3.ShowModal = mrOk then

begin

Worker := Form3.Worker;

AddRowToTable(Worker,StringGrid1);

//Worker.StartWork := Form3.Edit1;

end;

end;

//событиепринажатииредактирования

procedure TForm1.Button4Click(Sender: TObject);

begin

try

Form3.editRecord := true;

TableRowToWorker(StringGrid1.Selection.Top,StringGrid1);

Form3.Worker := Worker;

if Form3.ShowModal = mrOk then

begin

Worker := Form3.Worker;

EditTableRow(Worker, StringGrid1);

end;

except