Есть форма запроса фамилии, имени и отчества. К форме прицеплено представление, в результате отработки которого полученная запись отображается в другой форме.

С передачей параметра из формы в представление, а результата отработки представления в следующую форму я разобралась, все показывает.
А если результат поиска нулевой? Как сделать, чтобы следующая форма не открывалась, а выскакивало окошко с сообщением, что ничего не найдено?

Спасибо, помогло :)
Но появился дополнительный вопрос: у меня идет отбор по фамилии, имени и отчеству. Если строгое соответствие - находит, если строгое несоответствие (т.е. не совпадают ни один из трех параметров) - говорит "Не найдено". А если есть совпадение хоть в одном из параметров - выводит подходящую запись.

Как можно сделать, чтобы выводилось только строгое соответствие?

Делаю так.
На форме три textbox-а, в которые вводятся фамилия, имя, отчество.

При нажатии кнопки ОК пишу:

LOCAL cFam,cNam,cOtt,ldDtr

m.cFam=ALLTRIM(ThisForm.txtfam.value)
m.cNam=ALLTRIM(thisform.txtnam.Value)
m.cOtt=ALLTRIM(ThisForm.txtott.value)
m.ldDtr=ThisForm.txtdtr

REQUERY("kurs_view")
IF reccount("KURS_VIEW")=0
=MESSAGEBOX("Не найдено!",0)
ELSE
DO FORM expi6
ENDIF

Сам View

SELECT Slvcity.id, Slvcity.cname, Jsn_kurs.itipst, Jsn_kurs.idn,;
Jsn_kurs.cfam, Jsn_kurs.cimm, Jsn_kurs.cott, Jsn_kurs.ddtr, Jsn_kurs.iobl,;
Jsn_kurs.irn, Jsn_kurs.icity, Jsn_kurs.istr, Jsn_kurs.ndom, Jsn_kurs.nkv,;
Jsn_kurs.ngpz, Jsn_kurs.ngpp, Jsn_kurs.nsmill, Jsn_kurs.nsmilf,;
Jsn_kurs.nsmilk, Jsn_kurs.nsmil01, Jsn_kurs.nsmil02, Jsn_kurs.nsmil03,;
Jsn_kurs.nsmil04, Jsn_kurs.nsmil05, Jsn_kurs.nsmil06, Jsn_kurs.nsmil07,;
Jsn_kurs.nsmil08, Jsn_kurs.nsmil09, Jsn_kurs.nsmil10, Jsn_kurs.nsmil11,;
Jsn_kurs.nsmil12, Jsn_kurs.nsmil13, Jsn_kurs.nsmil14, Jsn_kurs.nmiom,;
Jsn_kurs.mold, Jsn_kurs.mncom, Jsn_kurs.nrus, Jsn_kurs.nist, Jsn_kurs.nobs,;
Jsn_kurs.nfiz, Jsn_kurs.cpost, Jsn_kurs.nsoc1, Jsn_kurs.nsoc2,;
Jsn_kurs.nsoc3, Jsn_kurs.nons11, Jsn_kurs.nons12, Jsn_kurs.nons21,;
Jsn_kurs.nons22, Jsn_kurs.nons31, Jsn_kurs.nons32, Jsn_kurs.irasp,;
Jsn_kurs.motz, Jsn_kurs.motz2, Jsn_kurs.cdol, Jsn_kurs.nvzv,;
Jsn_kurs.nvrot, Jsn_kurs.nohv1, Jsn_kurs.nohv2, Jsn_kurs.nsps1,;
Jsn_kurs.nsps2, Jsn_kurs.nuso1, Jsn_kurs.nuso2, Jsn_kurs.nilv1,;
Jsn_kurs.nilv2, Jsn_kurs.nuvp1, Jsn_kurs.nuvp2, Jsn_kurs.numm1,;
Jsn_kurs.numm2, Jsn_kurs.nupv1, Jsn_kurs.nupv2, Jsn_kurs.nzos1,;
Jsn_kurs.nzos2, Jsn_kurs.nklu1, Jsn_kurs.nklu2, Jsn_kurs.nuup1,;
Jsn_kurs.nuup2, Jsn_kurs.nlov1, Jsn_kurs.nlov2, Jsn_kurs.numg1,;
Jsn_kurs.numg2, Jsn_kurs.nukp1, Jsn_kurs.nukp2, Jsn_kurs.nzpb1,;
Jsn_kurs.nzpb2, Jsn_kurs.npvu1, Jsn_kurs.npvu2, Jsn_kurs.nkmn1,;
Jsn_kurs.nkmn2, Jsn_kurs.nuve1, Jsn_kurs.nuve2, Jsn_kurs.nuoo1,;
Jsn_kurs.nuoo2, Jsn_kurs.nuis1, Jsn_kurs.nuis2, Jsn_kurs.nupd1,;
Jsn_kurs.nupd2, Jsn_kurs.nuur1, Jsn_kurs.nuur2, Jsn_kurs.nfpg1,;
Jsn_kurs.nfpg2, Jsn_kurs.ncpd1, Jsn_kurs.ncpd2, Jsn_kurs.nzou1,;
Jsn_kurs.nzou2, Jsn_kurs.nupp1, Jsn_kurs.nupp2, Jsn_kurs.nluk1,;
Jsn_kurs.nluk2, Jsn_kurs.nspr1, Jsn_kurs.nspr2, Jsn_kurs.nspz1,;
Jsn_kurs.nspz2, Jsn_kurs.nkpo1, Jsn_kurs.nkpo2, Jsn_kurs.nkvz1,;
Jsn_kurs.nkvz2, Jsn_kurs.czvan, Slvrsp.id, Slvrsp.cname, Slvobl.id,;
Slvobl.cname;
FROM ;
kurs!slvcity ;
INNER JOIN kurs!jsn_kurs ;
ON Slvcity.id = Jsn_kurs.icity ;
INNER JOIN kurs!slvrsp ;
ON Slvrsp.id = Jsn_kurs.irasp ;
INNER JOIN kurs!slvobl ;
ON Slvobl.id = Jsn_kurs.iobl;
WHERE ( Jsn_kurs.cfam == ( ?CFAM );
AND Jsn_kurs.cimm == ( ?CNAM ) );
AND Jsn_kurs.cott == ( ?COTT );
ORDER BY Jsn_kurs.cfam

