Почта
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?н день. Дата вводится пользователем с клавиатуры, при некорректном вводе отображается окно ввода до тех пор, пока не будет введена корректная дата. В сопроводительной ведомости не указывается стоимость отправки корреспонденции. Пример этой сопроводительной ведомости представлен на рисунке 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
""Thenm.Visible=False">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(&q