Разработка работы компании ООО «Брауни» с использованием технологии Windows SharePoint Service

Рисунок 6.5 – Создание элемента

После открытия вкладки на экране появится следующее изображение (Рисунок 6.6).

Рисунок 6.6 – Добавление сведений об элементе списка

Введите  сведения об элементе списка. Сведения, обязательные для внесения, помечены красной звездочкой. Нажмите кнопку «ОК».

Для изменения  элемента списка, выберите имя списка на панели быстрого запуска и щелкните на нем. Если имя списка не отображается, выберите «Просмотреть все содержимое узла», а затем щелкните имя списка.

Установите  указатель на элемент, щелкните появившуюся  стрелку, а затем выберите команду  «Изменить элемент» (Рисунок 6.7).

После открытия вкладки на экране появится следующее  изображение (Рисунок 6.8).

Внесите требуемые изменения. Нажмите кнопку «ОК». Для удаления элемента списка, выберите имя списка на панели быстрого запуска и щелкните на нем.

Рисунок 6.7 – Изменение элемента

Рисунок 6.8 – Внесение требуемых изменений

Если  имя списка не отображается, выберите «Просмотреть все содержимое узла», а затем щелкните имя списка.

Установите  указатель на элемент, щелкните появившуюся  стрелку, а затем выберите команду  «Удалить элемент» (Рисунок 6.9).

 

Рисунок 6.9 – Удаления элемента

 

После открытия вкладки на экране появится предупреждение (Рисунок 6.10). При отображении предупреждения нажмите кнопку «ОК», если действительно требуется поместить файлы в корзину или удалить их.

 

Рисунок 6.10 – Предупреждение при удалении элемента списка

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

Добавлять, изменять или удалять элементы списка можно также, используя табличное  представление. Для этого, войдя  на страницу нужного списка, выберите в меню «Действия» команду «Изменить в таблице данных» (Рисунок 6.11).

 

Рисунок 6.11 – Изменение в таблице данных

После выполнения команды, стандартное представление  преобразуется в таблицу данных (Рисунок 6.12). Для возврата к стандартному представлению выполните аналогичные действия.

Создав  новый список (или страницу Веб-частей), при необходимости можно создать  на него ссылку. Для этого необходимо, во-первых, войти на страницу нужного  списка (или нужную страницу Веб-частей). Во-вторых, в адресной строке скопировать  адрес (Рисунок 6.13).

Скопировав адрес, необходимо войти  во вкладку «Добавить ссылку». На экране появится следующее изображение (Рисунок 6.14). В поле «URL – адрес» вставьте скопированный адрес. При необходимости введите описание и добавьте примечания. Нажмите «ОК».

 

Рисунок 6.12 – Таблица данных

 

Рисунок 6.13 – Копирование адреса страницы

Рисунок 6.14 – Окно «добавить ссылку»

 

6.3 Инструкция по созданию отчетов

Первый  отчет-отчет по заказам в разрезе групп продукции. В данном отчете можно подсчитать, на какую сумму заказчики купили разного типа продукции (Рисунок 6.15).

Код группы продукции	Наименование группы продукции	Сумма

Рисунок 6.15 – Отчет по заказам (по группам продукции)

 

Ниже приведена фотография данного  отчета с данными ООО «Брауни» за отчетный период (Рисунок 6.16).

 

Рисунок 6.16 –Отчет «по заказам в разрезе групп продукции»

 

Второй отчет- отчет по заказам в разрезе магазинов-заказчиков. В данном отчете можно наглядно увидеть, какие магазины-заказчики закупили у ООО «Брауни» продукции, на какую сумму и всего за отчетный период(Рисунок 6.17).

№ магазина	Код группы продукции	Наименование группы продукции	Сумма

Рисунок 6.17 –Образец отчета «по заказам в разрезе магазинов-заказчиков»

Ниже приведена фотография данного  отчета с данными ООО «Брауни» за отчетный период (рис.6.18).

Рисунок 6.18 –Образец отчета «по заказам в разрезе магазинов-заказчиков»

