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

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

            End If

          If IsNull(ПолеСоСписком15) Then

           MsgBox "Выберите из списка запись для поиска", vbInformation, ""

              Exit Sub

           End If

    End If

 

//Проверка всей строки фильтра

 

   If s$ <> "" Then s$ = Mid(s$, 6)

   Me.Filter = s$

   Me.FilterOn = True

Кнопка12.Caption = "Отменить"

Else: Me.FilterOn = False

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

End If

End Sub

 

//Организация поиска по теме/организатору

в качестве параметра  – критерий поиска(далее-acNext, назад- acPrevious, к первой- acFirst,на последнюю - acLast)

 

Function poisk(p$)

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

If IsNull(ПолеСоСписком15) Then MsgBox "Выберите из списка запись для поиска", vbInformation, ""

        If fl = False Then

           With CodeContextObject

               Me![фИО].SetFocus

               DoCmd.SearchForRecord , "", p$, "[ФИО] = " & "'" &                       .ПолеСоСписком15 & "'"

           End With

        End If

       If fl = True Then

             With CodeContextObject

               Me![tema].SetFocus

               DoCmd.SearchForRecord , "", p$, "[tema] = " & "'" & .ПолеСоСписком15 & "'"

             End With

End Function

 

 

 

 

Форма для администратора (рис. 18) позволяет просмотреть журнал посещений и зарегистрировать нового пользователя.

Рис. 18. Главная форма  администратора

 

Журнал посещений (рис. 19) содержит информацию о дате и времени входа или выхода групп пользователей.

Рис. 19. Журнал посещений

 

Вход в информационную систему возможен при следующих  логинах и паролях (табл. 2):

Таблица 2. Данные для  авторизации пользователя

Логин	Пароль
администратор	1234
председатель	0101
бухгалтер	0202
член ТСЖ	0303

 

Перечень печатных отчетов:

• Список льготников (рис. 20);
• Информация обо всех тарифах (рис. 21);
• Информация о тарифах для собственника (рис. 22);
• Операции по лицевому счету (рис. 23);
• Задолженность по лицевому счету (рис. 24);
• Коммунальные платежи за месяц по лицевому счету (рис. 25);
• Норма потребления ресурсов на человека (рис. 26).

 

Рис. 20. Отчет «Список  льготников»

Рис. 21. Отчет «Тарифы»

 

Рис. 22. Отчет «Договоры  о тарифах»

Рис. 23. Отчет «Операции  на ЛС»

 

Рис. 24. Отчет «Задолженности по ЛС»

Рис. 25. Отчет «Коммунальные платежи»

Рис. 26. Отчет «Норма потребления  услуг»

 

Требования к системе

 

Для обеспечения нормального  функционирования системы необходимо наличие таких характеристик:

Аппаратное  обеспечение:

• процессор Pentium 4 с тактовой частотой 2 ГГц
• оперативная память 2 Гб
• место на жестком диске 300 Мб
• принтер
• клавиатура
• видеокарта
• монитор

Программное обеспечение:

• операционная система класса Windows XP, Vista, 7
• пакет офисных программ Microsoft Office 2007
• СУБД MS Office Access

 

Список используемых источников

 

1. Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. – М.: Финансы и статистика,.
2. Григорьев В.А., Ревунков В.И. Банки данных. Учебник для вузов. – М., МВТУ им. Баумана, 2008.
3. Домашняя страница Visual Basic: справка и обучение http://office.microsoft.com/ru-ru/access/FX100487571049.aspx.