Разработка системы “Создание Платёжных Поручений»
Страница 4
Изменяемость программы можно осуществить только модернизируя ее , что не предоставляет достаточной гибкости.
Литература
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
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
If Dir("C:\Program Files\Платёжка\Клиенты" & Year(Date) & ".xls") <> _
"Клиенты" & Year(Date) & ".xls" Then
Workbooks.Open FileName:="C:\Program Files\Платёжка\Клиенты" & (Year(Date) - 1)
Windows("Клиенты" & (Year(Date) - 1)).Activate
ActiveWorkbook.SaveAs FileName:="C:\Program Files\Платёжка\Клиенты" & Year(Date)
Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжки" & (Year(Date) - 1)
Windows("Платёжки" & (Year(Date) - 1)).Activate
ActiveWorkbook.SaveAs FileName:="C:\Program Files\Платёжка\Платёжки" & Year(Date)
Workbooks.Open FileName:="C:\Program Files\Платёжка\Плательщики.xls"
Windows("Плательщики.xls").Activate
X = 1
Do While Len(Worksheets("Лист1").Range("A" & X)) <> 0
X = X + 1
Loop
X = X - 1
Do While X <> 0
Windows("Клиенты" & Year(Date)).Activate
Worksheets(CStr(X)).Select
Worksheets(CStr(X)).Range("L1:L65535").Select
Selection.ClearContents
Windows("Платёжки" & Year(Date)).Activate
Worksheets(CStr(X)).Select
Worksheets(CStr(X)).Columns("A:AG").Select
Selection.ClearContents
X = X - 1
Loop
Windows("Клиенты" & Year(Date)).Activate
ActiveWorkbook.Save
Windows("Платёжки" & Year(Date)).Activate
ActiveWorkbook.Save
Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжка.xls"
Windows("Плательщики.xls").Activate
Worksheets("Года").Select