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. Чтение таблицы «Скидки»


Коллекция баз данных сайтов для поднятия тиц
Коллекция баз данных сайтов для поднятия тиц


База доменов (сайтов) на Bitrix CMS (от 30 Июля)
База доменов (сайтов) на Bitrix CMS (от 30 Июля)


MySql база данных характеристик плазменых панелей
MySql база данных характеристик плазменых панелей