3. Выборка данных:

DECLARE @@Str1 char (5),

@@VFName varchar (20),

@@VLName varchar (40),

@@VPhone char (12),

@@ VTitle varchar (80),

@@VPrice money,

@@VAdrance money,

@@VSales int,

@@Count1 timyint,

@@Var1 money

SET @@Count = 1

SET @@Var1 = 0

WHILE @@Count1 <@@CURSOR_ROWS BEGIN

IF @@Count = 1

FETCH ABSOLUTE 1 FROM CURS INTO @@VFName,

@@VLName, @@VPhone, @@VTitle, @@VPrice,

_{@@VAdrance, @@VSales}

ELSE

FETCH curs INTO @@VFName,

@@VLName, @@VPhone, @@VTitle, @@VPrice,

@@VAdrance, @@VSales

SET @@Count1 = @@Count1+1

SET @@Var1 = @@Var1+@@Vprice*@@VSales-@@VAdrance

END

SELECT ‘Итого прибыли:’, @@Var1

4. Закрытие и освобождение курсора: CLOSE curs

DEALLOCATE curs.

Лабораторная работа №16

Реализация клиентских приложений баз данных

Цель работы – изучить методы создания и использования клиентских приложений для работы с базами данных SQL Server 2000. На примере создания приложения в среде Delphi 6, с использованием sql-запросов (команд), имеющихся в языке Transact-SQL для управления данными SQL Server 2000.

Серверы технологических данных обеспечивают обмен информацией между технологическими устройствами и сетью персональных компьютеров. Они поддерживают протокол работы с технологическими устройствами и протокол работы с сетью персональных компьютеров. Данные о текущих параметрах технологического процесса могут быть использованы для контроля состояния технологического процесса и управления им с автоматизированных рабочих мест операторов; для архивирования истории изменения технологических параметров; для формирования суммарных отчётных форм с целью предоставления информации руководящему персоналу.

_{Язык запросов Transact – SQL является основой системы программирования SQL Server}

2000.

_{Система программирования SQL Server 2000 относится к классу командно –}

интерпретирующих систем сверхвысокого уровня.

SQL Server 2000 обеспечивает разнообразные механизмы управления данными, такие как ADO, OLE DB, ODBC, DB- Library и команды языка Transact-SQL, являющегося фундаментом всех остальных технологий.

Компоненты среды Delphi 6 для связи с SQL Server 2000

_{Компонент ADO-Таблица (TADOTable)}

_{Назначение}

Для доступа к конкретной таблице базы данных используется этот компонент. Он напоминает компонент Таблица (ТТаblе).

_{Использование}

Прежде всего в свойстве Connection в раскрывающемся вписке выбирается доступный объект класса TADOConnection, cсвязывающий SQL-таблицу приложения с конкретной таблицей

базы данных, а затем в свойстве TableName выбирается нужная таблица (Num_pod). Есть еще один способ соединения с базой данных это свойство ConnectionString,

После нажатия кнопки Build

выбираем провайдера и нажимаем Next

в этом окне вводим имя сервера и выбираем базу данных (созданную заранее см.

предыдущие лабораторные работы).

Список доступных пользователю полей этой таблицы формируется с помощью стандартного редактора коллекций, вызываемого двойным щелчком на размещенном на форме объекте TADOTable (вся работа с коллекцией полей ведется с помощью контекстного меню).

После этого свойство Active можно установить равным true, чтобы сделать таблицу активной. Для связи таблицы с визуальными элементами служит стандартный компонент

источник данных (TDataSource). В его свойстве DataSet просто указывается соответствующий набор данных — в нашем случае таблица ADOTablel.

Добавим к форме два компонента, предназначенные для визуализации содержимого таблицы: Навигатор (TDBNavigator), для отображении таблицы - TDBGrid,. В них указывается источник данных (свойство DataSource). Теперь приложение полностью в работоспособно. Его можно запустить и пробежаться по всем записям таблицы.