Програмное обеспечение для экономистов

Министерство образования Республики Беларусь

МОГИЛЕВСКИЙ МАШИНОСТРОИТЕЛЬНЫЙ ИНСТИТУТ

Институт повышения квалификации и переподготовки кадров

Кафедра совершенствования профессиональных знаний

КУРСОВОЙ ПРОЕКТ

По дисциплине: ” Прикладное програмное обеспечение “

ТЕМА ПРОЕКТА: Разработка системы “Создание Платёжных Поручений»

Слушатель гр. ИНФ-2 Гусев А.С.

Руководитель проекта: Зав. каф. АСУ,. С.К.Крутолевич.

Могилев, 2000 г.

Содержание

		Стр.
1	РАЗРАБОТКА ТРЕБОВАНИЙ К РАБОТЕ
1.1	Анализ предметной области	3
1.2.	Постановка задачи	3-4
2.	ПРОЕКТИРОВАНИЕ ПРОГРАММНОГО ПРОДУКТА
2.1.	Разработка информационной модели системы	4-5
2.2	Разработка математической модели	5-6
2.3	Определение требований к техническим средствам	7
3.	РАЗРАБОТКА ПРОГРАМНОГО ОБЕСПЕЧЕНИЯ.
3.1	Разработка структуры программы	7
3.2	Определение формы представления входных и выходных данных.	8-9
3.3	Алгоритм решения задачи.	9-10
3.4.	Разработка и тестирование программного модуля.	11
	Заключение.	11
	Список использованных литературных источников.	12
	ПЕРЕЧЕНЬ ГРАФИЧЕСКОГО МАТЕРИАЛА НАИМЕНОВА-
1.	Алгоритмы основных программных модулей
2.	Структура программного обеспечения
3.	Входные и выходные формы

1.РАЗРАБОТКА ТРЕБОВАНИЙ К РАБОТЕ

1.1Анализ предметной области.

Печать платёжных поручений осуществяет практически любая организация.

Поэтому автоматизация этой задачи имеет большое значение .

Автоматизация этой проблеммы сводит эти работы к несложным операциям на компьютере.

1.2.Постановка задачи

Для решения этой задачи необходимо создать приложение с помощью которого можно было бы хранить данные «Плательщиков». Это будет база данных содержащая:

Номер «Плательщика»
Наименование «Плательщика»
Наименование Банка «Плательщика»
Р/С «Плательщика»
УНН «Плательщика»
Код Банка «Плательщика»

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

Номер «Получателей»
Наименование «Получателей»
Наименование Банка «Получателей»
Р/С «Получателей»
УНН «Получателей»
Код Банка «Получателей»
Вид операции
Назначение платежа
Код назначения платежа

Кроме этого необходимо создать «Базу данных» в которой хранить данные Произведённых платежей. Это будет «База данных» содержащая:

Номер «Платёжного поручения»
Дата платежа
Код Банка «Получателей»
УНН «Получателей»
Наименование «Получателей»
Наименование Банка «Получателей»
Р/С «Получателей»
Дата получения товара, оказания услуг
Сумма платежа
Вид операции
Код назначения платежа
Параметр “Место печати”
Назначения платежа

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

Для ускорения последующей работы пользователю необходимо будет залолнять соответствующие поля «Базы данных» «Получателей платежей». И сохранять эти нанные. Это намного ускорит последуюющее создание платёжных поручений. Соответственно необходимо предусмотреть программые функции контролирующие индивидуальность каждой записи.

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

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

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

Для обьединения всего выше перечисленного необходима система

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

ПРОЕКТИРОВАНИЕ ПРОГРАММНОГО ПРОДУКТА

2.1. Разработка информационной модели

Информационные системы ориентированы на хранение и модификацию постоянно существующей информации. В нашем случае нужно создать такую систему которая удовлетворяла следующим свойствам:

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

Интерфейс

пользователя

Отчеты

Рабочий

Лист

Excel

Ввод

корректировка

данных

Рабочий

Лист

Excel

Рабочий

Лист

Excel

Регламентиро-

ванные

запросы

Рисунок 1.

2.2 Разработка математической модели .

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

Формула по всем получателям платежа:

Сумма за выбранный временной период = сумме всех произведённых платежей за выбранный период.

Формула по выбранному получателю платежа:

Сумма за выбранный временной период = сумме всех произведённых платежей за выбранный период.

2.3 Определение требований к техническим средствам.

Минимальные требования для эффективной работы разработанной ИС являются:

