Группа
пользователей
|
Настраиваемые
списки
|
|
Район
|
Кол-во ком
|
База
|
Сотрудники
|
Продажи
|
Библиотека
|
Директор
|
П
|
П
|
П
|
П
|
П
|
П
|
Риэлтор
|
-
|
-
|
Р
|
-
|
Р
|
Ч
|
Бухгалтер
|
-
|
-
|
Ч
|
Ч
|
Ч
|
Ч
|
П - полный доступ
Р - участие, возможность редактированья
Ч - только чтение
доступ полностью закрыт
3.2 Список
пользователей системы
Все сотрудники агентства имеют доступ к системе и наделены
правами, достаточными для выполнения своих должностных обязанностей. Директор,
помимо всего прочего, контролирует деятельность агентства и осуществляет расчет
заработной платы, поэтому он обладает полным доступом ко всем таблицам системы.
4. Инструкции пользователей
4.1 Общие
положения
Для выхода на страницу в адресной строке наберите
#"701711.files/image009.gif">
Рисунок 10 - Домашняя страница
Работа с системой начинается с "Домашней страницы",
она подразделена на две части. В левой части расположена панель быстрого
запуска, с ее помощью вы можете просмотреть все содержимое узла, общие документы
и обратиться напрямую к спискам, если это необходимо. Также в закладке
"Обсуждения" можно проконсультироваться с коллегами по рабочим
вопросам в режиме реального времени. В правой части находятся ссылки на
Web-страницы сотрудников агентства, переход на которые обеспечивает их данными,
необходимыми для работы.
Директор обладает доступом ко всем данным агентства
недвижимости ООО "Сибирь", поэтому его страница выглядит следующим
образом (Рисунок 11) и содержит таблицы все ключевые таблицы
"Продажи", "Сотрудники", "База".
Рисунок 11 - Страница директора
Рисунок 12 - Страница риэлтора
4.2
Редактирование базы
Система поддерживает возможность редактирования, добавления и
удаления элементов. Например, возникла необходимость добавить в базу новую
квартиру. Выберем в меню "Создать" (Рисунок 14).
Рисунок 14 - Выход в режим добавления нового элемента
Для создания нового элемента необходимо заполнить все пустые
графы в появившемся окне и нажать "ОК" (Рисунок 15).
Рисунок 15 - Создание нового элемента
Для редактирования элемента, нужно навести курсор на его
первый столбец, нажать на появившеюся кнопку вниз, в меню выбирать
"Изменить элемент" (Рисунок 16). Появится окно, аналогичное рисунку
15, с заполненными графами, изменения внести там, где необходимо.
Рисунок 16 - Изменение элемента
Аналогично осуществляется удаление элементов (Рисунок 17).
Рисунок 17 - Удаление элемента
Список
использованной литературы
1. Уокенбах,
Д. Microsoft Office Excel 2007: профессиональное программирование на VBA.: Пер.
с англ. - М.: ООО "И.Д. Вильямс", 2008. - 928 с.: ил. - Парал. тит.
англ.
2. МакКелви
М., Мартинсон Р., Веб Дж., Ризельман Б. Visual Basic 5: пер. с англ. - СПб.:
BHV - Санкт-Петербург, 1998. - 976 с., ил.
Приложение В.
Текст программы
3.1 Для "Отчета о продажах".
RecordedMacro ()
'Sheets. Add
' Worksheets (12). Range ("A1: E1000").
ClearContents. PivotCaches. Create _
(SourceType: =xlDatabase, _: ="Лист2! R1C1: R14C4")
_
. CreatePivotTable _: ="Наличие! R3C1", _:
="PivotTable1", _: =xlPivotTableVersion12("Наличие").
SelectActiveSheet. PivotTables _
("PivotTable1"). PivotFields ("Наличие")
. Orientation = xlPageField
. Position = 1WithActiveSheet. PivotTables
("PivotTable1") _
. PivotFields ("Услуга")
. Orientation = xlColumnField
. Position = 1WithActiveSheet. PivotTables
("PivotTable1") _
. PivotFields ("Район")
. Orientation = xlRowField
. Position = 1With. PivotTables ("PivotTable1").
AddDataField _. PivotTables (_
"PivotTable1"). PivotFields ("Sales"), _
"Sum of Sales", xlSum. PivotTables
("PivotTable1"). _= FalseSubCreatePivotTable ()PTCache As
PivotCachePT As PivotTable
' Создание кэшаPTCache = ActiveWorkbook. PivotCaches. Create
(_: =xlDatabase, _: =Range ("A1"). CurrentRegion)
' Добавление нового листа в сводную таблицу
'Worksheets. Add("Отчет по продажам"). Select.
SelectedSheets. DeleteSummarySheet = Worksheets. Add. Name = "Отчет по
продажам"
' Создание сводной таблицыPT = ActiveSheet. PivotTables. Add
(_: =PTCache, _: =Range ("A3"))
' Добавление полейPT
. PivotFields ("Наличие"). Orientation =
xlPageField
. PivotFields ("Услуга"). Orientation =
xlColumnField
. PivotFields ("Район"). Orientation = xlRowField
. PivotFields ("Цена+"). Orientation = xlDataField
'отсутствуют заголовки поля
. DisplayFieldCaptions = FalseWith("B5: C8").
Select. Shapes. AddChart. Select. SetSourceData Source: =Range ("'Отчет по
продажам'! $A$3: $D$9"). ChartTyp
.2 Для "Расчета заработной платы"
ExplicitКнопка1_Щелчок ()Smin1, Smin2, Smin3, Sotr1, Sotr2,
Sotr3, S1, S2, S3 As DoubleIotr, Ipred, Ires, Ifxd As IntegerNotr, Notrs, Npred
As StringFlag As Boolean
' очистка отчета(7). Range ("B10: E1000").
ClearContents("A10: F34"). Select. Borders (xlDiagonalDown).
LineStyle = xlNone. Borders (xlDiagonalUp). LineStyle = xlNone. Borders
(xlEdgeLeft). LineStyle = xlNone. Borders (xlEdgeTop). LineStyle = xlNone.
Borders (xlEdgeBottom). LineStyle = xlNone. Borders (xlEdgeRight). LineStyle =
xlNone. Borders (xlInsideVertical). LineStyle = xlNone. Borders
(xlInsideHorizontal). LineStyle = xlNone("A1"). Select
' собственно формирование отчета= 0= 0= 0= 10= 2
'цикл сотрудникамWorksheets (4). Cells (Iotr, 1) <>
""= Worksheets (4). Cells (Iotr, 1)= Worksheets (4). Cells (Iotr, 1)
'фамилия(7). Cells (Ires,
) = Notr= 0= 0= 10000= Ires + 1= 2
'цикл по номерамWorksheets (5). Cells (Ipred,
) <> ""= Worksheets (5). Cells (Ipred,
)Worksheets (5). Cells (Ipred,
) = Notrs Then= 2(7). Cells (Ires,
) = Npred
'цикл по Цена+'= FalseWorksheets (3). Cells (Ifxd,
) <> ""Worksheets (3). Cells (Ifxd, 1) =
Npred Then= Worksheets (3). Cells (Ifxd,
)= Worksheets (3). Cells (Ifxd,
)(7). Cells (Ires,
) = S1 ' цена+(7). Cells (Ires,
) = S2 ' Услуга(7). Cells (Ires,
) = S2 * S1 ' з. п.= Sotr1 + S1= Sotr2 + S2= Sotr3 + S1 * S2=
Ires + 1= TrueIf= Ifxd + 1If= Ipred + 1(7). Cells (Ires,
) = "Итого"(7). Cells (Ires,
). HorizontalAlignment = xlRight(7). Cells (Ires,
). Borders (xlEdgeTop). LineStyle = xlContinuous(7). Cells
(Ires,
). Borders (xlEdgeTop). LineStyle = xlContinuous(7). Cells
(Ires,
). Borders (xlEdgeTop). LineStyle = xlContinuous(7). Cells
(Ires,
). Borders (xlEdgeTop). LineStyle = xlContinuous(7). Cells
(Ires,
) = Sotr1 ' Цена+(7). Cells (Ires,
) = "ВСЕГО"(7). Cells (Ires,
) = Smin1 ' Цена+(7). Cells (Ires,
) = Smin3 ' з. п.Sub
Похожие работы на - Разработка программы деятельности ООО 'Сибирь' с использованием технологии Windows SharePoint Services