2. Этапы выполнения работы

2.1 Создание таблиц в базе данных

При создании новой БД в первую очередь следует сформировать таблиц. Для этого в окне БД необходимо выбрать вкладку Таблицы, а затем щелкнуть мышью по кнопке Создать. На экране появится окно Новая таблица. Оно содержит пять способов создания таблицы: Режим таблицы, Конструктор, Мастер таблиц, Импорт таблиц, Связь с таблицами. Последние два способа дают возможность создавать таблицы из готовых баз данных, используемых другими программами. Если же в распоряжении пользователя нет БД, близкой по структуре к создаваемой, следует воспользоваться одним из трех первых способов:

Режим таблицы предназначен для создания простых таблиц в случае, когда требуется их немедленное заполнение. Создание таблицы заключается в определении имен для полей и вводе данных. Access сам определит тип полей по виду введенной информации и сам автоматически, если это необходимо, создаст ключевое поле. Для ввода названия поля необходимо дважды щелкнуть мышью по соответствующему заголовку таблицы (например, Поле1), а затем набрать на клавиатуре нужный текст. После определения всех имен для полей производится ввод информации в саму таблицу. Для сохранения информации на диске можно использовать кнопку Сохранить на панели инструментов. При записи таблицы на диск следует указать ее имя;

Конструктор — используется как для создания, так и для изменения таблиц. При создании таблицы в этом режиме для каждого поля должны быть указаны его имя, тип, свойства. Описанная структура таблицы должна быть сохранена на диске, после чего при необходимости можно перейти в режим Таблица для ввода в таблицу данных об учетных объектах;

Мастер таблиц — позволяет создать таблицу, используя стандартный набор таблиц, входящих в состав Access. Пользователь должен определить подходящую таблицу из предложенного списка и выбрать в ней нужные поля. Если стандартное название поля не полностью соответствует решаемой задаче, то используется режим Переименовать, который позволяет ввести новое название поля. Далее Мастер таблиц в режиме диалога задаст пользователю ряд вопросов для того, чтобы выяснить, изменять ли имя таблицы, каким образом определять ключевое поле, изменять ли структуру таблицы, производить ввод данных в таблицу непосредственно или с помощью автоматически создаваемой формы.

2.2 Листинг программы Объявление переменных

Dim bd1 As DAO.Database

«bd1- база данных»

Dim r1 As Recordset

«r1- таблица “Продукция”»

Dim r2 As Recordset

«r2- таблица “Контракты”»

Dim r3 As Recordset

«r3- таблица “Заказчики”»

Dim i As Integer, j As Integer

Кнопка «Заказ»

Private Sub CommandButton1_Click()

«CommandButton - это кнопка, управляющая кнопка. При нажатии на кнопку в приложении выполняются определенные, разработчиком, действия»

CommandButton1.BackColor = vbCyan

«BackColor - цвет фона кнопки, можно выбрать из двух вкладок System или Palette. В данном случае установлен бирюзовый цвет кнопки»

CommandButton1.FontBold = True

«Font - тип шрифта, который будет установлен для текста на кнопке»

Set bd1 = OpenDatabase("C:\курсовая\база.mdb")

«OpenDatabase метод в VisualBasic для приложений позволяет открыть файл внешней базы данных и работать с объектами доступа»

Set r1 = bd1.OpenRecordset("Продукция")

«Set (оператор) - связывает ссылку на объект с переменной или свойством»

Set r2 = bd1.OpenRecordset ("Контракты")

« метод OpenRecordset служит для открытия объектов Recordset это могут быть различные таблицы и т. д.»

Set r3 = bd1.OpenRecordset ("Заказчики")

Do While Not r1.EOF

« Do While Not – это цикл совершающий свою работу до тех пор пока ложно условие»

UserForm1.ComboBox1.AddItem r1! Наименование_продукта

«загружаем значения в список из таблицы открытой ранее»

r1.MoveNext

Loop

Do While Not r3.EOF

UserForm1.ComboBox3.AddItem r3! Фирма

«действие аналогичное описанному выше»

r3.MoveNext

Loop

UserForm1.Show

«вызываем диалоговое окно»

End Sub