[Kis]

Ребят, помогите плиз. есть 2 программы "табель" и "персонал" (по разным папкам). в "табеле" есть форма "подразделения" в которой есть процедура скрывающая записи которые были помечены как архивные. как сделать так чтобы в "персонал" при регистрации нового сотрудника нельзя было выбирать архивную запись из "табеля", т.е чтобы она была невидима при выборе?

[NumLock]

Filter использовать:

Table.Filter:='Archive<>1';
Table.Filtered:=True;

[Страдалецъ]

Либо фильтр, как уже сказали ранее, либо изначально формировать запрос без учета архивных данных. Например так:

Код:

select * from Персонал where Признак <> 'Архив'

Но надо предусмотреть ситуацию повторного приема бывшего сотрудника, т.е. у вас должен быть уникальный справочник лиц которых вы и будете использовать для формирования штатки.

[Kis]

спасибо, большое ребят!

[Kis]

еще вопрос, почему выходит эта ошибка "Module 'PodrForm' links to module 'dm' which cannot be found in the current project. Do you wish to remove/redirect the links to another module?". и как ее исправить?

[Страдалецъ]

Есть ссылка на модуль PodrForm, а вот самого модуля в указанном месте нет. Откройте файл проекта и посмотрите пути к этому модулю.
Может вы его переименовали, а в запарке забыли изменения внести в проект.

[Kis]

не могу найти ошибки. при попытке сохранить изменения в других юнитах происходит та же ошибка, только не "PodrForm", а "PersonForm" к примеру.

[Viajero]

Это не ошибка а вопрос. Возможно эти ссылки уже и не нужны (например проектт переделывался с другого проекта). Нажмите OK и они удалятся.

[Kis]

тогда у меня не загружаются данные из базы данных, и PodrForm становится пустой

[Kis]

подскажите где хотя бы нужно искать ошибку...?

[Viajero]

Ну сказали же выше - надо все линки (ссылки) на все юниты проверить. Если ссылки удалены а юниты нужны, их можно снова добавить через контекстное меню "add" окна "Project manager".

[Kis]

линки вроде все в порядке. в проект менеджере все прописаны

[Kis]

ребят еще вопрос.

Код:

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, выделение элемента красным цветом пропадает (архивные красного), но элемент все еще считается архивным и при "скрыть архивные" скрывается