Листинг приложения База данных

unit Unit1;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Table1: TTable;

DataSource1: TDataSource;

MainMenu1: TMainMenu;

N1: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Table2: TTable;

DataSource2: TDataSource;

Label1: TLabel;

Label2: TLabel;

N2: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

Table1Tovar: TStringField;

Table1Cena: TCurrencyField;

Table2Key: TIntegerField;

Table2Por_nom: TStringField;

Table2Oxotnik: TStringField;

Table2Adres: TStringField;

Table2Tovar: TStringField;

Table2Kol_wo: TSmallintField;

procedure FormCreate(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure Table1AfterClose(DataSet: TDataSet);

procedure N12Click(Sender: TObject);

procedure Table1AfterOpen(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//Обработчик процедур, выполняемых при создании формы

//приложения

procedure TForm1.FormCreate(Sender: TObject);

begin

BorderStyle: =BsSingle;

Width: =808;

DBGrid1.Width: =800;

DBNavigator1.Width: =800;

DBGrid2.Width: =800;

DBNavigator2.Width: =800;

Label1.Top: =0;

DBGrid1.Top: =Label1.Height;

DBNavigator1.Top: =Label1.Height+DBGrid1.Height;

Label2.Top: =Label1.Height+DBGrid1.Height+DBNavigator1.Height;

DBGrid2.Top: =Label1.Height+DBGrid1.Height+DBNavigator1.Height

+Label2.Height;

DBNavigator2.Top: =Label1.Height+DBGrid1.Height+

DBNavigator1.Height+Label2.Height+DBGrid1.Height;

HorzScrollBar.Visible: =False;

VertScrollBar.Visible: =False;

//Height: =612;

ClientHeight: =566;

DBNavigator2.Enabled: =false;

Application.HintHidePause: =5000;

DBGrid2.ShowHint: =true;

DBGrid2.Hint: ='В настоящий момент прямой доступ к'+

' таблице " Охотник" через панель навигатора не возможен.'+

#13#10'Для непосредственного доступа к таблице через панель'+

' навигатора следует разорвать установленную между таблицами'

+' связь.';

N12.Enabled: =false;

end;

//Отключение связи между таблицами БД - обработчик процедур,

//выполняемых при выборе соответствующего пункта в меню на

//вкладке " Управление БД"

procedure TForm1.N21Click(Sender: TObject);

begin

Table2.MasterFields: ='';

DBNavigator2.Enabled: =true;

//DBNavigator2.ShowHint: =false;

DBGrid2.ShowHint: =false;

N12.Enabled: =true;

N12.Checked: =true;

Label2.Caption: =' Таблица " Охотник" ';

end;

//Установка связи между таблицами БД - обработчик процедур,

//выполняемых при выборе соответствующего пункта в меню на

//вкладке " Управление БД"

procedure TForm1.N22Click(Sender: TObject);

begin

Table2.MasterFields: ='tovar';

DBNavigator2.Enabled: =false;

DBGrid2.ShowHint: =true;

N12.Enabled: =false;

N12.Checked: =false;

Label2.Caption: =' Сведения о выбранном товаре из таблицы'+

' " Охотник" ';

end;

//N11Click - N12Click

//Обработчики процедур, выполняемых при выборе пунктов меню

//на вкладке " Таблицы"

procedure TForm1.N11Click(Sender: TObject);

begin

With N11 do

If Checked then

begin

Checked: =false;

Table1.Active: =false;

Label2.Caption: =' Таблица " Охотник" ';

end

else

begin

Checked: =true;

Table1.Active: =true;

Label2.Caption: =' Сведения о выбранном товаре из таблицы'+

' " Охотник" ';

end;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

With N12 do

If Checked then

begin

Checked: =false;

Table2.Active: =false;

end

else

begin

Checked: =true;

Table2.Active: =true;

Label2.Caption: =' Таблица " Охотник" ';

end;

end;

//Обработчики процедур, выполняемых при открытии файла данных

//(в момент, когда таблица становится активной)

procedure TForm1.Table1AfterOpen(DataSet: TDataSet);

begin

Table2.Active: =true; //Открытие ведомой таблицы " Охотник"

//происходит автоматически после открытия главной

N12.Enabled: =false;

N12.Checked: =false;

end;

//Обработчики процедур, выполняемых при закрытии файла данных

//(в момент, когда таблица становится неактивной)

procedure TForm1.Table1AfterClose(DataSet: TDataSet);

begin

N12.Enabled: =true;

N12.Checked: =true;

end;

end.