Если задать "ИВАНОВ ИВАН ИВАНОВИЧ" и такой в базе есть - все находится.
Если задать "ПЕТРОВ ИВАН СЕРГЕЕВИЧ" - все равно выведет "ИВАНОВ ИВАН ИВАНОВИЧ".

Почему?

ВладимирМПопробуй почистить контейнер базы данных. В режиме модификации базы данных пункт меню DataBase - CleanUp DataBase


ВладимирМ
Подозрение на то, что изначально в твоем View стоял символ не тождественного равенства, а простого равенства (один символ "="). А после модификации это изменение не было переведено в исполняемый код или же используется старая версия исполняемого кода.

Ваши подозрения абсолютно обоснованы.
Вто только у меня в меню опция CleanUp Database неактивна. Как-нибудь по-другому это проделать можно?

Получилось. Спасибо.

А еще вопрос - с поиском при подстановке текстовых полей все понятно. А как сделать поиск по дате? Ведь в запрос в корректном виде она вводится как {^YYYY/MM/DD}.
Как её преобразовать из обычного вида к подобному?

Очередной заглюк: при вызове формы, в которой задаются данные для выполнения View, сначала выскакивают стандартные фоксовые запросы необходимых переменных(т.е. сfam, cimm, cott), а уже после этого поялвяется сама форма.
С чем это может быть связано?

ВладимирМ
Это не глюк. Это стандартная логика работы при настройке AutoOpen = .T. Смысл в том, что открытие таблиц происходит до прорисовки элементов формы. Вот на открытие Local View и происходит запрос параметров.

Логично. Интересно только, как у меня это отрабатывало раньше, в самом начале.

ВладимирМ
2) В событии Init-формы делаются присвоения параметрам и перезапрос Local View, если это необходимо



Вот этого не поняла. Зачем присваивать параметры в init, усли значения у меня появятся только после того, как я введу их в соответствующие textbox-ы формы?

И еще вопрос - прочитала, что представления можно использовать для редактирования основной базы. В том случае, если нужно редактировать уже имеющуюся запись вроде бы понятно - при выполнении запроса в форму выводится нужная запись, редактируется и сохраняется во View и в самой таблице.
А если нужно создать новую запись? Как поступать тогда?

Я тут попробовала обходиться без view, т.е. через форму запроса фамилии, имени, отчества создавала выражение, по которому у меня проиндексирована база. Потом проводила в ней поиск через Seek - и когда запись находилась, передавала её номер во вторую форму. Вторую форму открывала именно на этой записи и редактировала. Все сохранялось.
А вот если записи в базе не существовало, то я добавляла новую запись и открывала вторую форму, в которой все поля получались пустыми.
Как можно передать в новую запись ФИО из формы запроса?

Доигралась. Запрос через форму вообще перестал работать. А в автономном режиме все отбирает великолепно.

Подскажите, что я сделала не так.

Есть форма поиска (4 textbox-а - ФИО, дата рождения). Значение txtdtr.value {}
В ее DE сам View, таблица и словари, по которым создан View. У View NoDataOnLoad=.T.
Текст View не изменился, лишь добавилась проверка по дате рождения.

Поля заполняются. Нажимается кнопка ОК, где прописано:


LOCAL cFam,cImm,cOtt,dDtr

m.cFam=ThisForm.txtfam.value
m.cImm=Thisform.txtimm.Value
m.cOtt=ThisForm.txtott.Value
m.dDtr=ThisForm.txtdtr.Value


REQUERY("kurs_view")
IF reccount("view_kurs")=0
=MESSAGEBOX("НЕ НАЙДЕН!",0)
ELSE
DO FORM expi6
ENDIF

При любом заполнении полей, неважно - есть или нет данные, выводятся данные для первого по списку человека.

И я все-таки не поняла, почему надо присваивать параметры именно в init формы.
Ведь значений еще нет. Они появятся после ввода в textbox-ы.

ВладимирМ

2) В событии Init-формы делаются присвоения параметрам и перезапрос Local View, если это необходимо



Прочитала про буфферизацию. И все равно, не поняла, как поступать с новыми записями.:(

С view разобралась. Ищет и отображает все корректно.

Но вопрос с новой записью остается открытым. Я пока поступаю так, после отработки view, если в базе ничего не найдено, делаю append blank, чтобы появилась возможность для редактирования. Правда ФИО приходится вносить заново, но сохранение проходит вполне корректно. Правда, я еще не пробовала создать там отчет.

Подскажите, верно ли я поступаю? А то из всего прочитанного, у меня получается, что view - это исключительно для редактирования уже существующих записей.

У меня очередной вопрос.
Обновление/добавление проходит нормально. А как бы мне сделать, чтобы после того, как данные добавились, у меня textbox-ы формы, к которой привязан view очищались?