Следующий отчет- отчет по заказам в разрезе продукции. В данном отчете  подсчитано, какие наименования продукции наиболее востребованы и на какую сумму.

Код продукции	Наименование продукции	Количество	Сумма

Рисунок 6.19 –Образец отчета «по заказам в разрезе продукции»

Ниже приведена фотография данного  отчета с данными  ООО «Брауни» за отчетный период (рис.6.20).

Рисунок 6.20 –Отчета «по заказам в разрезе продукции»

И, наконец, последний отчет –чеки о продажи продукции. В них отражается информация о продаже продукции на отдельного клиента (Рисунок 6.21).

№ заказа
Группа продукции
Продукция
Магазин
№ кассы
Сумма

Рисунок 6.21 –Образец чека по продажам продукции за квартал»

Ниже приведены фотографии данного  отчета с данными ООО «Брауни» за квартал (рис.6.22).Вводим номер строки и нажимаем кнопку  «Пуск» (рис.6.23).

Рисунок 6.22- Чек по продажам продукции за квартал

 

Рисунок 6.23- Кнопка «Пуск»

Коды выше приведенных отчеты представлены в приложениях А,Б,В и Г.

6.4 Инструкция по работе со страницами Веб-частей

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

-страница  Веб-частей руководителя «Производственный отдел»;

-страница  Веб-частей руководителя «Отдел управления финансами и соц сферой»;

-страница  Веб-частей руководителя «Отдел кадров»;

-страница  Веб-частей руководителя «Маркетинговый отдел»;

-страница  Веб-частей руководителя «отдел логистики и транспортного обеспечения»;

-страница  Веб-частей руководителя «фирменный магазин «Брауни»».

Рассмотрим  на примере работу со страницей Веб-частей руководителя «Производственного отдела».

На рисунке 6.17 представлена данная страница Веб-частей.

Рисунок 6.17 – Страница Веб-части руководителя «Производственного отдела»

 

СПИСОК ЛИТЕРАТУРЫ

 

1.Брайан Сайлер, Джефф Споттс. Использование Visual Basic 6. Классическое издание = Special Edition Using Visual Basic 6. — М.: «Вильямс», 2007. — С. 832. — ISBN 0-7897-1542-2

2.Билл Семпф. Microsoft Visual Basic 2005 для "чайников" = Visual Basic 2005 For Dummies. — М.: «Диалектика», 2006. — С. 288. — ISBN 0-7645-7728-X

3.Игорь Сафронов. Visual Basic в задачах и примерах. — БХВ-Петербург. — СПб.: «БХВ-Петербург», 2008. — С. 400. — ISBN 978-5-94157-495-7

4.Дан Эпплман. Win32 API и Visual Basic. Для профессионалов = Dan Appleman's Visual Basic Programmer's Guide to the Win32 API. — Питер. — СПб.: «Питер», 2001. — С. 1120. —ISBN 5-272-00198-2

 

ПРИЛОЖЕНИЕ  А–КОД ОТЧЕТА ПО ЗАКАЗАМ В РАЗРЕЗЕ ГРУПП ПРОДУКЦИИ

Option Explicit

 

Sub CommandButton1_Щелчок()

'Сумма

Dim sum, ssum As Double

Dim i, k As Integer

Dim buf As Variant

'очистка

'создание таблицы

Worksheets(11).Cells(3, 2) = "Код группы продукции"

Worksheets(11).Cells(3, 3) = "Наименование группы продукции"

Worksheets(11).Cells(3, 4) = "Сумма"

i = 2

k = 4

'Код группы

While Worksheets(5).Cells(i, 2) <> ""

buf = Worksheets(5).Cells(i, 2)

Worksheets(11).Cells(k, 2) = buf

i = i + 1

k = k + 1

Wend

'-------------------------------------------

i = 2

ssum = 0

'Наименование группы продукции

While Worksheets(5).Cells(i, 1) <> ""

buf = Worksheets(5).Cells(i, 1)

Worksheets(11).Cells(i + 2, 3) = buf

k = 2

sum = 0

'Сумма

While Worksheets(1).Cells(k, 3) <> ""

