Програмирование на Visual Basic

|Si |Pi |300 |

|Si |Р2 |200 |

|si |РЭ |400 |

|sl |Р4 |200 |

|si |Р5 |100 |

|sl |р6 |100 |

|s2 |Р' |300 |

|s2 |Р2 |400 |

|s3 |Р2 |200 |

|s4 |Р2 |200 |

|s4 |Р4 |300 |

|s4 |Р5 |400 |

Таблица поставки деталей служит для связи между собой двух первых таблиц.

Например, первая строка этой таблицы связывает поставщика “sl” из таблицы

поставщиков с деталью “р1” из таблицы деталей (представляет поставку детали

вида “р1” поставщиком с номером “sl” в количестве 300 деталей).

Предполагается, что в каждый момент существует только одна поставка для

заданного поставщика и заданной детали, т.е. комбинация Но-мер_поставщика,

Номер_детали является уникальной для заданной поставки относительно

множества поставок в данный момент.

Принципиальной особенностью таблиц является следующее:

. данные в таблицах имеют только явные значения, т.е. не существует

каких-либо связей или указателей, соединяющих одну таблицу с другой.

Связь, например, между поставщиком и деталью задана наличием

конкретного номера поставщика (sl) и конкретного номера детали (р1).

Такие ссылки из одной таблицы на Другую через какое-нибудь общее поле

(Common field) называется отношением;

. таблица состоит из строки заголовков столбцов и нуля или более строк

значений данных;

. строка заголовков столбцов специфицирует один или более столбцов,

определяя также тип данных для каждого из них (все значения в данном

столбце одного типа. Например, имя поставщика типа строки символов,

число деталей некоторого арифметического типа и т.п.);

. значения данных являются атомарными, т.е. в каждой ячейке таблицы

всегда только одно значение.

Строка таблицы также называется записью. Элемент записи называется полем

(наименьшая единица информации в базе данных)

Прикладная информация может по-разному задаваться таблицами (т.е количество

таблиц и их содержание могут быть различными для одной и той же прикладной

информации). Например, можно было бы вместо трех таблиц “Таблица

поставщиков” “Таблица деталей” и “Таблица поставки деталей” сделать одну

объединенную таблицу. В этом случае происходило бы дублирование информации

(для каждой детали повторялась бы информация о поставщике). Если бы

изменилась какая-либо информация по поставщику (например, состояние), то

эту информацию необходимо бы было изменить во всех записях.

Для правильной организации данных в таблицы используется понятие

нормализации. Нормализация данных — процесс исключения избыточной

информации, при которой достигается то что каждый элемент информации

запоминается только один раз. Теория и практические рекомендации по

нормализации рассматриваются в книгах по реляционным базам данных.

Связь между таблицами реализуется с использованием ключей данных. Ключи

обычно называют первичными и внешними ключами. Первичный ключ однозначно

определяет запись в таблице (в таблице поставщиков таким первичным ключом

является номер поставщика) и должен быть уникальным. Внешним ключом

является ключ, используемый для связи с первичным ключом другой таблицы (в

таблице поставок такими внешними ключами являются номер поставщика и номер

детали, которые используются для связи с другими таблицами). Таблицы

связываются между собой с помощью ключевых полей.

Ключевое поле может иметь содержательный смысл (например, фамилия, но в

этом случае фамилии не могут повторяться) или полем, которое служит

специальной цели обеспечения уникальности записи (например, номер

поставщика или счетчик для первичного ключа). Поле счетчика является

целочисленным полем, которое автоматически увеличивается на единицу

системой управления базами данных, когда добавляется новая запись. При этом

механизм создания уникальных полей перекладывается на систему.

Приведенные таблицы являются исходными (базовыми) для задания данных и

связей между ними. Такие таблицы физически существуют в памяти ЭВМ, хотя их

вид необязательно соответствует приведенному (физическое представление

данных, т.е. то, как данные реально хранятся на носителях данных,

отличается от их логического представления в виде рассмотренных таблиц и

зависит от типа ЭВМ и носителя данных).

Кроме того, на основе базовых таблиц могут быть созданы производные от них

или представления. Например, таблица поставщиков деталей в количестве

больше 200 имеет вид:

|Номер |Номер |

|поставщика |детали |

