Форма для поиска клиента

unit klient;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids;

type

TPoiskKlienta = class(TForm)

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

PoiskKlienta: TPoiskKlienta;

implementation

uses module, zak;

{$R *.dfm}

procedure TPoiskKlienta.FormActivate(Sender: TObject);

begin

ModuleBD.ADOQuery_Klient.SQL.Clear;

ModuleBD.ADOQuery_Klient.SQL.Add('SELECT * FROM Clients');

ModuleBD.ADOQuery_Klient.Active:=True;

end;

procedure TPoiskKlienta.Button1Click(Sender: TObject);

begin

ModuleBD.ADOQuery_Klient.SQL.Clear;

ModuleBD.ADOQuery_Klient.SQL.Add('SELECT * FROM Clients WHERE Familya LIKE '''+Edit1.Text+'''');

ModuleBD.ADOQuery_Klient.Active:=True;

end;

procedure TPoiskKlienta.Button2Click(Sender: TObject);

begin

ModuleBD.ADOQuery_Klient.SQL.Clear;

ModuleBD.ADOQuery_Klient.SQL.Add('SELECT * FROM Clients ');

ModuleBD.ADOQuery_Klient.Active:=True;

end;

procedure TPoiskKlienta.DBGrid1DblClick(Sender: TObject);

begin

Zakaz.Edit1.Text:= DBGrid1.DataSource.DataSet.Fields[0].AsString;

end;

end.

Форма для вывода продаж по клиентам

unit prodan;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls;

type

TProdano = class(TForm)

DBGrid1: TDBGrid;

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Prodano: TProdano;

implementation

uses module;

{$R *.dfm}

procedure TProdano.FormActivate(Sender: TObject);

begin

ModuleBD.ADOQuery_Prodano.SQL.Clear;

ModuleBD.ADOQuery_Prodano.SQL.Add('SELECT id_clienta,Familya,(SELECT Count(id_clients) FROM Orders WHERE (Orders.id_clients=Clients.id_clienta) GROUP BY id_clienta) AS Кол_воМашин FROM Clients');

ModuleBD.ADOQuery_Prodano.Active:=True;

end;

end.

Форма для поиска автомобиля

unit avto;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls;

type

TForm_Avto = class(TForm)

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

GroupBox2: TGroupBox;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_Avto: TForm_Avto;

implementation

uses module, zak;

{$R *.dfm}

procedure TForm_Avto.FormActivate(Sender: TObject);

begin

ModuleBD.ADOQuery_Avto.SQL.Clear;

ModuleBD.ADOQuery_Avto.SQL.Add('SELECT * FROM Catalogs');

ModuleBD.ADOQuery_Avto.Active:=True;

end;

procedure TForm_Avto.Button1Click(Sender: TObject);

begin

ModuleBD.ADOQuery_Avto.SQL.Clear;

ModuleBD.ADOQuery_Avto.SQL.Add('SELECT * FROM Catalogs WHERE Marka_modeli LIKE '''+Edit1.Text+'''');

ModuleBD.ADOQuery_Avto.Active:=True;

end;

procedure TForm_Avto.RadioButton1Click(Sender: TObject);

begin

ModuleBD.ADOQuery_Avto.SQL.Clear;

ModuleBD.ADOQuery_Avto.SQL.Add('SELECT * FROM Catalogs ORDER BY Engine_power DESC ');

ModuleBD.ADOQuery_Avto.Active:=True;

end;

procedure TForm_Avto.RadioButton2Click(Sender: TObject);

begin

ModuleBD.ADOQuery_Avto.SQL.Clear;

ModuleBD.ADOQuery_Avto.SQL.Add('SELECT * FROM Catalogs ORDER BY Number_seats DESC ');

ModuleBD.ADOQuery_Avto.Active:=True;

end;

procedure TForm_Avto.RadioButton3Click(Sender: TObject);

begin

ModuleBD.ADOQuery_Avto.SQL.Clear;

ModuleBD.ADOQuery_Avto.SQL.Add('SELECT * FROM Catalogs ORDER BY Rashod_topliva DESC');

ModuleBD.ADOQuery_Avto.Active:=True;

end;

procedure TForm_Avto.RadioButton4Click(Sender: TObject);

begin

ModuleBD.ADOQuery_Avto.SQL.Clear;

ModuleBD.ADOQuery_Avto.SQL.Add('SELECT * FROM Catalogs ORDER BY Volume_trunk DESC');

ModuleBD.ADOQuery_Avto.Active:=True;

end;

procedure TForm_Avto.Button2Click(Sender: TObject);

begin

ModuleBD.ADOQuery_Avto.SQL.Clear;

ModuleBD.ADOQuery_Avto.SQL.Add('SELECT * FROM Catalogs');

ModuleBD.ADOQuery_Avto.Active:=True;

end;

procedure TForm_Avto.DBGrid1DblClick(Sender: TObject);

begin

Zakaz.Edit2.Text:= DBGrid1.DataSource.DataSet.Fields[0].AsString;

Zakaz.Edit9.Text:= DBGrid1.DataSource.DataSet.Fields[1].AsString;

Zakaz.Edit10.Text:= DBGrid1.DataSource.DataSet.Fields[2].AsString;

end;

end.