Реферат: Работа с базами данных через интерфейс

💣 👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

кафедра информационных технологий автоматизированных систем
«РАБОТА С БАЗАМИ ДАННЫХ ЧЕРЕЗ ВИЗУАЛЬНЫЙ ИНТЕРФЕЙС»

3. Пример приложения с компонентами
Каждый визуальный компонент имеет набор свойств, которые можно устанавливать программно или во время проектирования приложения. Для ознакомления с некоторыми визуальными элементами напишем первое простое приложение “бегущий таракан”. Создадим форму, как показано на рис.1.
На форме размещена кнопка (компонент класса CommandButton), таймер (компонент класса Timer) и рисунок (компонент класса Image). Подготовим два рисунка, которые будут сменять один другого по событию от таймера. У таймера есть свойство Interval, первоначально равное 0. В этом случае таймер не активен. Но если значение Interval равно, скажем, 200, то каждые 200 милисекунд (1 милисекунда = одной тысячной секунды) наступает событие от таймера. По событию от таймера и следует изменить рисунок таракана и переместить его вправо на небольшое расстояние, создав имитацию движения. Сначала запрограммируем кнопку следующим образом
Первая из этих команд запускает таймер, вторая – задает в свойстве Tag объекта формы номер текущего отображаемого рисунка. Теперь запрограммируем событие от таймера. Щелкнем мышью на иконке таймера дважды и напишем следующий код
Form1.Image1.Picture="d:\msdev\german\croach2.bmp"
Form1.Image1.Left=Form1.Image1.Left+10
Form1.Image1.Picture="d:\msdev\german\croach1.bmp"
Form1.Image1.Left=Form1.Image1.Left+10
Обработчик события проверяет, какая картинка загружена: if
Form1.Tag="1" then …
Если загружена первая картинка, то грузим вторую:
Form1.Image1.Picture="d:\msdev\german\croach2.bmp"
Изменяем номер загруженной картинки:
После этого смещаем картинку влево на 10 пикселей на форме:
Form1.Image1.Left=Form1.Image1.Left+10
Действия в части else симметричны. Результирующее окно программы имеет такой вид (рис.2).
Теперь отобразим окно, в котором будем изменять время движения таракана. Разместим на форме компонент Label (ярлык). Дадим ему фон цвета – желтый. Окно редактирования примет вид, показанный на рис. 3. Зададим значение свойства Alignment компонента Label1, равным Center. Запомните, для того чтобы задать то или иное свойство компонента на форме, нужно выделить его щелчком мыши и в окне свойств прописать нужное значение для этого свойства. Если окно свойств отсутствует, то щелкните на компоненте правой кнопкой мыши для открытия контекстного меню и выберите п. Properties. При установке, например, цвета фона компонента Label1, следует в окне свойств найти BackColor, выделить щелчком мыши эту строку, а затем открыть палитру цветов, нажав кнопку с многоточием в окне свойств непосредственно под закладкой Other вверху окна.
Нам следует теперь несколько изменить обработчик события от таймера:
Form1.Image1.Picture="d:\msdev\german\croach2.bmp"
Form1.Image1.Left=Form1.Image1.Left+10
Form1.Image1.Picture="d:\msdev\german\croach1.bmp"
Form1.Image1.Left=Form1.Image1.Left+10
Здесь добавлена строка Form1.Label1.Caption=TIME() для отображения времени.
Теперь зададим размер и цвет шрифта на компоненте LABEL1: FontSize=16 (размер шрифта), ForeColor – цвет шрифта. Кроме того, от времени оставим только секунды:
Form1.Image1.Picture="d:\msdev\german\croach2.bmp"
Form1.Image1.Left=Form1.Image1.Left+10
Form1.Image1.Picture="d:\msdev\german\croach1.bmp"
Form1.Image1.Left=Form1.Image1.Left+10
Попробуйте самостоятельно осмыслить текст, помещенный сразу после ключевого слова EndIf
.
Теперь сделаем следующее. Разместим на форме список с названиями тараканов. При двойном щелчке мышью на названии в списке будет производиться выдача краткой информации (названия “бегуна”) в текстовом поле (компонент TextBox) – рис.4.
Чтобы запрограммировать обработку двойного щелчка на элементе списка, следует найти событие DblClick
в окне свойств списка (List) и вписать следующий код:
form1.text1.value=form1.list1.List(form1.list1.listindex)
Номер выбранного элемента в списке задается через свойство listIndex
. Вообще, элементы списка доступны через свойство List
(
i
),
где i определяет номер элемента списка. Содержимое текстового поля доступно через свойство value
компонента TextBox
.
Добавление начальных значений в список по команде addItem
реализуется в обработчике события Init
для формы:
thisform.list1.additem("dreadfull")
Первую строку сохраним для последующих целей. Строки
thisform.list1.additem("dreadfull")
Добавляют в список новые элементы во время инициализации формы. Заметим, что их нельзя включать в обработчик события Load
для формы, т.к. при загрузке формы список программно не виден
.
Достаточный интерес представляет использование чужеродных компонентов – ACTIVEX
. Для этого воспользуемся контейнером OLEBoundControl
. Компонент OleBoundControl расположен на панели элементов управления рядом с кнопками, текстовыми полями, списками, рисунками и пр. Этот компонент предназначен для хранения в нем объекта OLE. Таким объектом может быть документ WORD, мультимедийный файл, рисунок PaintBrush и др. Компонент OleBoundControl обычно используют для отображения полей таблиц, содержащих OLE-объекты. Для того чтобы воспользоваться OleBoundControl создадим новую таблицу, в которой будет всего два поля: nickname (кличка) таракана и photo (рисунок, который мы подготовим в PaintBrush). Таблицу назовем runners (бегуны). Полю nickname при формировании таблицы в конструкторе присвоим тип Character, а полю photo – тип General. В FoxPro тип General как раз и используется для хранения OLE-объектов.
Нам нужно занести рисунки с изображениями тараканов в General-поля. Это делается следующим образом. Откроем таблицу runners командой (кнопкой) Browse. Затем дважды щелкаем по полю General в каждой записи. Откроется окно редактора. Выберем в главном меню FoxPro п. Edit, а в нем – п.Insert Object. В новом окне следует выбрать тип вставляемого объекта (если он создается впервые) и указать, является ли он новым (т.е. его требуется создать) или находится в файле. Здесь выбираем второй вариант, поэтому тип объекта указывать не надо. Следует выбрать файл со вставляемым объектом, используя кнопку Browse. Никаких других установок не производим. Отметим, что в этом окне можно установить опцию Связать
. Если это сделать, то любое изменение объекта-оригинала автоматически приведет к изменению объекта, помещенного в таблицу. Итак, после этих объяснений и предварительных действий считаем, что в таблице runners поля photo содержат рисунки с изображениями тараканов.
Разместим на форме компонент OleBoundControl (перечеркнут на рис.5).
Теперь расширим наше приложение таким образом, чтобы при выборе из списка клички, выбранная кличка отыскивалась в таблице runners и на компоненте OleBoundControl появлялся соответствующий рисунок. Для этого нужно связать компонент OleBoundControl с полем photo таблицы runners. Выделите мышью объект OleBoundControl и в окне его свойств найдите свойство ControlSource. Вручную установите в качестве значения этого свойства строку runners.photo (Рис.6).
Теперь изменим обработчик события, возникающего при выборе элемента из списка двойным щелчком мыши, следующим образом:
form1.text1.value=form1.list1.List(form1.list1.listindex)
locate for nickname=form1.text1.value
В приведенном фрагменте часть строк
сначала закрывает все открытые таблицы, а затем грузит таблицу runners в память. Команда
locate for nickname=form1.text1.value
выполняет поиск записи, где значение поля nickname совпадает с содержимым выбранного элемента списка.
проверяют, найдена ли запись, и в случае успеха обновляют содержимое компонента OleBoundControl. Обновление содержимого выполняется командой
В результате использования нового обработчика для события двойного щелчка на элементе списка будет получено окно приложения, помещенное на рис.7.
В заключение рассмотрим еще одну очень интересную возможность – использования элементов ACTIVEX, созданных в других системах программирования. Мы создадим два элемента ACTIVEX – один в DELPHI, второй – в Visual Basic. Оба эти элемента будут весьма просты и будут представлять собой кнопку, по нажатии на которую выводится сообщение “Hello To participants !!!” (“Привет участникам соревнования !!!”). Начнем с DELPHI.
Для создания ACTIVEX в DELPHI нужно создать сначала пустой проект (Application), а затем закрыть его. После этого следует в меню системы выбрать п.File, затем – New. Далее выберите закладку Other (для Delphi 7.0), а в открывшемся окне – элемент ACTIVEXFORM. Система попросит ввести имя создаваемого объекта ActiveX и имя OCX-файла (файла имплементации). Введите имя элемента ActiveTable1, а имя OCX-файла ActiveTableProj1. Нажмите кнопку OK. На экране появится обычная форма Delphi. Расположите на ней кнопку (рис.8) и запрограммируйте ее таким образом.
procedure
TActiveTable.Button1Click(Sender: TObject);
showmessage('Hello To participants !!!');
Больше делать ничего не надо. Откомпилируем этот файл. Для этой цели нажмите комбинацию клавиш CTRL
+
F
9
. Затем через меню File сохраните все с помощью пункта Save
All
. При сохранении укажите место, куда система поместит созданные файлы. Заметим, что в результате описанных действий созданный нами ACTIVEX-компонент будет также зарегистрирован в реестре с указанием места сохранения. Больше DELPHI нам не нужен. Вернемся к проекту Visual FoxPro. Наша задача – разместить созданный компонент ActiveX на форме. Для этой цели перейдем к окну дизайнера формы и в меню системы выберем пункт Tools
,
подпункт Options
. В открывшемся окне выберем закладку Controls
. После этого откроется окно диалога, где выберем окошко ActiveXControls (рис9) и найдем в списке элементов тот, который мы создали – ActiveTable.
Нажмем кнопку OK после выделения данного элемента (квадратное окошко должно быть перекрещено). Теперь на палитре элементов выберем самую правую иконку в верхнем ряду (справа от стрелки). Затем укажем ActiveX Controls (рис.10)
После этого появится окошко, показанное на рис.11. Наш элемент – единственный в среднем ряду (при наведении на элемент курсора мыши на нем появляется идентифицирующая надпись). Выберем этот элемент и прорисуем его на форме (рис.12)
Программировать этот элемент не надо. Результат, который мы достигли, показан на рис.13
Того же результата можно добиться и с помощью Visual Basic
. Используем Visual Basic 6.0.
1. Выберем при открытии главного окна Visual Basic тип проекта ActiveXControl
. Щелкните кнопку Открыть
. Появится обычная форма, такая же как и для проекта. Разместите на ней кнопку и запрограммируйте так:
2. Изменим в окне свойств проекта имя создаваемого элемента ACTIVEX и имя проекта с UserControl1 на myCTRL (Рис.14). Окно проекта расположено в правой части экрана. Щелкните правой кнопкой мыши на имени элемента UserControl1 и в контекстном меню выберите пункт Properties (свойства). В окне свойств (справа внизу) установите новое значение свойства Name – myCTRL. Аналогично измените имя проекта с Project1 на MyCTRLProj. Для этого щелкните правой кнопкой мыши на имени проекта – Project1 и в окне свойств введите новое имя -.MyCTRLProj.
2. Скопилируем ActiveX. Для этого из меню File запустим команду Make
myCTRLProj
.
ocx
.
Система запросит имя файла, в котором следует сохранить скомилированный элемент. Если сообщений об ошибке не последовало, то все закончилось успешно.
4. Созданный файл myCTRLProj.ocx подключается в проект Visual Foxpro аналогично тому, как это делали для DELPHI.
1. Пэддок Р., Петерсон Дж., Тэлмэйдж Р. Visual FoxPro 6. Разработка корпоративных приложений. М.:ДМК, 2006.-590с.
2. Фаронов В.В. Программирование баз данных в Delphi 6. – СПб., Питер,-2002. -352с.
3. Пирогов В.П. MS SQL Server 2000. Управление и программирование. – СПб. БХВ.-2005,-600с.

