49109 (Справочник радиолюбителя), страница 4
Описание файла
Документ из архива "Справочник радиолюбителя", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "49109"
Текст 4 страницы из документа "49109"
form4.ADOQuery1.SQL.Add('FROM [Тип перехода] INNER JOIN Радиодеталь 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
ShowMessage('Введите № разработки!')
else
begin
form6.ADOQuery1.Active:=false;
form6.ADOQuery1.SQL.Clear;
form6.ADOQuery1.SQL.Add('SELECT Радиодеталь.[Номер разработки], Страна.Страна, Радиодеталь.Марка, Радиодеталь.Цена');
form6.ADOQuery1.SQL.Add('FROM Страна INNER JOIN (Радиодеталь INNER JOIN Производитель ON Радиодеталь.[Код радиодетали]=Производитель.[Код радиодетали]) ON Страна.[Код страны]=Производитель.[Код страны]');
form6.ADOQuery1.SQL.Add('WHERE Радиодеталь.[Номер разработки]='+form1.edit1.text+';');
form6.ADOQuery1.Active:=true;
Form6.ShowModal;
end;
end.
34