Разработка информационной системы для ТСЖ

 

Разработка информационной системы для ТСЖ

 

Отчет по практике

 

Оглавление

 

 

Описание предметной области

 

Данная информационная система разработана для повышения эффективности работы некоммерческой организации – товарищества собственников жилья (ТСЖ) «Управленец».

ТСЖ выступает вместо управляющей компании и является посредником между собственником жилья и компанией, предоставляющей услуги. ТСЖ производит расчет платежей за обслуживание жилья и коммунальных платежей и предоставляет извещения собственникам жилья. Расчет производится на основе тарифов, указанных в договоре на обслуживание между собственником и компанией. ТСЖ имеет расчетный счет, на который поступают платежи и сразу переводятся  на расчетный счет компании, предоставляющей услуги (ресурсы). Таким образом, платежи не составляют доход ТСЖ. Но все же есть возможность получения дохода – доход от аренды помещений, находящихся в собственности ТСЖ. А также ТСЖ проводит собрания по решению разного рода проблем, принимает заявки от жильцов дома по разным вопросам.

Функции информационной системы

 

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

Основные функции информационной системы:

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

В данной работе необходимо выделить следующие задачи:

1. Обезопасить информацию, хранящуюся в базе данных;
2. Вывод данных на экран;
3. Изменение имеющейся информации;
4. Добавление данных в базу;
5. Удаление данных из базы;
6. Улучшенный и удобный  пользователю графический интерфейс;
7. Поиск информации.

Логическая структура

 

На схеме 1 представлены процессы ТСЖ «Управленец»:

Схема 1. Схема  процессов ТСЖ «Управленец»

Анализируя  процессы, подлежащие автоматизации, ответим на некоторые вопросы.

1. При ответе вопрос "Что лежит в основе деятельности организации?" выявляются наиболее важные компоненты:

• жильцы дома;
• собственники жилья;
• члены ТСЖ;
• помещения;
• счетчики;
• лицевые счета помещений;
• услуги;
• тарифы;
• компании;
• договоры;
• заявки;

2.Ответ вопрос "Как это делается?" позволяет получить список основных  процессов, подлежащих автоматизации:

• расчет платежей;
• формирование извещений;
• прием заявок от жильцов;
• контроль  выполнения заявок;
• учет льготников;

 

3.Ответ вопрос  "Где происходят данные процессы?"  - все операции выполняются в пределах одного здания, а организация совместного использования данных основана на возможностях локальной сети и сервера БД.

 

4. Кто выполняет эти процессы?"

Схема 2. Организационная схема ТСЖ «Управленец»

 

5.Ответ на вопрос "Когда выполняется то или иное действие?" прояснит периодичность осуществляемых процессов и позволит правильно расставить акценты в будущей прикладной программе.

Периодичность процессов:

• генеральное общее собрание – 1 раз в год (15 февраля);
• начисление на лицевой счет помещений – 1 раз в месяц (с 15 по 25 число месяца);
• выполнение заявок – в теч. 3-х дней со дня поступления;
• переоформление договора – каждые 5 лет;

 

6. Вопрос "Почему эти действия выполняются?" позволяет определить мотивацию деятельности организации:

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

 

Физическая структура

В ходе проектирования информационной системы были выделены следующие сущности:

• помещения;
• собственники;
• жители;
• члены ТСЖ;
• счетчики;
• льготы;
• услуги;
• тарифы;
• компании;
• договоры;
• лицевые счета;
• заявки;
• действия;
• собрания;
• договор на аренду;
• начисления;
• тип действий;
• тип счетчика;
• тип помещения;
• тип компании;
• тип расчета.

 

 

 

Сущности БД и их основные атрибуты

Таблица 1. Определение атрибутов сущностей

