Размещено на http://www.allbest.ru/

МИНОБРНАУКИ РОССИИ

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

"Московский технологический университет"

МИРЭА

Институт информационных технологий (ИТ)

Кафедра Корпоративных Информационных Систем (КИС)

КУРСОВАЯ РАБОТА

по дисциплине

«Объектно-ориентированное программирование»

Тема курсовой работы

Разработка информационной системы «Агентство недвижимости»

Выполнил

Илющенко И.Ф.

Руководитель

Мирзоян Д.И.

Москва 2016



Задание на выполнениекурсовой работы по дисциплине «Объектно-ориентированное программирование»

Тема:

Разработка ИС «Агентство недвижимости»

Исходные данные:

Предметная область - ИС Агентство недвижимости, техническое задание

Перечень вопросов, подлежащих разработке, и обязательного графического материала:

Выявление сущностей информационной системы. Концептуальная модель базы данных предметной области(ER-диаграмма)

Мониторинг процесса выполнения курсового проекта (работы):

№ этапа	Этап курсового проекта, работы выполнил и представил результаты руководителю проекта (работы), дата и подпись исполнителя	Работу по этапу курсового проекта (работы) принял на рассмотрение, дата и подпись руководителя	Работу по этапу курсового проекта (работы) принял на рассмотрение, дата и подпись руководителя	Работу по этапу курсового проекта (работы) принял на рассмотрение, дата и подпись руководителя	Комментарии руководителя курсового проекта (работы)
1
2
3

Техническое задание:

1. Наименование работы:

Разработка ИС «Агентство недвижимости»

2. Исполнитель:

Илющенко И.Ф. Шифр: 15И0508

3. Основание для разработки:

Учебный план бакалавриата по направлению 09.03.02 «Информационные системы и технологии»

4. Цель и назначение работы:

Выделение сущностей в поставленной задаче, определение состава и характера связей между ними на основании теоретического обзора сходных систем, построение концептуальной модели предметной области.

5. Технические требования:

Представление концептуальной модели предметной области в виде ER-диаграммы с выделением состава сущностей и характера связей.

6. Содержание работы:

В результате выполнения работы решаются следующие задачи:

1. Составление теоретического материала.

2. Разработка структуры ИС

3. Оформление Расчетно-пояснительной записки

4. Защита работы и демонстрация работы ИС

5. Программа реализации ИС

7. Порядок сдачи работы:

Выполнение работы в соответствии со стандартами кафедры КИС.



ER-диаграмма:



Аннотация

В данной курсовой работе рассматривается Информационная система «Агентство недвижимости». Во введении сказано о необходимости вводить информационные системы в различных сферах, в том числе и в сфере недвижимости. В теоретической части сказано о базах данных, об информационных системах в целом, а также о нашей в частности. В практической части решены следующие задачи: разработка структуры и файловой базы данных « Агентство недвижимости», построена ER-диаграмма. В выводе подведен итог и рассмотрены положительные характеристики данной информационной системы. Также присутствует список литературы.



ОГЛАВЛЕНИЕ

• ВВЕДЕНИЕ
• 1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ
• 2. ОПИСАНИЕ ПРИЛОЖЕНИЯ ИС
• 3. ИНСТРУКЦИЯ ПО ИСПОЛЬЗОВАНИЮ
• 4. ТЕСТИРОВАНИЕ
• ВЫВОД
• СПИСОК ЛИТЕРАТУРЫ
• ЛИСТИНГ ПРОГРАММЫ



ВВЕДЕНИЕ

Целью данной курсовой работы является разработка Информационной системы "Агентство недвижимости". В данной ИС будут реализованы многие функции для удобного выполнения торговых и складских операций. ИС позволит наглядно увидеть текущую ситуацию на предприятии.

Использование ИС "Агентство недвижимости" в работе современного крупного предприятия является необходимостью, поскольку при больших объёмах торговли уже нет времени на то, чтобы пользоваться неудобными инструментами. Предоставляемые услуги по большей части одинаковы во всех подобных предприятиях, так что больше клиентов достанется тем, кто удобнее, быстрее и качественнее предоставляет сервис.

Начальным этапом создания ИС является анализирование предметной области. Затем необходимо выявить сущности. После смоделировать связи между ними.

Функциональные потребности должны определять потребности реальных пользователей. Структура данных должна быть рассчитана на изменения в организационной структуре и на текущие и ожидаемые исключения и ограничения.

