3.2. Фізичне представлення бд

Передплатник

Назва поля	Ідентифікатор	Ключі	Розмір	Обмеження
Ідентифікаційний код	IK	(PK)	числовий
ПІБ	NP		текстовий
Телефон	TP		числовий
Адреса	AP		текстовий

Об’єкт передплати

Назва поля	Ідентифікатор	Ключі	Розмір	Обмеження
Штрих код	SH	(PK)	числовий
К-сть сторінок	KS		числовий	<100
Назва	NM		текстовий
Тип	TYPE		текстовий

Поштове відділення

Назва поля	Ідентифікатор	Ключі	Розмір	Обмеження
№ пошт відділення	NV	(PK)	числовий	<10000
Телефон	TV		числовий
Індекс	ID		числовий
ПІБ завідуючого	ND		текстовий
Адреса	AV		текстовий

Замовлення

Назва поля	Ідентифікатор	Ключі	Розмір	Обмеження
№	NZ	(PK)	числовий
Дата	DZ		числовий
К-сть номерів	KN		числовий
Вартість	VR1		числовий
Сума	SUMM		числовий
Ідент код	IK	(FK)	числовий
Штрих код	SH	(FK)	числовий
№ пошт відл	NV	(FK)	числовий	<10000

Банк

Назва поля	Ідентифікатор	Ключі	Розмір	Обмеження
Код	KB	(PK)	числовий
Назва	NB		текстовий
Телефон	TB		числовий
Адреса	AB		текстовий

Зв’язуюча таблиця

Назва поля	Ідентифікатор	Ключі	Розмір	Обмеження
№ пошт віділ	NV	(FK)	числовий
Код банку	KB	(FK)	числовий

4. Елементи програмного забезпечення

Додатки

1. Лістинг програми

Головна форма

unit MainFR;

interface

uses

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

Dialogs, Menus, StdCtrls, Buttons, FRMRayer, FRMObject, FRMPost, FRMOrder,

FRMBank, DB, DBTables, RpDefine, RpCon, RpConDS, RpConBDE, RpRave, ZVFRM;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Label7: TLabel;

BitBtn6: TBitBtn;

procedure N2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

form2.Show;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

form6.Show;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

form9.Show;

end;

end.