Создание клиентского приложения (Delphi)
4.1 Интерфейс доступа к данным (ADO+OLE DB)
При создании контекстного приложения средствами Borland Delphi необходимо выполнить следующие настройки для компонент ADO Connection и ADO Query.
Сначала настроим свойства компоненты ADO Connection. В закладке Connection определяем сервер – local, указываем имя пользователя – sa, пароль (если необходимо), выводим нужную базу данных на сервере – biblioteka.
Затем в закладке Provider определяем место назначения, которое остаётся по умолчанию Microsoft OLE DB Provider for SQL Server.
Свойства компоненты ADO Connection настроены:
Таким же образом настраиваем свойства компоненты ADO Query:
Свойства компоненты ADOQuery настроены:
После настройки свойств компонент и подключении базы данных к серверу размещаем на форме объекты, необходимые для создания простейшего приложения. Это две кнопки - Запуск и Выход (см. Приложение Б). При нажатии на кнопку Запуск таблица базы данных «biblioteka» сгенерируется в HTML – документ (см. Приложение Г, Д).
Пользователями данного приложения являются системный администратор и библиотекарь. Администратор может производить любые действия над базой. Библиотекарь же имеет доступ к базе данных, но не имеет возможности её редактирования (удалять, изменять, добавлять записи).
Для отчёта создаём процедуру report в Query Analyzer:
create procedure report
as
exec sp_makewebtask 'C:\bibl.html','select * from biblioteka.dbo.table2'
exec sp_depends report
После применения данной процедуры SQL Server выдал сообщение, что процедура не содержит никаких ссылок на другие объекты, и никакие объекты не ссылаются на неё.
Изменим процедуру с помощью alter:
alter procedure report
as
exec sp_makewebtask 'C:\bibl.html','select * from biblioteka.dbo.table1'
Ниже приведён программный код сгенерированного HTML – документа, при нажатии на кнопку Запуск:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close();
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('exec sp_makewebtask '+''''+'C:\1.html'+''''+','+''''+'select * from biblioteka.dbo.table1'+''''+'');
ADOQuery1.ExecSQL;
end;
end.
При нажатии на кнопку Выход:
procedure TForm1.Button2Click(Sender: TObject);
begin
CLOSE;
end;
end
ПРИЛОЖЕНИЯ
ПРИЛОЖЕНИЕ А
Table1
Name DataType Size
Literatura char 40
God_isd char 5
Isdatel char 25
N_toma decimal 5
Vid_isd char 8
Cod_avtora int 4
Nalich bit 1
Table2
Name DataType Size
Cod_avtora int 4
Avtor char 20
Table3
Name DataType Size
Fam char 30
Name_otch char 5
Literature char 200
Data_vidachi smalldatatime 4
Data_vosvrata smalldatatime 4
Cod_fam int 4
Table4
Name DataType Size
Data_vidachi datatime 8
Data_vosvrata datatime 8
Table5
Name DataType Size
Fam char 30
Name char 20
Otch char 30
B_day smalldatatime 4
Seria_pas char 4
Num_pas char 10
Pas char 50
Data_pas smalldatatime 4
Address char 50
Telefon char 10
Cod_fam int 4
Структура таблиц
ПРИЛОЖЕНИЕ Б
Связи между таблицами
ПРИЛОЖЕНИЕ В
Создание формы простейшего приложения
Экранная форма
ПРИЛОЖЕНИЕ Г
Пример выходного документа
ПРИЛОЖЕНИЕ Д
Пример выходного документа
Список, используемой литературы:
Администрирование Microsoft SQL Server 2000. Учебный курс MCSA / MCSE, MCDBA.-Москва: Русская Редакция 2003.
Мамаев Е. В. Microsoft SQL Server 7.0:проектирование и реализация баз данных. – СПб.: БХВ – Санкт-Петербург, 2000. – 416 с.