Курсовая работа: Автоматизированное рабочее место по расчёту голосов в избирательных участках

Open;

end;

end;

end;

При нажатии на кнопку «Добавить» из вкладки на панели PagesControl, на событие OnClick прописываем следующий код:

begin

if (LabelSobytie3.Caption='Добавление') Then

begin

ADOQuery14.Parameters.ParamByName('data_provedenija_vyborov').Value:=DateTimePicker2.Date;

ADOQuery14.ExecSQL;

end;

Panel5.Visible:=false;

ADOTable4.Active:=false;

ADOTable4.Active:=true;

end;

Запрос на добавление:

Insert Into vybornaja_kompanija

(data_provedenija_vyborov)

Values

(:data_provedenija_vyborov);

Запрос на изменение:

Updatevybornaja_kompanija

Set

data_provedenija_vyborov=:data_provedenija_vyborov

Where id_vybornaja_kompanija=:id_vybornaja_kompanija;

Запрос на удаление:

Delete

From vybornaja_kompanija

Where id_vybornaja_kompanija=:id_vybornaja_kompanija;