Pentium 233 МГц

32 Мб памяти

Жесткий диск как минимум 200 Мб

Видеокарта 0,5 Мб

Монитор VGA поддерживающий режимы работы 800х600

Для более комфортной и быстрой работы необходимо использовать:

Pentium II 366 МГц /Celeron и выше

64 Мб памяти

Жесткий диск 2.5 Гб и выше

Видеокарта 1-2-4 МБ

Монитор SVGA поддерживающий режимы работы 800х600 и

1024х768.

Для печати можно использовать любые матричные, струйные, или лазерные принтеры.

3. РАЗРАБОТКА ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ

1. Разработка структуры программы

Программа представляет собой файл надстройки Excel97 имеющий

встроенный код Visual Basic for Application. Так же имеется четырифайла Excel97 представляющие собой:

Файл базы данных Плательщиков . состоит из двух листов. Где один лист содержит информацию о годах в течении которых использовалать программа. А другой информацию о Получателях платежей.
Файл базы данных Получателей платежей. Первоначально содержит один лист. Добавление и удатение листов в книге происходит динамически в зависимости от кол-ва Плательщиков. Другими словами на каждого Плательщика отводится один лист являющейся базой данных Получателей данного Плательщика.
Файл базы данных Платежных Поручений. Первоначально содержит два листа. Добавление и удатение листов в книге происходит динамически в зависимости от кол-ва Плательщиков. Другими словами на каждого Плательщика отводится один лист являющейся базой данных Платежных Поручений данного Плательщика. Другой лист является чистым бланком отчёта.
Файл платежного поручения. Собственно этот файл содержит один лист являющейся бланком платёжного поручения.

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

Данная программма является полностью открытой для дальнейшего изменения и модификации. Информация набранная в этой системе может быть использована в других приложениях использующих средства

Microsoft Office.

3.2.Определение формы представления входных и выходных данных.

Главная (первая форма) состоит:

Кнопка перехода в форму ОТЧЕТЫ
Кнопка перехода в форму ПЛАТЕЛЬЩИКИ
Поле ИНТЕРАКТИВНАЯ СПРАВКА
Выпадающего списка ВЫБОР ПОЛУЧАТЕЛЯ
Поле НАИМЕНОВАНИЕ ПОЛУЧАТЕЛЯ
Поле ДАТА
Поле НАИМЕНОВАНИЕ БАНКА ПОЛУЧАТЕЛЯ
Группы кнопок для работы с датой СЕГОДНЯ, ПЛЮС ДЕНЬ, МИНУС ДЕНЬ
Поле Р/С ПОЛУЧАТЕЛЯ
Поле ВИД ОПЕРАЦИИ
Поле КОД БАНКА ПОЛУЧАТЕЛЯ
Поле ДАТА ПОЛУЧЕНИЯ ТОВАРА, ОКАЗАНИЯ УСЛУГ
Поле КОД НАЗНАЧЕНИЯ ПЛАТЕЖА
Поле УНН ПОЛУЧАТЕЛЯ
Поле ВВЕДИТЕ СУММУ
Группы кнопок-переключателей М/П-место печати, Б/П-без печати, ПУСТО-нет никаких надписей в пл. поручении на месте для печати.
Поле ВВЕДИТЕ НАЗНАЧЕНИЕ ПЛАТЕЖА
Радиокнопка для перехода формы в режим просмотра базы данных старых пл. поручений ПОСМОТРЕТЬ СТАРЫЕ ПЛАТЁЖКИ
Кнопка СОХРАНИТЬ НОВОЕ ПОРУЧЕНИЕ
Кнопка ДОБАВИТЬ ПОЛУЧАТЕЛЯ
Кнопка ВНЕСТИ ИЗМЕНЕНИЯ В ДАННЫЕ О ПОЛУЧАТЕЛЕ
Кнопка УДАЛЕНИЕ ПОЛУЧАТЕЛЕ
Кнопка ВЫХОД
Скрытой кнопки ПЕЧАТЬ НОВОГО ПЛАТЁЖНОЕ ПОРУЧЕНИЯ
Скрытой кнопки ПРЕДОСМОТР
Скрытой выпадающий список для выбора кол-ва копий для печати

Рис 3.

При помощи радиокнопки вид информационной части может менятся.

Для внесения новых данных о получателях платежей и формирования новых пл. поручений она имеет вид приведенный выше, для навигации и редактирования старых пл. поручений она принимает следующий вид.