Сущность	Первичный ключ	Атрибуты	Тип данных
Помещения	id pomesheniya	id pomesheniya id typ pomesh № Adress Ploshad kol_plit	Счетчик Числовой Числовой  Текстовый Числовой Числовой
Собственники	№dog_privatizacii	№dog_privatizacii id jhitelya data_privatizacii dolya(%) id lgot	Счетчик Числовой Дата/ время Числовой Числовой
Жители	id jhitelya	id jhitelya id pomesheniya F I O data_registr	Счетчик Числовой Текстовый Текстовый Текстовый Дата/ время
Члены ТСЖ	id chlena_tsj	id chlena_tsj id jhitelya data_vstupleniya doljhnost	Счетчик Числовой Дата/ время Текстовый
Счетчики	№ schetchika	№ schetchika id pomesheniya id typ_schet pred_pokaz posl_pokaz data_pokazanii	Счетчик Числовой Числовой Числовой Числовой Дата/ время
Льготы	id lgot	id lgot name_lgot rasmer(%)	Счетчик Текстовый Числовой
Услуги	id uslugi	id uslugi name uslugi norma_na_chel ed_izmer lgoti	Счетчик Текстовый Числовой Текстовый Текстовый
Тарифы	№ tarifa	№ tarifa inn id uslugi id typ rascheta stoimost peni(%)	Счетчик Числовой Числовой Числовой Числовой Числовой
Компании	id kompanii	inn name_komp adress raschetn_schet id_typ_komp	Текстовый Текстовый Текстовый Текстовый Числовой
Договоры	№ dog	№ dog N_LS data_nach data_ok	Счетчик Текстовый Дата/ время Дата/ время
	№ dog	N_tarifa	Счетчик
Лицевые счета	№ LS	№ LS № dog Data_otrkr Data_zakr Summa_nachisl Summa_oplach	Текстовый Числовой Дата/ время Дата/ время Числовой Числовой
Заявки	id zayavki	id zayavki id jhitelya id chlena_tsj data_postupleniya text_zayavki id_deistviya	Счетчик Числовой Числовой Дата/ время Текстовый Числовой
Действия	id_deistviya	id_deistviya inn fio_rabotnika data_vipolneniya stoimost	Счетчик Текстовый Текстовый Дата/ время Числовой
Собрания	N sobr	N sobr id chlena_tsj data_sobr  vrem mesto tema	Счетчик Числовой Дата/ время Дата/ время Текстовый Текстовый
Договор на аренду	id dog_na_arendu	id dog_na_arendu id_pomesheniya id tsj inn data_nachala data_okonch stoim_za_kvm	Счетчик Числовой Числовой Текстовый Дата/ время Дата/ время Числовой
Начисления	N_zapisi	N_zapisi N_LS N_dog id_typ_deistv summa data_n	Счетчик Текстовый Числовой Числовой Числовой Дата/ время
Тип действий	id_typ_deistv	id_typ_deistv typ_deistv	Счетчик Текстовый
Тип счетчика	id_typ_schet	id_typ_schet typ_schet	Счетчик Текстовый
Тип помещения	id_typ_pomesh	id_typ_pomesh name_pomeshe	Счетчик Текстовый
Тип компании	id_typ_komp	id_typ_komp name_typ	Счетчик Текстовый
Тип расчета	id_typ_rascheta	id_typ_rascheta typ	Счетчик Текстовый

 

 

Физическая модель данных

 

Рис. 1. Физическая модель данных 
Алгоритм работы информационной системы

При запуске  программы на экране появляется форма для авторизации (рис. 2). Для того чтобы войти в систему нужно выбрать логин и ввести пароль, затем нажать на кнопку Ok. Если пароль будет введен верно, то окно авторизации закрывается, открывается экранная форма в зависимости от уровня доступа.

Рис. 2. Форма авторизации

 

При трех неудачных попытках приложение закрывается.

 

 

 

Главная форма для  бухгалтера (рис. 3) содержит пункты:

• лицевые счета (ЛС);
• квартплата;
• долги;
• поступления денежных средств;
• ТСЖ.

Рис. 3. Главная форма  бухгалтера

Лицевые счета (рис. 4):

Рис. 4. Форма «Лицевые счета»

