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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 108-
finally
CloseDataSet;
end;
except
result:=false;
end;
end;
Для получения данных на сервере выполняется запрос на выборку
SELECT kod_group, name_group
FROM GROUPS
ORDER BY name_group;
который передается в компонент Queryl. Результирующий набор данных пере-
бирается в цикле while ... do и заносится в список:
ListBoxl.Items.AddObject(Queryl.Fields[1].AsString,
TObject (Queryl.Fields[0].AsInteger));
Здесь вместо ссылки на объект в свойство objects заносятся целые числа —
коды типов оборудования, над которыми выполняется преобразование типа.
Извлечь такое значение можно при помощи конструкции
Integer(ListBoxl.Items.Object[<№ элемента>])
Функция DelElement не отличается от функций, расмотренных в преды-
дущем модуле dlglib0l:
function ТflGroups.DelElement:boolean;
begin
try
result:=true;
CloseDataSet;
StoredProcl.StoredProcName: = 'del_groups';
StoredProcl.Params.Clear;
with StoredProcl.Params.CreateParam (ftlnteger,
'kod_group', ptInput)
do begin
AsInteger:=integer(ListBoxl.Items.Objects
[ListBoxl.Itemlndex]);
end;
StoredProcl.Prepare;
StoredProcl.ExecProc;
ListBoxl.Items.Delete(ListBoxl.Itemlndex);
except
result:=false;
end;
end;
Как и в функциях, созданных ранее, здесь используется класс storedProc,
выполняющий хранимую процедуру del_groups. В качестве значения пара-
метра kod_group ей передается код типа оборудования из выделенной строки в
списке. Пос ле удаления строки с этим кодом из БД она удаляется и из списка.

Страницы