Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

If b = 1 Then

Data1.Recordset.Delete

Data1.Recordset.MoveNext

Else

Exit Sub

End If

Кнопка «Таблица» - переход на форму 2.

Кнопка «Выход» - выход из программы.

На форме 2 расположены следующие элементы: DBGrid (для отображения данных в виде таблицы ), Data, Command.

Кнопка «Выход» - выход из программы.

Кнопка «Записи по одному» - переход на форму 1.

Кнопка «Поиск» - поиск записей по полю «Фамилия» имеет следующую процедуру:

Private Sub Command1_Click() {Процедура для кнопки «Поиск»}

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

End If

EndSub.

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

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

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

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

• 1 Mb на HDD;

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

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

• манипулятор типа “мышь”.

1.3.5 Входные и выходные данные

Входные данные программы – это база данных, содержащая основные сведения о владельцах гаражного кооператива; пароль, вводимый пользователем для начала работы с программой; данные, вводимые для поиска, данные о новых владельцах. Выходные данные программы – это информация, получаемая при работе с базами данных, результаты поиска по полю “Фамилия”, сообщения для пользователя.

1.3.6 Вызов и загрузка

Вызов и загрузка программы осуществляется с помощью запускающего файла, ярлык для которого может располагаться на рабочем столе. Эта процедура занимает мало времени и равна нескольким секундам, конечно в соответствии с указанными для программы техническими средствами.

1.4 Программа и методика испытаний (ГОСТ 19.301-79)

1.4.1 Объект испытаний

Объектом испытаний является программа “Список владельцев гаражного кооператива” (А.В.00001-01). Программа будет полезна владельцам гаражного кооператива.

1.4.2 Цель испытания

Данные испытания проводятся для установления соответствия программы заданным требованиям и программным документам.

1.4.3 Требования к программе

Программа должна:

• корректно осуществлять поиск по полю “Фамилия”

• Выбранные командные кнопки должны выполнять соответствующие им команды.

1.4.4 Средство и порядок испытаний

Для испытания программы необходимо иметь ПК, работающий под управлением операционной системы Windows 98, с установленным на нём программным пакетом Visual Basic 5.0. или библиотекой программ.

1.4.5 Методы испытаний

• Тест №1 (допустимые значения)

Ожидаемые входные данные: нажимаем кнопку «Поиск», в текстовое поле вводим фамилию и нажимаем кн. ОК. Указатель перемещается на соответствующую запись.

По нажатию кнопки “Поиск” появляется функция ввода с текстовым полем, куда вводится фамилия интересующего владельца, и кн. ОК и Отмена. В текстовое поле вводим модель Галимеев и нажимаем кн. ОК. Указатель перемещается на запись, у которой в поле “Фамилия” записано Галимеев.

Программа выполнила тест верно.

• Тест №2 (недопустимые значения)

Ожидаемые входные данные: нажимаем кнопку «Поиск», в текстовое поле вводим фамилию и нажимаем кн. ОК. Нам выдается сообщение «Данной записи нет».

По нажатию кнопки “Поиск” появляется функция ввода с текстовым полем, куда вводится фамилия интересующего владельца, и кн. ОК и Отмена. В текстовое поле вводим фамилию Иванов и нажимаем кн. ОК. появляется сообщение: “Данной записи нет”.

Программа выполнила испытание верно, так как данного владельца в базе данных не существует.

• Тест №3 (ограниченные значения)

Ожидаемые входные данные: нажимаем кнопку «Поиск», в текстовое поле вводим фамилию, стоящую в таблице первой, и нажимаем кн. ОК. Указатель перемещается первую запись.

По нажатию кнопки “Поиск” появляется функция ввода с текстовым полем, куда вводится фамилия, стоящая в таблице первым, и кн. ОК и Отмена. В текстовое поле вводим фамилию Сидоренков и нажимаем кн. ОК. Указатель перемещается первую запись на запись, у которой в поле “Фамилия” записано Сидоренков.

Программа выполнила тест верно.

1.5 Текст программы (ГОСТ 19.401 - 78)

Форма 1

Option Explicit {Объявление переменных}

Dim d As Integer

Dim b As Integer

Private Sub Command1_Click(){Процедура для кнопки «Выход»}

End

End Sub

Private Sub Command2_Click(){Процедура для кнопки «Добавить»]

d = MsgBox("Добавить запись?", 1, " Сообщение")

If d = 1 Then

Data1.Recordset.AddNew

Else

Exit Sub

End If

End Sub

Private Sub Command3_Click(){Процедура для кнопки «Удалить»]

b = MsgBox("Вы действительно хотите удалить запись?", 1, " Сообщение")

If b = 1 Then

Data1.Recordset.Delete

Data1.Recordset.MoveNext

Else

Exit Sub

End If

End Sub

Private Sub Command4_Click() {Переход на вторую форму}

Form2.Show

Form1.Hide

End Su

Private Sub Data1_Reposition() {Процедура для подсчета записей}

Data1.Caption = Data1.Recordset.AbsolutePosition

