В начало

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

 

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

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

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

 

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

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

 

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

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

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

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

 

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

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