Курсовая работа: Компьютерная подготовка

PrivateSub CancelButton_Click()

reportForm.Hide

EndSub

PrivateSub OKButton_Click()

Dim myRecord As Record

Dim counter As Long

Dim street AsString, no AsString, title AsString

If AllOption.Value Then

counter = count()

MsgBox"Общее количество абонентов: " + Str(counter)

Else

myRecord = getRecord(ActiveCell.EntireRow)

If StreetOption.Value Then

title = "Отчетпоулице"

street = InputBox("Задайтенаименованиеулицы:", title, myRecord.street)

IfLen(street) > 0Then

street = Trim(street)

counter = count(street)

MsgBox "Количествотелефоновнаулице '" + street + "': " + Str(counter)

EndIf

Else

title = "Отчетподому"

street = InputBox("Задайтенаименованиеулицы:", title, myRecord.street)

IfLen(street) > 0Then

street = Trim(street)

no = InputBox("Улица '" + street + "'" + Chr(10) + "Задайтеномердома:", title, myRecord.no)

IfLen(no) > 0Then

no = Trim(no)

counter = count(street, no)