Главная: Рефераты

Рефераты. Почта

На вкладке «Выдача» формы «Почта» (см. рис. 8) содержится динамически обновляемый компонент ListBox, в котором отображаются все строки таблицы «Полученная корреспонденция», для которых в столбце «Выдано» находится пустое значение. Список обновляется при каждом нажатии кнопки «Получить» на вкладке «Получение» (увеличивается на одну строку). При каждом нажатии кнопки «Выдать» выбранная строка удаляется из списка, а в соответствующую ячейку таблицы «Полученная корреспонденция» заносится значение «ВЫДАНО».

Рисунок 9 - Вкладка «Таблицы и отчёты» формы «Почта»

Вкладка «Таблицы и отчёты» формы «Почта» (см. рис. 9) содержит 4 кнопки для 4 отчётов соответственно. Подробно отчёты по направлениям и сопроводительные ведомости описаны ниже, в разделе «Описание отчётов».

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

Рисунок 10 – Окно справки

Описание отчётов


С полным программным кодом отчётов можно ознакомиться в приложении Б.

1) Отчёт по направлениям (отправка), отчёт по направлениям (получение). Формирует таблицу, в которой отображается суммарное количество отправленных (или, соответственно, полученных) в каждый город посылок, бандеролей и заказных писем, а также их суммарный вес. Пример этого отчёта находится в таблице 1:

Таблица 1

пример отчёта по направлениям.

Направление

Отправлено посылок, шт

Общий вес посылок

Отправлено бандеролей, шт.

Общий вес бандеролей

Отправлено писем, шт.

Общий вес писем

Москва

1

3,5

0

0

0

0

Санкт-Петербург

0

0

1

2

0

0

Курган

0

0

0

0

0

0

Омск

0

0

0

0

0

0

Екатеринбург

0

0

0

0

2

0,5

Новосибирск

0

0

0

0

0

0

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

2) Сопроводительная ведомость (отправка), сопроводительная ведомость (получение). Формирует выборку из таблицы исходных данных («Отправленная корреспонденция» или «Полученная корреспонденция») за один день. Дата вводится пользователем с клавиатуры, при некорректном вводе отображается окно ввода до тех пор, пока не будет введена корректная дата. В сопроводительной ведомости не указывается стоимость отправки корреспонденции. Пример этой сопроводительной ведомости представлен на рисунке 11.

Рисунок 11 – Пример сопроводительной ведомости

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

3) Отчёт о невыданной корреспонденции. Этот отчёт отображается не на ячейках книги Excel, а на компоненте ListBox формы (см. рис. 8). Список обновляется при каждом нажатии кнопки «Получить» (то есть при получении корреспонденции). При каждом нажатии кнопки «Выдать» выбранная строка удаляется из отчёта, так как выбранная корреспонденция выдаётся получателю. При разработке этого отчёта использовался механизм встроенного в Excel расширенного фильтра, а ячейки - результат этого расширенного фильтра использовались как RowSource для компоненты ListBox. Пример отчёта о невыданной корреспонденции находится на рис. 8.

Заключение


В ходе работы было разработано полноценное приложение с использованием Microsoft Excel на языке VBA, позволяющее автоматизировать деятельность почты по учёту полученных и отправленных посылок, бандеролей и писем без приобретения дополнительных специализированных программных продуктов. Разработанное приложение полностью удовлетворяет требованиям, поставленным в задаче: производится учёт корреспонденции, формируются бланки извещения и необходимые для работы почты отчёты. В ходе работы были изучены средства языка VBA, позволяющие скрывать и отображать отдельные листы и всё приложение целиком; методы и средства работы как с отдельными ячейками, так и с их диапазонами.

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

§                   расширение исходных данных и обрабатываемой корреспонденции (наложенный платёж, денежные переводы и пр.)

§                   добавление новых отчётов на базе уже имеющихся исходных данных (например, формирование списка корреспонденции, которая не была выдана получателю в течение месяца, а потому подлежит возврату отправителю и т.д.)