Кнопка перехода в форму ОТЧЕТЫ
Кнопка перехода в форму ПЛАТЕЛЬЩИКИ
Поле НОМЕР ПЛ. ПОРУЧЕНИЯ
Поле ИНТЕРАКТИВНАЯ СПРАВКА
Поле НАИМЕНОВАНИЕ ПОЛУЧАТЕЛЯ
Поле ДАТА
Поле НАИМЕНОВАНИЕ БАНКА ПОЛУЧАТЕЛЯ
Группы кнопок для работы с датой СЕГОДНЯ, ПЛЮС ДЕНЬ, МИНУС ДЕНЬ
Поле Р/С ПОЛУЧАТЕЛЯ
Поле ВИД ОПЕРАЦИИ
Поле КОД БАНКА ПОЛУЧАТЕЛЯ
Поле ДАТА ПОЛУЧЕНИЯ ТОВАРА, ОКАЗАНИЯ УСЛУГ
Поле КОД НАЗНАЧЕНИЯ ПЛАТЕЖА
Поле УНН ПОЛУЧАТЕЛЯ
Поле ВВЕДИТЕ СУММУ

Рис3.

Группы кнопок-переключателей М/П-место печати, Б/П-без печати, ПУСТО-нет никаких надписей в пл. поручении на месте для печати.
Поле ВВЕДИТЕ НАЗНАЧЕНИЕ ПЛАТЕЖА
Радиокнопка для перехода формы в первоначальный режим ВЕРНУТЬСЯ К СОЗДАНИЮ ПЛАТЁЖКИ
Кнопка ВНЕСТИ ИЗМЕНЕНИЯ В СТАРУЮ ПЛАТЁЖКУ
Кнопка для просмотра прошлогодних пл. поручений ЗА ПРОШЛЫЙ ГОД
Кнопка ПЕЧАТЬ СТАРОГО ПЛАТЁЖНОГО ПОРУЧЕНИЯ
Кнопка для перехода по старым пл. поручениям
Кнопка для перехода в конец списка пл. поручений К КОНЦУ СПИСКА ПЛАТЁЖЕК
Поле для ввода номера пл. поручения к которому следует сделать переход
Кнопка для введённого номера пл. поручения к которому следует сделать переход ПЕРЕЙТИ ПО НОМЕРУ
Кнопка ВЫХОД
Кнопка ПРЕДОСМОТР
Выпадающий список для выбора кол-ва копий для печати

[image] Рис4.

При помощи кнопки Отчёты происходит переход в форму отчётов. Форма отчётов имеет следующий вид:

Кнопка перехода в главную форму НАЗАД К ПЛАТЁЖКАМ
Двенадцать флажков на каждый месяцгода соответственно
Кнопка перехода в форму ПЛАТЕЛЬЩИКИ
Выпадающий список СПИСОК ПОЛУЧАТЕЛЕЙ
Выпадающий список СПИСОК ПЛАТЕЛЬЩИКОВ
Кнопка ЗА I-Й КВАРТАЛ для быстрого выделения флажков I-го квартала
Кнопка ЗА II -Й КВАРТАЛ Л для быстрого выделения флажков II-го квартала
Кнопка ЗА III-Й КВАРТАЛ для быстрого выделения флажков III-го квартала
Кнопка ЗА IV-Й КВАРТАЛ для быстрого выделения флажков IV-го квартала
Кнопка ЗА ГОД для быстрого выделения всех флажков года
Поле года отчёта
Кнопка ПЛЮС ГОД
Кнопка МИНУС ГОД
Кнопка сброс для снятия активизации со всех флажков месяцев
Скрытая кнопка удаления файлов отчёта. Кнопка появляется если имеется хоть бы один файл со старыми отчётами.
Справочное поле выдаёт информацию о выбранном для отчёта получателе и сформированном отчёте
Справочное поле выдаёт информацию о выбранном для отчёта плательщике
Поле РЕЗУЛЬТАТ. Сдесь выводятся итоговые данные.
Кнопка СФОРМИРОВАТЬ ОТЧЁТ
Кнопка ПРОСМОТР ОТЧЁТА
Кнопка ПЕЧАТЬ ОТЧЁТА
Кнопка СФОРМИРОВАТЬ ОТЧЁТ ПО ВСЕМ ПОЛУЧАТЕЛЯМ
Выпадающий список для выбора копий при печать отчёта
Поле ИНТЕРАКТИВНОЙ СПРАВКИ
Кнопка ВЫХОД

