Во-первых, в Вашем проекте я не нашел кнопку "Выход", поэтому проверить Ваши слова нет никакой возможности.

Во-вторых, ТАК удаление записей никогда не делают.

Да, по команде DELETE записи только помечаются как удаленные, но физическое удаление записей (команда PACK) выносится в отдельные служебные процедуры. В процессе работы выполнять PACK - это искать себе приключений.

Общая логика примерно такая:

-) В главном стартовом файле делается глобальная настройка SET DELETED ON
-) В процессе работы приложения записи только помечаются как удаленные командой DELETE
-) Создается отдельный пункт меню, по которому все пользователи выгоняются из программы и выполняется упаковка базы данных.

Еще раз:

В процессе работы приложения команда PACK - НЕ ИСПОЛЬЗУЕТСЯ. Она выносится в ОТДЕЛЬНЫЙ пункт меню.

Конечно, можно и так, как Вы. Но поскольку Вы откровенно "плаваете" в том, что именно делаете, то Вас еще ждет много удивительных открытий Успехов!

2 apapacy

Вы путаете термины. Точнее, они Вас вводят в заблуждение.

В FP2.x существовали индексы только 2 типов: Regular и Unique

Так вот, индекс типа Unique никак не контролировал уникальность записей. Т.е. вообще. Ему было не важно, сколько записей имеют одно и то же значение. И статус удаленная/ не удаленная для него тоже роли не играл.

Этот индекс отображал уникальные значения. По сути, это был просто своеобразный фильтр, наложенный на таблицу. А уж какая из одинаковых записей будет отображена - заранее предсказать невозможно. Просто первая попавшаяся.

В VFP были введены два новых типа индекса: Candidat и Primary. Вот эти типы реально следят за уникальностью данных. Они просто не дадут возможности ввести две записи с одинковым значением. Причем для них также не имеет значение помечена ли запись как удаленная или нет. Уникальность контролируется среди всех записей без исключения.

Подробнее по индексам можно посмотреть здесь

http://www.foxclub.ru/articles/index.php?id=35

В VFP9 добавлен еще один тип индексов: Binary. Он используется только и исключительно с целью ускорения поиска по логическим полям или выражениям. Например, по выражению Deleted().

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

Rom_ewВообще не работаю напрямую с таблицами, а только с лок genview и запросами, поэтому удаляется все просто и влюбое время,
1)запоминаю Id строки в view
2) открываю табл в Exclus
3) нахожу строку delete pack
4) закрываю таблицу.
Один раз написана проц на удаление и все :)
Напрямую с таблицами работать нельзя!
А теперь запустите Ваше приложение два раза (симуляция многопользовательского режима) и посмотрите, куда Вас пошлет FoxPro.

Еще раз. НЕЛЬЗЯ использовать команды требующие эксклюзивного доступа к таблицам (например, PACK) в процессе работы приложения. Как курсовая - сойдет. В реальном приложении этого делать нельзя. Будут неразрешимые конфликты совместного доступа.

Новаторские идеи по поводу чего? Удаление из курсора? Так Rom_ew дал общее направление. По коду записи в курсоре ищете удаляемую запись в исходной таблице и удаляете найденную запись.

Однако поскольку Вы игнорируете все советы и идете "своим путем", то скажите, что удалять нельзя. Вам ведь все равно с FoxPro не работать. Сдадите курсовую и забудете. Зачем же забивать голову всякой ерундой...

Rom_ewдля ВладимирМ:
Уточняю, таблица открывается на долю секунды в Excl, а все пользователи которые работают одновременно с одной базой - все работают на запросах и view - все таблицы закрыты почти всегда, поэтому никогда Fox не орет на удаление.
Надеюсь, Вы в курсе, что View, по своей сути, это обычный Select-SQL. Для его выполнения таблица должна быть открыта обязательно. Если таблица не открыта, то она будет открыта автоматически, вне зависимости от Ваших желаний.

Надеюсь, Вы в курсе, что команда PACK осуществляет создание таблицы заново . Т.е. просто переписывает не удаленные записи в новую таблицу, потом удаляет старую и переименовывает новую. Причем это сопровождается коррекцией индексов и мемо-полей. При достаточно большом объеме таблиц эта операция может занимать до нескольких минут !

Следовательно имеем следующую ситуацию: один пользователь запустил выполнение команды PACK и эта операция выполняется довольно долго. В этот момент, другой пользователь захотел открыть View. Для открытия View необходимо открыть таблицу. Но таблица открыта другим пользователем в режиме Exclusive. Значит, данный пользователь идет со своим желанием далеко и надолго. Он просто физически не может работать с приложением, пока другой пользователь не завершит упаковку.

Если Вы пока не столкнулись с такой ситуацией, то это означает две вещи:

1) Объем таблиц не велик
2) Количество пользователей мало

Rom_ewИ самое главное - вообще отказался от Data Environment(формы) и других Wiz (поэтому переписывал всю прогу 1.5 года)
Факт использования или не использования DataEnvironment на весь этот процесс не оказывает вообще никакого влияния. DataEnvironment - это визуализация настройки среды окружения для формы или отчета. Вы либо пишите весь код открытия вручную (что, видимо, Вы и сделали), либо просто визуально в DataEnvironment указываете какие таблицы и связи между таблицами Вам нужны.

Кроме того, есть специальные настройки в DataEnvironment: AutoOpenTables и AutoCloseTables. Если установить их значения в .F., то, фактически, это и будет отказ от автоматического открытия таблиц при загрузке формы и такого же автоматического закрытия таблиц при выгрузке
формы.

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

В общем, Вы сделали распространенную ошибку - начали кодить не разобравшись с возможностями и логикой работы инструмента. А теперь и признать это ошибкой не так-то просто. Даже самому себе. Зря что ли 1,5 года переписывал?

Rom_ewНасчет того, что вообще не удалять строки, даже не думайте - Все ненужное надо убирать физически обязательно, чтобы не забивать ДБ (иначе через несколько лет база будет забита хламом )
Правда удаление можно делать и в конце сесии, но тогда придется иметь ввиду все время метки на удаление, что очень неудобно.
Насчет того, чтобы не удалять строки я говорил не Вам. Кроме того, я говорил это в определенном контексте, а не "вообще". Если бы Вы внимательно читали то, что я советовал в данной теме, то увидели бы, что я советовал вынести процесс упаковки в отдельные служебные модули. Вне зависимости от конкретной формы.

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