Список использованной литературы

1) Встроенная справочная система Microsoft Office Excel.

2) Тематический раздел форума city.is74.ru по программированию на VBA.

3) Справочная система MSDN

Приложение А


Схема связи форм приложения.

Вызов формы «Справка» осуществляется по нажатию кнопки «Справка» на главной форме «Почта».

Вызов главной формы «Почта производится автоматически при открытии рабочей книги.

Приложение Б


Ниже представлены основные смысловые фрагменты кода программы.

Дублирующиеся фрагменты кода (например, сопроводительной ведомости полученной и отправленной корреспонденции) приводятся 1 раз.

'Обработка нажатия кнопки «Отправить». Добавление данных в исходную таблицу

Private Sub CommandButton11_Click()

Dim Flag As Boolean

Flag = True

If IsNumeric(TextBox6.Text) = False Or IsDate(TextBox1.Text) = False Or ComboBox1.Value = "" Or _

ComboBox1.Value = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or _

TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then Flag = False

If Flag = False Then

  a = MsgBox("Данные введены неверно или не полностью", vbCritical, "Ошибка")

  Exit Sub

End If

Sheets("Отправленная корреспонденция").Select

Range("A3").Select

Selection.CurrentRegion.Select

i = Selection.Rows.Count

j = i + 3

Range("A" & j).Value = i

Range("B" & j).Value = TextBox1.Text

Range("C" & j).Value = ComboBox1.Value

Range("D" & j).Value = ComboBox2.Value

Range("E" & j).Value = TextBox2.Text

Range("F" & j).Value = TextBox3.Text

Range("G" & j).Value = TextBox5.Text

Range("H" & j).Value = TextBox4.Text

Range("I" & j).Value = TextBox6.Text

Range("J" & j).Value = Label10.Caption

End Sub




'Обработка нажатия кнопки печати квитанции об оплате отправки корреспонденции

Private Sub CommandButton4_Click()

If IsNumeric(TextBox6.Text) = False Or IsDate(TextBox1.Text) = False Or ComboBox1.Value = "" Or _

ComboBox1.Value = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or _

TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then

  a = MsgBox("Данные введены неверно или не полностью", vbCritical, "Ошибка")

  Exit Sub

End If

Sheets("Отправленная корреспонденция").Select

Range("A3").Select

Selection.CurrentRegion.Select

i = Selection.Rows.Count - 1

Sheets("Бланки").Select

Range("Q18").Value = TextBox1.Text

Range("P19").Value = i

Range("M23").Value = TextBox2.Text

Range("M24").Value = TextBox3.Text

Range("M25").Value = TextBox5.Text

Range("M26").Value = TextBox4.Text

Range("N27").Value = ComboBox1.Value

Range("L28").Value = TextBox6.Text

Range("M29").Value = Label10.Caption

Application.Visible = True


For Each m In Sheets

If m.Name <> "Бланки" Then m.Visible = False

Next m

Application.Visible = True

Почта.Hide

End Sub


'функция, рассчитывающая стоимость отправки

Private Function DispatchCost(City As String, Kind As String, Optional weight As Double) 

Sheets("Стоимость отправки").Select

Range("A2").Select

Selection.CurrentRegion.Select

n = Selection.Rows.Count

For i = 3 To n Step 1

  If InStr(1, Sheets("Стоимость отправки").Range("A" & i).Value, City, vbTextCompare) > 0 Then

    If Kind = "посылка" Then DispatchCost = weight * Range("B" & i).Value

    If Kind = "бандероль" Then DispatchCost = weight * Range("E" & i).Value

    If Kind = "заказное письмо" Then DispatchCost = weight * Range("H" & i).Value

  End If

Next i

End Function


'Пересчёт стоимости отправки корреспонденции при изменении города. Аналогичный код обрабатывает изменение веса и типа корреспонденции

Private Sub ComboBox2_Change()

If IsNumeric(TextBox6.Text) And ComboBox1.Value <> "" And ComboBox2.Value <> "" And TextBox6.Text <> "" _

