Использование элементов управления при проектировании форм приложения
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
ляют данные на сервере:
Pub_titles ONLINE
TABLEUPDATE(.T.)
Узнать, какой режим используется для работы с внешним представлением, можно с помощью функции DBGETPROP(). Так, в нашем примере, следующая команда вернет .Т.:
? DBGETPROP("Pub_titles", "VIEW", "Offline")
Для перехода в режим работы обычного представления необходимо выполнить функцию DROPOFFLINE() с указанием имени представления. Перед выполнением этой функции необходимо закрыть представление. Например:
USE
DROPOFFLINE("Pub_titles")
После выполнения функции таблица на локальном компьютере будет стерта, и данные в дальнейшем будут извлекаться с сервера
7. Вопросы для защиты лабораторной работы
1)Какие преимущества имеет архитектура "клиент-сервер" в использовании технологии обработки данных средствами СУБД?
)Что такое технология Open Database Connectivity (ODBC)? Какие основные компоненты входят в ее состав?
3)Какие необходимые условия требуется соблюдать для создания удаленного представления (Remote Views)?
4)Какие установки требуется выполнить для передачи данных из внешнего представления в исходную таблицу .XLS?
5)Что такое независимые представления? Каков механизм работы с ними?
8. Коллекции объектов. Управление объектами Excel
Практическое использование теоретических знаний по работе с коллекцией объектов при проектировании пользовательского приложения.
Коллекции объектов - это набор объектов, имеющих общие свойства, события и методы, что позволяет сослаться на них на единый объект.
Объекты коллекции позволяют значительно проще выполнять многие распространенные действия с прикладной программой. Например, для выполнения действий с каждым объектом в коллекции можно использовать операторы цикла:
*Организуем ссылку на запущенное приложение
oExlApp = GETOBJECT(,"Excel.Application")= 1
*Определяем сколько открытых книг
nCount = oExlApp.Application.WorkBooks.Count
FOR nWrk = 1 TO nCount * Выведем наименование каждой рабочей книги ? oExlApp.Application.WorkBooks.Item(nWrk).FullName
NEXT
* Закроем приложение oExlApp.Application.Quit
Для запуска примера необходимо загрузить Excel и открыть рабочие книги. Для ссылки на первую рабочую книгу в коллекции можно использовать: oExlApp.Application.WorkBooks.Item(1)
Закрыть первую книгу в коллекции oExlApp.Application.WorkBooks.Item(1).Close
В свою очередь каждая рабочая книга содержит коллекцию рабочих листов, каждый рабочий лист - коллекцию ячеек и т.д. Сослаться на ячейку A1 можно следующим образом: oExlApp.Application.WorkBooks.Item(1). Worksheets.Item(1).Cells.Item(1,1)
При работе с коллекцией необходимо знать и соблюдать правила, чтобы иметь возможность "спускаться вниз" по иерархии объектов.
При использовании OLE Automation важным понятием является понятие объектов верхнего уровня. В каждом приложении объекты верхнего уровня позволяют ссылаться на них из другой программы.
Ссылка на вновь создаваемый объект OLE Automation в программе Visual FoxPro 5.0 выполняется с помощью функции CREATEOBJECT(). Если OLE-объект уже существует, получить на него ссылку можно с помощью функции GETOBJECT(). Например:
oSht = GETOBJECT("D:\VFPro\продажи.XLS","EXCEL.SHEET")
При использовании OLE Automation установка SET OLEOBJECT, которая определяет, будет ли Visual FoxPro проводить поиск в регистре Windows, должна быть включена.
Любая из двух приведенных ниже строк выполнит запуск копии Excel в скрытом виде:
oApp = CREATEOBJECT("EXCEL.APPLICATION")= GETOBJECT(" ","EXCEL.APPLICATION")
Следующий пример использования функции обеспечит ссылку на текущее приложение Excel. Если же Excel не загружен, будет сгенерировано сообщение об ошибке.
oApp = GETOBJECT(,"EXCEL.APPLICATION")
< Пример 1: Создание нового рабочего листа в запускаемой невидимой копии Excel и заполнение его цифрами. Созданная таблица сохраняется в файле TEMP.XLS в каталоге, установленном по умолчанию для Excel.
объект Sheet:
= CREATEOBJECT("EXCEL.SHEET")nVal = 1 TO 10.Worksheets.Item(1).Cells.Item(nVal, nVal).Value = nVal * nVal
ENDFOR
Для просмотра результата и сохранения файла:
oExlSheet.Application.Visible = .T..SaveAs("TEMP.XLS")
< Пример 2: Создание ссылки на первый рабочий лист в файле продажи.XLS. Файл в данном случае должен располагаться в каталоге, указанном по умолчанию для приложения, использующего OLE Automation, иначе необходимо указать путь к нему. В этот файл, содержащий результаты расчетов, заносим новые данные и сохраняем их, а затем выводим результат вычислений на экран.
oExlSheet = GETOBJECT("продажи.XLS", "EXCEL.SHEET").Worksheets.Item(1).Range("G2").Value = 16.Worksheets.Item(1).Range("G3").Value = 10.Parent.Save
? oExlSheet.Worksheets.Item(1).Range("G4").Value
< Пример 3: Создание нового рабочего листа с диаграммой. Сначала идет заполнение необходимыми данными второго рабочего листа, на котором размещаются данные. Затем, с помощью метода ChartWizard, обновляем диаграмму на первом рабочем листе. В ChartWizard из большого числа параметров указываем только область данных и условие построения диаграммы по колонкам. Остальные параметры принимают значение по умолчанию. После этого выводим Excel на экран и используем команду WAIT для того, чтобы рабочая книга не была выгружена после завершения работы программы.
*объект Chart= CREATEOBJECT("EXCEL.CHART")
*Стираем данные по умолчанию на раб. листе со значениями
oExlChart.Parent.Sheets(2).Range("A1:D10").Clear nVal = 1 TO 10 *Заполняем таблицу новыми значениям
oExlChart.Parent.Sheets(2).Cells(nVal,1).Value = nVal.Parent.Sheets(2).Cells(nVal,2).Value = nVal* nVal
NEXT
* Строим график по новым значениям по колонкам
oExlChart.ChartWizard(oExlChart.Parent.Sheets(2).Range("A1:B10"),,,2)
*Просмотр результата.Application.Visi