183265 (743362), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

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

1. Кнопка перехода в главную форму НАЗАД К ПЛАТЁЖКАМ

2. Двенадцать флажков на каждый месяцгода соответственно

3. Кнопка перехода в форму ПЛАТЕЛЬЩИКИ

4. Выпадающий список СПИСОК ПОЛУЧАТЕЛЕЙ

5. Выпадающий список СПИСОК ПЛАТЕЛЬЩИКОВ

6. Кнопка ЗА I-Й КВАРТАЛ для быстрого выделения флажков I-го квартала

7. Кнопка ЗА II -Й КВАРТАЛ Л для быстрого выделения флажков II-го квартала

8. Кнопка ЗА III-Й КВАРТАЛ для быстрого выделения флажков III-го квартала

9. Кнопка ЗА IV-Й КВАРТАЛ для быстрого выделения флажков IV-го квартала

10. Кнопка ЗА ГОД для быстрого выделения всех флажков года

11. Поле года отчёта

12. Кнопка ПЛЮС ГОД

13. Кнопка МИНУС ГОД

14. Кнопка сброс для снятия активизации со всех флажков месяцев

15. Скрытая кнопка удаления файлов отчёта. Кнопка появляется если имеется хоть бы один файл со старыми отчётами.

16. Справочное поле выдаёт информацию о выбранном для отчёта получателе и сформированном отчёте

17. Справочное поле выдаёт информацию о выбранном для отчёта плательщике

18. Поле РЕЗУЛЬТАТ. Сдесь выводятся итоговые данные.

19. Кнопка СФОРМИРОВАТЬ ОТЧЁТ

20. Кнопка ПРОСМОТР ОТЧЁТА

21. Кнопка ПЕЧАТЬ ОТЧЁТА

22. Кнопка СФОРМИРОВАТЬ ОТЧЁТ ПО ВСЕМ ПОЛУЧАТЕЛЯМ

23. Выпадающий список для выбора копий при печать отчёта

24. П
    оле ИНТЕРАКТИВНОЙ СПРАВКИ

25. Кнопка ВЫХОД

Рис5.

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

1. Кнопка перехода в главную форму НАЗАД К ПЛАТЁЖКАМ

2. Выпадающий список для выбора ПЛАТЕЛЬЩИКА

3. Поле НАИМЕНОВАНИЕ ПЛАТЕЛЬЩИКА

4. Поле НАИМЕНОВАНИЕ БАНКА ПЛАТЕЛЬЩИКА

5. Поле Р/С БАНКА ПЛАТЕЛЬЩИКА

6. Поле УНН ПЛАТЕЛЬЩИКА

7. Поле КОД БАНКА ПЛАТЕЛЬЩИКА

8. Кнопка для активизации выбранного плательщика СДЕЛАТЬ ЭТОГО ПЛАТЕЛЬЩИКА ТЕКУЩИМ В П/П

9. Кнопка ДОБАВИТЬ ПЛАТЕЛЬЩИКА

10. Кнопка УДАЛИТЬ ПЛАТЕЛЬЩИКА

11. Кнопка ВНЕСТИ ИЗМЕНЕНИЯ В ДАННЫЕ О ПЛАТЕЛЬЩИКЕ

Р
ис 6.

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

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

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

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

да

нет

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

да

нет

да

нет

да

нет

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

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

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

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)

нет

да

Сумма = Сумма + 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 Разработка и тестирование программного модуля.

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

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

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

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

Заключение.

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

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

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

Литература

1. “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

Характеристики

Список файлов реферата