К сожалению, рамки данной выпускной квалификационной работы и ограниченное время не позволили выполнить интеграцию созданного модуля информационной системы с другими программными комплексами, но такие возможности вполне реально реализовать.
Интерфейс программной оболочки представляет из себя стандартный MDI-интерфейс в стиле многодокументного приложения, в котором в качестве главной форме выступает форма запуска, а дочерние формы открываются в её рамках.
Созданный в ходе работы модуль информационной системы предназначен для установки на настольные ПК под управления ОС семейств Windows, Linux и MacOS.
В системе достаточно легко регистрировать новые лицевые счета, а также проводить редактирование введённой информации в БД.
Программа обладает удобными фильтрами по отбору данных. Данные можно отбирать по частичному совпадению, что позволяет пользователю, не зная, например, точного наименования, ввести часть названия и система выдаст ему результат поиска. Отобранные данные можно, в случае необходимости, отредактировать.
В разработанном модуле информационной системы спроектированы отчёты, извещения для пользователей, а также квитанции об оплате.
Данный программный продукт был внедрён в управляющую компанию города Вологды на испытательный срок.
Подводя итоги, можно сделать вывод о том, что программный продукт получился универсальным и может функционировать в любой подобной организации.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. СТО 00043363-01-2008. Стандарт организации. Реконструкция и модернизация жилищного фонда: утв. РААСН. - Введ. 19.06.2008. - Москва: НИИТИАГ, 2008. - 81 с.
2. Буч, Г. Объектно-ориентированный анализ и проектирование с примерами приложений на C++ / Г. Буч. - 2-е изд., испр. и доп. - Санкт-Петербург: Невский Диалект; Москва: Бином, 1998. - 560 с.
3. Малыхина, М. П. Базы данных: основы, проектирование, использование: учеб. пособие / М. П. Малыхина. - Санкт-Петербург: БХВ-Петербург, 2007. - 518 с.
4. Корняков, В. Н. Программирование документов и приложений MS Office в Delphi: учеб. пособие / В. Н. Корняков. - Санкт-Петербург: БХВ-Петербург, 2017. - 496 с.
5. Боровский, А. Н. Программирование в Delphi: учеб. пособие / А. Н. Боровский. - Санкт-Петербург: БХВ-Петербург, 2012. - 491 с.
6. Микрюков, В. Ю. Алгоритмизация и программирование: учеб. пособие для средн. проф. образования / В. Ю. Микрюков. - Ростов-на-Дону: Феникс, 2007. - 304 с.
7. Избачков, Ю. С. Информационные системы: учебное пособие для вузов / Ю. С. Избачков, В. Н. Петров. - 2-е изд., испр. и доп. - Санкт-Петербург: Питер, 2008. - 656 с.
8. Архангельский, А. Я. Delphi 7: справочное пособие / А. Я. Архангельский. - Москва: БИНОМ, 2004. - 1022 с.
9. Жилищный кодекс Российской Федерации: федер. закон от 29.12.2004 № 188-ФЗ. - Москва: Юридическая литература, 2019. - 193 с.
10. О внесении изменения в Жилищный кодекс Российской Федерации и в отдельные законодательные акты Российской Федерации: федер. закон от 28.12.2013 № 417-ФЗ. - Москва: Юридическая литература, 2014. - 13 с.
11. О Фонде содействия реформированию жилищно-коммунального хозяйства: федер. закон от 21.07.2007 № 185-ФЗ. - Москва: Юридическая литература, 2018. - 53 с.
12. О внесении изменений в части первую и вторую Налогового кодекса Российской Федерации в связи с передачей налоговым органом полномочий по администрированию страховых взносов на обязательное пенсионное, социальное и медицинское страхование: федер. закон от 03.07.2016 № 242-ФЗ. - Москва: Юридическая литература, 2017. - 46 с.
ПРИЛОЖЕНИЕ
Программный код формы «Перерасчёт» программного продукта «Капитальный ремонт» procedure Tfrm_Per.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_MDI.mnu_Per.Enabled:=true;
action:=cafree;
end;
procedure Tfrm_Per.BitBtn_DeleteClick(Sender: TObject);
var
res: TModalResult;
begin
end;
procedure Tfrm_Per.BitBtn_StartClick(Sender: TObject);
var
iDolg: Extended; //Долг на начало периода
iPl: Extended; //Площадь
iTarif: Extended; //Тариф
iLgota: Extended;//Льгота
iNachisleno: Extended; //Начислено
iOplacheno: Extended; //Оплачено
iPeni: Extended;
iItogo: Extended;
res: TModalResult;
begin
Application.CreateForm(Tfrm_Dialog,frm_Dialog);
res:=frm_Dialog.ShowModal;
if res=mrYes then begin
BitBtn_Start.Enabled:=false;
try
ProgressBar1.Min:=1;
ProgressBar1.Max:=ado_Plategi.RecordCount;
ProgressBar1.Position:=1;
ado_Plategi.First;
while not ado_Plategi.Eof do begin
ado_Plategi.Edit;
ado_Plategi.FieldByName('Period').AsString:=MaskEdit_Per.Text;
iDolg:=ado_Plategi.FieldByName('Dolg_nach').AsFloat;
iPl:=ado_Plategi.FieldByName('Ploshad').AsFloat;
//Находим тариф по названию
ado_tarif.First;
ado_tarif.Locate('Tarif', ado_Plategi.fieldbyname('Tarif').AsString,[]);
iTarif:=ado_Tarif.fieldbyname('Razmer').AsFloat;
//Находим льготу по названию
ado_Lgota.First;
ado_Lgota.Locate('Lgota', ado_Plategi.fieldbyname('Lgota').AsString,[]);
iLgota:=ado_Lgota.fieldbyname('Razmer').AsFloat/100;
iLgota:=1-iLgota;
iNachisleno:=iPl*iTarif*iLgota;
iOplacheno:=ado_Plategi.FieldByName('Oplacheno').AsFloat;
iPeni:=ado_Tarif.fieldbyname('Peni').AsFloat/100;
iPeni:=iPeni*iDolg;
iItogo:=iDolg+iNachisleno+iPeni-iOplacheno;
ado_Plategi.fieldbyname('Dolg_Nach').AsFloat:=iItogo;
ado_Plategi.FieldByName('Oplacheno').AsFloat:=0.00;
ado_Plategi.Next;
ProgressBar1.Position:=ProgressBar1.Position+1;
end;
if (ado_Plategi.State=dsedit) then ado_Plategi.Post;
showmessage('Расчёт завершён!');
ProgressBar1.Position:=0;
except
showmessage('Ошибка! Проверьте правильность параметра расчёта!');
end;
BitBtn_Start.Enabled:=true;
end;
end;
procedure Tfrm_Per.FormCreate(Sender: TObject);
begin
ado_Tarif.Close;//Закрываем набор данных
ado_Tarif.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='''+PathBD+''''; //Говорим набору, какой драйвер для доступа к БД использовать
ado_Tarif.Open;//Открываем набор данных
ado_Lgota.Close;//Закрываем набор данных
ado_Lgota.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='''+PathBD+''''; //Говорим набору, какой драйвер для доступа к БД использовать
ado_Lgota.Open;//Открываем набор данных
ado_Plategi.Close;//Закрываем набор данных
ado_Plategi.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='''+PathBD+''''; //Говорим набору, какой драйвер для доступа к БД использовать
ado_Plategi.Open;//Открываем набор данных