MsgBox "Вы нажали на отмену" // Выдача сообщения
Exit Sub
End If
Data1. Recordset. MoveFirst
For i = 1 To Data1. Recordset. RecordCount
If Data1. Recordset. Fields(1). Value = t Then
Exit Sub
End If
Data1. Recordset. MoveNext
Next
MsgBox (" Такого изделия нет в наличии") // Выдача сообщения
Data1. Recordset. MoveFirst
End Sub
/ / Объявление переменных
Option Explicit
Dim x As String
Dim y As String
Dim analiz As Boolean
/ / Процедура перехода на другую форму
PrivateSubCommand1_Click()
Unload Form2
Form1. Show
End Sub
/ / Появление двух дополнительных окон
PrivateSubCommand2_Click()
Select Case Command2. Caption
Case "Запрос"
Label1. Visible = True
Label2. Visible = True
Text1. Visible = True
Text2. Visible = True
Command3. Visible = True
Command4. Visible = True
Form2. Height = 4590
Case "Восстановть"
Data1. RecordSource = "select * from ювелирные"
Data1. Refresh
Command2. Caption = "Запрос"
EndSelect
EndSub
/ / Произведение выборки
Private Sub Command3_Click()
x = Text1. Text
y = Text2. Text
If x = "" Or y = "" Then
MsgBox "Не все критерии введены!" // Выдача сообщения
Exit Sub
Else
Data1. RecordSource = "select * from техника where " & x & "=" & "'" & y & "'"
On Error GoTo m2
Data1. Refresh
analiz = True
Command5. Visible = True
End If
/ / Обработчик ошибок
m2:
IfErr > 0 ThenMsgBox "НЕТ ТАКОЙ ЗАПИСИ!!!" // Выдача сообщения
Label1. Visible = False
Label2. Visible = False
Text1. Text = ""
Text2. Text = ""
Text1. Visible = False
Text2. Visible = False
Command3. Visible = False
Command4. Visible = False
Form2. Height = 4005
End Sub
/ / Скрытие двух дополнительных окон
PrivateSubCommand4_Click()
Label1. Visible = False
Label2. Visible = False
Text1. Visible = False
Text2. Visible = False
Command3. Visible = False
Command4. Visible = False
Form2. Height = 4005
/ / Выдача сообщения
MsgBox "Вы отказались от поиска! "
End Sub
Private Sub Command5_Click()
If analiz = True Then
Data1. RecordSource = "select * from техника"
Data1. Refresh
analiz = False
Command5. Visible = False
Else
MsgBox "ЗАПРОС НЕ УСТАНОВЛЕН" // Выдача сообщения
EndIf
EndSub
/ / Не отражение на форме кнопки
Private Sub Form_Load()
Command5. Visible = False
EndSub
/ / Объявление переменных
Option Explicit
Dim i As Integer
/ / Введение пароля
Private Sub Command1_Click()
If Text1. Text = "Привет" Then
Unload Form3
Form1. Show
Else
MsgBox "пароль не правильный" // Выдача сообщения
Text1. Text = ""
End If
/ / Счетчик
i = i + 1
If i = 3 Then
End
End If
EndSub
В описание программы вносятся сведения о логической структуре и функционировании программы.
В рамках курсового проекта мной была разработана программ “Каталог электроприборов”. Программа была написана на языке объектно-ориентированного программирования VisualBasic. Эта программа позволяет удобно работать с большим перечнем электротехники. Быстро находить нужный электроприбор, а так же узнать всю необходимую информацию о нем.
Вызов и загрузка программы осуществляется с помощью запускающего файла, ярлык для которого может располагаться на рабочем столе. Эта процедура занимает мало времени и равна нескольким секундам, конечно с указанными для программы техническими средствами.
Программа состоит из трех форм. На первой форме установлен Пароль для данной программы. Форма имеет фиксированный размер. На ней находится текстовое поле (TextBox), в которое пользователь вводит пароль, также кнопка (CommandButton), по которой необходимо нажать после ввода пароля. Если пароль вводится неверный, то программа выдает сообщение, о том, что пароль не правильный и дает еще две возможности введения пароля. Когда пароль третий раз вводится не верный, программа автоматически закрывается. Если пароль вводится правильный, то на экране монитора появится главная форма. Программно это выглядит следующим образом:
IfText1. Text = "ПРИВЕТ" Then
UnloadForm3
Form1. Show
Else
MsgBox "пароль не правильный"
Text1. Text = ""
End If
i = i + 1
If i = 3 Then
End
End If
На главной форме отображается полная информация об отдельном приборе, которая выводится в текстовых полях. Так же на ней располагаются кнопки, с помощью которых можно производить различные действия. А конкретно:
С помощью кнопки управления можно пролистывать список электроприборов.
Кнопка “Поиск” предназначена для быстрого нахождения прибора по его наименованию. Программно это выглядит следующим образом:
t = "Что Вы ищите? "
t = InputBox(t)
If t = "" Then
MsgBox "Вы нажали на отмену"
Exit Sub
End If
Data1. Recordset. MoveFirst
For i = 1 To Data1. Recordset. RecordCount
If Data1. Recordset. Fields(1). Value = t Then
Exit Sub
End If
Data1. Recordset. MoveNext
Next
MsgBox (" Такого изделия нет в наличии")
Data1. Recordset. MoveFirst
Кнопка “Добавления” предназначена для добавления новой записи в базу данных. При ее нажатии на форме отображаются чистые строки, куда вносится информация о новом приборе. Программно это выглядит следующим образом:
Data1. Recordset. AddNew
Кнопка “Удаление” предназначена для удаления записи из базы данных. По нажатии этой кнопки, появляется окошко, где выдается сообщение в котором спрашивается. Действительно ли пользователь хочет удалить запись. Если пользователь нажимает Да, то запись удаляется. Если нажимается отмена, то окошко скрывается и запись остается в базе данных. Программно это выглядит следующим образом:
If MsgBox("Вы действительно хотите удалить запись? ", 36) = vbYes Then
Data1. Recordset. Delete
Data1. Recordset. MoveNext
Else
Exit Sub
End If
Кнопка “Количество записей” выдает сообщение о том сколько записей содержит база данных. Программно это выглядит следующим образом:
Data1. Recordset. MoveLast
MsgBox "Количество записей =" & Data1. Recordset. RecordCount
По нажатии кнопки “Ассортимент”, на экране монитора отображается другая форма, где находится таблица, содержащая полный список электроприборов. Сами данные хранятся в базе данных Access. Чтобы данные появились на форме необходимо установить следующие компоненты: Data (служит для установления связи между базой данных и другими элементами управления, используемых для отображения данных в базе данных), RecordSource (определяет, откуда извлечены данные). Для этих элементов необходимо установить следующие свойства: DatacaseName (имя базы данных), Recordset. После установки всех необходимых свойств информация появляется в таблице.
На этой форме так же расположены кнопки: “Запрос”, “Восстановление”, “Переход на другую форму”.
По нажатии кнопки “Запрос” на экране появляется еще два поля и две дополнительные кнопки: “Найти” и “Отмена” В первое текстовое поле необходимо ввести название поля по которому будет проводится выборка. Во второе - критерий отбора. Когда пользователь заполнит эти поля и нажмет кнопку “Найти”, то в таблице останутся только те записи, которые соответствуют заданным параметрам. Если пользователь нажмет “Отмена”, то эти два поля исчезнут. Если будет введена не существующая информация, то будет выдана информация “Запрос не установлен”. Если ничего не будет введено или нажата на кнопка “Отмена”, то будет выдано соответствующее сообщение об этом. Данная возможность реализована с помощью процедуры
Ifanaliz = TrueThen
Data1. RecordSource = "select * from техника"
Data1. Refresh
analiz = False
Command5. Visible = False
Else
MsgBox "ЗАПРОС НЕ УСТАНОВЛЕН"
EndIf
Private Sub Form_Load()
Command5. Visible = False
EndSub
По нажатии кнопки “Переход на другую форму”, на экране отображается главная форма. Данная возможность реализована с помощью процедуры
Form1. Show
Form2. Hide
Минимальный набор технических средств для работы программы:
компьютер на базе процессора Intel 486 BX 4-100
FDD - 3.5 “1.44MB” для установки программного продукта на компьютере
манипулятор типа “мышь”
клавиатура
493 КБ на жестком диске
цветной монитор SVGA
Программу можно запустить двойным щелчком левой кнопки мыши на соответствующий значок, находящийся на рабочем столе.
Входными данными являются:
Введение необходимого пароля;
Введение данных, по которым будет осуществляться поиск необходимого пользователю электроприбора;
Введение необходимых параметров, по которым будет осуществляться выборка из полного списка электроприборов;
Данные введенные пользователем при добавлении данных.
Выходными данными являются:
Результат для дальнейшей работы с программой после внесения нужного пароля(либо окно сообщения о неправильности пароля, либо переход к главной форме);
Предоставление информации об электроприборах;
Записи в БД после корректного ввода данных пользователем при добавлении
Данный курсовой проект представляет собой базу данных содержащую перечень электроприборов с необходимой информацией о них. Программа может применяться консультантами, так и продавцами в магазинах продающих электроприборы. Программа позволяет быстро и легко найти необходимый прибор и соответствующую ему информацию.
Необходимым условием работы любой программы является ее корректное выполнение своих функций. Для этого необходимо осуществить проверку программы.
Проверка программы - это проверка правильности реализации заданного алгоритма путем выполнения программы на вычислительной техники (ЕСПД).
Программа должна легко запускаться. По нажатии кнопок, программа должна выполнять соответствующие действия. Входные данные программы - это полный список электроприборов. Выходными данными является выдача необходимой информации о них. Так как известно, с какими результатами должна работать программа, можно произвести определенную последовательность действий и сравнивать эти результаты с ожидаемыми. Если полученные результаты не имеют отклонений, то программа работает без отклонений. Так же можно произвести тесты с заведомо ложными данными и посмотреть, как поведет себя программа в этом случае.