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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 103-
StoredProcl.Params.CreateParam(ftString,
'name_group',ptOutput);
StoredProcl.Params.CreateParam(ftInteger,
'kol_students',ptOutput);
StoredProcl.Params.GreateParam(ftFloat,
'sredniy_ball',ptOutput);
StoredProcl.Prepare;
StoredProcl.ExecProc;
Groups . name__group: =Trim( StoredProcl. Params [1 ] . AsString) ;
Editl.Text:=Groups.name_group;
Groups.kol_students:=Trim(StoredProcl.Params[2].Asnteger);
Edit2.Text:=Groups.kol_students;
Groups.sredniy_ball:=Trim(StoredProcl.Params[3].AsFloat);
Edit3.Text:=Groups.sredniy_ball;
except
result:=false;
end;
end;
Кроме входного параметра kod_group, здесь создаются выходные пара-
метры
StoredProcl.Params.CreateParam(ftString,'name_group',ptOutput);
StoredProcl.Params.CreateParam(ftInteger, 'kol_students ' ,
ptOutput);
StoredProcl.Params.CreateParam(ftFloat,'sredniy_ball',
ptOutput);
После выполнения процедуры результат (наиме нова ние группы,
количест-
во студентов в группе и средний балл группы) помещается в объект
Groups, a
также в поля Editl, Edit2, Edit3 для редактирования.
Groups.name_group:=Trim(StoredProcl.Params[1].AsString);
Editl.Text:=Groups.name_group;
Groups.kol_students:=Trim(StoredProcl.Params[2].Asnteger);
Edit2.Text:=Groups.kol_students;
Groups.sredniy_ball:=Trim(StoredProcl.Params[3].AsFloat);
Edit3.Text:=Groups.sredniy_ball;
Операция удаления пробелов Trim здесь необходима, так как хранимая
процедура возвращает результат со всеми пробелами.
Процедуры, экспортируемые из DLL. Теперь займемся процедурами, ко-
тор ые будут экспортироваться из DLL и вызываться другими модулями. Таких
процедур мы определили тр и:
procedure CreateElemDlg (Handle:Thandle; p:pointer);
procedure SetElemConnection(const DBHandle:HDBIBB);
procedure ShowElemDlg (const Dl-gMode : boolean) ;
Первые две процедуры не содержат ничего нового - здесь производилось
создание диалогового окна и подключение к БД, как показано в следующих
двух листингах:

Страницы