Заполнение созданных таблиц БД исходными данными
Для заполнения созданных таблиц БД исходными данными выполняются следующие действия:
1. Вход в среду проектирования, выбрав пиктограмму Standard EXE.
2. В Главном меню Главной панели проекта Visual Basic 6.0 выберем опцию Add-Ins (Добавления), а в ней команду Visual Data Manager (Визуальный менеджер данных). Раскроется панель приложения VisData.
3. Выполняется последовательность команд:
File – Open Data Base – Microsoft Access
4. Открыть базу данных клавишей Открыть, предварительно выделив мышкой имя – раскрывается панель приложения VisData со структурой базы данных, включающей в себя таблицы VIP и PROD.
5. Щелчком правой клавиши мыши по таблице VIP или PROD раскрывается контекстное меню выбора опций модификаций структур таблиц базы данных. Вначале заполним таблицу VIP.
Выбрав опцию Open, раскроем окно модификаций таблиц базы данных.
6. Выбрав опцию Add модем осуществлять ввод записей – конкретных значений полей таблицы.
7. Ввод записей в создаваемую Базу Данных завершается нажатием кнопки Close.
|
|
Аналогичные действия выполняются для заполнения таблицы Spec.
Создана база данных, содержащая 2 таблицы, заполненных конкретными записями.
Чтение созданной Базы Данных
Экранная форма и ее описание
Для компоновки экранной формы были использованы следующие элементы управления окна Toolbox:
– Элементы управления Data с именами Data1 и Data2, обеспечивающий доступ к Базе Данных;
– Не входящий в базовый набор элемент управления MsFlexGrid (гибкая сетка) с именами Grid1, Grid2, Grid3, служащая для непосредственного отображения записей таблиц VIP, PROD и справок.
– Командная кнопка Command Button с именами Command1, Command2, Command3, Command4, Command5
Свойства элемента Data1:
Caption = Таблица VIP
Name = Data1
Connect = Access
RecordSource = VIP
RecordSetType=0 (из таблицы)
DataBaseName=C:\base.mdb
Caption = Таблица PROD
Name = Data2
Connect = Access
RecordSource = PROD
RecordSetType=0 (из таблицы)
DataBaseName=C:\base.mdb
Свойства элемента MSFlexGrid:
Name = Grid1
Data Source = Data1
Fixed Cols = 0
Fixed Rows = 1
Name = Grid2
Data Source = Data2
Fixed Cols = 0
Fixed Rows = 1
Name = Grid3
Data Source =
Fixed Cols = 0
Fixed Rows = 1