В начало

Клиент таблицы «Поставщики»

 

            Клиент должен получить доступ через сервер «Server_Postavshiki.exe» к таблице «Поставщики» базы данных «Сеть магазинов.mdb», созданной в «MS Access 2002».

            Для создания клиента в среде разработки «Дельфи 7» создаем приложение, перетаскиваем на форму компоненты: SocketConnection, DataSetProvider, DataSource, DBGrid.

Рис. 1. Расположение компонентов на форме

Рис. 1. Расположение компонентов на форме

 

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

Рис. 1. Настройка компонента «SocketConnection» в инспекторе объектов

Рис. 2. Настройка компонента «SocketConnection» в инспекторе объектов

           

            Далее настраиваем остальные свойства компонентов.

 

Компонент

Настройка, значение

SocketConnection1

Connected = False

Address = 127.0.0.1

ServerName = Server_Postavshiki.Postavshiki

ClientDataSet1

ProviderName = DataSetProvider1

RemoteServer = SocketConnection1

DataSetProvider1

Нужен до кучи

DataSource1

DataSet = ClientDataSet1

DBGrid1

DataSource = DataSource1

Button1.onClick

ClientDataSet1.Active:=True;

 

            Запускаем клиент, жмем кнопку, получаем результат.

Рис. 3. Таблица «Поставщики», полученная от сервера «Server_Postavshiki.exe»

Рис. 3. Таблица «Поставщики», полученная от сервера «Server_Postavshiki.exe»