Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

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

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

Заключение.
Представленный программный продукт создан в среде 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

Рекомендуем скачать другие рефераты по теме: доклад по биологии, шпоры.



Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки