Список литературы. 
Разработка информационной системы "Агентство недвижимости"

• 1. Карпова, И. П. Базы данных: Учебное пособие / И. П. Карпова. — СПб.: Питер, 2013. — 240 c. ISBN: 978−5-496−546−3
• 2. Кузин, А. В. Базы данных: Учебное пособие для студ. высш. учеб. заведений / А. В. Кузин, С. В. Левонисова. — М.: ИЦ Академия, 2012. — 320c. ISBN: 978−5-7695−7368−2
• 3. Пирогов, В. Ю. Информационные системы и базы данных: организация и проектирование: Учебное пособие / В. Ю. Пирогов. — СПб.: БХВ-Петербург, 2009. — 528 c. ISBN: 978−5-9775−0399−0
• 4. http://www.codenet.ru/progr/vbasic/vb_db/1.php
• 5. http://www.bourabai.kz/dbt/dbms/7.htm
• 6. http://www.interface.ru/home.asp?artId=2805

ЛИСТИНГ ПРОГРАММЫ

interface.

uses.

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,.

StdCtrls, EditBtn, ActnList, ExtCtrls;

type.

TAbon = class;

TFilm = class;

TAct= class;

{ TForm1 }.

TForm1 = class (TForm).

add1: TButton;

add2: TButton;

add3: TButton;

ed17: TDateEdit;

ed33: TComboBox;

ed32: TComboBox;

del3: TButton;

ed34: TDateEdit;

ed35: TDateEdit;

ed31: TEdit;

edi2: TButton;

del2: TButton;

Caption11: TLabel;

del1: TButton;

ed11: TEdit;

ed12: TEdit;

ed13: TDateEdit;

ed14: TEdit;

ed15: TEdit;

ed16: TEdit;

ed21: TEdit;

ed22: TEdit;

ed23: TEdit;

ed24: TEdit;

ed25: TEdit;

ed26: TEdit;

ed27: TEdit;

edi1: TButton;

edi3: TButton;

Label1: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label2: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label3: TLabel;

Label9: TLabel;

ListView1: TListView;

ListView2: TListView;

ListView3: TListView;

PageControl1: TPageControl;

saveb:TButton;

loadb:TButton;

cleanb:TButton;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

procedure add1Click (Sender: TObject);

procedure add2Click (Sender: TObject);

procedure add3Click (Sender: TObject);

procedure del1Click (Sender: TObject);

procedure del2Click (Sender: TObject);

procedure del3Click (Sender: TObject);

procedure edi1Click (Sender: TObject);

procedure edi2Click (Sender: TObject);

procedure edi3Click (Sender: TObject);

procedure ed32DropDown (Sender: TObject);

procedure ed33DropDown (Sender: TObject);

procedure savebClick (Sender: TObject);

procedure loadbClick (Sender: TObject);

