Visual Basic 6. Руководство разработчика


         

Проектирование с использованием конструктора - часть 3


6. Щелкните на кнопке ОК, чтобы перейти к окну DataEnvironmentI, в котором информация представлена в виде дерева.

7. Нажмите на знаке плюс перед объектом Command 1, чтобы отобразить имена полей таблицы Customers.

8. Выберите форму проекта (если вы не переименовывали ее, то это Form1).

9. Перетащите на форму объект Command 1 из окна DataEnvironmentI. Visual Basic создаст столько пар "метка-текстовое поле", сколько понадобится для отображения всех полей объекта Command 1. Если вы не хотите, чтобы были показаны все поля, перетащите только выделенные поля.

10. Выберите форму и разместите на ней элементы управления. В этой форме отсутствуют кнопки навигации. Разместите четыре кнопки на форме (см. рис. 18.1) и введите следующие команды для их событий Click.

Программа 18.1. Программирование кнопок навигации

Private Sub Commandl_Click ()

DataEnvironment1.rsCommand1.MoveFirst

End Sub

Private Sub Command2_Click()

If DataEnvironment1.rsCommand1.BOF Then

Beep

Else

DataEnvironment1.rsCommand1.MovePrevious

If DataEnvironment1.rsCommand1.BOF Then

DataEnvironment1.rsCommand1.MoveFirst

End If

End If

End Sub

Private Sub Command3_Click()

If DataEnvironment1.rsCommand1.EOF Then

Beep

Else

DataEnvironment1.rsCommand1.MoveNext

If DataEnvironment1.rsCommand1.EOF Then

                DataEnvironment1.rsCommand1.MoveLast

           End If

End  If

End Sub

Private    Sub Command4_Click ()

DataEnvironment1.rsCommand1.MoveLast

End Sub

Если вы прочитали предыдущую главу, то вам должен быть понятен этот код. Объект DataEnvironmentI предоставляет набор данных rsCommandl типа RecordSet, который содержит записи, извлеченные из таблицы Customers объектом Command 1. Имя набору данных назначается автоматически в соответствии с именем объекта Command (с префиксом "rs"). Объект DataEnvironmentI.rsCommandl — это набор данных, который поддерживает большую часть методов и свойств объекта DAO.

Для перемещения по записям используются методы Move (MoveFirst, MoveNext, MovePrevious и MoveLast). Чтобы предотвратить перемещение к несуществующей записи (перед первой или после последней), проверьте свойства BOF и EOF набора данных rsCommand 1.

Совет

Информация о свойствах EOF и BOF и об их использовании методами приведена в гл. 17.

Используя конструктор ActiveX DataEnvironment и несколько строк кода, можно разработать форму, способную перемещаться по набору записей. Этот пример не производит должного впечатления. Используя элемент управления Data это можно сделать гораздо быстрее. В следующем примере создается более сложный объект Command способом комбинирования трех таблиц из одной и той же базы данных (и все внутри конструктора ActiveX DataEnvironment) без единой строки кода.




Содержание  Назад  Вперед