p align="left">3. Создание базы данных Среда Visual Basic 6.0 предоставляет пользователю возможность создавать Базы данных в формате системы Microsoft Access, которую относят к категории районных СУБД. Для создания Базы данных используется специальная надстройка Visual Basic-Manager (Визуальный менеджер данных), которая использует ядро системы Access, поддерживающееся в VB. Для создания Базы данных понадобится окно формирования новой таблицы данных (Table Structure). Для этого в Главном меню Главной панели проекта Visual Basic 6.0 выберем опцию Add-lns (Добавления), а в ней команду Visual Data Manager (Визуальный менеджер данных). Раскрывается панель приложения VisData. Выбираем меню File панели приложения VisData и команду New. В раскрывшемся окне выбираем в качестве типа создаваемой базы данных Microsoft Access, а во втором подменю Version 7.0 MDB. Раскроется окно создания нового файла базы данных Microsoft Access. В окне Имя файла укажем имя каталога, в котором будет храниться создаваемая база (иначе, имя созданной базы, в нашем случае - Студенты). В любом месте окна Database Window необходимо щёлкнуть правой клавишей мыши. В появившемся меню выберем команду New Table. Раскроется панель Table Structure - структура таблицы. Приступаем к проектированию структуры таблицы VIP. Проектирование структуры таблицы VIP 1 В поле Table Name вводится имя проектируемой таблицы - VIP 2 Кнопкой Add Field на панели Table Structure раскрывается диалоговое окно Add Field 3. С помощью диалогового окна Add Field осуществляется поочередный ввод характеристик всех полей создаваемой таблицы - вводятся имена полей, их типы и размеры. После ввода сведений о каждом поле создаваемой таблицы щёлкается кнопка ОК. размещённая на окне Add Field. 4. по окончании ввода всей информации последнего поля создаваемой таблицы щёлкается кнопка Close диалогового окна Add Field - окно закрывается. 5. Восстанавливается панель Table Structure со списком полей создаваемой таблицы. 6. для завершения процесса проектирования текущей таблицы создаваемой база данных щёлкается кнопка Build the Table (Сформировать таблицу) на панели Table Structure, что приводит к закрытию окна и возврату к панели приложения с окном Database Window, в котором представлена создаваемая база данных, пока включающая только одну таблицу VIP. Вторая таблица PROD создается аналогично таблице VIP Создана база данных Продукция, включающая две таблицы VIP и PROD. Диалоговое окно Add Filed, предназначенное для создания полей таблицы Панель Table Structure со списком полей в окне Field List создаваемой таблицы VIP Заполнение созданных таблиц БД исходными данными Для заполнения созданных таблиц БД исходными данными выполняются следующие действия: 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 таблицы, заполненных конкретными записями. 4. Чтение созданной Базы Данных 4.1 Экранная форма и ее описание Для компоновки экранной формы были использованы следующие элементы управления окна 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 4.2 Экранная форма в исходном состоянии 5. Обработка Созданной Базы Данных 5.1 Выполнение запроса по таблице VIP Справка 1: Виды продукции, фактический выпуск которых монотонно возрастает по кварталам. Записи справки упорядочить по возрастанию номеров цехов. Макет справки 1. |
Шифр продукции | Наименование цеха | Фактический выпуск по кварталам | | | | 1_й кв | 2_й кв. | 3_й кв. | 4_й кв. | | | | | | | | | |
5.1.1 Алгоритм Запроса 1 (справки 1) по таблице VIP 5.1.2 Экранная форма (интерфейс) и её описание Для компоновки Экранной формы были использованы следующие элементы управления окна Toolbox: Элемент управления Data с именем Data1, обеспечивающий доступ к базе данных Элемент управления Data с именем Data2, обеспечивающий доступ к базе данных Не входящий в базовый набор элемент управления MSFlexGrid с именем Grid1 и Grid2, служащие для непросредственного отображения записей таблицы VIP и PROD; Командные кнопки Command Button с именами Command1, Command2, Command 3, Command 4, Command5 предназначенные для вывода справок и выхода из программы. Свойства элемента Data1: Caption = Таблица VIP Name = Data1 Connect Access RecordSource =0 DataBaseName = C:\base.mdb Свойства элемента Data2: Caption = Таблица PROD Name = Data2 Connect = Access RecordSource = Spec RecordSetType = 0 DataBaseName = C:\base.mdb Свойства элементов MSFlexGrid: Name = Grid1 Fixed Cols = 0 Fixed Rows = 1 DataSource = Data1 Name = Grid2 Fixed Cols = 0 Fixed Rows = 1 DataSource = Data2 Name = Grid3 Fixed Cols = 0 Fixed Rows = 1 Visible = False 5.1.3 Программа запроса по таблице VIP Private Sub Command1_Click() Dim I%, K%, Kz%, T%, H%, J%, Zeh% Dim P As String Dim Cn As String grid3. Visible = True Data1. Visible = False Data2. Visible = False Data1. Recordset. MoveFirst grid3. Rows = 1: grid3. Cols = 6 For I = 0 To 1 'Дадим названия полей из таблицы БД полям в гибкой сетке grid3. TextMatrix (0, I) = Data1. Recordset. Fields(I).Name Data1. Recordset. MoveFirst Next I For I = 6 To 9 grid3. TextMatrix (0, I - 4) = Data1. Recordset. Fields(I).Name Data1. Recordset. MoveFirst Next I For I = 1 To Data1. Recordset. RecordCount 'Отбор продуктов, факт. выпуск которых равномерно возрастал If Data1. Recordset. Fields(6).Value < Data1. Recordset. Fields(7).Value And Data1. Recordset. Fields(7).Value < Data1. Recordset. Fields(8).Value And Data1. Recordset. Fields(8).Value < Data1. Recordset. Fields(9).Value Then grid3. Rows = grid3. Rows + 1: Kz = grid3. Rows - 1 For L = 0 To 1 grid3. TextMatrix (Kz, L) = Data1. Recordset. Fields(L).Value Next L For L = 6 To 9 grid3. TextMatrix (Kz, L - 4) = Data1. Recordset. Fields(L).Value Next L End If Data1. Recordset. MoveNext Next I grid3. Col = 1 'Выберем колонку для сортировки grid3. Sort = 1 'Сортируем строчки по нисходящей End Sub Экранная форма в исходном состоянии 5.1.4 Экранная форма с выходными результатами 5.2 Выполнение Запроса 2 (справки 2) по таблице PROD Справка 2. Виды продукции, имеющие сертификат качества. Названия которых начинается с букв от «Г» до «Т». |
Шифр продукции | Наименование продукции | Наличие сертификата качества | | | | | | |
5.2.1 Алгоритм Запроса 2 (справки2) по таблице PROD
5.2.2 Экранная форма и ее описание Для компоновки экранной формы были использованы следующие элементы управления окна Toolbox: - Элементы управления Data с именами Data1 и Data2, обеспечивающий доступ к Базе Данных; - Не входящий в базовый набор элемент управления MsFlexGrid (гибкая сетка) с именами Grid1, Grid2, Grid3, служащая для непосредственного отображения записей таблиц VIP, PROD и справок. - Командная кнопка Command Button с именами Command1, Command2, Command3, Command4, Command5
Страницы: 1, 2, 3
|