Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Форма выбора машины по каталогу
unit katalog;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls;
type TKatalogAvto = class(TForm) DBGrid1: TDBGrid; GroupBox1: TGroupBox; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RadioButton4: TRadioButton; GroupBox2: TGroupBox; Edit1: TEdit; Button1: TButton; Edit2: TEdit; Button2: TButton; Button3: TButton; procedure FormActivate(Sender: TObject); procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); procedure RadioButton3Click(Sender: TObject); procedure RadioButton4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end;
var KatalogAvto: TKatalogAvto;
implementation
uses main, module, zak;
{$R *.dfm}
procedure TKatalogAvto.FormActivate(Sender: TObject); begin ModuleBD.ADOQuery_Katalog.SQL.Clear; ModuleBD.ADOQuery_Katalog.SQL.Add('SELECT * FROM Catalogs'); ModuleBD.ADOQuery_Katalog.Active:=True; end;
procedure TKatalogAvto.RadioButton1Click(Sender: TObject); begin ModuleBD.ADOQuery_Katalog.SQL.Clear; ModuleBD.ADOQuery_Katalog.SQL.Add('SELECT * FROM Catalogs ORDER BY Engine_power DESC '); ModuleBD.ADOQuery_Katalog.Active:=True; end;
procedure TKatalogAvto.RadioButton2Click(Sender: TObject); begin ModuleBD.ADOQuery_Katalog.SQL.Clear; ModuleBD.ADOQuery_Katalog.SQL.Add('SELECT * FROM Catalogs ORDER BY Number_seats DESC '); ModuleBD.ADOQuery_Katalog.Active:=True; end;
procedure TKatalogAvto.RadioButton3Click(Sender: TObject); begin ModuleBD.ADOQuery_Katalog.SQL.Clear; ModuleBD.ADOQuery_Katalog.SQL.Add('SELECT * FROM Catalogs ORDER BY Rashod_topliva DESC'); ModuleBD.ADOQuery_Katalog.Active:=True; end;
procedure TKatalogAvto.RadioButton4Click(Sender: TObject); begin ModuleBD.ADOQuery_Katalog.SQL.Clear; ModuleBD.ADOQuery_Katalog.SQL.Add('SELECT * FROM Catalogs ORDER BY Volume_trunk DESC'); ModuleBD.ADOQuery_Katalog.Active:=True; end;
procedure TKatalogAvto.Button1Click(Sender: TObject); begin ModuleBD.ADOQuery_Katalog.SQL.Clear; ModuleBD.ADOQuery_Katalog.SQL.Add('SELECT * FROM Catalogs WHERE Marka_modeli LIKE '''+Edit1.Text+''' and Model LIKE '''+Edit2.Text+''''); ModuleBD.ADOQuery_Katalog.Active:=True; end;
procedure TKatalogAvto.Button2Click(Sender: TObject); begin ModuleBD.ADOQuery_Katalog.SQL.Clear; ModuleBD.ADOQuery_Katalog.SQL.Add('SELECT * FROM Catalogs'); ModuleBD.ADOQuery_Katalog.Active:=True; end;
procedure TKatalogAvto.Button3Click(Sender: TObject); begin Zakaz.Show; end;
procedure TKatalogAvto.DBGrid1DblClick(Sender: TObject); begin Zakaz.Show; 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.
|