Курсовая работа: Справочник радиолюбителя

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

ADOQuery1: TADOQuery;

GroupBox1: TGroupBox;

Edit1: TEdit;

Button1: TButton;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure npn1Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

form2.ADOQuery1.Active:=false;

form2.ADOQuery1.SQL.Clear;

form2.ADOQuery1.SQL.Add('SELECT Радиодеталь.Марка, Фирма.Фирма, Радиодеталь.[Кодматериала], Радиодеталь.Мощность, Радиодеталь.Цена, Страна.Страна');

form2.ADOQuery1.SQL.Add('FROM Фирма INNER JOIN (Страна INNER JOIN (Радиодеталь INNER JOIN Производитель ON Радиодеталь.[Кодрадиодетали] = Производитель.[Кодрадиодетали]) ON Страна.[Кодстраны] = Производитель.[Кодстраны]) ON Фирма.[Кодфирмы] = Производитель.[Кодфирмы]');

form2.ADOQuery1.SQL.Add('WHERE (((Страна.Страна)="Россия"));');