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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 102-
'kol_students' , ptInput)
do begin
Groups.kol_students:= Edit2.Text;
Aslnteger := Groups.kol_students;
end;
with StoredProcl.Params.CreateParam (ftFloat,
'sredniy_ball',ptInput)
do begin
Groups.Changed:=true;
Groups.sredniy_ball:= Edit3.Text;
AsFloat := Groups.sredniy_ball;
end;
StoredProcl.Prepare;
StoredProcl.ExecProc;
except
result:=false;
end;
end;
Так как хранимая процедура принимает четыре входных параметра, то в
список Params добавляется четыре члена - kod_group, name_group, kol_
students и sredniy ball.
В момент выполнения этой функции мы полагаем, что указатель Groups
содержит ссылку на существующий экземпляр класса TGroups, откуда и берет-
ся код изменяемой группы kod_group.
Значение наименования name__group передается из Edit l. Это же значение
заносится в объект Groups, для использования в вызывающем модуле.
Значение наименования kol_students передается из Edit2 и так же зано-
сится в объект Groups.
Значение наименования sredniyball передается из Edits и заносится в
объект Groups.
Свойству changed присваивается значение true, как признак того, что дан-
ные изменились.
И, наконец, хранимая процедура get_groups, которую мы только что соз-
дали, вызывается в программе следующим образом:
function TfeGroups.GetElement: Boolean;
begin
try
result:=true;
CloseProc;
StoredProcl.StoredProcName:='get groups';
StoredProcl.Params.Clear;
with StoredProcl.Params.CreateParam(ftInteger,
1
kod_group',ptInput)
do begin
Aslnteger:=Groups.kod_group;
end;

Страницы