Базы данных и знаний. Мартьянова А.Е. - 124 стр.

UptoLike

ВУЗ: 

АГТУ | Астрахань

Составители: 

Рубрика: 

Мартьянова А.Е. Базы данных и знаний 124
Рис. II.36. Окно ввода для поиска группы по ее обозначению
В команде Seek выбрана операция сравнения на равенство, поэто-
му группа будет найдена, если в
г будет совер но совпадать с хранимым в базе названием,
в тры.
P Find_C
p ите названи
s$ = InputBox(p$, "Пои
D ecordset.Index =
Data1.Recordset.Seek "=", s$
Then
D
End If
для объекта Data1 свойство
Авто
Man
лнении открывается окно , содер-
Desig
веденное через окно ввода название
руппы шенно точ
ключая регис
rivate Sub cmd lick()
$ = "Введ е группы"
ск группы")
"CodeGroup" ata1.R
If Data1.Recordset.NoMatch
ata1.Recordset.MoveFirst
End Sub
Одновременно следует установить
RecordsetType как 0 – Table (0 – таблица).
матизация создания формы
Visual Basic позволяет создать автоматически форму с элементом
управления Data и кнопками управления записями через Visual Data
ager. Для запуска Visual Data Manager используется команда Add-
In (Надстройки). При ее выпо VisData
жащее меню и панель инструментов.
В окне менеджера
вызовем через пункт меню Utility\Data Form
ner дизайнер формы базы данных Data Form Designer (рис. II.37).
124
124                                    Мартьянова А.Е. Базы данных и знаний




           Рис. II.36. Окно ввода для поиска группы по ее обозначению

     В команде Seek выбрана операция сравнения на равенство, поэто-
му группа будет найдена, если введенное через окно ввода название
группы будет совершенно точно совпадать с хранимым в базе названием,
включая регистры.
Private Sub cmdFind_Click()
p$ = "Введите название группы"
s$ = InputBox(p$, "Поиск группы")
Data1.Recordset.Index = "CodeGroup"
Data1.Recordset.Seek "=", s$
If Data1.Recordset.NoMatch Then
     Data1.Recordset.MoveFirst
End If
End Sub
     Одновременно следует установить для объекта Data1 свойство
RecordsetType как 0 – Table (0 – таблица).
Автоматизация создания формы
     Visual Basic позволяет создать автоматически форму с элементом
управления Data и кнопками управления записями через Visual Data
Manager. Для запуска Visual Data Manager используется команда Add-
In (Надстройки). При ее выполнении открывается окно VisData, содер-
жащее меню и панель инструментов.
     В окне менеджера вызовем через пункт меню Utility\Data Form
Designer дизайнер формы базы данных Data Form Designer (рис. II.37).




                                      124

Страницы