7. Программный код модуля для ис «гути»

unitmodule; //Объявление модуля

interface//Интерфейс

uses//Объявление используемых модулей

SysUtils, Windows, Messages, Classes, Graphics, Controls,

Forms,Dialogs;

type//Объявление классов с индексированными свойствами

F_new_arend = class (TObject)

private//Объявление приватных (скрытых) членов класса

FNomer: TNomer;

function GetNomer: TNomer;

procedure SetNomer(Value: TNomer);

published//Объявление публикуемых членов класса

procedure New_zapis;//Процедура «Новая запись»

property Nomer: TNomer read GetNomer write SetNomer;

//Определяется управляемый доступ к полям класса

end;

F_proverka = class (TObject)

published

procedure Proverka_dannih;

end;

F_new_vladelec = class (TObject) // Класс формы «Новый владелец»

private // Атрибуты данного класса

FAdres: TAdres; //Тип атрибута "адрес владельца"

FFIO:TFIO; //Тип атрибута "ФИО владельца"

FNomer:TNomer;

FPasport:TPasport; //Тип атрибута "данные паспорта владельца"

FTEl: TTEl;

function GetAdres: TAdres;// Функция чтения адреса

function GetFIO: TFIO; // Функция чтения ФИО

function GetNomer: TNomer;

function GetPasport: TPasport;

functionGetTEl:TTEl; //Функция чтения телефона

procedure SetAdres(Value: TAdres); // Процедура записи адреса

procedure SetFIO(Value: TFIO); // Процедура записи ФИО

procedure SetNomer(Value: TNomer);

procedure SetPasport(Value: TPasport);

procedure SetTEl(Value: TTEl); // Процедура записи телефона

public

procedure Sortirovka;

property TEl: TTEl read GetTEl write SetTEl;

published

property Adres: TAdres read GetAdres write SetAdres;

property FIO: TFIO read GetFIO write SetFIO;

property Nomer: TNomer read GetNomer write SetNomer;

property Pasport: TPasport read GetPasport write SetPasport;

//Определяется управляемый доступ к полям класса

end; // Конец описания класса

Operator = class (TObject) // Класс оператор

published

procedure Formirov_zapros; // Процедура формирования запросов

end;

T_arend=class(TObject) //Объявление класса-сущности «Оформление аренды»

private

FAdres: TAdres; //Тип атрибута "адрес"

FFIO: TFIO; //Тип атрибута "ФИО"

FPropiska: TPropiska; //Тип атрибута "прописка"

FTel:TTel; //Тип атрибута "телефон"

function GetAdres: TAdres; // Функция чтения адреса

function GetFIO: TFIO;

function GetPropiska: TPropiska;

function GetTel: TTel;

procedure SetAdres(Value: TAdres);

procedure SetFIO(Value: TFIO); //Процедура записи ФИО

procedure SetPropiska(Value: TPropiska);

procedure SetTel(Value: TTel);

published

procedure Delete; // Процедура удаления строки из таблицы

procedure New; // Процедура добавления новой строки в таблицу

property Adres: TAdres read GetAdres write SetAdres;

property FIO: TFIO read GetFIO write SetFIO;

property Propiska: TPropiska read GetPropiska write SetPropiska;

property Tel: TTel read GetTel write SetTel;

//Определяется управляемый доступ к полям класса

end;

T_nedvigimost = class (TObject)

private

FAdress: TAdress; //Тип атрибута "Адрес"

FBalkon: TBalkon;

FDom: TDom; //Тип атрибута "Дом"

FKolvo_komnat: TKol-vo_komnat;

FS: TS;

function GetAdress: TAdress;

function GetBalkon: TBalkon;

function GetDom: TDom;

function GetKolvo_komnat: TKol-vo_komnat;

function GetS: TS;

procedure SetAdress(Value: TAdress);

procedure SetBalkon(Value: TBalkon);

procedure SetDom(Value: TDom);

procedure SetKolvo_komnat(Value: TKol-vo_komnat);

procedure SetS(Value: TS);

public

property Balkon: TBalkon read GetBalkon write SetBalkon;

published

procedure Delite;

procedure New;

property Adress: TAdress read GetAdress write SetAdress;

property Dom: TDom read GetDom write SetDom;

property Kolvo_komnat: TKol-vo_komnat read GetKolvo_komnat write

SetKolvo_komnat;

property S: TS read GetS write SetS;

end;

T_vladelec = class (TObject)

end;

T_zapros = class (TObject)

end;

TObject = class ()

public

constructor Create;

destructor Destroy; virtual;

end;

Zapros_forma = class (TObject)

private

FIstochnik_dannih: TIstochnik_dannih;

FSortirovka: TSortirovka;

FTip_zaprossa: TTip_zaprossa;

function GetIstochnik_dannih: TIstochnik_dannih;

function GetSortirovka: TSortirovka;

function GetTip_zaprossa: TTip_zaprossa;

procedure SetIstochnik_dannih(Value: TIstochnik_dannih);