|si |Pi |

|si |P3 |

|s2 |pi |

|s2 |?2 |

|s4 |P4 |

|s4 |?5 |

Такая таблица является производной или виртуальной таблицей, те. таблицей

которая непосредственно не существует в физической памяти, но для

пользователя, получающего информацию, выглядит существующей.

В результате информационного запроса (query) к реляционной базе данных

также получается некоторая таблица, которая является представлением

существующих данных. Заложенные в исходных таблицах отношения позволяют

конструировать различные логические представления данных. В частности

приведенная таблица является результатом запроса о поставщиках и деталях,

поставляемых в количестве более 200.

Для более эффективной работы с реляционной базой данных (повышение скорости

получения информации и модификации данных) используется индексирование

(аналогично рассмотренному индексированию записей файла). Индекс создается

для одного или нескольких заданных столбцов таблицы (для одной таблицы и

группы столбцов может быть создано несколько индексов) и для заданного

упорядочения (например, по убыванию) и автоматически поддерживается

средствами СУБД при изменении информации. Для приведенных таблиц могут

быть, например, созданы индексы по столбцу “Номер поставщика” таблицы

поставщиков, по столбцу “Номер детали” таблицы деталей, по двум столбцам

“Номер поставщика” и “Номер детали” таблицы поставки деталей.

Для работы с реляционными базами данных существует стандартный язык

запросов SQL (Structured Query Language — язык структурированных запросов).

Этот язык используется для создания исходных таблиц базы данных (создание

базы данных) формирования запросов, управления базами данных, позволяя

использовать стандартные средства для работы с различными базами данных.

Visual Basic позволяет использовать язык SQL для работы с базами данных.

5.3. ИСПОЛЬЗОВАНИЕ ЭЛЕМЕНТОВ УПРАВЛЕНИЯ Data и Grid

Элемент управления Data служит для установления связи между базой данных и

другими элементами управления, используемыми .зля отображения данных из

базы данных. Поддерживается связь с базами данных Access, FoxPro, dBase,

Paradox (список поддерживаемых связей определяется версией Visual Basic).

Один элемент управления Data всегда обеспечивает доступ только к одной

записи в данный момент (такая запись называется текущей (current)),

позволяя отображать содержимое текущей записи на форме.

Кроме стандартных свойств, элемент управления Data обладает следующими

специфическими свойствами:

. BOFAction (Beginning Of File — начало файла), EOFAction (End Of File —

конец файла) возвращает или устанавливает значение, указывающее

действие при значении BOF или EOF, равном True.

Свойство BOF равно True, если указатель текущей позиции в файле расположен

до какой-либо записи (обычно возникает при удалении первой записи).

Свойство EOF равно True, если указатель текущей позиции в файле расположен

за существующими данными. Если любое из этих свойств равно True, то текущая

запись имеет недопустимый номер. Если оба свойства равны True, то в файле

не содержится данных.

Синтаксис:

объект. BOFAction [= значение} объект. EOFAction f= значение}

BOFAction =1 — переход к первой записи, если BOF = True. EOFAction =1 —

переход к последней записи, если EOF =

True.

. Connect (Подключение) определяет тип (формат данных) используемой базы

данных (Access, FoxPro, dBase, Paradox и др.).

. Database объект “описатель базы данных” (профессиональная версия

Visual Basic)

. DatabaseName (имя базы данных) определяет имя файла базы данных или

переход.

. EditMode возвращает значение, определяющее состояние редактирования

для текущей записи.

. Exclusive определяет использование базы данных одни или несколькими

пользователями (True — использование одним пользователем. False (по

умолчанию) — несколько пользователей).

. Readonly определяет возможность редактирования ото-// бражаемого

данного в элементе управления (False (по умолчанию) — редактирование

возможно, True — невозможно).

. Recordset возвращает или устанавливает объект Recordset, определенный

свойствами элемента управления Data или существующим объектом

Recordset.

Элемент Data автоматически инициализируется при запуске приложения. Если

свойства Connect, DatabaseName, Options, RecordSource, RecordSource,

Exclusive, ReadOnly и RecordsetType установлены или, если они

устанавливаются на этапе выполнения при использовании метода Refresh,

механизм баз данных Jet пытается создавать новый объект Recordset,