Основными функциями являются:

· Добавление нового покупателя/недвижимость

· Изменение сведений о параметрах недвижимости

· Регистрация информации о продажах

· Просмотр полного каталога недвижимости



1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ

Для того, чтобы создать информационную систему, необходимо понять систему работы агентства недвижимости. Абонент (оформитель) приходит в данное учреждение, чаще всего точно зная, какую недвижимость он будет оформлять. Работник должен оперативно ответить, есть ли вид недвижимости экземпляр в наличии, и если он имеется, то оформить договор продажи. Если же абонент не знает точно, что ему надо, то он может поинтересоваться у продавца-консультанта, какие виды недвижимости присутствуют, например, на некоторой улице. В этом случае работникдолжен предоставить полный список недвижимости, с помощью ИС.

Информационная система - автоматизированная система, предназначенная для организации, хранения, пополнения, поддержки и представления пользователям информации в соответствии с их запросами.

Информационные ресурсы представляют собой один из обязательных элементов, необходимых для осуществления любого вида человеческой деятельности: производства, управления, научных исследований, проектирования новой техники и технологии, подготовки и переподготовки кадров.

Для того чтобы создать ИС для агентства, нужно определить, к каким классификациям он будет относиться. В нашем случае важны следующие классификации: по масштабности и по характеру обработки данных. ИС делятся по масштабности на три вида:

· ПерсональнаяИС

· ГрупповаяИС

· КорпоративнаяИС.Охватывает все информационные процессы целого предприятия, достигая их полной согласованности, безызбыточности и прозрачности. Такие системы называютсистемами комплексной автоматизации предприятия.

Для агентства необходима групповая ИС, так как предназначена для коллективного использования работников данного учреждения, но при этом не обязана охватывать все информационные процессы предприятия.

Теперь необходимо определить, к какому типу по характеру обработки данных ИС “Агентство недвижимости” будет относится.

Так как целью создания информационной системы для агентства является в основном улучшение и облегчение навигации по базе недвижимости, то необходимо организовать информационно-справочную ИС.

Результатом функционирования информационных систем являетсяинформационная продукция-- документы, информационные массивы,базы данныхи информационные услуги.

База данных - это информационная модель, позволяющая упорядоченно хранить данные о группе объектов, обладающих одинаковым набором свойств.

Классификация помодели данных:

· Иерархическая

· Объектнаяиобъектно-ориентированная

· Объектно-реляционная

· Реляционная

· Сетевая

· Функциональная



Классификация по среде постоянного хранения

· Во вторичной памяти, или традиционная: средой постоянного хранения является периферийная энергонезависимая память (вторичная память)-- как правиложёсткий диск.

· В оперативную память СУБД помещает лишькеш и данные для текущей обработки.

· В третичной памяти: средой постоянного хранения является отсоединяемое от сервера устройство массового хранения (третичная память), как правило на основемагнитных лентилиоптических дисков. Во вторичной памяти сервера хранится лишь каталог данных третичной памяти, файловый кеш и данные для текущей обработки; загрузка же самих данных требует специальной процедуры.

Программное обеспечение, предназначенное для работы с базами данных, называется система управления базами данных (СУБД). СУБД используются для упорядоченного хранения и обработки больших объемов информации.

СУБД организует хранение информации таким образом, чтобы ее было удобно:

· искать нужные сведения

· делать любые выборки

· осуществлять сортировку в любом порядке

Выявление сущностей концептуальной модели

Поводом создания данной информационной системы является необходимость в упрощении навигации по базе агентства, точном и оперативном информировании абонентов о наличии недвижимости.

Выявим сущности концептуальной модели. Сущность- реальный или воображаемый объект, имеющий существенное значение для рассматриваемой предметной области, информация о котором подлежит хранению.

Организация каждого агентства недвижимости включает в себя учет, хранение и предоставление недвижимости клиенту. В связи с этим каждая недвижимость имеет определенные данные, такие как:

· Номер недвижимости

· Вид недвижимости

· Адрес

· Кол-во комнат

· Компания застройщик

· Вид сделки

· Цена

Благодаря данной информации возможно осуществление наиболее быстрого и точного поиска по базе данных агентства.

Также в агентстве ведется картотека покупателей. О каждом клиенте заносятся следующие данные:

· Номер покупателя

· Фамилия, имя, отчество

· Дата рождения

· Адрес проживания

