Страница 164 из 179
Label1.Сарtion=Название
Text1.DataSource=Data1
Text1.DataField=Title
Label2.Caption=ABTop
Text2.DataSource=Data1
Text2.DataField=Author
Label3.Caption=год издания
Text3.DataSource=Data1
Text3.DataField=Year Published
Label4.Caption=Teмa книги
Text4.DataSource=Data1
Text4.DataField=Subject
Label5.Caption=Описание
Text5.DataSource=Data1
Text5.DataField=Description
LаЬеl6.Caption=Международный код ISBN
Text6.DataSource=Data1
Text6.DataField=TITLES.ISBN
LаЬеl7.Caption=Издательство
Text7.DataSource=Data1
Text7.DataField=Name
LаЬеl8.Caption=Примечание
Text8.DataSource=Data1
Text8.DataField=Notes
Рис. 3.6. Вид экранной формы.
7. Предусмотрим средство для завершения работы приложения. Для этого добавьте на форму командную кнопку, определите ее свойство Caption как “Выход” и установите следующий код в процедуре обработки события Click:
Private Sub Command1 Click ()
Unload Me
End Sub
8. Запустите проект на выполнение выбором команды Start из меню Run, или нажмите клавишу F5. Результат работы программы показан на рис. 3.7. С помощью кнопок со стрелками на объекте управления данными можно перемещать текущий указатель по набору записей и содержимое соответствующих полей будет автоматически отображаться на форме в связанных элементах управления.
9. Закройте приложение нажатием кнопки “Выход”.
Рис. 3.7. Результат работы приложения.
Урок 4
Свойства, методы и события объекта управления данными
Объект Data, как и любой другой элемент управления в Visual Basic, имеет несколько стандартных, общих для многих элементов управления, свойств, методов и событий. Наряду с ними, он имеет целый ряд свойств, методов и событий, предназначенных для работы с данными. Именно они и будут последовательно рассмотрены ниже.
Свойства
• BOFAction
Свойство BOFAction определяет действие объекта Data, если свойство BOF (begi
Синтаксис: data1.BOFaction=value.
Значение value может быть выбрано из двух альтернатив: MoveFirst или BOF.
При создании объекта Data свойство BOFAction устанавливается по умолчанию как MoveFirst. При этом текущей становится первая запись в наборе записей.
Установка свойства BOFAction в BOF приводит к тому, что при перемещении указателя текущей записи за пределы набора сверху, текущая запись становится недопустимой (invalid) и любая попытка ее редактирования приведет к ошибке. В этом случае происходит событие Validate на первой записи в наборе и, затем, событие Reposition, уже на недопустимой записи. При этом кнопка перемещения указателя к предыдущей записи на объекте управления данными становится неактивной.
Установить свойство BOFAction объекта управления данными data1 в режиме выполнения приложения можно следующим образом:
data1.BOFaction= vbBOFActionMoveFirst,
или
data1.BOFaction= vbBOFActionBOF.
Возможные установки свойства BOFAction приведены в следующей таблице.
Установка ∙ Константа ∙ Значение
MoveFirst ∙ vbBOFActionMoveFirst ∙ 0
BOF ∙ vbBOFActionBOF ∙ 1
• Co
Свойство Co
Синтаксис: data1.co
Возможные варианты установки свойства Co
Тип базы данных ∙ Определение
MS Access ∙ ";"
dBASE х ∙ "dBASE x;"
Paradox x.x ∙ "Paradox x.x;"
FoxPro x.x ∙ "FoxPro x.x;"
Excel x.0 ∙ "Excel x.0;"
Lotus WKx ∙ "Lotus WKx;"
Text ∙ "Text;"
Btrieve ∙ "Btrieve;"
ODBC ∙ "ODBC; DATABASE = defaultdatabase; UID=user; PWD=password; DSN=datasourcename; LOGINTIMEOUT=seconds"
Установка свойства Co
data1.co
• Database
Использование свойства Database в режиме выполнения приложения позволяет получить ссылку на объект Database, который создан объектом Data.
Синтаксис: Set databaseobject = data1.Database.
Объект Data создает объект Database на основе своих свойств DatabaseName, Exclusive, ReadOnly, и Co
• DatabaseName
Использование свойства DatabaseName позволяет получить или установить имя и месторасположение источника данных для объекта Data.
Синтаксис: data1.DatabaseName=string.
Строковое выражение string определяет месторасположение и имя файла базы данных в форматах MS Access и Btrieve. Если используется база данных, размещенная на файл-сервере, то строка должна включать полный путь к требуемому файлу, например:
\SERVERDATADATABASE.MDB.
Для баз данных в формате dBASE, Paradox и др. строка string должна содержать только путь к файлу.
Для баз данных ODBC это свойство не определяется, так как все необходимые параметры для связи с базой данных устанавливаются свойством Co
Если вы во время работы приложения изменяете свойство DatabaseName, то после сделанных изменений необходимо выполнить метод Refresh объекта Data.
Продемонстрируем использование свойства DatabaseName в режиме выполнения приложения. Для этого:
1. Откройте проект, созданный для просмотра содержимого файла BIBLIO.MDB.
2. Удалите содержимое свойства DatabaseName объекта управления данными Data1.
3. Добавьте следующий код в процедуру обработки сообщения о загрузке формы:
Private Sub Form_Load()
data1.databasename= "c: vb5biblio.mdb"
data1.refresh
End Sub
4. Запустите проект.
При разработке приложений для работы с базами данных лучше не привязывать пользователя к конкретной структуре каталогов установкой свойства DatabaseName на этапе разработки программы. Это может быть не всегда удобно для пользователя. Хорошим примером уважительного отношения к пользователю служит хранение путей к файлам баз данных в специальных файлах конфигурации вашего приложения с последующим считыванием этой информации в процессе загрузки программы. Код, осуществляющий эту операцию, можно включить, например, в процедуры обработки событий Load или Activate соответствующей экранной формы.
Другим способом определения пути к файлу базы данных является использование глобального объекта Visual Basic — объекта Арр. Хотя этот объект не имеет ни методов, ни событий, у него есть несколько очень полезных свойств. Одним из них является свойство Path, которое определяет путь к выполняемому файлу. Если вы используете интегрированную среду разработки Visual Basic, например, для отладки приложения, то App.Path определяет путь к файлу проекта, который вы запустили.