Автоматизация расчета коммунальных услуг ЛГУП “Жилищно-коммунального хозяйства”

2. Процессы

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

     Основные  процессы разрабатываемого приложения будут таковы:

1. Автоматизация расчета жилищно-коммунальных услуг;
2. Внесение оплаты за коммунальные услуги;
3. Ведение справочников;
4. Добавление записей в таблицы;
5. Изменение данных в таблице;
6. Поиск нужных записей;
7. Сортировка данных в таблице;
8. Ведение архивов;
9. Выдача квитанций;
10. Вывод документа на экран;
11. Вывод документа на  печать.

 

3. Алгоритм решения задачи

      Для решения поставленных задач был составлен следующий алгоритм:

     Обоснование выбора темы дипломного проекта;

     Поиск и анализ информации по теме ДП;

     Обработка информации;

     Создание  базы данных;

     Выбор интерфейса приложения;

     Создание  приложения;

     Подключение базы данных к приложению;

     Загрузка  графических файлов в проект;

     Вывод на экран информации по коммунальным услугам;

     Тестирование  проекта;

     При возникновении ошибок их исправление.

4. Описание внешнего интерфейса АРМ

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

     Проект  данной базы сохранен на компакт-диске. Запускаемый файл в папке oplata\Raschet\Raschet.exe. Проект будет содержать формы для доступа к информационным ресурсам базы данных.

     На  главной форме, рекомендуется отображать фотографию, связанную с коммунальными услугами.

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

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

     Пункт меню «Помощь» будет содержать в себе краткую информацию о разработчике проекта руководство пользователя по программе.

     В пункте меню справочники содержаться все виды справочников, в которых отображаются записи лицевых счетов, тарифов на коммунальные услуги, улиц, и д.р. При работе со  справочниками нужно использовать панель для редактирования, которая активизируется после нажатия кнопок «Добавить», «Изменить» и «Удалить». При нажатии на кнопку поиск на форме появляется панель поиска, где можно организовать поиск по любому полю в таблице. При этом необходимо выбрать, в представленном списке нужное поле по которому будет осуществляться поиск. Затем ввести слово и после этого в таблице появится та строка, в которой есть то слово, которое вы искали.

     Для того чтоб просмотреть записи расчета  ЖКУ за прошлые периоды нужно  в меню «Архивы» выбрать один из предложенных вам архив.

     Пункт меню «Квитанции», который находиться в меню «Ведомости» отвечает за появление формы квитанции, где можно осуществить выдачу квитанции гражданам, которые пользуются услугами ЖКХ.

     Меню  «Квартплата», в котором находятся  такие пункты как: «Ввод оплаты», «Лицевые счета», «Расчет».

     После нажатия на пункт лицевые счета  появляется форма Лицевые счета, где можно отредактировать таблицу справочник лицевых счетов. После выбора пункта «Расчет» на форме сначала появляется окно где нужно выбрать как будет производиться расчет коммунальных услуг а именно по лицевому счету или по дому или  по улице или по всему участку(ЖЭСу). Затем необходимо ввести нормативы коммунальных услуг на текущий месяц. И только после этого можно приступать к расчету ЖКУ.

     После того как был произведен расчет, необходимо выдать квитанцию для этого если расчет производился по лицевому счету, то для ее выдачи  необходимо после расчета нажать на кнопку выдать квитанцию и при необходимости распечатать ее. Если расчет производился по другим категориям,  то для выдачи квитанции необходимо выбрать в меню «Ведомости» нужный пункт и после этого заполнить все поля на форме «Квитанции» и затем нажать на кнопку «Выдать квитанцию».

     Пункт меню «Ввод оплаты» отвечает за вывод на экран формы, где вводится оплата за коммунальные услуги.

5. Описание  справочной системы

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

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

     Помощь  будет состоять из следующих разделов:

1. Выбор действия;
2. Редактирование базы данных;
3. Расчет ЖКУ;
4. Ввод оплаты;
5. Архивы;
6. Выдача квитанций;
7. Назначение данной программы;
8. Руководство программиста;
9. Об авторе .

      Файл  документа справочной системы представляет собой rtf-файл определенной структуры. Создать rtf-файл справочной информации можно при помощи редактора, Microsoft Word. Документ может содержать графические изображения и таблицы, стилевое и шрифтовое оформление. Кроме собственно справочной информации, в него включаются управляющие данные, например, определяющие взаимосвязи между разделами документа. При создании проектного файла справочной службы будет использована утилита Help Workshop входящая в состав пакета Borland Delphi 7.[10]

 

6. Система меню

7. Текст программы

     Проект  программы содержит следующие окна:

