Реферат: VBA Платежка

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

27.       Кнопка ПРЕДОСМОТР

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

Рис4.

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

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.

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

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

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

  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))

 End If

End Sub

Private Sub Выход_Click()

 Windows("Платёжки" & Year(Date)).Activate

 ActiveWorkbook.Save

 ActiveWindow.Close

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

 ActiveWorkbook.Save

 ActiveWindow.Close

 Windows("Платёжка.xls").Activate

 ActiveWorkbook.Save

 ActiveWindow.Close

 Application.Quit

'ActiveWorkbook.RunAutoMacros Which:=xlAutoClose

End Sub

Private Sub UserForm_Activate()

 Windows("Платёжка.xls").Activate

Платящий = "Текущий Плательщик : " & Worksheets("Лист1").Range("E7") & _

" УНН : " & Worksheets("Лист1").Range("C7") & _

" P/c : " & Worksheets("Лист1").Range("Q8") & _

" Банк : " & Worksheets("Лист1").Range("D8") & _

" Код Банка : " & Worksheets("Лист1").Range("P9")

№ПЛ = Worksheets("Лист1").Range("A1")

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

 ComboBox1.Clear

 МП = True

 X = 1

 Год = Year(Date)

 While Len(Worksheets(№ПЛ).Range("A" & X)) <> 0

    ComboBox1.AddItem (Worksheets(№ПЛ).Range("A" & X))

    X = X + 1

 Wend

End Sub

Private Sub ЗаПрошлыйГод_Click()

If Dir("C:\Program Files\Платёжка\Платёжки" & (Year(Date) - 1) & ".xls") = _

 "Платёжки" & (Year(Date) - 1) & ".xls" Then

 Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжки" & (Year(Date) - 1)

 Windows("Платёжки" & (Year(Date) - 1)).Activate

 Worksheets(№ПЛ).Select

 Год = Year(Date) - 1

 Else

  БОКС = MsgBox("За прошлый год файл отчёта не найден", , BOX)

  Exit Sub

  End If

  Вконец = True

End Sub

Private Sub Плательщики_Click()

  UserForm1.Hide

  UserForm3.Show

End Sub

Private Sub Отчёты_Click()

  UserForm1.Hide

  UserForm2.Show

End Sub

Private Sub Минус_Click()   ' отнимает 1 день от даты

 If IsDate(Дата) = True Then

  Дата = CDate(Дата) - 1

  Else

 End If

End Sub

Private Sub Плюс_Click()     ' прибавляет один день к дате

 If IsDate(Дата) = True Then

   Дата = CDate(Дата) + 1

   Else

 End If

End Sub

Private Sub Предосмотр_Click()   ' активизирует окно просмотра Excel

 Windows("Платёжка.xls").Activate

 Application.Visible = True

 UserForm1.Hide

 ActiveWindow.SelectedSheets.PrintPreview

 Application.Visible = False

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