Название: Работа с базами данных через интерфейс
Раздел: Рефераты по информатике, программированию
Тип: реферат
Добавлен 05:52:42 23 октября 2008 Похожие работы
Просмотров: 20
Комментариев: 15
Оценило: 3 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Реферат: Работа с базами данных через интерфейс
Контрольная работа: Возрождение в Англии театр Шекспира. Скачать бесплатно и без регистрации
Реферат: Устройство ПК
Реферат: Процесс мышления. Человеческий мозг – тайна эволюции
Эссе Сигареты Официальный
Курсовая Личность Понятие Структура
Курсовая Работа На Тему Проектирование Консольного Поворотного Крана На Неподвижной Колонне
Курсовая работа по теме Динамический расчет системы автоматического управления
Реферат: Психологічна підготовка працівника МВС
Реферат: НЭП современные оценки
Реферат по теме Минеральные удобрения
Бланк Задания На Курсовую Работу
Сочинение Про Дом На Английском Кратко
Дипломная работа: Соціофункціональний аналіз лісових ландшафтів Волинської області
Реферат: Чистая монопсония
Социальные Учреждения Дипломная Работа
Курсовая работа: Адаптация. Скачать бесплатно и без регистрации
Дипломная работа по теме Институт государственных служащих в трудовом праве
Психология Отношений Реферат
Контрольная Работа На Скайсмарт Ответы
Дипломная работа по теме Формирование учебной мотивации младших школьников средствами игры во внеурочной деятельности
Реферат: Понятие, сущность, функции и формы эколого-правовой ответственности
Реферат: Денежно кредитная политика банка РФ на 2000 год
Реферат: История бизнеса на Руси