Объектно-ориентированный подход в программировании. Проектирование и реализация приложений в среде Microsof Office. Евсеева О.Н. - 139 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

2.8. Пример разработки приложения 140
140
проекта в таблице и добавляет название в поле со списком ProjPlanList, а
код шаблона проекта в массив ItemData в списке ProjPlanList.
Sub Form_Load()
Dim sql As String ' строка для хранения операторов SQL
Dim dbProjPlans As snapshot ' таблица
Шаблон
Dim visioLoaded Аs Integer
Rem Открыть базу данных
Set gDB = Open DataBase(App.Path & "\" & gDBname)
Rem Получить шаблоны проектов
aql = "Select * From [Шаблон] Order by Название"
Set dbProjPlans = gDB.CreateSnapshot(sql)
Rem Загрузить имена шаблонов проектов в комбинированный список
Do While Not dbProjPlans.EOF
ProjPlanList.AddItem dbProjPlans![Название]
ProjPlanList.ItemData(ProjPlanList.NewIndex) = _
dbProjPlans![КодШаблона]
dbProjPlans.MoveNext
Loop
End Sub
Цель метода ProjPlanList_Click состоит в активизации кнопки
Генерация
, позволяющей пользователю начать генерацию сетевого графика.
Первоначально эта кнопка недоступна, чтобы пользователь не мог начать
генерацию PERT-схемы до выбора нужного шаблона проекта из списка. Если
значение свойства ListIndex в ProjPlanList равно нулю или больше,
пользователь выбрал шаблон.
Sub ProjPlanList_Click()
If ProjPlanList.ListIndex > -1 Then
Generate.Enabled = True
Else
Generate.Enabled = False
End If
End Sub
Метод Exit_Click отслеживает процесс запуска копии Visio, и если этот
процесс продолжается, пытается его прервать. Переменная g_appVisio,
является глобальной переменной, объявленной в VISREG.BAS для хранения
объекта-приложения Visio. Условие If проверяет значение этой переменной, и
если оно равно True, посылает команду quit. Если есть не сохраненные
сетевые графики, Visio предлагает пользователю сохранить их перед выходом.
Оператор End останавливает работу VB приложения:
Sub Exit_Click()
If Not (g_appVisio Is Nothing) Then g_appVisio.quit

Страницы