Базы данных и знаний. Проектирование баз данных по технологии "клиент-сервер" и разработка клиентских приложений. Токмаков Г.П. - 101 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

- 101-
function TfeGroups.InsElement : Boolean;
begin
try
result : =true;
CloseProc;
StoredProcl . StoredProcName : = ' ins_groups ' ;
StoredProcl . Params . Clear;
with StoredProcl. Params .CreateParam (ftString, ' name_group ' ,
ptlnput)
do
begin
Groups . name_group := Editl.Text;
AsString := Groups . name_group ;
end;
StoredProcl . Prepare;
StoredProcl . ExecProc;
except
result : =false ;
end;
end;
Имя хранимой процедуры задается при помощи свойства StoredProcName :
StoredProcl . StoredProcName : =' ins_part__type' ;
Затем очищаются все параметры, и в список параметров добавляются па-
раметр name_group, значение которого берется из поля ввода Ed it l. Пос ле это-
го производится подготовка и собственно выполнение хранимой процедуры.
Функция InsElement возвращает результат выполнения процедуры true,
если выполнение прошло успешно и false в случае возникновения исключе-
ния.
Точно так же выглядит функция модификации данных upd_element :
function TfeGroups . UpdElement : Boolean;
begin
try
result : =true;
CloseProc;
StoredProcl . StoredProcName : = ' upd_groups ' ;
StoredProcl. Params .Clear;
with StoredProcl . Params . CreateParam (ftlnteger,
' kod_group ', ptlnput )
do begin
Aslnteger := Groups . kod__group;
end;
with StoredProcl . Params . CreateParam (ftString,
'name_group' , ptlnput)
do begin
Groups . name_group := Editl.Text;
AsString := Groups. name group;
end;
with StoredProcl . Params . CreateParam (ftlnteger,

Страницы