Приложение 2 Листинг приложения

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls;

type

TForm1 = class(TForm)

PaintBox1: TPaintBox;

Timer1: TTimer;

procedure PaintBox1Paint(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

with PaintBox1, Canvas do

begin

Pen.Color := clBlue; { Цвет линий }

Brush.Color := clBlue;

Ellipse(20,20,650,400);

//FloodFill(Width div 3, Height div 4, clgreen, fsBorder);

Font.Color := clRed;

Brush.Color := clBlue;

Font.Name := 'Arial';

Font.Size := 60{Height div 5};

Font.Style := [fsBold, fsItalic];

TextOut(190{Width div 5}, 145, {Height div 15,} 'Эллипс');

end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

with PaintBox1, Canvas do

begin

if Font.Color = clRed then Font.Color := clYellow

else Font.Color := clRed;

TextOut(190{Width div 5}, 145, {Height div 15,} 'Эллипс');

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Timer1. Interval := 300;

PaintBox1.Top :=100;

PaintBox1.Left :=10;

end;

end.

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

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.