A. Глобальные переменные
Для начала определим название нашей программы. Пусть это будет приложение Microsoft Access 2000 «Новый калькулятор.mdb». Разработку его начнем с описания переменных, констант, которые потребуются при создании нашей базы данных.
appAccess – это объектная переменная, в которой мы будем создавать новую базу данных
appCM – это константа, которая управляет размером управляющих элементов в формах, отчетах. В Access элементы измеряются в твипах, а нам удобнее указывать размеры в сантиметрах, поэтому, и вводим эту переменную.
appFolder – эта переменная будет содержать главный каталог нашего приложения. Далее мы будем использовать ее для загрузки рисунков, программ, справки и других внешних элементов базы данных
B. Создание приложения
Продолжим создание приложения с разработки всех функций, которые требуются для работы базы данных. Сначала программным способом, т.е. без мастеров, создадим базу данных, затем таблицы, запросы и т.д.
Чтобы нашей программой могли воспользоваться другие пользователи, дополнительно укажем в угловых скобках номер лекции, где можно найти программу. Например, <4> будет означать, что программа описана в четвертой лекции.
С. Папка приложения
Профессионально выполненная программа всегда имеет внешние файлы, например basic-программы, рисунки *.bmp. Чтобы к ним обеспечить быстрый доступ, напишем функцию, которая будет определять папку, где установлена основная программа. Применяется эта программа для назначения данных глобальной переменной appFolder
Public appFolder As String 'Папка приложения
08.06.2000 Виктор Конюков, mailto:LiderAccess@bigfoot.com
Public Function funCreateApp() As Boolean
On Error GoTo 999 'Назначаем переход по ошибке
Set appAccess = New Access.Application ‘Создаем приложение
appFolder = funGetAppFolder ‘<1> Находим папку
funCreateDatabase "Новый калькулятор.mdb" '<2> Создаем базу данных
funCreateTable "Калькулятор" '<3>
Создаем таблицу
funCreateQueries '<4> Создаем запросы
funCreateModule '<5>
Импортируем модули
funCreateForm "Мой калькулятор” ‘<6> Создаем форму
funCreateReport "Отчет об итогах" '<7> Создаем отчет
funCreateMacro "AutoExec" '<8> Создаем макрос
funImportModule "Справка.bas", "Справка" '<9>
Создаем справку
funCreateMenu "Калькулятор" '<10> Создаем меню
funCloseDatabase "Новый калькулятор.mdb" '<2>
Закрываем программу
funCreateApp = True ‘Возвращаем значение
Exit Function 'Выходим из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
Public Function funGetAppFolder() As String
Dim fs
On Error GoTo 999 'Назначаем переход по ошибке
Set fs = CreateObject("Scripting.FileSystemObject") 'Создаем файловую систему
funGetAppFolder = fs.GetFile(CurrentDb.Name).ParentFolder 'Находим папку
Set fs = Nothing 'Уничтожаем переменную
Exit Function 'Выходим из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