Рис5.

При переходе в главную форму с помощью кнопки НАЗАД К ПЛЯТЁЖКАМ. Пользователь может перейти к форме плательщики. Эта форма содержит следующие элементы:

Кнопка перехода в главную форму НАЗАД К ПЛАТЁЖКАМ
Выпадающий список для выбора ПЛАТЕЛЬЩИКА
Поле НАИМЕНОВАНИЕ ПЛАТЕЛЬЩИКА
Поле НАИМЕНОВАНИЕ БАНКА ПЛАТЕЛЬЩИКА
Поле Р/С БАНКА ПЛАТЕЛЬЩИКА
Поле УНН ПЛАТЕЛЬЩИКА
Поле КОД БАНКА ПЛАТЕЛЬЩИКА
Кнопка для активизации выбранного плательщика СДЕЛАТЬ ЭТОГО ПЛАТЕЛЬЩИКА ТЕКУЩИМ В П/П
Кнопка ДОБАВИТЬ ПЛАТЕЛЬЩИКА
Кнопка УДАЛИТЬ ПЛАТЕЛЬЩИКА
Кнопка ВНЕСТИ ИЗМЕНЕНИЯ В ДАННЫЕ О ПЛАТЕЛЬЩИКЕ

[image] Рис 6.

1. Алгоритм решения задачи.

Расмотрим алгоритм процедуры расчета суммы прогизведённых платежей по выбранному для отчёта получателю.

Сумм2=0, Сумма = 0, Мас = 0, x1 = 5

НАЧАЛО

Продолжение на стр. 13

Активизация Лист2 в выбранном для отчёта файле.

нет

Len(Список) = 0

да

MsgBox "Вы не выбрали ни одного Получателя для отчёта"

Январь = False And Февраль = False And Март = False _

And Апрель = False And Май = False And Июнь = False _

And Июль = False And Август = False And Сентябрь = False _

And Октябрь = False And Ноябрь = False And Декабрь = False Then

да

нет

да

SS = Worksheets(PP).Range("L" & Список.ListIndex + 1)"

MsgBox "Вы не выбрали ни одного месяца для отчёта"

XX = dhExtractString(SS, X, ".")

Do While Len(XX) > 0

Len(XX) = 0

Exit Do

Продолжение на стр. 14

Windows("Платёжки" & ГодАктивПл).Activate

N = Worksheets(PP).Cells(XX, 1)

D = Worksheets(PP).Cells(XX, 8)

S = Worksheets(PP).Cells(XX, 7)

K = Worksheets(PP).Cells(XX, 12)

R1 = Month(D) & Year(D)

If (R1 = Пянварь & Год) Or (R1 = Пфевраль & Год) Or (R1 = Пмарт & Год) _

Or (R1 = Папрель & Год) Or (R1 = Пмай & Год) Or (R1 = Пиюнь & Год) _

Or (R1 = Пиюль & Год) Or (R1 = Павгуст & Год) Or (R1 = Псентябрь & Год) _

Or (R1 = Поктябрь & Год) Or (R1 = Пноябрь & Год) Or (R1 = Пдекабрь & Год) Then

нет

да

Сумма = Сумма + S

Сумма2 = Сумма2 + 1

Столбец

X = X + 1

Loop

Windows("Платёжки" & ГодАктивПл).Activate

Worksheets("Лист2").Range("a1") = Список

Worksheets("Лист2").Range("b" & (Y + 2)) = "Итого:"

Worksheets("Лист2").Range("c" & (Y + 2)) = Сумма

Range("A3:I" & Y + 1).Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

End With

"ActiveWorkbook.Save

Range("A1").Select

Мас = Сумма & " рублей."

Просмотр.Enabled = True

Печать.Enabled = True

Счётчик.Enabled = True

Windows("Клиенты" & ГодАктивПл).Activate

Label4.Caption = "Отчёт по Получателю : " & Список _

& ", Р/С: " & Worksheets(PP).Range("c" & Список.ListIndex + 1) _

& ", Банк: " & Worksheets(PP).Range("b" & Список.ListIndex + 1) _

& ", Код Банк: " & Worksheets(PP).Range("d" & Список.ListIndex + 1) _

& " сформирован." _

& " Всего было за выбранный период " & Сумма2 & " платёжек."

Windows("Платёжки" & ГодАктивПл).Activate

конец

3.4 Разработка и тестирование программного модуля.

