ACCESS

Клиент для таблицы «Скидки»

 

            Постановка задачи: есть сервер «ServerSkidki.exe» для доступа к таблице «Скидки» базы данных «Скидки.mdb». Нужно написать клиент для удаленного доступа к таблице «Скидки» в среде разработки «Дельфи 7».

            Запускаем «Дельфи 7», создаем новое приложение, сохраняем проект под именем «KlientSkidki.dpr». На главную форму приложения перетаскиваем компоненты: SocetConnection, DataSetProvider, ClientDataset, DataSource, DBGrid. Настраиваем их.

Рис. 2. Расположение компонентов на главной форме приложения

Рис. 2. Расположение компонентов на главной форме приложения

 

            Чтобы настроить компонент «SocketConnection1» нужно запустить «scktsrvr.exe», который находится в папке «C:\Program Files\Borland\Delphi7\Bin».  Потом в настройку «Address» вписываем адрес, поскольку я использую локальный сервер, у меня будет «127.0.0.1». Можно также вместо адреса ввести в настройку «Host» имя компьютера, на котором расположен сервер. Причем в системе «Windows» вы должны находится в экаунте с администраторскими правами и сам сервер должен быть запущен, иначе его не видно в списке. Далее выбираем сервер в списке, в настройке «ServerName», он будет под именем «ServerSkidki.Skidki». Все подключились.

Рис. 3. Настройки компонента «SocketConnection

 

            У компонента «ClientDataSet1» нужно выставить настройку «RemoteServer» как «SocketConnection1», «ProviderName» как «DataSetProvider1».

            Компоненту «DataSource1» установить «DataSet = ClientDataSet1».

            А у компонента «DBGrid1» установить «DataSource = DataSource1».

            Теперь, если установить свойство «Active = True» компонента «ClientDataSet1», то мы можем получить данные. Это лучше сделать разместив код на кнопке.

Procedure TForm1.Button1Click(Sender: TObject);

Begin

   ClientDataSet1.Active:=True;

End;

 

            Далее запускаем клиент, жмем кнопку и получаем данные.

Рис. 4. Чтение таблицы «Скидки»

Рис. 4. Чтение таблицы «Скидки»


ШОК! 15 ценных баз для Allsubmitter
ШОК! 15 ценных баз для Allsubmitter


Доменные имена. Списки доменов COM NET ORG BIZ INFO US
Доменные имена. Списки доменов COM NET ORG BIZ INFO US


База данных предприятий Йошкар-Ола (6463 адресов)
База данных предприятий Йошкар-Ола (6463 адресов)