Файл: ЩЗ 3к СУБД.doc

edit1.Text:='';

label1.Caption:='Введіть прізвище режисера';

showmodal;

end;

7:with form2 do

begin

edit1.Visible:=false;

labelededit1.Visible:=true;

labelededit1.Text:='';

labelededit1.editlabel.Caption:='Введіть рік';

showmodal;

end;

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

with Query1 do

begin

Active:=False;

SQL.Clear;

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

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

SQL.Add('WHERE Rik_vyhodu_na_ekran between ''2008''and''2011''');

Active:=True;

end;

end;

end.

Unit2

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DB, DBTables, ExtCtrls;

type

TForm2 = class(TForm)

BitBtn1: TBitBtn;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

LabeledEdit1: TLabeledEdit;

procedure Button1Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var a:string;

begin

with form3 do

begin

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

begin

with query1 do

begin

Active:=False;

SQL.Clear;

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

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

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

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 Nazva_filmu = "'+form2.edit1.text+'"');

Active:=True;

end;

end;

if (form2.label1.Caption='Введіть Назву фільма') then

begin

with query1 do

begin

Active:=False;

SQL.Clear;

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

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

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

---

Active:=True;

end;

end;

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 мною була створена базу даних для роботи з інформаційним матеріалом на тему «Фільмотека», створені необхідні таблиці та виконані відповідні запити згідно виданого завдання.

Література

1 Томас Коннолли, Каролин Бегг Базы данных. Проектирование, реализация и сопровождение. Теория и практика. 3-е издание.: Пер. с англ. - М.: Издательский дом "Вильяме", 2003. - 1440 с.

2 С.В. Симонович и др. Информатика. Базовый курс. - СПб.: Питер, 2002. – 640 с.

---

---