FoxPro - это файл-серверная СУБД. Т.е. FoxPro работает с файлами.
У файла (таблицы) DBF существует такое понятие, как "указатель записи". В серверных хранилищах данных (SQL Server, Oracle и т.п.) такого понятия не существует.
Указатель записи - это та запись, которая просматривается (редактируется) в текущий момент времени. Его значение можно получить, используя функцию Recno().
"Родные" команды поиска типа SEEK(), LOCATE в процессе поиска сканируют всю таблицу, перемещаясь по записям. Но после завершения поиска они не возвращают указатель записи в исходной положение. Он остается там, где поиск был завершен.
Итак, у тебя получилось следующее:
APPEND BLANK - создала новую запись
SEEK() - просканировал всю таблицу и переместил указатель записи. Куда? Это зависит от результата поиска. Почитай HELP по этой функции.
В результате, ты оказалась на другой записи. Не той, которая была создана командой APPEND BLANK. Отсюда такие странные эффекты.
Чтобы этого избежать, в данном случае, можно воспользоваться функцией INDEXSEEK(). Примерно так:
1.
2.
3.
4.
5.
6.
7.
8.
LOCAL lcFindSting
lcFindSting = PADR(Alltrim(ThisForm.PageFrame1.Page1.txtFam.value), 5 )+;
PADR(Alltrim(thisForm.PageFrame1.Page1.txtNam.value), 5 )+;
PADR(Alltrim(thisForm.PageFrame1.Page1.txtOtt.value), 3 )
IF IndexSeek(m.lcFindSting,.F.,"MyTable","MyTag")=.F.
* Запись не найдена
ENDIF
Здесь второй параметр функции IndexSeek() говорит о том, что не надо перемещать указатель записи.
Третий параметр - это алиса той таблицы, по которой производится поиск
Четвертый параметр - это имя индексного тэга этой таблицы, в соответствии с выражением которого и производится поиск.
Использовать конструкцию LEFT(AllTrim(...),5) + LEFT(AllTrim(...),5) -
нельзя . Как минимум, надо заменить LEFT() на PADR(). Поясню на примере:
1.
2.
3.
4.
a1 = "123 "
a2 = "45 "
b1 = "12 "
b2 = "345 "
Если использовать конструкцию LEFT(AllTrim(...),5) + LEFT(AllTrim(...),5), то и для переменных a1, a2 и для переменных b1,b2 получим одно и то же значение:
"12345"
Почему? Да потому, что LEFT() возьмет первые 5 символов
из имеющихся . А функция AllTrim() отбросит ведущие и концевые пробелы.
Если использовать конструкцию PADR(AllTrim(...),5) + PADR(AllTrim(...),5), то для переменных a1, a2 имеем
а для переменных b1, b2 имеем
Т.е. дейстьвительно
разные значения.
Но, как говорят в рекламных роликах, это еще не все!
Можно серьезно упростить весь код, если в свойствах TextBox установить значение реквизита:
TextBox.Format = "T"
Если делать эту настройку в дизайнере формы, а не программно, то кавычки не нужны.
Эта настройка сама, автоматически, будет отбрасывать ведущие пробелы по окночании ввода значения. Если общая длина этих полей те же 5 символов, то формирование ключа для поиска будет совсем простым:
1.
2.
3.
4.
5.
6.
7.
8.
LOCAL lcFindSting
lcFindSting = ThisForm.PageFrame1.Page1.txtFam.value+;
thisForm.PageFrame1.Page1.txtNam.value+;
thisForm.PageFrame1.Page1.txtOtt.value
IF IndexSeek(m.lcFindSting,.F.,"MyTable","MyTag")=.F.
* Запись не найдена
ENDIF
Т.е. не понадобяться вообще никакие преобразования для введенных значений. Их можно взять "как есть"
===================================
Это все замечательно, но абсолютно бессмысленно.
Дело в том, что если все твои TextBox привязаны к соответствующим полям таблицы (настроены ControlSource). То ввод данных в эти TextBox означает автоматический ввод в соответствующие поля таблицы (или в буфер этой таблицы, если настроена буферизация).
Таким образом, эти данные сразу же попадают в индекс и будут найдены функциями SEEK() или IndexSeek()! Т.е. у тебя
всегда будет выдаваться сообщение о том, что такая запись существует.
Контроль уникальности осуществляется другими способами:
1) Индекс типа Candidat по выражению, уникальность которого проверяется. Такой индекс просто не даст создать повторяющееся значение.
2) Использовать триггер на Insert и Update в которых проверять уникальность данных.
Обе стартегии имеют достоинства и недостатки.
Первый - проще в реализации (особенно для новичков), но сложнее перехватить системное сообщение об ошибке и приводит к увеличению размера индексного файла (CDX)
Второй - проще в смысле контроля сообщений об ошибках, но сложнее в реализации.
Если пока нет желания возиться с такими способами контроля, то для поиска возможных дублей используй команду Select-SQL. По умолчанию, эта команда не видит записей созданных или измененных в буфере таблицы. Работает только с тем, что есть реально в таблице. Кроме того, эта команда не перемещает указатель записи.