При двойном щелчке  на ЛС откроется дополнительно окно (рис. 5):

Рис. 5. Форма «Информация  по ЛС»

 

Расчет платежей по лицевому счету (рис. 6):

Рис. 6. Форма «Расчет  квартплаты»

 

 

 

 

 

 

Задолженности по лицевому счету (рис. 7):

Рис. 7. Форма «Задолженность по ЛС»

 

Главная форма для члена ТСЖ (рис. 8) содержит пункты:

• помещения;
• счетчики;
• жильцы;
• заявки;
• льготы;
• тарифы;
• собрания;
• ТСЖ.

Рис. 8. Главная форма  для членов ТСЖ

 

Список помещений с  основными характеристиками (рис. 9):

Рис. 9. Форма «Помещения»

 

Счетчики с указанием его типа, расположения, показаний (рис. 10):

Рис. 10. Форма «Счетчики»

 

Список жильцов дома (рис. 11):

Рис. 11. Форма «Жильцы»

 

 

Главная форма для председателя ТСЖ (рис. 12) содержит пуннкты:

• договоры;
• компании;
• тарифы;
• собрания;
• льготы;
• помещения;
• счетчики;
• жильцы;
• собственники;
• члены ТСЖ;
• ТСЖ.

 

Рис.12. Главная форма  председателя ТСЖ

 

 

 

Тарифы (рис. 13):

Рис. 13. Форма «Тарифы»

 

Договоры  на обслуживание (рис. 14):

Рис.14. Форма «Договоры  на обслуживание»

 

Компании, сотрудничающие с ТСЖ (рис. 15):

Рис. 15. Форма «Компании»

 

Список собственников  жилья (рис. 16):

Рис. 16. Форма «Собственники»

 

 

 

Список запланированных собраний (рис.17):

Рис. 17. Форма «Собрания»

 

Листинг формы «Собрания»

 

Option Compare Database    

Dim fl As Boolean

 

//Источником  данных для списка становятся темы собраний

 

Private Sub Переключатель18_GotFocus()

fl = True

Dim strSQL As String

strSQL = "SELECT sobr.tema FROM sobr GROUP BY sobr.tema;"

ПолеСоСписком15.RowSource = strSQL

Me.ПолеСоСписком15.Value = Null

End Sub

 

//Источником данных для списка становятся фамилии сотрудников

 

Private Sub Переключатель20_GotFocus()

fl = False

Dim strSQL As String

strSQL = "SELECT sobr.ФИО FROM sobr GROUP BY sobr.ФИО;"

ПолеСоСписком15.RowSource = strSQL

Me.ПолеСоСписком15.Value = Null

End Sub

 

//Фильтры

 

Private Sub Кнопка12_Click()

If Кнопка12.Caption = "Применить" Then

    Dim s$

    If CheckBox1.Value = True Then

        If Not IsNull(data1) And Not IsNull(data2) Then

 

    //Преобразование формата дат

 

   Dim s1$

        s1$ = Format(Me.data1, "MM/dd/yyyy")

        Mid$(s1$, 3) = "/"

        Mid$(s1$, 6) = "/"

        Dim s2$

        s2$ = Format(Me.data2, "MM/dd/yyyy")

        Mid$(s2$, 3) = "/"

        Mid$(s2$, 6) = "/"

 

//Присвоение  в строку фильтра по дате  собраний (период)

 

        s$ = s$ + " AND data_sobr Between " & "#" & s1$ & "#" & " And " & "#" & s2$ & "#"

        Else: MsgBox "Введите дату в поле", vbInformation, ""

        Exit Sub

        End If

    End If

 

 

//Присвоение  в строку фильтра по теме  собраний либо по фамилии организатора(в зависимости от значений в списке)

 

    If Флажок46.Value = True Then

           If (fl = True And (Not IsNull(ПолеСоСписком15))) Then

           s$ = s$ + " AND tema Like '" & Me.ПолеСоСписком15 & "'"

          End If

          If (fl = False And (Not IsNull(ПолеСоСписком15))) Then