 |
Вызов и загрузка программы
|
|
|
|
Вызов и загрузка программы осуществляется с помощью запускающего файла, ярлык для которого может располагаться на рабочем столе. Эта процедура занимает мало времени и равна нескольким секундам, конечно с указанными для программы техническими средствами.
Описание логической структуры
Программа состоит из трех форм. На первой форме установлен Пароль для данной программы. Форма имеет фиксированный размер. На ней находится текстовое поле (TextBox), в которое пользователь вводит пароль, также кнопка (CommandButton), по которой необходимо нажать после ввода пароля. Если пароль вводится неверный, то программа выдает сообщение, о том, что пароль не правильный и дает еще две возможности введения пароля. Когда пароль третий раз вводится не верный, программа автоматически закрывается. Если пароль вводится правильный, то на экране монитора появится главная форма. Программно это выглядит следующим образом:
If Text1. Text = "ПРИВЕТ" Then
Unload Form3
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. После установки всех необходимых свойств информация появляется в таблице.
На этой форме так же расположены кнопки: “Запрос”, “Восстановление”, “Переход на другую форму”.
По нажатии кнопки “Запрос” на экране появляется еще два поля и две дополнительные кнопки: “Найти” и “Отмена” В первое текстовое поле необходимо ввести название поля по которому будет проводится выборка. Во второе - критерий отбора. Когда пользователь заполнит эти поля и нажмет кнопку “Найти”, то в таблице останутся только те записи, которые соответствуют заданным параметрам. Если пользователь нажмет “Отмена”, то эти два поля исчезнут. Если будет введена не существующая информация, то будет выдана информация “Запрос не установлен”. Если ничего не будет введено или нажата на кнопка “Отмена”, то будет выдано соответствующее сообщение об этом. Данная возможность реализована с помощью процедуры
|
|
|
If analiz = True Then
Data1. RecordSource = "select * from техника"
Data1. Refresh
analiz = False
Command5. Visible = False
Else
MsgBox "ЗАПРОС НЕ УСТАНОВЛЕН"
End If
Private Sub Form_Load()
Command5. Visible = False
End Sub
По нажатии кнопки “Переход на другую форму”, на экране отображается главная форма. Данная возможность реализована с помощью процедуры
Form1. Show
Form2. Hide
Используемые технические средства
Минимальный набор технических средств для работы программы:
компьютер на базе процессора Intel 486 BX 4-100
FDD - 3.5 “1.44MB” для установки программного продукта на компьютере
манипулятор типа “мышь”
клавиатура
493 КБ на жестком диске
цветной монитор SVGA
Вызов и загрузка
Программу можно запустить двойным щелчком левой кнопки мыши на соответствующий значок, находящийся на рабочем столе.
Входные данные
Входными данными являются:
Введение необходимого пароля;
Введение данных, по которым будет осуществляться поиск необходимого пользователю электроприбора;
Введение необходимых параметров, по которым будет осуществляться выборка из полного списка электроприборов;
Данные введенные пользователем при добавлении данных.
Выходные данные
Выходными данными являются:
Результат для дальнейшей работы с программой после внесения нужного пароля(либо окно сообщения о неправильности пароля, либо переход к главной форме);
Предоставление информации об электроприборах;
Записи в БД после корректного ввода данных пользователем при добавлении
|
|
|
