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

end;

end;

procedure TForm1.Edit17KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if ComboBox2.ItemIndex=0 then

begin

with Form1.ADOQuery27 do begin

Close;

SQL.Clear;

SQL.Add('SELECT izberateli.id_izberateli, izberateli.fio, izberateli.adress_iz, izberateli.serija_pasporta, izberateli.nomer_pasporta, izberateli.kogda_vydan, izberateli.kem_vydan, izberateli.nalichie_urny, uchastki.id_uchastok, uchastki.adress');

SQL.Add('FROM uchastki INNER JOIN izberateli ON uchastki.id_uchastok = izberateli.id_uchastok');

SQL.Add('WHERE fio LIKE "'+Edit17.Text+'%"');

SQL.Add('ORDER BY fio');

active:=false;

active:=true;

Open;

end;

end

else begin

if ComboBox2.ItemIndex=1 then

begin

DBGrid2.Visible:=true;

with form1.ADOQuery27 do begin

Close;

SQL.Clear;

SQL.Add('SELECT izberateli.id_izberateli, izberateli.fio, izberateli.adress_iz, izberateli.serija_pasporta, izberateli.nomer_pasporta, izberateli.kogda_vydan, izberateli.kem_vydan, izberateli.nalichie_urny, uchastki.id_uchastok, uchastki.adress');

SQL.Add('FROM uchastki INNER JOIN izberateli ON uchastki.id_uchastok = izberateli.id_uchastok');

SQL.Add('WHERE nomer_pasporta LIKE "'+Edit17.Text+'%"');