if ((form2.label1.Caption='Введіть прізвище актора')

and(form2.label2.Caption='Введіть прізвище режисера')) then

begin

with query1 do

begin

a:=form2.Edit2.Text;

Active:=False;

SQL.Clear;

SQL.Add('SELECT Actor,Rejiser,Rik_vyhodu_na_ekran');

SQL.Add('FROM "'+'tab.db'+'"');

SQL.Add('WHERE Actor = "'+form2.edit1.text+'" and Rejiser = "'+a+'"');

Active:=True;

end;

end;

if (form2.label1.Caption='Введіть прізвище режисера') then

begin

with query1 do

begin

Active:=False;

SQL.Clear;

SQL.Add('SELECT Nazva_filmu,Rejiser');

SQL.Add('FROM "'+'tab.db'+'"');

SQL.Add('WHERE Rejiser = "'+form2.edit1.text+'"');

Active:=True;

end;

end;

if (form2.labelededit1.editlabel.Caption='Введіть рік') then

begin

with query1 do

begin

Active:=False;

SQL.Clear;

SQL.Add('SELECT Nomer_diska, Nazva_filmu, Rejiser, Actor,');

SQL.Add(' Rik_vyhodu_na_ekran,Simeynyy_stan_rejisera');

SQL.Add('FROM "'+'tab.db'+'"');

SQL.Add('WHERE Rik_vyhodu_na_ekran = "'+form2.labelededit1.text+'"');

Active:=True;

end;

end;

showmodal;

end;

form2.Close;

end;

procedure TForm2.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',chr(8):;

else key:=chr(0);

end;

end;

end.

2.2 Приклад роботи з бозою даних

Вікно головної форми:

Код запиту:

with query1 do

begin

Active:=False;

SQL.Clear;

SQL.Add('SELECT Nomer_diska, Nazva_filmu, Rejiser, Actor,');

SQL.Add(' Rik_vyhodu_na_ekran,Simeynyy_stan_rejisera');

SQL.Add('FROM "'+'tab.db'+'"');

SQL.Add('WHERE Rik_vyhodu_na_ekran = "'+form2.labelededit1.text+'"');

Active:=True;

end;

Форма для введення даних:

Форма для виведення результатів:

Висновок

Під час проходження навчальної практики я закріпив теоретичні знання та набув практичні навички роботи з базами даних. За допомогою програмного середовища Borland Delphi мною була створена базу даних для роботи з інформаційним матеріалом на тему «Фільмотека», створені необхідні таблиці та виконані відповідні запити згідно виданого завдання.

Література