1. Главная форма программы (Приложение 1);
2. Справочник домов (Приложение 2);
3. Архив начислений свернутый (Приложение 3);
4. Расчет ЖКУ (Приложение 4);
5. Квитанции (Приложение 5).
6. Ввод оплаты жилищно-коммунальных услуг (Приложение 6)

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

begin

form2.Show;

form1.Hide;

end;

Процедура для добавления записи в таблицу.

if (LabeledEdit23.Text='') then LabeledEdit23.Text:='0';

ADOQADD.Parameters.ParamByName('KODLS').Value:=DBLookupComboBox2.KeyValue;

ADOQADD.Parameters.ParamByName('SALDI').Value:=LabeledEdit23.Text;

ADOQADD.ExecSQL;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

DBLookupComboBox1.KeyValue:=-1;

Процедура для изменения  записи в таблице.

if (LabeledEdit10.Text='') then LabeledEdit10.Text:='0';

ADOQIZM.Parameters.ParamByName('KODNA').Value:=LabeledEdit1.Text;

ADOQIZM.Parameters.ParamByName('id_SPRNA').Value:=ADOQuery1.FieldByName('id_SPRNA').AsInteger;

ADOQIZM.ExecSQL;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

Процедура для удаления записи из таблицы

if MessageBox(Handle,'Удалить  запись?','Подтверждение на удаление ',MB_ICONWARNING+mb_yesnocancel)=idyes  then

begin

ADOQDel.Parameters.ParamByName('id_sprls').Value:=ADOQuery1.FieldByName('id_sprls').AsInteger;

ADOQDel.ExecSQL;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

Процедура для поиска записей  в таблице.

if ComboBox1.ItemIndex=5

then

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT OPNA.OPNA, OPNA.KODLS, SPRGL.NAIMEN, OPNA.KODNA, SPRNA.NAIMEN, OPNA.SUMMA, OPNA.IZM, OPNA.KOL, OPNA.TARIF');

ADOQuery1.SQL.Add('FROM SPRNA INNER JOIN (SPRGL INNER JOIN OPNA ON SPRGL.KODLS = OPNA.KODLS) ON SPRNA.KODNA = OPNA.KODNA');

ADOQuery1.SQL.Add('where OPNA.KOL like "%'+LabeledEdit101.Text+'%"');

ADOQuery1.Active:=false;

ADOQuery1.Active:=True;

end;

Процедура для  нажатия на кнопку: Выдать квитанцию, из таблицы квитанции.

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT ARNAC.ARNAC, ARNAC.KODLS, SPRGL.NAIMEN, ARNAC.KODNA, SPRNA.NAIMEN, ARNAC.SUMMA, ARNAC.KOL, ARNAC.TARIF, ARNAC.MMGG');

ADOQuery1.SQL.Add('FROM SPRGL INNER JOIN (SPRNA INNER JOIN ARNAC ON SPRNA.KODNA = ARNAC.KODNA) ON SPRGL.KODLS = ARNAC.KODLS');

ADOQuery1.SQL.Add('WHERE (((SPRGL.NAIMEN) Like "%'+LabeledEdit101.Text+'%")  AND ((ARNAC.MMGG) Like "%'+LabeledEdit2.Text+'%") AND ((SPRNA.NAIMEN) Like "%'+LabeledEdit5.Text+'%"));');

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

KAT0TEH.Text:=ADOQuery1.Fieldbyname('tarif').AsString;

if (KAT0TEH.Text='') AND (KAT0GKAL.Text='') AND ( SOTOP0.Text='') AND (kol.Text='') AND (KAT0PODOGREV.Text='') AND  (KUB0.Text='') AND (KAT0MUSOR.Text='') AND (SMUS0.Text='')

then

begin

MessageBox(Handle,'Запись не найдена','Ошибка оиска', MB_ICONERROR+ MB_OK)

end

else

begin

        p:=StrToFloat(SMUS0.Text);

        a:=StrToFloat(KAT0MUSOR.Text);

        f:=y*u*i;

        g:=o*p*a;

        summus.Text:=FloatToStr(g);

       sum:=s+d+f+g;

     LabeledEdit1.Text:=FloatToStr(sum);

end;

form15.summa.Caption:=SALDOV.Text;

form15.penya.Caption:=PENI.Text;

Form15.QuickRep1.Preview;

Процедура для загрузки приложения (первой формы).

begin

ProgressBar1.StepIt();

if (ProgressBar1.Position>98)

then

begin

Form1.Show;

zagruzka.Hide;

end;

Процедура для расчета ЖКУ  по домy(кнопка подсчитать, форма-- 18)

    begin

        o:=StrToFloat(QPROG.Text);

        p:=StrToFloat(SMUS0.Text);

        a:=StrToFloat(KAT0MUSOR.Text);

        f:=y*u*i;

        g:=o*p*a;

        summus.Text:=FloatToStr(g);