Справочник радиолюбителя (стр. 4 из 4)

При выборе производителя, выводится информация о радиодеталях произведенных в конкретной стране, а именно марка, фирма производитель, технические характеристики и цены.

Рис. 11 «Радиодетали произведенные в России»

Рис. 12 «Радиодетали произведенные в США»

По типу электронно-дырочного перехода:

· pnp

· npn

При выборе какого-либо перехода, отображается информация о радиодетали с выбранным типом перехода.

Рис. 13 «Выбор типа перехода»

При выборе типа: npn, отображаются все радиодетали имеющие данный переход.

Рис. 14 «Тип перехода: npn»

Организована возможность просмотра справочников по материалам и типам сборки.

Рис. 15 «Выбор справочника»

Справочник «Материал»

Рис. 16 «Справочник материал»

В базе данных предусмотрен поиск.

В поисковое поле нужно ввести номер разработки радиодетали.

Рис. 17 «Поисковое поле»

В результате выполнения поиска, в таблице будет отображена радиодеталь с номером разработки введенным в поиск, если таковой номер имеется.

Рис. 18 «Результат поиска»

ПРИЛОЖЕНИЕ 2

unit Unit1;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, Menus, StdCtrls;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1DSDesigner2: TWideStringField;

ADOTable1DSDesigner3: TIntegerField;

ADOTable1DSDesigner4: TIntegerField;

ADOTable1DSDesigner5: TIntegerField;

ADOTable1DSDesigner6: TIntegerField;

ADOTable1DSDesigner7: TIntegerField;

ADOTable1DSDesigner8: TIntegerField;

ADOTable1DSDesigner9: TIntegerField;

ADOTable1DSDesigner10: TIntegerField;

ADOTable1DSDesigner11: TIntegerField;

ADOTable1DSDesigner12: TBCDField;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

pnp1: TMenuItem;

npn1: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

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 (((Страна.Страна)="Россия"));');

form2.ADOQuery1.Active:=true;

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

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.