powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Оч.странная проверка валидности у лисы
20 сообщений из 20, страница 1 из 1
Оч.странная проверка валидности у лисы
    #34446472
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
public oForm
oForm = createobject('form1')
oForm.show( 1 )

DEFINE CLASS form1 AS form

	DoCreate = .T.
	Caption = "Form1"
	KeyPreview = .T.
	BindControls = .T.
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		ControlSource = "tt.a", ;
		Height =  23 , ;
		Left =  120 , ;
		Top =  84 , ;
		Width =  100 , ;
		Name = "Text1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  156 , ;
		Left =  192 , ;
		Height =  27 , ;
		Width =  84 , ;
		Caption = "Command1", ;
		Name = "Command1"


	PROCEDURE Load
		create cursor tt (a c( 10 ))
		insert into tt values ('555')
		select tt
		go top
	ENDPROC


	PROCEDURE text1.Valid
		return (this.Value='555')
	ENDPROC


	PROCEDURE command1.Click
		select tt
		brow
	ENDPROC


ENDDEFINE


запустите скрипт
последовательность нажатий

вводим 123
жмем Enter
жмем 2 раза Esc
жмем стрелку вниз
жмем на кнопочку и смотрим значение в курсоре

как страшно жить
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34446571
alex11100
запустите скрипт
последовательность нажатий

вводим 123
жмем Enter
жмем 2 раза Esc
жмем стрелку вниз
жмем на кнопочку и смотрим значение в курсоре

как страшно жить
Ничего не понял... В чем проблема-то?
У меня (VFP 6) вроде бы все нормально:

Код: plaintext
1.
2.
3.
4.
5.
ввел  123  -> 
проверка валидности (возвращает F) -> 
откат к старому значению -> 
проверка валидности (возвращает T) -> 
показ таблицы.

Или я не понял проблемы.... Ткните носом, плз...
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34446576
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Саня - дейставительно страшно, черт никому верить нельзя даже себе
Хотя в Valid если поставить такой код
Код: plaintext
1.
2.
3.
k=this.Value='555'
Activate Screen
? k, this.value,  tt.a
return (k)
То конечно проверить это дело можно, тока нафига делать проверку в проверке. Вобщем ужас какой-то
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34446594
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А проявляется только в VFP8SP1 В 6, 7 и 9-ке нету
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34446599
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
9сп2 - есть
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34446624
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
у себя полечил так

запоминаю на входе старое значение
в кейпрессе по ескейпу
принудительный реплейс курсора старым значением
(весь код понятное дело с проверками курсора и номера записи (на прослучай))
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34446765
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alex11100у себя полечил так

запоминаю на входе старое значение
в кейпрессе по ескейпу
принудительный реплейс курсора старым значением
(весь код понятное дело с проверками курсора и номера записи (на прослучай))
Если в событие Valid() добавить

This.Refresh()

То проверка будет корректной, в том числе и по Esc, поскольку перед выходом из поля будет вытягиваться реально записанное значение.

Хотя, действительно странно. Причем глюк возникает только при втором Esc. Если Esc был только один, то все корректно проходит.
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34447398
asp_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Глюк интересный, надо будет использовать :-)
Но и он лечится :(
Мы не содержимое Текст-бокса должны сравнивать, а поле курсора - ведь мы его привязали ControlSorce.

Нпример так:
RETURN ALLTRIM(tt.a)=='555'

или для универсальности (мало ли какое это будет поле):

LOCAL Lcc
Lcc=This.ControlSource
RETURN ALLTRIM(&Lcc)=='555'
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34447410
asp_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Надеюсь, жить уже не страшно?
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34447715
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 asp_fox

если Вы таким образом реализуете ввод
20-ти значного рас.счета или КБК

авторюзвер начинает рвать волосы на голове

у себя или Вам
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34447743
asp_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Это похоже уже из другой оперы.
Вам теперь необходимо ввести контроль ввода 20-ти значного числа, не дожидаясь завершения ввода?
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34447769
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
мне и юзверу нужно,
чтобы после 2-х сбросов
осталось старое значение
и выйти из контрола

Вы думаете я не знаю как контрол привязать?
и как отвязать?
и как валидность проверить?

или Вы думаете, что я не проверял значение в курсоре???

все, завязали....
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34447772
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
да и

макроподстановкой не смешите меня
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34447912
asp_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
автормне и юзверу нужно,
чтобы после 2-х сбросов
осталось старое значение

и выйти из контрола

Это точно из другой оперы - выяснялись бы яснее, в чем для вас ужас, не было бы так смешно ;-)
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34449548
asp_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вчера за неимением времени не успел ответь с разворотом. :-)
А надо, так как своим ответом Вы можете завести нас - бедных начинающих в тупик.

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

тут все напряглись:

Pivaнафига делать проверку в проверке. Вобщем ужас какой-то

А оказалось:

alex11100мне и юзверу нужно,
чтобы после 2-х сбросов
осталось старое значение
и выйти из контрола

Не буду Вас смешить, как это обычно делается, особенно после того как прочитал:

alex11100у себя полечил так

запоминаю на входе старое значение
в кейпрессе по ескейпу
принудительный реплейс курсора старым значением
(весь код понятное дело с проверками курсора и номера записи (на прослучай))

Бедный ескейп! Тут Вы похоже левой рукой совсем голову обмотали :-)\
Вот вы пишете:
авторВы думаете я не знаю как контрол привязать?
и как отвязать?
и как валидность проверить?
Нет, это действительно много! Теперь Вы можете уже смелее двигаться вперед, изучая
возможности ООП, свойства, методы, события объектов! Вы найдете там еще много приятных сюрпризов для себя. Не буду интриговать, но обратите внимание на Where, на KeyPress, а вот Tag - что это за зверь такой и т.д ;-)?
А если к этому добвать немного уважения к тем ( пусть не даже не специалистов, в Вашем понимании), кто тратит время на разбор Ваших глюков, то со временем эти глюки постепенно исчезнут.
А про какой-то там Ескейп вообще - будете вспоминать с улыбкой!
Удачи!
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34449904
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну прям всем нос утер теперь скажи малай - а почему в vfp6 и 7 все работает четко ?
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34449944
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 piva

не приставай к человеку

человек на расстоянии видит Чебоксарскую реализацию
и перегруженные классы, и прописывает лечение

макроподстановок наверное от кейсов набрался
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34450103
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Саня - уболтал - не буду, особенно после упоминания свойства Tag
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34450726
asp_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
alex11100 человек на расстоянии видит Чебоксарскую реализацию
и перегруженные классы, и прописывает лечение
макроподстановок наверное от кейсов набралсяээх...не угадали
"У таукитов
В алфавите слов -
Немного, и строй - буржуазный,
И юмор у них - безобразный."

Ничего личного, спасибо - хорошо повеселились.
...
Рейтинг: 0 / 0
Оч.странная проверка валидности у лисы
    #34450749
asp_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
piva теперь скажи малай - а почему в vfp6 и 7 все работает четко ? А оно тебе надо?
...
Рейтинг: 0 / 0
20 сообщений из 20, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Оч.странная проверка валидности у лисы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]