основанный на этих свойствах. Этот объект Recordset доступен через свойства

элемента управление Data.

Важно: ссылаться на свойства объекта Recordset, создаваемого элементом

управления Data, можно только используя свойство Recordset самого элемента

Data. Синтаксис такого определения свойства следующий:

о^бетс/и/.свойствоА.свойствоБ определяет свойствоБ некоторого объекта,

адресуемое через свойствоА объекта!.

Объект Recordset представляет запись в основной таблице или запись, которая

является результатом выполнения запроса. Когда используются объекты доступа

к данным, то это происходит с использованием объектов Recordset. Таблица.

Recordset есть представление основной таблицы. Dynaset-тип.Recordset —

динамический набор записей. Кадр. Recordset — статическая копия множества

записей (может содержать поля из одной или более таблиц в базе данных, но

не может модифицироваться).

. RecordsetType определяет тип набора записей, который можно

использовать для доступа к данным. Существует три типа наборов

записей: таблица. Dynaset (динамическое множество) или кадр

(моментальный снимок). Соответственно свойство принимает значения 0,

1,2.

При использовании Data для доступа к базе данных по умолчанию создается

набор записей динамического типа, который является набором указателей на

информацию. Динамический набор является очень гибким, но имеет ряд

ограничений при использовании (в частности не поддерживает созданные

индексы, что не позволяет динамически изменять порядок представления

записей в наборе).

При задании типа набора “Таблица” возможен доступ только к одной полной

таблице с использованием индекса для упорядочения, но обновление данных

отображается медленно.

При задании типа набора “Кадр” работа выполняется с копией данных.

Достоинством является быстрота, но требует ресурсов памяти и невозможно

обновление данных.

. RecordSource (источник данных) определяет, откуда извлечь данные. Это

может быть имя таблицы либо конкретное логическое представление данных

(запрос).

Для объекта Data при работе с базами данных существует понятие базовых

элементов управления — непосредственно связаны с единственным полем в

наборе записей и не требуют дополнительного определения, кроме имени поля,

задаваемого для некоторого свойства элемента управления. Например, для

текстового окна (TextBox) присвоение свойства Text может содержать значение

поля базы данных (тип данных: строка символов, арифметический тип, дата) и

определяется заданием свойств DataSource (указывается имя объекта Data) и

DataField (указывается имя поля таблицы, установленной свойством Data-

Source объекта Data). Окна изображений и рисунков можно использовать для

показа картинок, хранящихся в базе данных, флажок — для отображения булевых

значений.

В комплекте Visual Basic имеется база данных B1BLIO.MDB, содержащая

библиографические сведения по Visual Basic. Она состоит из трех таблиц.

Таблица Авторы (Authors) с полями идентификационный номер (Au_lD) и фамилия

автора (Authors). Таблица издательств (Pablishers) с полями

идентификационный

номер (PubID), название (Name), компания владелец (Company Name), адрес

(Address), город (City), штат (State), код (Zip), теле-tboH (Telephone).

Таблица Названия книг (Titles) содержит список опубликованных книг:

название (Title), год публикации (Year published) и ссылки на первые две

таблицы.

Используем элемент управления Data для доступа к этой базе данных. Создадим

форму (рис. 5.1) с элементом управления Data, с тремя метками и с тремя

текстовыми окнами для вывода соответствующей информации из базы данных

B1BLIO.MDB. Свойствам объекта Data присваиваются следующие значения:

DataBaseName = C:\VB4\BIBLIO.MBD

RecordSourse = Pablishers

Connect = Access.

Для подключения базы данных (задание значения свойства DataBaseName =

C:\VB4\BIBLIO.MBD) используется специальное окно (рис. 5.2).

[pic]

Свойствам объекта Textl (текстовое окно с заголовком “Издательство”)

присваиваются значения:

DataSourse = Datal (имя элемента Data — Datal), DataField = Name (Name —

имя поля таблицы издательств). *

Рис. 5.

Свойствам объекта Text2 (текстовое окно с заголовком “Город”) присваиваются

значения: DataSourse = Datal (имя элемента Data — Datal), DataField = City

( City — имя поля таблицы издательств).

Свойствам объекта Text3 (текстовое окно с заголовком “Телефон”)

