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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 114-
end;
{ Загрузка списка групп из базы данных
}
1***********************************************************}
function TfIGroups.LoadList;
begin
try
try
result:=true;
ListBoxl.Items.Clear;
CloseDataSet;
Queryl.SQL.Clear;
Queryl.SQL.Add('select kod_group, name_group');
Queryl.SQL.Add('from GROUPS');
Queryl.SQL.Add('order by name_group');
Queryl.Open;
while not Queryl.EOF
do begin
ListBoxl.Items.AddObject(Queryl.Fields[1].AsString,
TObject(Queryl.Fields[0].AsInteger));
Queryl.Next;
end;
btnProp.Enabled:=false;
btnDelete.Enabled:=false;
finally
CloseDataSet;
end;
except
result:=false;
end;
end;
end;
end;
I***********************************************************}
{ Функция удаления группы из базы данных
}
* **** ******** ****^**** ******** ******** ******** ******** ***}
function TfIGroups.DelElement:boolean;
begin
try
result:=true;
CloseDataSet;
StoredProcl. StoredProcName : = ' del_part__type ' ;
StoredProcl.Params.Clear;
with StoredProcl.Params.CreateParam (ftlnteger,
'equip_type_id', ptlnput)
do begin
AsInteger:=integer(ListBoxl.Items.Objects[ListBoxl.
Itemlndex]);
end;
Sto
r
ed
Pr
oc
l
.
Pr
epa
r
e;

Страницы