11733

Клиентская часть: размещение не визуальных компонентов соединения с базой данных

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа №5 Клиентская часть: размещение не визуальных компонентов соединения с базой данных. Цель: закрепить практические умения и навыки управления не визуальными компонентами отображения соединения с базой данных. Закрепление навыков работы в среде п...

Русский

2013-04-10

17.34 KB

4 чел.

Лабораторная работа №5

Клиентская часть: размещение не визуальных компонентов соединения с базой данных.

Цель: закрепить практические умения и навыки управления не визуальными компонентами отображения соединения с базой данных.

Закрепление навыков работы в среде программирования Delphi.

  Выполнил: Скворцов И.А.

  Группа: 091-ПО

Преподаватель: Афанасьева Г.Ю.

      Дата:15.02.2013

Ход работы:

Создание сервера СОМ:

FileNewOther (ФайлСоздатьДругое), на вкладке ActiveX выбирал  ActiveX Library (Библиотека объектовActiveX).

Библиотека представляет собой сервер СОМ, хранящий набор объектов. В библиотеку добавим объект СОМ:

FileNewOther (ФайлСоздатьДругое), на вкладке ActiveX выбрал  COM Object. В поле ClassName ввел имя объекта «TestObj». Нажал ОК. В появившейся Библиотеке типов (Type Library) выделил строку «ITestObj» (интерфейс объекта TestObj) и создал новый МЕТОД интерфейса. В новом поле ввел название метода «GetSum». В правой части редактора перешел на вкладку Parameters (Параметры функции) и в поле «Return Type» (Тип возвращаемого значения) выбрал «integer».       Создал выходные параметры метода «а1» и «а2». В поле Type  (Тип входящих значений ) ввел «integer». Щёлкнул по кнопке «Refresh Implementation». Перешел в модуль Unit1, где хранится описание объекта «TestObj».В тело метода GetSum  добавил строку-обработчик входных параметров «а1», «а2»: «Result:=a1+a2;». Серверный объект СОМ создан. Теперь его следует зарегистрировать в Windows. RunRegister ActiveX Server. Сохранил проект в «Мои документы» в папке «COM object». FileSave All.

Создание клиента СОМ.

FileNewApplication. Сохранил сразу новый проект в «Мои документы» в папке «Client». FileSave All.

На форме разместил два компонента TEdit  и одну кнопку TButton. При нажатии на кнопку программа клиент установит связь с сервером, отправит 2 переменные и получит значение их суммы.

Для соединения c сервером СОМ у программы клиента должно быть описание самого объекта и его интерфейсов (Project2_TLB.pas). Скопировал файл  Project2_TLB.pas из папки «COM object» в папку «Client».Теперь необходимо прописать этот файл в проекте клиента. На вкладке «Project2» в разделе «uses» добавил строку: Project2_TLB in 'Project2_TLB.pas'; Теперь клиент знает о наличии соответствующего интерфейса. Чтобы программа могла использовать СОМ сервер на вкладке «Unit1» в списке подключаемых модулей указал модуль Project2_TLB. Опишем в разделе public 2 переменные «Bik1» и «Bik2». Написал обработчик щелчка по кнопке:

Bik1:=CoTestObj.Create;

Bik1.QueryInterface(ITestObj,bik2);

Showmessage(inttostr(bik2.getsum(strtoint(form1.edit1.Text),

Strtoint(form1.Edit2.Text))));

Сохранил проект ещё раз: FileSave All и скомпилировал программу (F9).

Удаление сервера СОМ

Открыл проект СОМ сервера  в «Мои документы» в папке «COM object». FileOpen Project.

Удалил его из списка зарегистрированных СОМ объектов. RunUnregister ActiveX Server.

Вывод: закрепили практические умения и навыки управления не визуальными компонентами отображения соединения с базой данных.

Закрепили навыки работы в среде программирования Delphi.


 

А также другие работы, которые могут Вас заинтересовать

79674. My university 18.07 KB
  I`d like to tell you about my university. The Krasnodar Polytechnic Institute was founded in 1930. It is one of the oldest higher educational institutions in Krasnodar.
79675. Great Britain 18.08 KB
  Winters in Gret Britin re not cold nd summers re not hot. Gret Britin is highly developed industril country. Gret Britin is country with old culturl trditions nd customs.
79676. Alfred Nobel 19.57 KB
  Most of the fmily returned to Sweden in 1859 where lfred rejoined them in 1863 beginning his own study of explosions in his fther’s lbortory.
79677. Формирование организационной культуры в Челябинской епархии 1.89 MB
  Организационная культура представляет собой опыт коллективной деятельности. А именно: опыт организации коллективной деятельности, опыт управления ею. Этот опыт может быть зафиксирован как в писаных документах, правилах, регламентах, уставах, так и в неписаных обычаях, нормах, привычках, устных преданиях и других формах регулирования поведения людей.
79678. Система нематериального стимулирования персонала для повышения эффективности работы организации 203 KB
  Сравнительный анализ российского и зарубежных опытов к мотивации персонала. Корпоративные мотиваторы. Потребности сотрудников и персональная мотивация. Внедрение поддержка и коррекция системы мотивации в компании...
79679. Технологии поиска и подбора кадров с учетом изменений по ТК РФ 1.53 MB
  Работа любой организации неизбежно связана с необходимостью комплектования штата. Отбор новых работников не только обеспечивает режим нормального функционирования организации, но и закладывает фундамент будущего успеха. От того, насколько эффективно поставлена работа по отбору персонала
79680. Технологии работы и управление персоналом 127.5 KB
  Предмет цели и задачи управления персоналом. Эволюция подходов к управлению персоналом.Особенности современного этапа эволюции управления персоналом.
79681. Технологии управления персоналом 207 KB
  Способы организации досуга персонала с. Возможные методы поощрения сотрудников со стороны организации. В этом качестве – персонала организации – они нуждаются в управлении. В современных условиях научно-технического прогресса когда технологии а вместе с ними и профессиональные навыки устаревают в течение нескольких лет способность сотрудников к постоянному совершенствованию и развитию представляет собой наиболее важный и долговременный источник повышения эффективности деятельности любой организации.
79682. Проблемы и препятствия на пути воздействия на трудовую мотивацию персонала. Пути совершенствования мотивации труда 324.5 KB
  Государственное управление заключает в себе огромный материальный и человеческий риск. Это прежде всего высокие затраты, опасность ущемления общественного благосостояния, и, вызванная последним, низкая репутация чиновничества и государства в целом в глазах общественности.