Курсовая работа: Разработка элементов информационной системы средствами СУБД MS Access и языка программирования VBA

Set cat = Nothing

End Sub

В результате выполнения данного программного кода таблица "TovaryADO" будет удалена.

5) Создание, изменение и выполнение запросов программными средствами

Public Sub CreateQueryDAO ()

Dim db As Database, qd As QueryDef, rs As DAO. Recordset

Set db = CurrentDb

'создаем новый запрос и сохраняем его в базе данных

Set qd = db. CreateQueryDef ("DAO-запрос (Цена >500)")

qd. SQL = "SELECT [Товар], [Категория], [Марка (производитель)], [Модель], [Цена,$] FROM [2_Товары] WHERE ([2_Товары]. [Цена,$]) >500"

'создаем набор записей на базе нового запроса

Set rs = qd. OpenRecordset (dbOpenDynaset)

Set rs = Nothing

End Sub

Результат выполнения запроса представлен на рисунке 3.2.3.

Рисунок 3.2.3-запрос, созданный программными средствами.

3.3 Разработка функций на VBA

Рассмотрим разработка функций на VBA на примере создания диалогового окна для ввода имени и пароля. При создании форм и элементов управления Access устанавливает большинству свойств значения по умолчанию. Изменим значение свойства Модальное окно (Modal) формы в диалоговом окне Свойства (Properties). Для открытия формы как диалогового окна свойству Модальное окно необходимо присвоить значение Да (Yes) до открытия формы.

Первое свойство, которое мы изменим, - это Caption. Далее присвоим свойству ScroLLBars (Полосы прокрутки) значение 0, это означает, что на форме не будет полос прокрутки. Нам необходимо изменить внешний вид формы, чтобы она была как можно больше похожа на стандартные диалоговые окна Windows. Для этого изменим на противоположные значения по умолчанию значения следующих свойств: DividingLines (Разделительные линии), NavigationButtons (Кнопки перехода), RecordSelectors (Область выделения).

Существуют такие свойства формы, которые нельзя установить из диалогового окна Свойства - они изменяются только программно. Примером такого свойства является свойство Visible (Вывод на экран), которое использовали в приведенной ниже программе. У элементов управления тоже есть свойство Visible, но его значение можно изменять не только программно, но и из окна Свойства.

Создание формы ввод пароля

Private Sub cmdOk_Click ()

Dim strFrm As String, blnOk As Boolean

strFrm = "Ввод пароля"

If Forms (strFrm). txtName = "prise" And _

Forms (strFrm). txtPassword = "3331" Then

'Имя и пароль введены верно,

'закрываем диалоговое окно

DoCmd. Close acForm, strFrm