ребят еще вопрос.
Код:
procedure TPodrazdeleniyaForm.N2Click(Sender: TObject);
var
bm:string;
begin
if application.MessageBox(pchar('Перевести в архив подразделение - '+dm.ADODSnamename.AsString+' ?'),'Внимание',mb_yesno) = idyes then
begin
bm:=dm.ADODSname.Bookmark;
dm.ADODSname.Edit;
dm.ADODSnamearch.AsInteger:=1;
dm.ADODSname.Post;
reset;
dm.ADODSname.Bookmark:=bm;
end;
end;
Админ: Пользуемся тегами для оформления кода!
процедура перевода в архив. как написать обратную процедуру? т.е вывода из архива. при смене 1 на 0, выделение элемента красным цветом пропадает (архивные красного), но элемент все еще считается архивным и при "скрыть архивные" скрывается