присваиваются значения: DataSourse = Datal (имя элемента Data — Datal),

DataField = Telephone (Telephone — имя поля таблицы издательств).

Созданное приложение позволяет просматривать базу данных, получая из нее

указанную информацию. Элемент управления Data обеспечивает движение по

записям (последовательное Движение к последующей записи или к предыдущей

записи при щелчке мышью по правой или левой стрелке объекта и переход “

первой или последней записи при щелчке мыши по левой или правой кнопке

окна) (рис. 5.3).

Аналогичные действия можно проделать без использования мыши, а программно.

Для этого применяются методы объекта Data.

[pic]

phl 5 2

[pic]

Такгцуж методам являются:

. Refresh — открытие и закрытие базы данных;

. MoveFirst — текущей становится первая запись из множества записей:

. MoveNext — текущей становится следующая запись из множества записей;

Рис 53

. Move Previous — текущей становится предыдущая запись из множества

записей;

. MoveLast — текущей становится последняя запись из множества записей;

. Update — редактированное поле записывается в базу данных ( этот можно

применять только для таблиц и динамических множеств);

. FindFirst найти первую запись для заданного условия поиска;

. FindNext найти следующую запись для заданного усло-„ия поиска:

. FindLast найти последнюю запись для заданного условия

поиска;

. FindPrevious найти предыдущую запись для заданного условия поиска.

Последние четыре метода требуют задания критерия поиска записи. В общем

случае критерием является строка символов, которая может включать

логические выражения. Переменной типа строки символов, являющейся

критерием, присваивается значение Следующие примеры показывают задание

критериев:

Dim Criteriy As String

Criterly = “State = ' NY ' “ ' значение поля State (Штат) таблицы должно

быть равно NY Criteriy = “Title > ‘A’ And Title < 'В' “ ' первой буквой

поля Title таблицы должна быть буква А Criteriy = “Name =” & “'” & Poisk &

“'” ' значение поля Name таблицы должно быть равно значению переменной

Poisk

Следует обратить внимание на то, что задаваемое значение в условиях берется

в апострофы “ символ — '”. В последнем примере эти апострофы специально

задаются.

При использовании методов для поиска записей используется также свойство

NoMath, применяемое для таких объектов, как таблица, динамическое

множество, кадр или Recordset. Синтаксис использования свойства следующий:

Объект. NoMath

Свойство принимает значение True (требуемая запись не найдена) или False

(требуемая запись найдена). Если поиск оказался безрезультатным, то

свойство имеет значение True и положение текущей записи (в момент

применения одного из указанных выше методов поиска) не меняется.

Как было сказано выше, ссылаться на свойства объекта Recordset,

создаваемого элементом управления Data, можно только используя свойство

Recordset самого элемента Data (синтаксис см. выше). Таким образом, при

использовании перечисленных методов вставляется свойство Recoidset элемента

Data. Например,

Datal.Recordset.MoveLast Datal.Recordset.MoveNext Datal.Recordset.FindFirst

FindCriterly

Пример программы.

Модифицируем приведенную выше форму, добавив командные кнопки и текстовую

строку (рис 5 4) Свойству Visible для элемента управления Data присвоим

значение False (т е на этапе выполнения окно Data не видимо и его нельзя

использовать для диалогового доступа к базе данных) Функции движения по

записям базы данных, действии с записями, поиска программируются

процедурами обработки событии соответствующих командных кнопок Критерии

поиска требуемой записи вводится в текстовом окне, которое активизируется

командной кнопкой “Поиск” (отрицательный результат поиска также выводится в

этом текстовом окне). В процедурах используются выше рассмотренные свойства

и методы

[pic]

Процедуры обработки событий-

Option Explicit Dim Pri, Pr2 As Boolean

Private Sub Commandl Click()

If Not Datal.Recordset.EOF Then Pr2 = True

Commandl.Enabled = True Datal.Recordset.MoveNext

If Not Pri Then Pri = True: Command2.Enabled = True Else Pr2 = False

Datal.Recordset.Move Previous Commandl.Enabled = False End If End Sub

Private Sub Command2_Ciick() If Not Datal.Recordset.BOF Then Pri - True

Command2.Enabled = True Datal.Recordset.Move Previous

