Курсовая работа: Документация базы данных "Список владельцев гаражного кооператива"

Dim s As String

Dim i As Integer

s = InputBox("Введите фамилию ?", "Поиск")

Data1.Recordset.MoveFirst

If s = "" Then

MsgBox ("Вы нажали Отмену или ничего не ввели")

Exit Sub

End If

Где InputBox – функцияввода.

Третья форма используется для ввода пароля. Если пароль введен неправильно, появляется сообщение: “Неправильный пароль” и кн. ОК, по нажатию которой сообщений закрывается, пользователю предоставляется еще две возможности ввода пароля. После трехразового ввода неправильного пароля происходит выход из программы автоматически. При правильном вводе пароля появляется сообщение: “Правильный пароль” и кн. ОК, по нажатию форма пароля исчезает и появляется форма “Гаражный кооператив”. Программныйкоддлякнопки «ОК»:

Private Sub Command1_Click()

If Text1.Text = "111" Then

MsgBox "Парольправильный"

Unload Form3

Form1.Show

Else:

MsgBox "Пароль неправильный"

Text1.Text = ""

k = k + 1

If k = 3 Then End

EndIf

EndSub.

1.3.4 Используемые технические средства

Минимальный перечень технических средств, обеспечивающих работу программы:

- ПК на базе процессора Intel – 486 BX 4-100;

- FDD 3,5 “1,44 Mb” (для установления программы);

- 1 Mb на HDD;

- цветной монитор SVGA;

- клавиатура;