Interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

ADODataSet1: TADODataSet;

MainMenu1: TMainMenu;

File1: TMenuItem;

Exit1: TMenuItem;

Zaprosy1: TMenuItem;

Zapros11: TMenuItem;

Ishodnayatablica1: TMenuItem;

procedure Zapros11Click(Sender: TObject);

procedure Exit1Click(Sender: TObject);

procedure Ishodnayatablica1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Zapros11Click(Sender: TObject);

begin

adodataset1.active:=false;

adodataset1.commandtext:='SELECT Produkty.Nomer_prod, Produkty.name_prod, Produkty.kkal FROM Produkty;';

adodataset1.active:=true;

end;

procedure TForm1.Exit1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Ishodnayatablica1Click(Sender: TObject);

begin

adodataset1.active:=false;

adodataset1.commandtext:='';

adodataset1.active:=true;

end;

end.

Практическая работа

Создание приложения «Карточка студента» (модуль для учебной части)

Структура БД

Рис. 1. Таблицы БД «Televizory.mdb»

Столбцы таблицы Price:

• ID

• LG

• Цена

Структура программы

Рис. 2. Элементы формы №1

Рис. 3. Элементы формы №2

Рисунок 4. Элементы формы №3

Рисунок 5. Элементы формы №4

Рисунок 4. Все формы

Листинг программы:

Форма 1:

unit Unit1;

Interface

uses

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

Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.Visible:=true;

form3.Visible:=false;

form4.Visible:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.Visible:=true;

form2.Visible:=false;

form4.Visible:=false;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form4.Visible:=true;

form3.Visible:=false;

form2.Visible:=false;

end;

end.

Форма 2:

unit Unit2;

Interface

uses

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

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

Label2: TLabel;

Edit2: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

form1.adodataset1.Active:=false;

form1.ADODataSet1.CommandText:='SELECT Price.[ID], Price.[LG], Price.[Öåíà] FROM Price WHERE (((Price.[Öåíà])>'+Edit1.text+' And (Price.[Öåíà])<'+edit2.text+'));';

form1.adodataset1.Active:=true;

form2.Close;

end;

end.

Форма 3:

unit Unit3;