Разработка клиент-серверных приложений в Microsoft SQL Server 2000 и Borland Delphi 7. Семенова И.И. - 56 стр.

UptoLike

Составители: 

55
В Enterprise MANAGER
Создадим процедуру добавления разрешений в БД DB_Books в раз-
деле Stored Procedures базы данных DB_Books:
CREATE PROCEDURE grantlogin @text1 char(250)
AS
declare @SQLString nvarchar(250)
SET @SQLString = CAST( @text1 AS NVARCHAR(250) )
EXECUTE sp_executesql @SQLString
GO
В Delphi 7
7. На форму DM добавить еще одну ADOStoredProc (название по
умолчанию будет ADOStoredProc2).
У компонента ADOStoredProc2 изменить свойства:
Connection на ADOConnection1;
ProcedureName на grantlogin.
8. У компонента ADOStoredProc2 выбрать Parameters и в свойствах
каждого параметра исправить свойство Value Type на String.
9. На форме FormAdmin расположить два компонента Combobox
(например, Combobox1 и Combobox2). Рядом с компонентами типа Com-
bobox поставить элементы Label, в которых соответственно изменить
свойства Caption на «Выберите операцию» и «Выберите пользователя».
10. В список ComboBox1 занести перечень значений:
INSERT,
UPDATE,
DELETE.
11. В список ComboBox2 занести перечень значений:
Authors,
Books,
Purchases,
Deliveries,
Publishing_house.
12. На форме FormAdmin расположить компонент Edit (например,
Edit3), один компонент Button. Рядом с компонентом типа Edit поставить
элемент Label, в котором изменить свойства Caption на «Введите имя поль-
зователя, которому назначается привилегия».
13. В методе Click созданной кнопки написать:
try
dm.ADOStoredProc2.Parameters.ParamByName('@text1').Value:=
'GRANT '+ ComboBox1.Text + ' ON ' + ComboBox2.Text + ' TO ' +
Edit3.Text;
DM.ADOStoredProc2.ExecProc;
PDF created with pdfFactory Pro trial version www.pdffactory.com