Теми рефератів

> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти

Реферати, твори, дипломи, практика » Курсовые проекты » Довідник радіоаматора

Реферат Довідник радіоаматора

Тема: Курсовые проекты

розробки радіодеталі.

Рис. 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 } p> 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 [Тип переходу] 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