|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите разобраться
Ребят, помогите плиз. есть 2 программы "табель" и "персонал" (по разным папкам). в "табеле" есть форма "подразделения" в которой есть процедура скрывающая записи которые были помечены как архивные. как сделать так чтобы в "персонал" при регистрации нового сотрудника нельзя было выбирать архивную запись из "табеля", т.е чтобы она была невидима при выборе?
|
#2
|
||||
|
||||
Filter использовать:
Цитата:
Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 02.09.2011 в 12:00. |
#3
|
||||
|
||||
Либо фильтр, как уже сказали ранее, либо изначально формировать запрос без учета архивных данных. Например так:
Код:
select * from Персонал where Признак <> 'Архив' Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#4
|
|||
|
|||
спасибо, большое ребят!
|
#5
|
|||
|
|||
еще вопрос, почему выходит эта ошибка "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?". и как ее исправить?
|
#6
|
||||
|
||||
Есть ссылка на модуль PodrForm, а вот самого модуля в указанном месте нет. Откройте файл проекта и посмотрите пути к этому модулю.
Может вы его переименовали, а в запарке забыли изменения внести в проект. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#7
|
|||
|
|||
не могу найти ошибки. при попытке сохранить изменения в других юнитах происходит та же ошибка, только не "PodrForm", а "PersonForm" к примеру.
|
#8
|
||||
|
||||
Это не ошибка а вопрос. Возможно эти ссылки уже и не нужны (например проектт переделывался с другого проекта). Нажмите OK и они удалятся.
- Товарищ прапорщик!!! Остановите поезд!!! - Поезд СТОЙ! РАЗ! ДВА! |
#9
|
|||
|
|||
тогда у меня не загружаются данные из базы данных, и PodrForm становится пустой
|
#10
|
|||
|
|||
подскажите где хотя бы нужно искать ошибку...?
Последний раз редактировалось Kis, 05.09.2011 в 08:43. |
#11
|
||||
|
||||
Ну сказали же выше - надо все линки (ссылки) на все юниты проверить. Если ссылки удалены а юниты нужны, их можно снова добавить через контекстное меню "add" окна "Project manager".
- Товарищ прапорщик!!! Остановите поезд!!! - Поезд СТОЙ! РАЗ! ДВА! Последний раз редактировалось Viajero, 05.09.2011 в 09:40. |
#12
|
|||
|
|||
линки вроде все в порядке. в проект менеджере все прописаны
|
#13
|
|||
|
|||
ребят еще вопрос.
Код:
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, выделение элемента красным цветом пропадает (архивные красного), но элемент все еще считается архивным и при "скрыть архивные" скрывается Последний раз редактировалось Admin, 06.09.2011 в 10:39. |