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

Form2.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form3.ADOQuery1.Active:=false;

form3.ADOQuery1.SQL.Clear;

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

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

form3.ADOQuery1.SQL.Add('WHERE (((Страна.Страна)="США"));');

form3.ADOQuery1.Active:=true;

Form3.ShowModal;

end;

procedure TForm1.npn1Click(Sender: TObject);

begin

form4.ADOQuery1.Active:=false;

form4.ADOQuery1.SQL.Clear;

form4.ADOQuery1.SQL.Add('SELECT Радиодеталь.Марка, Радиодеталь.[Код материала], Радиодеталь.[Код подкласса], Радиодеталь.[Код частоты], [Тип перехода].[Тип перехода]');

form4.ADOQuery1.SQL.Add('FROM [Тип перехода] INNERJOIN Радиодеталь ON [Тип перехода].[Код типа перехода] = Радиодеталь.[Код типа перехода]');

form4.ADOQuery1.SQL.Add('WHERE ((([Тип перехода].[Тип перехода])="npn"));');

form4.ADOQuery1.Active:=true;

Form4.ShowModal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if edit1.Text='' then