· Номер телефона

· Серия и № паспорта

Основная задача агентства недвижимости - продажа недвижимости клиентам. При продаже недвижимости остаются следующие данные:

· Номер договора

· Номер покупателя

· Номер недвижимости

· Дата сделки

· Сумма к оплате

С помощью данных сведений персонал агентства может оперативно определять, имеются ли в наличии недвижимость определенного типа.

Моделирование связей между сущностями

Итак, после выявления сущностей модели, необходимо смоделировать связи между ними.

Всего существует три вида связи: один к одному (1:1), один ко многим (1:N) и многие ко многим (N:N). Связь (1: N) означает, что один экземпляр сущности, расположенный слева по связи, может быть связан с несколькими экземплярами сущности, расположенными справа по связи. Связь «один к одному» (1:1) означает, что один экземпляр одной сущности связан только с одним экземпляром другой сущности, а связь «многие ко многим» (N:N) означает, что один экземпляр первой сущности может быть связан с несколькими экземплярами второй сущности, и наоборот, один экземпляр второй сущности может быть связан с несколькими экземплярами первой сущности.

Теперь рассмотримконкретные случаи. Сущность “Недвижимость” и сущность «Договор» имеют связь (1:1), так как одна недвижимость может быть продана только один раз раз.

Сущность “Покупательи сущность “Договор” также имеют связь один ко многим. Так как один клиент может покупать не одну недвижимость.

Сущность «Недвижимость» имеет связь многие ко многим (N:N), так как можно установить две смысловые связи.

2. ОПИСАНИЕ ПРИЛОЖЕНИЯ ИС

На главной форме, в которой будет осуществляться основная работа, область работы представлена шестью вкладками, на которых представлена вся информация, необходимая для работы ИС «Агентство недвижимости», а также все основные действия для полной автоматизации процессов.



Рис. 1. Главная форма приложения.

3. ИНСТРУКЦИЯ ПО ИСПОЛЬЗОВАНИЮ

1) В нижней области рабочего окна расположены кнопки сохранения\загрузки базы.

2) На каждой из вкладок расположены кнопки добавления\удаления позиций. Для того, чтобы изменить уже существующую позицию, необходимо выбрать её из списка, отредактировать необходимые поля и нажать на кнопку «Изменить».

3) На вкладке «Покупатели» осуществляется регистрация торговых операций с подробным описанием каждой позиции.



Рис. 2. Вкладка «Покупатели».

4) Вкладка «Недвижимость» предназначена для заполненияосновной информации о недвижимости базы, включая улицу, кол-во комнат, компанию застройщик, вид сделки и цену.



Рис. 3. Вкладка «Недвижимость».

5) В разделе «Договор» оформляется договор базы для зарегистрированных абонентов, здесь указывается дата сделки и цена.



Рис. 4. Вкладка «Договор» .



4. ТЕСТИРОВАНИЕ

Рис. 5. Добавление записи в базу.



Рис.6. Изменение записи в БД.

Рис. 7. Удаление записи из БД.

Рис. 8. Сохранение\загрузка БД.

Сохранение:



Загрузка:





ВЫВОД

Цель курсовой работы достигнута - была создана информационная система “Агентство недвижимости”. С помощью неё персонал данных заведений сможет осуществлять быстрый поиск по базе данных и давать точную информацию абонентам о недвижимости, заносить абонентов и недвижимость в базу, а так же оформлять договоры.

Для достижения данной цели было выполнены основные задания:

· Изучить и проанализировать предметную область

· Выявить сущности концептуальной модели

· Моделировать связи между ними.

· Построить ER-диаграмму

· Создать ИС “Агентство недвижимости”

По мере выполнения данной работы были изучены информационные системы (ИС), связанные с сохранением и обработкой недвижимости в агентстве. информационный система недвижимость агентство

Реализация данной ИС на практике является примером грамотного и продуманного решения оптимизации агентства недвижимости.

То, как организована работа информационной системы, насколько удобно получать из нее данные, играет большую роль в том, насколько быстро сотрудники магазина и покупатели смогут находить информацию. Ачем быстрее производятся операции -- тем больше клиентов сможет получить услугу, а, следовательно, принесут предприятию больше прибыли.



СПИСОК ЛИТЕРАТУРЫ

1. Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. - СПб.: Питер, 2013. - 240 c.ISBN: 978-5-496-00546-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.

Размещено на Allbest.ru

...