powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите начинающему
4 сообщений из 4, страница 1 из 1
Помогите начинающему
    #33785788
Влад_и_мир
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Народ лисы подскажите как сделать такую вещь. В форме делаю несколько текстовых полей, ввожу в эти поля по одной цифре, как мне сделать чтобы по выходу из последнего поля (потери фокуса) данные всех полей забивались в один столбец (одно поле) таблицы, т.е. чтобы более понятно в форме ввожу 2 3 4 5 отдельно в каждое текстовое поле формы а в таблице чтобы было 2345 в одном поле. Зарание спасибо.
...
Рейтинг: 0 / 0
Помогите начинающему
    #33785802
-)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-)
Гость
Не вдаваясь в разборки типа – “Зачем так делать? ”, а, решая исключительно условие задачи, то можно сделать так:
При проектировании формы – обязательно установить свойство Value для текстовых полей = 0 (txtText1.Value = 0, txtText2.Value = 0 и т.д.) – это будет означать, что в данное поле можно будет вносить только цифры и знак. То же - можно сделать и в момент выполнения, если при обработке события Init формы написать следующий код –
Код: plaintext
1.
2.
3.
4.
ThisForm.txtText1.Value =  0 
ThisForm.txtText2.Value =  0 
ThisForm.txtText3.Value =  0 
ThisForm.txtText4.Value =  0 

По самой задаче:
В последнем текстовом поле в обработчике события – LostFocus пишешь приблизительно такой код –
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
LOCAL lnText1, lnText2, lnText3, lnText4, lnRezultat

lnText1 = ThisForm.txtText1.Value
lnText2 = ThisForm.txtText2.Value
lnText3 = ThisForm.txtText3.Value
lnText4 = ThisForm.txtText4.Value

lnRezultat = (lnText1 *  1000 ) + (lnText2 *  100 ) + (lnText3 *  10 ) + lnText4

* Вставка числа в поле таблицы
INSERT INTO <имя таблицы> (<имя поля>) VALUES (lnRezultat)
...
Рейтинг: 0 / 0
Помогите начинающему
    #33785806
-)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-)
Гость
И еще, обязательно выставь свойство для всех текстовых полей InputMask = "9"
(ThisForm. txtText1.InputMask = "9", ThisForm. txtText2.InputMask = "9" и т.д.) – это нужно для того, чтобы пользователь мог внести в поле – только 1 цифру

Ну а вообще, заносить данные таблицу по событию LostFocus текстового поля - будет не совсем правильно.
Например, если пользователь чисто случайно попал в это поле, то по выходу из него данные занесутся в таблицу, хотя у него, такого развития событий - в планах не было.
Лучше сделай на форме кнопку, по нажатию на которую, данные, после всяких там проверок и подтверждений - будут заносится в таблицу.
...
Рейтинг: 0 / 0
Помогите начинающему
    #33786368
Влад_и_мир
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо граждане Лисы за помощь, а главное за оперативность. Откровенно говоря не ожидал, поэтому еще раз говорю спасибо!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите начинающему
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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