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

UptoLike

ВУЗ: 

СибАДИ | Омск

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

Рубрика: 

55
Создадим процедуру добавления логина в БД DB_Books в разделе
Stored Procedures базы данных DB_Books, используя утилиту Management
Studio:
CREATE PROCEDURE addlogin1 @login_ char(15), @password1 char(15)
AS
exec sp_addlogin @login_,@password1, 'DB_Books'
exec sp_adduser @login_,@login_
GO
В Delphi 7
1. В проекте, который был создан в лабораторной работе №5, на фор-
му DM добавим компонент ADOStoredProc (название по умолчанию будет
ADOStoredProc1).
У компонента ADOStoredProc1 изменить свойства:
Connection на ADOConnection1;
ProcedureName на addlogin1.
2. У компонента ADOStoredProc1 выбрать Parameters и
в свойствах
каждого параметра исправить свойство Value – Type на String.
3. Добавить на основной форме (Form1) в меню пункт с названием
Администрирование. Создать форму FormAdmin, которая будет запус-
каться из пункта меню Администрирование основной формы. В главной
форме, в коде добавить описание формы FormAdmin, для этого после
ключевого слова USES в конце списка через запятую дописать
название
программного модуля, которое соответствует созданной форме. В создан-
ной форме в коде добавить описание модуля DM, для этого после ключе-
вого слова USES в конце списка поставить запятую и дописать название
программного модуля, например UNIT2, который соответствует созданной
форме DM.
4. На форме FormAdmin расположить два компонента Edit (напри-
мер, Edit1 и Edit2), один компонент Button. Рядом с
компонентами типа
Edit поставить элементы Label, в которых соответственно изменить свой-
ства Caption на «Введите имя нового пользователя» и «Введите пароль».
5. В методе Click созданной кнопки написать:
try
dm.ADOStoredProc1.Parameters.ParamByName('@login_').Value:=
Edit1.Text;
dm.ADOStoredProc1.Parameters.ParamByName('@password1').Value:=
Edit2.Text;
DM.ADOStoredProc1.ExecProc;
except
ShowMessage(‘Невозможно добавление пользователя’);

Страницы