Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBTables, DB, Grids, DBGrids, ExtCtrls, jpeg;
type
TF3 = class(TForm)
Table1: TTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Query1: TQuery;
ComboBox1: TComboBox;
Label1: TLabel;
Image1: TImage;
Panel1: TPanel;
Image2: TImage;
procedure ComboBox1Change(Sender: TObject);
procedure Image2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F3: TF3;
implementation
{$R *.dfm}
procedure TF3.ComboBox1Change(Sender: TObject);
var x:integer;
begin
x:=combobox1.itemindex;
case x of
0:begin
with Query1 do
begin
if not(fileexists('mashinu.db')) then begin
Active:=False;
SQL.Clear;
SQL.Add('CREATE TABLE "mashinu.db"');
SQL.Add('(PIP char(20), Nomer float, Kraina char(2))');
ExecSQL;
end
else begin
active:=false;
sql.clear;
sql.add('DELETE FROM "mashinu.db"');
execSQL;
end;
close;
active:=false;
sql.Clear;
sql.Add('insert into "mashinu.db"(PIP, Nomer, Kraina)');
sql.add('select PIP, Nomer, Kraina');
sql.Add('from "avto.DB"');
sql.Add('where Kraina="ЮА"');
execsql;
active:=false;
sql.Clear;
sql.Add('select *');
sql.Add('from "mashinu.db"');
active:=true;
end;
end;
1:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP, Nomer, Colir');
sql.Add('from "avto.DB"');
sql.Add('where colir="сірий"');
active:=true;
end;
end;
2:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP, Adresa');
sql.Add('from "avto.DB"');
SQL.Add('where Nomer like "%35%"');
SQL.Add(' order by Nomer');
active:=true;
end;
end;
3:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP,Marka,Kraina');
sql.Add('from "avto.DB"');
sql.Add('where Nomer>4000');
active:=true;
end;
end;
4:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP,Marka,Nomer');
sql.Add('from "avto.DB"');
sql.Add('where Kraina="РУ"');
active:=true;
end;
end;
5:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP,Nomer,Marka,Kraina');
sql.Add('from "avto.DB"');
sql.Add('where Sim_stan="н"');
active:=true;
end;
end;
6:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP,Adresa,Nomer');
sql.Add('from "avto.DB"');
sql.Add('where Marka="Lexus"');
active:=true;
end;
end;
7:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('delete');
sql.Add('from "avto.DB"');
sql.Add('where Kraina="РУ"');
execsql;
active:=false;
sql.Clear;
sql.Add('select *');
sql.Add('from "avto.db"');
active:=true;
end;
end;
8:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('update "avto.DB"');
sql.Add('set Nomer=4500');
sql.Add('where Marka="Ваз"');
execsql;
active:=false;
sql.Clear;
sql.Add('select Kraina,Marka,Nomer');
sql.Add('from "avto.db"');
active:=true;
end;
end;
end;
end;
procedure TF3.Image2Click(Sender: TObject);
begin
close;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBTables, DB, Grids, DBGrids, ExtCtrls, jpeg;
type
TF3 = class(TForm)
Table1: TTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Query1: TQuery;
ComboBox1: TComboBox;
Label1: TLabel;
Image1: TImage;
Panel1: TPanel;
Image2: TImage;
procedure ComboBox1Change(Sender: TObject);
procedure Image2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F3: TF3;
implementation
{$R *.dfm}
procedure TF3.ComboBox1Change(Sender: TObject);
var x:integer;
begin
x:=combobox1.itemindex;
case x of
0:begin
with Query1 do
begin
if not(fileexists('mashinu.db')) then begin
Active:=False;
SQL.Clear;
SQL.Add('CREATE TABLE "mashinu.db"');
SQL.Add('(PIP char(20), Nomer float, Kraina char(2))');
ExecSQL;
end
else begin
active:=false;
sql.clear;
sql.add('DELETE FROM "mashinu.db"');
execSQL;
end;
close;
active:=false;
sql.Clear;
sql.Add('insert into "mashinu.db"(PIP, Nomer, Kraina)');
sql.add('select PIP, Nomer, Kraina');
sql.Add('from "avto.DB"');
sql.Add('where Kraina="ЮА"');
execsql;
active:=false;
sql.Clear;
sql.Add('select *');
sql.Add('from "mashinu.db"');
active:=true;
end;
end;
1:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP, Nomer, Colir');
sql.Add('from "avto.DB"');
sql.Add('where colir="сірий"');
active:=true;
end;
end;
2:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP, Adresa');
sql.Add('from "avto.DB"');
SQL.Add('where Nomer like "%35%"');
SQL.Add(' order by Nomer');
active:=true;
end;
end;
3:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP,Marka,Kraina');
sql.Add('from "avto.DB"');
sql.Add('where Nomer>4000');
active:=true;
end;
end;
4:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP,Marka,Nomer');
sql.Add('from "avto.DB"');
sql.Add('where Kraina="РУ"');
active:=true;
end;
end;
5:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP,Nomer,Marka,Kraina');
sql.Add('from "avto.DB"');
sql.Add('where Sim_stan="н"');
active:=true;
end;
end;
6:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('select PIP,Adresa,Nomer');
sql.Add('from "avto.DB"');
sql.Add('where Marka="Lexus"');
active:=true;
end;
end;
7:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('delete');
sql.Add('from "avto.DB"');
sql.Add('where Kraina="РУ"');
execsql;
active:=false;
sql.Clear;
sql.Add('select *');
sql.Add('from "avto.db"');
active:=true;
end;
end;
8:begin
with Query1 do
begin
active:=false;
sql.clear;
sql.Add('update "avto.DB"');
sql.Add('set Nomer=4500');
sql.Add('where Marka="Ваз"');
execsql;
active:=false;
sql.Clear;
sql.Add('select Kraina,Marka,Nomer');
sql.Add('from "avto.db"');
active:=true;
end;
end;
end;
end;
procedure TF3.Image2Click(Sender: TObject);
begin
close;
end;
end.
Соседние файлы в папке Ковальов