Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

  End If

End Sub

reportForm

Private Sub UserForm_Activate()

  AllOption.Value = True

  OKButton.Caption = "Расчет"

  OKButton.SetFocus

End Sub

Private Sub AllOption_Click()

 OKButton.Caption = "Расчет"

End Sub

Private Sub StreetOption_Click()

 OKButton.Caption = "Параметры..."

End Sub

Private Sub HouseOption_Click()

 OKButton.Caption = "Параметры..."

End Sub

Private Sub CancelButton_Click()

 reportForm.Hide

End Sub

Private Sub OKButton_Click()

Dim myRecord As Record

Dim counter As Long

Dim street As String, no As String, title As String

 If AllOption.Value Then

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



Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

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