ACCESS

Клиент к БД Должники банков

 

            Есть сервер доступа к базе данных «Должники банков», точнее к таблице «Должники».     Необходимо написать клиент для удаленного доступа к таблице «Должники» в среде разработки «Дельфи 7».

Рис. 1. Таблица «Должники»

Рис. 1. Таблица «Должники»

 

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

Рис. 2. Расположение компонентов

 

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

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

 

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

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

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

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

Procedure TForm1.Button1Click(Sender: TObject);

Begin

   ClientDataSet1.Active:=True;

End;

 

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

Рис. 4. Данные из таблицы «Должники» на Клиенте


Тиц+100  + трастовые базы гарантированное поднятия
Тиц+100 + трастовые базы гарантированное поднятия


Код для Учет финансирования объектов строит по регионам
Код для Учет финансирования объектов строит по регионам


Catsniper Trast Base 21.02.2012
Catsniper Trast Base 21.02.2012