procedure cleanbClick (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure FormDestroy (Sender: TObject);

procedure ListView1SelectItem (Sender: TObject; Item: TListItem);

procedure ListView2SelectItem (Sender: TObject; Item: TListItem);

procedure ListView3SelectItem (Sender: TObject; Item: TListItem);

procedure AbonAddtoView (Abon: TAbon);

procedure FilmAddtoView (Film: TFilm);

procedure ActAddtoView (Act: TAct);

private.

{ private declarations }.

published.

{ public declarations }.

end;

//Абонент.

TAbon = class.

private.

Fid: integer;

Ffio: string;

Fdr: TDateTime;

Fadr: string;

Ftelef: string;

Frep: integer;

Fban: TDateTime;

public.

procedure SaveToFile (AFile: THandle); virtual;

procedure LoadFromFile (AFile: THandle); virtual;

property id: integer Read Fid Write Fid;

property fio: string Read Ffio Write Ffio;

property dr: TDateTime Read Fdr Write Fdr;

property adr: string Read Fadr Write Fadr;

property telef: string Read Ftelef Write Ftelef;

property rep: integer Read Frep Write Frep;

property ban: TDateTime Read Fban Write Fban;

end;

TAbonCollection = class.

private.

FAbon: array of TAbon;

function GetAbon (Index: integer): TAbon;

function GetCount: integer;

public.

procedure Delete (Index: integer);

procedure Add (Abon: TAbon);

procedure Clear;

property Abon_S[Index: integer]: TAbon Read GetAbon; default;

procedure SaveToFile (AFile: THandle);

procedure LoadFromFile (AFile: THandle);

property Count: integer Read GetCount;

end;

//Недвижимость.

TFilm = class.

private.

Fid: integer;

Fname: string;

Freg: string;

Fjan: string;

Fcomp: string;

Fhron: integer;

Fprice: integer;

public.

procedure SavetoFile (AFile: THandle); virtual;

procedure LoadFromFile (AFile: THandle); virtual;

property id: integer Read Fid Write Fid;

property name: string Read Fname Write Fname;

property reg: string Read Freg Write Freg;

property jan: string Read Fjan Write Fjan;

property comp: string Read Fcomp Write Fcomp;

property hron: integer Read Fhron Write Fhron;

property price: integer Read Fprice Write Fprice;

end;

TFilmCollection = class.

private.

FFilm: array of TFilm;

function GetFilm (Index: integer): TFilm;

function GetCount: integer;

public.

procedure Delete (Index: integer);

procedure Add (Film: TFilm);

procedure Clear;

property Film_S[Index: integer]: TFilm Read GetFilm; default;

procedure SaveToFile (AFile: THandle);

procedure LoadFromFile (AFile: THandle);

property Count: integer Read GetCount;

end;

//Сделки.

TAct = class.

private.

Fid: integer;

Fabon: string;

Ffilm: string;

Fdate1: TDateTime;

Fdate2: TDateTime;

public.

procedure SavetoFile (AFile: THandle); virtual;

procedure LoadFromFile (AFile: THandle); virtual;

property id: integer Read Fid Write Fid;

property abon: string Read Fabon Write Fabon;

property film: string Read Ffilm Write Ffilm;

property date1: TDateTime Read Fdate1 Write Fdate1;

property date2: TDateTime Read Fdate2 Write Fdate2;

end;

TActCollection = class.

private.

FAct: array of TAct;

function GetAct (Index: integer): TAct;

function GetCount: integer;

public.

procedure SaveToFile (AFile: THandle);

procedure LoadFromFile (AFile: THandle);

procedure Add (Act: TAct);

procedure Delete (Index: integer);

procedure Clear;

property Act_S[Index: integer]: TAct Read GetAct; default;

property Count: integer Read GetCount;

end;

var.

Form1:TForm1;

Abon_S: TAbonCollection;

Film_S: TFilmCollection;

Act_S:TActCollection;

implementation.

{$R *.lfm}.

procedure WriteString (AFile: THandle; const s: string);

var.

Len: integer;

begin.

Len := Length (S);

FileWrite (AFile, Len, sizeof (Len));

FileWrite (AFile, PByte (S)^, sizeof (S[1]) * Len);

end;

function ReadString (AFile: THandle): string;

var.

Len: integer;

begin.

FileRead (AFile, Len, sizeof (Len));

SetLength (Result, Len);

FileRead (AFile, PByte (Result)^, sizeof (Result[1]) * Len);

end;

{ TForm1 }.

end;

procedure TForm1. loadbClick (Sender: TObject);

var.

RD:TOpenDialog;

i: integer;

AFile: Thandle;

sig: integer;

begin.

RD := TOpenDialog. Create (self);

if RD. Execute then.

begin.

Abon_S.Clear;

Film_S.Clear;

Act_S.Clear;

AFile := FileOpen (RD.FileName, fmopenread);

while FileRead (AFile, sig, sizeof (sig)) > 0 do.

begin.

case sig of.

• 101: Abon_S.LoadFromFile (AFile);
• 102: Film_S.LoadFromFile (AFile);
• 103: Act_S.LoadFromFile (AFile);

end;

end;

fileclose (AFile);

{listview}.

Listview1.items.beginupdate;

listview1.items.Clear;

for i := 0 to Abon_S.Count — 1 do.

AbonAddtoView (Abon_S[i]);

listview1.items.EndUpdate;

Listview2.items.beginupdate;

listview2.items.Clear;

for i := 0 to Film_S.Count — 1 do.

FilmAddtoView (Film_S[i]);

listview2.items.EndUpdate;

Listview3.items.beginupdate;

listview3.items.Clear;

for i := 0 to Act_S.Count — 1 do.

ActAddToview (Act_S[i]);

listview3.items.EndUpdate;

end;

end;

procedure TForm1. cleanbClick (Sender: TObject);

begin.

Abon_S.Clear;

Film_S.Clear;

Act_S.Clear;

{listview}.

listview1.items.Clear;

listview2.items.Clear;

listview3.items.Clear;

end;

{Абоненты}.

function TAbonCollection. GetAbon (Index: integer): TAbon;

begin.

Result := FAbon[Index];

end;

function TAbonCollection. GetCount: integer;

begin.

Result := Length (FAbon);

end;

procedure TAbonCollection. Add (Abon: TAbon);

for i := 0 to Length (FAbon) — 1 do.

FAbon[i]. Free;

setlength (FAbon, 0);

end;

procedure TForm1. add1Click (Sender: TObject);

var.

UVs: TAbon;

begin.

UVs:= TAbon. Create;

UVs.id := strtoint (ed11.text);

UVs.fio:= ed12. text;

UVs.dr := ed13. date;

UVs.adr:= ed14. text;

UVs.telef:= ed15. text;

UVs.rep:= strtoint (ed16.text);

UVs.ban:= ed17. date;

Abon_S.Add (UVs);

AbonAddtoView (UVs);

end;

procedure TForm1. AbonAddtoView (Abon: TAbon);

var.

item: Tlistitem;

begin.

item := listview1.Items.add;

item.Caption := IntToStr (Abon.id);

item.subitems.add (Abon.fio);

item.subitems.add (datetostr (Abon.dr));

item.subitems.add (Abon.adr);

item.subitems.add (Abon.telef);

item.subitems.add (inttostr (Abon.rep));

item.subitems.add (datetostr (Abon.ban));

end;

procedure TForm1. ListView1SelectItem (Sender: TObject; Item: TListItem);

begin.

edi1.Enabled := ListView1. Selected nil;

del1.Enabled := ListView1. Selected nil;

if ListView1. Selected nil then.

begin.

ed11.Text := IntToStr (Abon_s[item.index]. id);

ed12.Text := Abon_s[item.index]. fio;

ed13.Text := datetostr (Abon_s[item.index]. dr);

ed14.Text := Abon_s[item.index]. adr;

ed15.Text := Abon_s[item.index]. telef;

ed16.Text := inttostr (Abon_s[item.index]. rep);

ed17.Text := datetostr (Abon_s[item.index]. ban);

end.

else.

begin.

ed11.Text := '';

ed12.Text := '';

ed13.Text := '';

ed14.Text := '';

ed15.Text := '';

ed16.Text := '';

ed17.Text := '';

end;

end;

procedure TForm1. del1Click (Sender: TObject);

var.

g: integer;

begin.

g := ListView1.Selected.Index;

Abon_S.Delete (g);

ListView1.Selected.Delete;

end;

procedure TForm1. edi1Click (Sender: TObject);

var.

n: integer;

begin.

n := ListView1.Selected.Index;

Abon_S.GetAbon (n).id := StrToInt (ed11.Text);

Abon_S.GetAbon (n).fio := (ed12.Text);

Abon_S.GetAbon (n).dr := ed13. date;

Abon_S.GetAbon (n).adr := (ed14.Text);

Abon_S.GetAbon (n).telef := (ed15.Text);

Abon_S.GetAbon (n).rep := StrToInt (ed16.Text);

Abon_S.GetAbon (n).ban := ed17. Date;

ListView1.Selected.Caption := IntToStr (Abon_S[n]. id);

ListView1.Selected.SubItems[0] := Abon_S[n]. fio;

ListView1.Selected.SubItems[1] := datetostr (Abon_S[n]. dr);

ListView1.Selected.SubItems[2] := Abon_S[n]. adr;

ListView1.Selected.SubItems[3] := Abon_S[n]. telef;

ListView1.Selected.SubItems[4] := datetostr (Abon_S[n]. rep);

ListView1.Selected.SubItems[5] := datetostr (Abon_S[n]. ban);

end;

{Сохранение/загрузка Abon}.

procedure TAbon. SavetoFile (AFile: THandle);

begin.

FileWrite (Afile, fid, sizeof (fid));

WriteString (AFile, Ffio);

FileWrite (Afile, fdr, sizeof (dr));

WriteString (AFile, Fadr);

WriteString (AFile, Ftelef);

FileWrite (Afile, frep, sizeof (frep));

FileWrite (Afile, fban, sizeof (fban));

end;

procedure TAbonCollection. SavetoFile (AFile: THandle);

var.

num: integer;

i: integer;

begin.

for i := 0 to Length (FAbon) — 1 do.

begin.

num := 101;

filewrite (AFile, num, sizeof (num));

FAbon[i]. SavetoFile (AFile);

end;

end;

procedure TAbon. LoadFromFile (AFile: THandle);

begin.

FileRead (AFile, fid, sizeof (fid));

Ffio := ReadString (AFile);

FileRead (AFile, fdr, sizeof (fdr));

Fadr := ReadString (AFile);

Ftelef:= ReadString (AFile);

FileRead (AFile, frep, sizeof (frep));

FileRead (AFile, fban, sizeof (fban));

end;

procedure TAbonCollection. LoadFromFile (AFile: THandle);

var.

Abon: TAbon;

begin.

Abon := TAbon. Create;

Abon.LoadFromFile (AFile);

Add (Abon);

end;

{Недвижимость}.

function TFilmCollection. GetFilm (Index: integer): TFilm;

begin.

Result := FFilm[Index];

end;

function TFilmCollection. GetCount: integer;

begin.

Result := Length (FFilm);

end;

procedure TFilmCollection. Add (Film: TFilm);

var.

Len: integer;

begin.

Len := Length (FFilm);

SetLength (FFilm, Len + 1);

FFilm[Len] := Film;

end;

procedure TFilmCollection. Delete (Index: integer);

var.

i: integer;

begin.

for i := Index + 1 to Length (FFilm) — 1 do.

FFilm[i — 1] := FFilm[i];

SetLength (FFilm, Length (FFilm) — 1);

end;

procedure TFilmCollection. Clear;

var.

i: integer;

begin.

for i := 0 to Length (FFilm) — 1 do.

FFilm[i]. Free;

setlength (FFilm, 0);

end;

procedure TForm1. add2Click (Sender: TObject);

var.

UVs: TFilm;

begin.

UVs:= TFilm. Create;

UVs.id := strtoint (ed21.text);

UVs.name:= ed22. text;

UVs.reg := ed23. text;

UVs.jan:= ed24. text;

UVs.comp:= ed25. text;

UVs.hron:= strtoint (ed26.text);

UVs.price:= strtoint (ed27.text);

Film_S.Add (UVs);

FilmAddtoView (UVs);

end;

procedure TForm1. FilmAddtoView (Film: TFilm);

var.

item: Tlistitem;

begin.

item := listview2.Items.add;

item.Caption := IntToStr (Film.id);

item.subitems.add (Film.name);

item.subitems.add (Film.reg);

item.subitems.add (Film.jan);

item.subitems.add (Film.comp);

item.subitems.add (inttostr (Film.hron));

item.subitems.add (inttostr (Film.price));

end;

procedure TForm1. ListView2SelectItem (Sender: TObject; Item: TListItem);

begin.

edi2.Enabled := ListView2. Selected nil;

del2.Enabled := ListView2. Selected nil;

if ListView2. Selected nil then.

begin.

ed21.Text := IntToStr (Film_s[item.index]. id);

ed22.Text := Film_s[item.index]. name;

ed23.Text := Film_s[item.index]. reg;

ed24.Text := Film_s[item.index]. jan;

ed25.Text := Film_s[item.index]. comp;

ed26.Text := inttostr (Film_s[item.index]. hron);

ed27.Text := inttostr (Film_s[item.index]. price);

end.

else.

begin.

ed21.Text := '';

ed22.Text := '';

ed23.Text := '';

ed24.Text := '';

ed25.Text := '';

ed26.Text := '';

ed27.Text := '';

end;

end;

procedure TForm1. del2Click (Sender: TObject);

var.

g: integer;

begin.

g := ListView2.Selected.Index;

Film_S.Delete (g);

ListView2.Selected.Delete;

end;

procedure TForm1. edi2Click (Sender: TObject);

var.

n: integer;

procedure TFilmCollection. SavetoFile (AFile: THandle);

var.

num: integer;

i: integer;

begin.

for i := 0 to Length (FFilm) — 1 do.

begin.

num := 102;

filewrite (AFile, num, sizeof (num));

FFilm[i]. SavetoFile (AFile);

end;

end;

procedure TFilm. LoadFromFile (AFile: THandle);

begin.

FileRead (AFile, fid, sizeof (fid));

Fname := ReadString (AFile);

Freg := ReadString (AFile);

Fjan := ReadString (AFile);

Fcomp := ReadString (AFile);

FileRead (AFile, fhron, sizeof (fhron));

FileRead (AFile, fprice, sizeof (fprice));

end;

procedure TFilmCollection. LoadFromFile (AFile: THandle);

var.

Film: TFilm;

begin.

Film := TFilm. Create;

Film.LoadFromFile (AFile);

Add (Film);

end;

{Сделки}.

function TActCollection. GetAct (Index: integer): TAct;

begin.

Result := FAct[Index];

end;

function TActCollection. GetCount: integer;

begin.

Result := Length (FAct);

end;

procedure TActCollection. Add (Act: TAct);

var.

Len: integer;

begin.

Len := Length (FAct);

SetLength (FAct, Len + 1);

FAct[Len] := Act;

end;

procedure TActCollection. Delete (Index: integer);

var.

i: integer;

begin.

for i := Index + 1 to Length (FAct) — 1 do.

FAct[i — 1] := FAct[i];

SetLength (FAct, Length (FAct) — 1);

end;

procedure TActCollection. Clear;

var.

i: integer;

begin.

for i := 0 to Length (FAct) — 1 do.

FAct[i]. Free;

setlength (FAct, 0);

end;

procedure TForm1. add3Click (Sender: TObject);

var.

UVs: TAct;

begin.

UVs:= TAct. Create;

UVs.id := strtoint (ed31.text);

UVs.abon:= ed32. text;

UVs.film := ed33. text;

UVs.date1:= ed34. date;

UVs.date2:= ed35. date;

Act_S.Add (UVs);

ActAddtoView (UVs);

end;

procedure TForm1. ActAddtoView (Act: TAct);

var.

item: Tlistitem;

begin.

item := listview3.Items.add;

item.Caption := IntToStr (Act.id);

item.subitems.add (Act.abon);

item.subitems.add (Act.film);

item.subitems.add (datetostr (Act.date1));

item.subitems.add (datetostr (Act.date2));

end;

procedure TForm1. ListView3SelectItem (Sender: TObject; Item: TListItem);

begin.

edi3.Enabled := ListView3. Selected nil;

del3.Enabled := ListView3. Selected nil;

if ListView3. Selected nil then.

begin.

ed31.Text := IntToStr (Act_s[item.index]. id);

ed32.Text := Act_s[item.index]. abon;

ed33.Text := Act_s[item.index]. film;

ed34.Text := datetostr (Act_s[item.index]. date1);

ed35.Text := datetostr (Act_s[item.index]. date2);

end.

else.

begin.

ed31.Text := '';

ed32.Text := '';

ed33.Text := '';

ed34.Text := '';

ed35.Text := '';

end;

end;

procedure TForm1. del3Click (Sender: TObject);

var.

g: integer;

begin.

g := ListView3.Selected.Index;

Act_S.Delete (g);

ListView3.Selected.Delete;

end;

procedure TForm1. edi3Click (Sender: TObject);

var.

n: integer;

begin.

n := ListView3.Selected.Index;

Act_S.GetAct (n).id := StrToInt (ed31.Text);

Act_S.GetAct (n).abon := ed32. Text;

Act_S.GetAct (n).film := ed33. text;

Act_S.GetAct (n).date1 := ed34. date;

Act_S.GetAct (n).date2 := ed35. date;

ListView3.Selected.Caption := IntToStr (Act_S[n]. id);

ListView3.Selected.SubItems[0] := Act_S[n]. abon;

ListView3.Selected.SubItems[1] := Act_S[n]. film;

ListView3.Selected.SubItems[2] := datetostr (Act_S[n]. date1);

ListView3.Selected.SubItems[3] := datetostr (Act_S[n]. date2);

end;

{Сохранение/загрузка Act}.

procedure TAct. SavetoFile (AFile: THandle);

begin.

FileWrite (Afile, fid, sizeof (fid));

WriteString (AFile, Fabon);

WriteString (AFile, Ffilm);

FileWrite (Afile, fdate1, sizeof (fdate1));

FileWrite (Afile, fdate2, sizeof (fdate2));

end;

procedure TActCollection. SavetoFile (AFile: THandle);

var.

num: integer;

i: integer;

begin.

for i := 0 to Length (FAct) — 1 do.

begin.

num := 103;

filewrite (AFile, num, sizeof (num));

FAct[i]. SavetoFile (AFile);

end;

end;

procedure TAct. LoadFromFile (AFile: THandle);

begin.

FileRead (AFile, fid, sizeof (fid));

Fabon := ReadString (AFile);

Ffilm := ReadString (AFile);

FileRead (AFile, fdate1, sizeof (fdate1));

FileRead (AFile, fdate2, sizeof (fdate2));

end;

procedure TActCollection. LoadFromFile (AFile: THandle);

var.

Act: TAct;

begin.

Act := TAct. Create;

Act.LoadFromFile (AFile);

Add (Act);

i: integer;

begin.

ed33.Items.BeginUpdate;

ed33.Items.Clear;

for i := 0 to Film_S.Count — 1 do.

ed33.Items.AddObject (Film_S[i]. name, Film_S[i]);

ed33.Items.EndUpdate;

end;

end.