If Worksheets(1).Cells(k, 3) = buf Then sum = sum + Worksheets(1).Cells(k, 11)

k = k + 1

Wend

Worksheets(11).Cells(i + 2, 4) = sum

ssum = ssum + sum

i = i + 1

Wend

'Общая сумма

Worksheets(11).Cells(15, 4) = ssum

Worksheets(11).Cells(15, 3) = "Всего:"

Worksheets(11).Cells(2, 1) = i

Worksheets(11).Cells(3, 1) = k

'-----------------------------------------------

'вставка заголовка

Range("D1:F1").Select

With Selection

HorizontalAlignment = xlCenter

VerticalAlignment = xlBottom

WrapText = False

Orientation = 0

AddIndent = False

IndentLevel = 0

ShrinkToFit = False

ReadingOrder = xlContext

End With

Range("D1:F1").Select

ActiveCell.FormulaR1C1 = "Отчет по заказам в разрезе групп продукции"

Range("D2").Select

i = 2

k = 4

'вставка подписи дир

buf = Worksheets(9).Cells(10, 2)

Worksheets(11).Cells(k + 13, 4).Select

ActiveCell.FormulaR1C1 = ("Директор: ____________/" + buf + "/")

'вставка подписи род

buf = Worksheets(9).Cells(24, 2)

Worksheets(11).Cells(k + 14, 5).Select

ActiveCell.FormulaR1C1 = ("Бухгалтер: ____________/" + buf + "/")

End Sub

 

 

ПРИЛОЖЕНИЕ  Б - КОД ОТЧЕТА ПО ЗАКАЗАМ В РАЗРЕЗЕ МАГАЗИНОВ-ЗАКАЗЧИКОВ

Sub CommandButton2_Щелчок()

'Сумма

Dim sum, ssum As Double

Dim i, k As Integer

Dim buf As Variant

    'создание таблицы

Worksheets(12).Cells(3, 2) = "№ магазина"

Worksheets(12).Cells(3, 3) = "Магазины"

Worksheets(12).Cells(3, 4) = "Рабочий телефон"

Worksheets(12).Cells(3, 5) = "Сумма"

i = 2

k = 4

'№ магазина

While Worksheets(8).Cells(i, 1) <> ""

buf = Worksheets(8).Cells(i, 1)

Worksheets(12).Cells(k, 2) = buf

i = i + 1

k = k + 1

Wend

    '--------------------------------------

i = 2

ssum = 0

'Магазины

While Worksheets(8).Cells(i, 2) <> ""

buf = Worksheets(8).Cells(i, 2)

Worksheets(12).Cells(i + 2, 3) = buf

   

k = 2

sum = 0

   

'Сумма

While Worksheets(1).Cells(k, 4) <> ""If Worksheets(1).Cells(k, 4) = buf Then sum = sum + Worksheets(1).Cells(k, 11)

  

k = k + 1

Wend

Worksheets(12).Cells(i + 2, 5) = sum

ssum = ssum + sum

i = i + 1

Wend

i = 2

k = 4

'Рабочий телефон

While Worksheets(8).Cells(i, 3) <> ""

buf = Worksheets(8).Cells(i, 3)

Worksheets(12).Cells(k, 4) = buf

i = i + 1

k = k + 1

Wend

'Общая сумма

Worksheets(12).Cells(15, 4) = ssum

Worksheets(12).Cells(15, 3) = "Всего:"

   

    '-------------------------------------------

'вставка заголовка

Range("D1:F1").Select

With Selection

HorizontalAlignment = xlCenterVerticalAlignment = xlBottom

WrapText = False

Orientation = 0

AddIndent = False

IndentLevel = 0.ShrinkToFit = False

ReadingOrder = xlContext

       

End With

Range("D1:F1").Select

ActiveCell.FormulaR1C1 = "Отчет по заказам в разрезе магазинов-заказчиков"

Range("D2").Select

i = 2

k = 4

'вставка подписи дир

buf = Worksheets(9).Cells(10, 2)

Worksheets(12).Cells(k + 8, 4).Select