Data1.Caption = "Запись " & (Data1.Recordset.AbsolutePosition + 1) & " из " & Data1.Recordset.RecordCount

End Sub

Private Sub Form_Load() {Загрузка формы}

Data1.Refresh

Data1.Recordset.MoveLast

Data1.Recordset.MoveFirst

End Sub

Форма 2

Private Sub Command1_Click() {Процедура для кнопки «Поиск»}

Dim s As String

Dim i As Integer

s = InputBox("Телефон какой модели вы хотите найти ?", "Поиск")

Data1.Recordset.MoveFirst

If s = "" Then

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

Exit Sub

End If

For i = 1 To Data1.Recordset.RecordCount

If Data1.Recordset.Fields(0) = s Then

Exit Sub

Else: Data1.Recordset.MoveNext

End If

Next i

MsgBox ("Данной записи нет")

Data1.Recordset.MoveFirst

End Sub

Private Sub Command3_Click() {Процедура для кнопки по одному»}

Form1.Show

Form2.Hide

End Sub

Private Sub Command4_Click(){Процедура для кнопки «Выход»}

End

End Sub

Private Sub Data1_Reposition(){Процедура для подсчета записей}

Data1.Caption = Data1.Recordset.AbsolutePosition

Data1.Caption = "Запись " & (Data1.Recordset.AbsolutePosition + 1) & " из " & Data1.Recordset.RecordCount

End Sub

Private Sub Form_Load() {Загрузка формы}

Data1.Refresh

Data1.Recordset.MoveLast

Data1.Recordset.MoveFirst

End Sub

Форма 3

Option Explicit {Объявление переменных}

Dim k As Integer

Private Sub Command1_Click(){процедура для кнопки «ОК» на форме пароля}

If Text1.Text = "Привет" Then

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

Unload Form3

Form1.Show

Else:

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

Text1.Text = ""

k = k + 1

If k = 3 Then End

End If

End Sub

2. Эксплуатационная документация

2.1 Ведомость эксплуатационных документов (ГОСТ 19.507-79)

Эксплуатационный программный документ – это такой программный документ, который содержит сведения необходимые для обеспечения функционирования и эксплуатации программного продукта. Ведомость эксплуатационный документ включает перечень эксплуатационных документов на программу.

ДОКУМЕНТЫ НА ПРОГРАММУ

2.2 Описание применения (ГОСТ 19.502-78)

В данном эксплуатационном документе содержатся сведения о назначении, области применения программного обеспечения, применяемых методах, классе решаемых задач, ограничениях для применения, минимальной конфигурации технических средств.

2.2.1 Назначение программы

Программа предназначена для работы с базой данных, созданными в ACCESS. Связь осуществляется с помощью элемента DATE и его свойств. В базу данных можно добавлять и удалять записи, просматривать их, производить поиск.

2.2.2Условия применения

Для работы программы необходимо иметь ПК, работающий под управлением операционной системы Windows 98, с установленным на нём программным пакетом Visual Basic 5.0. Программа проста в обращении, с ней может работать не только специалист в области программирования, но и простой пользователь.

Входные данные программы – это база данных, содержащая основные сведения о владельцах гаражного кооператива; пароль, вводимый пользователем для начала работы с программой; данные, вводимые для поиска, данные о новых владельцах.

Выходные данные программы – это информация, получаемая при работе с базами данных, результаты поиска по полю “Фамилия”, сообщения для пользователя.

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

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

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

• 1 Mb на HDD;

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

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

• манипулятор типа “мышь”.

2.2.3Описание задачи

Программа должна обеспечивать:

• просмотр, добавление и удаление записей

• хранение данных

• правильно производить поиск по полю “Фамилия”

• выполнять действия, соответствующие выбранным пользователем командным кнопкам.

Все эти требования выполняются с помощью соответствующих программных кодов.

2.2.4.Входные и выходные данные

Входные данные программы – это база данных, содержащая основные сведения о владельцах гаражного кооператива; пароль, вводимый пользователем для начала работы с программой; данные, вводимые для поиска, данные о новых владельцах.

Выходные данные программы – это информация, получаемая при работе с базами данных, результаты поиска по полю “Фамилия”, сообщения для пользователя.

2.3 Руководство оператора (ГОСТ 19.505-79)

В данный документ вносят сведения для обеспечения процедуры общения оператора с вычислительной системой в процессе выполнения программы.

2.3.1 Назначение программы

База данных “Список владельцев гаражного кооператива” позволяет просматривать данные, добавлять и удалять записи, осуществлять поиск по полю “Фамилия”.

2.3.2 Условия выполнения программы

С программой должен работать один пользователь ПК. Программа проста в обращении благодаря дружественному интерфейсу. На компьютере должна быть установлена операционная система Windows’95/98/2000 и Visual Basic 5.0. и библиотеки программ.

2.3.3 Минимальный состав аппаратных средств

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

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

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

• 1 Mb на HDD;

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

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

• манипулятор типа “мышь”.

2.3.4 Выполнение программы и сообщения оператору

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

Характеристики

Список файлов курсовой работы