Then Label10.Caption = DispatchCost(ComboBox2.Value, ComboBox1.Value, CDbl(TextBox6.Text)) _

Else Label10.Caption = ""

End Sub



'Отчёт по направлениям (отправка)

Private Sub CommandButton5_Click()

Worksheets("Отчёты").Activate

Cells(3, 1).Select

Selection.CurrentRegion.Select

n = Selection.Rows.Count + 2


Worksheets("Отправленная корреспонденция").Select

Cells(3, 1).Select

Selection.CurrentRegion.Select

n2 = Selection.Rows.Count + 2


For i = 4 To n Step 1

  Sheets("Отчёты").Select

  CurrentCity = Range("A" & i).Value 'перебор городов

  Count1 = 0

  Count2 = 0

  Count3 = 0

  Sum1 = 0

  Sum2 = 0

  Sum3 = 0

  Sheets("Отправленная корреспонденция").Select

  For j = 4 To n2 Step 1 'перебор отправленной корреспонденции

    If Range("D" & j).Value = CurrentCity Then

      If Range("C" & j).Value = "посылка" Then

      Count1 = Count1 + 1

      Sum1 = Sum1 + Range("I" & j).Value

      End If

      If Range("C" & j).Value = "бандероль" Then

      Count2 = Count2 + 1

      Sum2 = Sum2 + Range("I" & j).Value

      End If

      If Range("C" & j).Value = "заказное письмо" Then

      Count3 = Count3 + 1

      Sum3 = Sum3 + Range("I" & j).Value

      End If

    End If

  Next j

  Sheets("Отчёты").Select

  Range("B" & i).Value = Count1

  Range("C" & i).Value = Sum1

  Range("D" & i).Value = Count2

  Range("E" & i).Value = Sum2

  Range("F" & i).Value = Count3

  Range("G" & i).Value = Sum3

Next i

For Each m In Sheets

If m.Name <> "Отчёты" Then m.Visible = False

Next m

Application.Visible = True

Почта.Hide

End Sub



'формирование сопроводительной ведомости (получение)

Private Sub CommandButton8_Click()

data = InputBox("Укажите дату", "Сопроводительная ведомость (получение)")

  While IsDate(data) = False

  data = InputBox("Укажите дату", "Сопроводительная ведомость (получение)")

  Wend

Sheets("Сопроводительная ведомость").Select

Range("K4").Select

Selection.CurrentRegion.Select

n = Selection.Rows.Count + 4

If n > 4 Then Range("K5:S" & n).Clear


Sheets("Полученная корреспонденция").Select

Range("A3").Select

Selection.CurrentRegion.Select

n = Selection.Rows.Count + 2

c = 5

For i = 4 To n Step 1

  Sheets("Полученная корреспонденция").Activate

  If Range("B" & i).Value = data Then

    Range("A" & i & ":I" & i).Copy

    Sheets("Сопроводительная ведомость").Activate

    Range("K" & c).Select

    ActiveSheet.Paste

    c = c + 1

  End If

Next i

For Each m In Sheets

If m.Name <> "Сопроводительная ведомость" Then m.Visible = False

Next m

Application.Visible = True

Почта.Hide

End Sub


'обработка нажатия кнопки «Выдать»

Private Sub CommandButton13_Click()

i = ListBox1.ListIndex

j = ListBox1.List(i, 0) + 3

Sheets("Полученная корреспонденция").Select

Range("J" & j).Value = "ВЫДАНО"


Range("A3").Select

Selection.CurrentRegion.Select

n = Selection.Rows.Count + 2


Range("N3").Select

Selection.CurrentRegion.Select

Selection.Clear


    Range("A3:J" & n).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

        "L3:L4"), CopyToRange:=Range("N3"), Unique:=False

Range("N3").Select

Selection.CurrentRegion.Select

n = Selection.Rows.Count + 3

ListBox1.RowSource = "N4:V" & n

End Sub


Страницы: 1, 2



2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.