If Not Pr2 Then Pr2 True: Commandl.Enabled = True Else Pri - False

Datal.Recordset.MoveNext Command2.Enabled = False End If End Sub

Private Sub Command3 Click(\

Datal.Recordset.Move First

Pr2 = True

Command2.Enabled False

Commandl.Enabled - True

Pri - False End Sub

Private Sub Command4 Click(

Datal.Recordset.MoveLast

Pri = True

Commandl.Enabled = False

Command2.Enabled = True

Pr2 - False End Sub

Private Sub Command5_ClickI

Datal.Recordset.Delete

Datal.Recordset.MoveNext End Sub Private Sub Command6_Click()

Datal.Recordset.Update End Sub

Private Sub Command7_CiicK ( i

Text4.SetFocus End Sub

Private Sub Form_Load()

Pri = True

Pr2 = True End Sub

Private Sub Text4_KeyPress(KeyAscil As Integer)

Dim FindCriteriy, Poisk As Variant

If KeyAscil = 13 Then

Poisk = Text4.Text

FindCriteriy = “Name =” & “’” & Poisk & “’”

Datal.Recordset.FindFirst FindCriteriy

If Datal.Recordset.NoMatch Then Text4.Text = “Такой записи нет”

End If

End If End Sub

Примеры работы с формой показаны на рис. 5.5 — 5.7. Обратите внимание, что

элемент Data на форме не виден. При попытке удаления записи с

использованием Delete срабатывает защита целостности базы данных (выдается

окно предупреждения на рис. 5.7). База данных включает три связанные

таблицы. Удаления записи из одной таблицы, на которую ссылается запись в

другой таблице, приводит к разрушению информации.

В рассмотренных выше примерах база данных, необходимые таблицы и поля

записей определялись на этапе разработки приложения. Однако Visual Basic

позволяет открывать при работе некоторого приложения любую существующую на

компьютере базу данных, определять состав ее таблиц и записей и выводить

для анализа всю таблицу или информацию из нее по запросу (такой способ

подключения к базе данных на этапе выполнения приложения называется

динамическим доступом).

[pic]

[pic]

[pic]

Для дальнейшего изложения рассмотрим еще одно понятие—наборы (collections)

Набор — это несколько связанных объектов, для которых определены общие

свойства. Общим для всех наборов является свойство Count, определяющее

число объектов в наборе (аналогично индексации элементов массива индексы

объектов в наборе имеют значения от о до Count — 1). Обращаться к элементам

набора можно или с использованием индекса или по именам.

Например,

Datal.Recordset.Fields(“Name”)

Data 1.Recordset.Fields(0)

В первом случае используется имя “Name” для обращения к нужному объекту

набора Fields. Во втором случае используется индекс для обращения к первому

элементу этого набора.

В приведенных примерах используется уже рассмотренный способ определения

свойств одного объекта через свойства другого (объект /.свойствоА.свойствоБ

— определяет свойствоБ некоторого объекта, адресуемое через свойствоА

объекта!).

Рассмотрим некоторые наборы, объекты набора и их свойства, которые

используются для анализа структуры базы данных, подключаемой к приложению

элементом управления Data, и выбора из нее информации.

Свойство Database возвращает ссылку на базу данных, определенную элементом

управления Data. Синтаксис:

Объект. Database.

Свойство Name возвращает имя объекта. Синтаксис:

Объект.^ате. Например, для используемого выше элемента управления Data с

именем Datal выражение Datal. Database. Name определит файл базы данных

C:\VB4\BIBLIO.MBD.

Свойство RecordCount возвращает число записей объекта RecordSet или

TableDef.

TableDefs определяет набор таблиц базы данных (объект TableDef является

одной присоединенной таблицей набора). Например, выражение

Datal.Database.TableDefs.Count определит число таблиц в базе данных.

Выражение Datal. Database.Table Defs(O). Name определит имя первой таблицы

в базе данных.

Fields определяет набор полей присоединенной таблицы базы данных (объект

Field является одним элементом (полем присоединенной таблицы) из набора

полей).

Выражение Datal.Database.TableDefs(0).Fields.Count определит число полей в

первой таблице базы данных.

Выражение Datal. Database. Table Defs(l).Fields(0). Name определит имя

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10