ActiveCell.FormulaR1C1 = ("Директор: ____________/" + buf + "/")

'вставка подписи род

buf = Worksheets(9).Cells(24, 2)

Worksheets(12).Cells(k + 9, 5).Select

ActiveCell.FormulaR1C1 = ("Бухгалтер: ____________/" + buf + "/")

End Sub

 

ПРИЛОЖЕНИЕ  В - КОД ОТЧЕТА ПО ЗАКАЗАМ В РАЗРЕЗЕ ПРОДУКЦИИ

Option Explicit

Sub CommandButton3_Щелчок()

'Сумма

Dim sum, ssum, kol  As Double

Dim i, k As Integer

Dim buf As Variant

'очистка

'создание таблицы

Worksheets(4).Cells(3, 2) = "Код продукции"

Worksheets(4).Cells(3, 3) = "Наименование продукции"

Worksheets(4).Cells(3, 4) = "Количество"

Worksheets(4).Cells(3, 5) = "Сумма"

i = 2

k = 4

'Код продукции

While Worksheets(1).Cells(i, 2) <> ""

buf = Worksheets(1).Cells(i, 2)

Worksheets(4).Cells(k, 2) = buf

i = i + 1

k = k + 1

Wend

    '--------------------------------------

i = 2

ssum = 0

'Наименование продукции

While Worksheets(1).Cells(i, 1) <> ""

buf = Worksheets(1).Cells(i, 1)

Worksheets(4).Cells(i + 2, 3) = buf

k = 2

sum = 0

'Сумма

While Worksheets(3).Cells(k, 3) <> ""

If Worksheets(3).Cells(k, 3) = buf Then sum = sum + Worksheets(3).Cells(k, 11)

k = k + 1

Wend

Worksheets(4).Cells(i + 2, 5) = sum

ssum = ssum + sum

Wend

    '--------------------------------------

i = 2

'Количество

While Worksheets(1).Cells(i, 1) <> ""

buf = Worksheets(1).Cells(i, 1)

Worksheets(4).Cells(i + 2, 4) = buf

k = 2

kol = 0

'считаем количество

While Worksheets(3).Cells(k, 3) <> ""

If Worksheets(3).Cells(k, 3) = buf Then kol = kol + Worksheets(3).Cells(k, 10)

k = k + 1

Wend

   

Worksheets(4).Cells(i + 2, 4) = kol

i = i + 1

Wend

'вставка заголовка

Range("D1:F1").Select

With Selection

HorizontalAlignment = xlCenter

VerticalAlignment = xlBottom

WrapText = False

Orientation = 0

AddIndent = False

IndentLevel = 0

ShrinkToFit = False

ReadingOrder = xlContext

End With

Range("D1:F1").Select

ActiveCell.FormulaR1C1 = "Отчет по заказа в разрезе продукции" Range("D2").Select

i = 2

k = 4

    'вставка подписи дир

buf = Worksheets(5).Cells(3, 1)

Worksheets(4).Cells(k + 16, 7).Select

ActiveCell.FormulaR1C1 = ("Директор: ____________/" + buf + "/")

'вставка подписи род

buf = Worksheets(5).Cells(2, 1)

Worksheets(4).Cells(k + 17, 8).Select

ActiveCell.FormulaR1C1 = ("Бухгалтер: ____________/" + buf + "/")

End Sub

 

ПРИЛОЖЕНИЕ  Г – ЧЕКИ О ПРОДАЖЕ ПРОДУКЦИИ

Private Sub CommandButton1_Click()

Dim buf, k As Integer

Worksheets(3).Cells(6, 2) = "№ заказа

Worksheets(3).Cells(7, 2) = "Группа продукции"

Worksheets(3).Cells(8, 2) = "Продукция"

Worksheets(3).Cells(9, 2) = "Магазин"

Worksheets(3).Cells(10, 2) = "№ кассы"

Worksheets(3).Cells(11, 2) = "Сумма"

buf = Worksheets(2).Cells(2, 4)

Worksheets(3).Cells(6, 3) = Worksheets(1).Cells(buf, 1)