Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Menus, ExtCtrls, DBCtrls, DB, DBTables,
Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Database1: TDatabase;
DataSource1: TDataSource;
Table1: TTable;
DBNavigator1: TDBNavigator;
Panel1: TPanel;
BitBtn1: TBitBtn;
Query1: TQuery;
ListBox1: TListBox;
DBGrid2: TDBGrid;
Label1: TLabel;
DataSource2: TDataSource;
procedure ListBox1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.ListBox1Click(Sender: TObject);
begin
case listbox1.ItemIndex of
0:with form2 do
begin
edit2.Visible:=false;
label2.Visible:=false;
labelededit1.Visible:=false;
edit1.Text:='';
label1.Caption:='Введіть прізвище актора';
showmodal;
end;
1:with form2 do
begin
edit2.Visible:=false;
label2.Visible:=false;
labelededit1.Visible:=false;
edit1.Text:='';
label1.Caption:='Введіть назву фільма';
showmodal;
end;
2:with form3 do
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 = 2009');
Active:=True;
end;
showmodal;
end;
3:with form2 do
begin
edit2.Visible:=false;
label2.Visible:=false;
labelededit1.Visible:=false;
edit1.Text:='';
label1.Caption:='Введіть Назву фільма';
showmodal;
end;
4:with form2 do
begin
labelededit1.Visible:=false;
edit1.Text:='';
edit2.Visible:=true;
edit2.Text:='';
label1.Caption:='Введіть прізвище актора';
label2.Caption:='Введіть прізвище режисера';
showmodal;
end;
5:with form3 do
begin
with query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('SELECT Actor');
SQL.Add('FROM "'+'tab.db'+'"');
SQL.Add('WHERE Rik_vyhodu_na_ekran between 2008 and 2010');
Active:=True;
end;
showmodal;
end;
6:with form2 do
begin
edit2.Visible:=false;
label2.Visible:=false;
labelededit1.Visible:=false;
edit1.Text:='';
label1.Caption:='Введіть прізвище режисера';
showmodal;
end;
7:with form2 do
begin
edit1.Visible:=false;
edit2.Visible:=false;
label1.Visible:=false;
label2.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.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Menus, ExtCtrls, DBCtrls, DB, DBTables,
Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Database1: TDatabase;
DataSource1: TDataSource;
Table1: TTable;
DBNavigator1: TDBNavigator;
Panel1: TPanel;
BitBtn1: TBitBtn;
Query1: TQuery;
ListBox1: TListBox;
DBGrid2: TDBGrid;
Label1: TLabel;
DataSource2: TDataSource;
procedure ListBox1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.ListBox1Click(Sender: TObject);
begin
case listbox1.ItemIndex of
0:with form2 do
begin
edit2.Visible:=false;
label2.Visible:=false;
labelededit1.Visible:=false;
edit1.Text:='';
label1.Caption:='Введіть прізвище актора';
showmodal;
end;
1:with form2 do
begin
edit2.Visible:=false;
label2.Visible:=false;
labelededit1.Visible:=false;
edit1.Text:='';
label1.Caption:='Введіть назву фільма';
showmodal;
end;
2:with form3 do
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 = 2009');
Active:=True;
end;
showmodal;
end;
3:with form2 do
begin
edit2.Visible:=false;
label2.Visible:=false;
labelededit1.Visible:=false;
edit1.Text:='';
label1.Caption:='Введіть Назву фільма';
showmodal;
end;
4:with form2 do
begin
labelededit1.Visible:=false;
edit1.Text:='';
edit2.Visible:=true;
edit2.Text:='';
label1.Caption:='Введіть прізвище актора';
label2.Caption:='Введіть прізвище режисера';
showmodal;
end;
5:with form3 do
begin
with query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('SELECT Actor');
SQL.Add('FROM "'+'tab.db'+'"');
SQL.Add('WHERE Rik_vyhodu_na_ekran between 2008 and 2010');
Active:=True;
end;
showmodal;
end;
6:with form2 do
begin
edit2.Visible:=false;
label2.Visible:=false;
labelededit1.Visible:=false;
edit1.Text:='';
label1.Caption:='Введіть прізвище режисера';
showmodal;
end;
7:with form2 do
begin
edit1.Visible:=false;
edit2.Visible:=false;
label1.Visible:=false;
label2.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.
Соседние файлы в папке practica