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

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

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

Рис. 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»