ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 14.04.2024
Просмотров: 16
Скачиваний: 0
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 с. |
|
|
|
|