procedure SetSortirovka(Value: TSortirovka);

procedure SetTip_zaprossa(Value: TTip_zaprossa);

published

procedure Formirov_zapros;

property Istochnik_dannih: TIstochnik_dannih read GetIstochnik_dannih write

SetIstochnik_dannih;

property Sortirovka: TSortirovka read GetSortirovka write SetSortirovka;

property Tip_zaprossa: TTip_zaprossa read GetTip_zaprossa write

SetTip_zaprossa;

end;

procedure Register; //Операция "Зарегистрировать"

implementation//Реализация

procedureRegister; //Подпрограмма операции "Зарегистрировать"

begin

end;

{

********************************* F_new_arend **********************************

}

function F_new_arend.GetNomer: TNomer; //Подпрограмма функции "Получить номер"

begin

end;

procedure F_new_arend.New_zapis; //Подпрограмма операции "Новая запись"

begin

end;

procedure F_new_arend.SetNomer(Value: TNomer);

begin

end;

{

********************************** F_proverka **********************************

}

procedure F_proverka.Proverka_dannih; // Процедура проверки данных

begin

if (form1.edit1.text<>'')and(form1.edit2.text<>'')then// условие заполнения полей

Begin

Form1.Table1.Insert; // Добавить новую строку

Form1.Table1FIO.Value:=Form1.Edit1.Text; // Записать в ячейку таблицы

Form1.Table1ADres.Value:=Form1.Edit2.Text;

if Table1.Modified then

Table1.Post;

end;

end;

{

******************************** F_new_vladelec ********************************

}

function F_new_vladelec.GetAdres: TAdres;

begin

end;

function F_new_vladelec.GetFIO: TFIO;

begin

end;

function F_new_vladelec.GetNomer: TNomer;

begin

end;

function F_new_vladelec.GetPasport: TPasport;

begin

end;

function F_new_vladelec.GetTEl: TTEl;

begin

end;

procedure F_new_vladelec.SetAdres(Value: TAdres);

begin

end;

procedure F_new_vladelec.SetFIO(Value: TFIO);

begin

end;

procedure F_new_vladelec.SetNomer(Value: TNomer);

begin

end;

procedure F_new_vladelec.SetPasport(Value: TPasport);

begin

end;

procedure F_new_vladelec.SetTEl(Value: TTEl);

begin

end;

procedure F_new_vladelec.Sortirovka;

begin

end;

{

*********************************** Operator ***********************************

}

procedure Operator.Formirov_zapros;

begin

end;

{

*********************************** T_arend ************************************

}

procedure T_arend.Delete;

begin

end;

function T_arend.GetAdres: TAdres;

begin

end;

function T_arend.GetFIO: TFIO;

begin

end;

function T_arend.GetPropiska: TPropiska;

begin

end;

function T_arend.GetTel: TTel;

begin

end;

procedure T_arend.New;

begin

end;

procedure T_arend.SetAdres(Value: TAdres);

begin

end;

procedure T_arend.SetFIO(Value: TFIO);

begin

end;

procedure T_arend.SetPropiska(Value: TPropiska);

begin

end;

procedure T_arend.SetTel(Value: TTel);

begin

end;

{

******************************** T_nedvigimost *********************************

}

procedure T_nedvigimost.Delite;

begin

end;

function T_nedvigimost.GetAdress: TAdress;

begin

end;

function T_nedvigimost.GetBalkon: TBalkon;

begin

end;

function T_nedvigimost.GetDom: TDom;

begin

end;

function T_nedvigimost.GetKolvo_komnat: TKol-vo_komnat;

begin

end;

function T_nedvigimost.GetS: TS;

begin

end;

procedure T_nedvigimost.New;

begin

end;

procedure T_nedvigimost.SetAdress(Value: TAdress);

begin

end;

procedure T_nedvigimost.SetBalkon(Value: TBalkon);

begin

end;

procedure T_nedvigimost.SetDom(Value: TDom);

begin

end;

procedure T_nedvigimost.SetKolvo_komnat(Value: TKol-vo_komnat);

begin

end;

procedure T_nedvigimost.SetS(Value: TS);

begin

end;

{

*********************************** TObject ************************************

}

constructor TObject.Create;

begin

end;

destructor TObject.Destroy;

begin

end;

{

****************************** Zapros_forma *******************************

}

procedure Zapros_ forma.Formirov_zapros;

begin

end;

function Zapros_ forma.GetIstochnik_dannih: TIstochnik_dannih;

begin

end;

function Zapros_ forma.GetSortirovka: TSortirovka;

begin

end;

function Zapros_ forma.GetTip_zaprossa: TTip_zaprossa;

begin

end;

procedure Zapros_ forma.SetIstochnik_dannih(Value: TIstochnik_dannih);

begin

end;

procedure Zapros_ forma.SetSortirovka(Value: TSortirovka);

begin

end;

procedure Zapros_ forma.SetTip_zaprossa(Value: TTip_zaprossa);

begin

end;

end. //Конец модуля