Возмём в качестве тестового примера несколько получателей платежей . Заполним некоторое кол-во плю поручений. На пример:

Наименование Получателя	Дата	Кол-во платежа
Иванов	01/02/00	500
Иванов	02/02/00	600
Иванов	03/03/00	700
Иванов	04/04/00	800
Иванов	05/05/00	900
Иванов	06/06/00	1000
Иванов	07/07/00	1100
Иванов	08/08/00	1200
Сидоров	01/02/00	100
Сидоров	02/02/00	10
Сидоров	03/03/00	15
Сидоров	04/04/00	16
Сидоров	05/05/00	17
Сидоров	08/08/00	18
Сидоров	08/09/00	19
Иванов	01/02/00	1000
	Итого	7995

Результаты полученные ьвне программы совершенно идентичны результатам полученным программым путём.

Так же программый продукт подвергся тестированию на собственном производстве. Ошибок выявлено не было.

Из этого можно сделать вывод что созданное программное обеспечение работает правильно и вполне готово к эксплуатации.

Заключение.

Представленный программный продукт создан в среде Excel -97 .

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

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

Литература

“Microsoft OFFICE97 разработка приложений” К.Соломон издательство “БХВ “ г.Санкт-Петербург 1998 год.

2. Кен Гетц. Майк Джилберт ” Программирование в Microsoft Office “ - издательство “ Печатный двор“ Государственного комитета РФ по печати г.Санкт-Петербург 1999 год.

3. М.МакКелви и др. “ Visual Basic 5 “ издательство “ BHV-Санкт-Петербург“ 1998 год.

4. Р.Персон. “Excel для Windows 95 “ издательство “ BHV-Санкт-Петербург“ 1998 год.

5. Р.Винтер. “Microsoft Office для Windows 95 “ издательство “ BHV-Санкт-Петербург“ 1998 год.

6. Фигурнов В.Э.” IBM PC для пользователя.” - М: Финансы и статистика, 1991.

7.Ч.Петзолд “Программирование для Windows 95 ” издательство “ BHV-Санкт-Петербург“ 1998 год.

8 . Ф. Новиков,А.Яценко. “Microsoft Office в целом” издательство “ BHV-Санкт-Петербург“ 1998 год.

Исходный текст основного программного модуля.

Dim №ПЛ As String

Dim Платящий As String

Dim BOX

Dim БОКС

Dim МП1 As String

Dim Год

Private Sub ComboBox1_Change()

Windows("Клиенты" & Year(Date)).Activate

If ComboBox1.ListIndex = -1 Then

Exit Sub

End If

a = ComboBox1.ListIndex

Счётчик2.Visible = False

Создать.Visible = False

Предосмотр.Visible = False

СохранитьНов.Visible = True

If Len(Worksheets(№ПЛ).Range("A1")) = 0 Then

ComboBox1.Visible = False

Windows("Клиенты" & Year(Date)).Activate

Счёт = Worksheets(№ПЛ).Range("C1")

Банк = Worksheets(№ПЛ).Range("B1")

Клиент = Worksheets(№ПЛ).Range("A1")

КодБанка = Worksheets(№ПЛ).Range("D1")

УНН = Worksheets(№ПЛ).Range("E1")

ВидОперации = Worksheets(№ПЛ).Range("f1")

НазначПлатежа1 = Worksheets(№ПЛ).Range("g1")

НомНазПл = Worksheets(№ПЛ).Range("H1")

ElseIf a < 0 Then

ComboBox1.ListIndex = a + 1

Windows("Клиенты" & Year(Date)).Activate

Счёт = (Worksheets(№ПЛ).Range("C" & (ComboBox1.ListIndex + 1)))

Банк = (Worksheets(№ПЛ).Range("B" & (ComboBox1.ListIndex + 1)))

Клиент = (Worksheets(№ПЛ).Range("A" & (ComboBox1.ListIndex + 1)))

КодБанка = (Worksheets(№ПЛ).Range("D" & (ComboBox1.ListIndex + 1)))

УНН = (Worksheets(№ПЛ).Range("E" & (ComboBox1.ListIndex + 1)))

ВидОперации = Worksheets(№ПЛ).Range("f" & (ComboBox1.ListIndex + 1))

НазначПлатежа1 = Worksheets(№ПЛ).Range("g" & (ComboBox1.ListIndex + 1))

НомНазПл = Worksheets(№ПЛ).Range("H" & (ComboBox1.ListIndex + 1))

Else