Работа с базами данных через интерфейс (стр. 2 из 2)

Рис.8

procedure TActiveTable.Button1Click(Sender: TObject);

begin

showmessage('Hello To participants !!!');

end;

Больше делать ничего не надо. Откомпилируем этот файл. Для этой цели нажмите комбинацию клавиш CTRL+F9. Затем через меню File сохраните все с помощью пункта Save All. При сохранении укажите место, куда система поместит созданные файлы. Заметим, что в результате описанных действий созданный нами ACTIVEX-компонент будет также зарегистрирован в реестре с указанием места сохранения. Больше DELPHI нам не нужен. Вернемся к проекту Visual FoxPro. Наша задача – разместить созданный компонент ActiveX на форме. Для этой цели перейдем к окну дизайнера формы и в меню системы выберем пункт Tools, подпункт Options. В открывшемся окне выберем закладку Controls. После этого откроется окно диалога, где выберем окошко ActiveXControls (рис9) и найдем в списке элементов тот, который мы создали – ActiveTable.

Рис.9

Нажмем кнопку OK после выделения данного элемента (квадратное окошко должно быть перекрещено). Теперь на палитре элементов выберем самую правую иконку в верхнем ряду (справа от стрелки). Затем укажем ActiveX Controls (рис.10)

Рис.10 Рис.11

После этого появится окошко, показанное на рис.11. Наш элемент – единственный в среднем ряду (при наведении на элемент курсора мыши на нем появляется идентифицирующая надпись). Выберем этот элемент и прорисуем его на форме (рис.12)

Рис.12

Программировать этот элемент не надо. Результат, который мы достигли, показан на рис.13

Рис.13

Того же результата можно добиться и с помощью Visual Basic. Используем Visual Basic 6.0.

1. Выберем при открытии главного окна Visual Basic тип проекта ActiveXControl. Щелкните кнопку Открыть. Появится обычная форма, такая же как и для проекта. Разместите на ней кнопку и запрограммируйте так:

Private Sub Command1_Click()

MsgBox "Hello to participants"

End Sub

2. Изменим в окне свойств проекта имя создаваемого элемента ACTIVEX и имя проекта с UserControl1 на myCTRL (Рис.14). Окно проекта расположено в правой части экрана. Щелкните правой кнопкой мыши на имени элемента UserControl1 и в контекстном меню выберите пункт Properties (свойства). В окне свойств (справа внизу) установите новое значение свойства Name – myCTRL. Аналогично измените имя проекта с Project1 на MyCTRLProj. Для этого щелкните правой кнопкой мыши на имени проекта – Project1 и в окне свойств введите новое имя -.MyCTRLProj.

Рис.14

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с.