ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вывод в TEXTEDIT по условию
16 сообщений из 16, страница 1 из 1
Вывод в TEXTEDIT по условию
    #38035839
NIX2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NIX2012
Гость
Здравствуйте, я тут пишу программу и возник вопрос. Есть таблица, есть форма. На форме размещен textbox и этот textbox связан с полем из таблицы. thisform.text1.value=tablica.pole1. На форме также есть checkbox. Я хочу сделать следующее когда ставишь галочку на чекбоксе в тексбокс заносить символ 0 и соответственно занесенное в тексбокс значение добавлять в поле таблицы. А когда убираешь галочку убирать из тексбокс и соответственно из таблицы удалять. Помогите разобраться...
...
Рейтинг: 0 / 0
13.11.2012, 11:05
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38035940
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
NIX2012,

"Я могла бы придумать и более запутанный способ, как это сделать,- с гордостью сказала Белая Королева". (с)

На первый взгляд - маразм (без обид).

Можете просто описать задачку?

Пока что так Click() Checkbox:
Код: plsql
1.
2.
3.
4.
5.
6.
7.
IF This.Value=1
  Select tablica     && это на всякий случай
  Replace pole1 with This.Value
  Thisform.textbox.Value='0'
ELSE
  ?????
ENDIF
...
Рейтинг: 0 / 0
13.11.2012, 11:50
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38035948
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
А нельзя просто в таблице завести поле Boolean и связать с чекбоксом?
Или именно "символ 0 в текстовом поле" имеет некий высший смысл? - например, то, что символ нужно именно добавлять к уже имеющемуся содержимому текста?
...
Рейтинг: 0 / 0
13.11.2012, 11:51
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38035950
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Т.е., конечно, так:
Код: plsql
1.
Replace pole1 with Thisform.textbox.Value
...
Рейтинг: 0 / 0
13.11.2012, 11:52
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38035989
NIX2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NIX2012
Гость
Jonny540, задачка такова в общем есть таблица в которой хранятся данные о продавцах магазина. надо сделать добавление нового продавца. Для этого я вывожу в тексбоксы значения полей. Есть отделы у магазина правильно же..в таблице поле otdel содержит символы 012.. и т.д. это значит что этот продавец может работать в этих отделах. Поэтому хотел сделать чтобы когда ставишь галочку заносить в тексбокс номер первого отдела например и в таблицу заносить, а когда убираешь галочку убирать номер из таблицы и из тексбокса. Надеюсь смысл понятен задачи?

Мне самому интересно сделать это просто подскажите сделать этот кусок вообще можно ли так? или может есть другой способ легче?
...
Рейтинг: 0 / 0
13.11.2012, 12:06
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38035998
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
NIX2012,

Ну так сделайте список общий продавцов и выводите все в грид (щас некоторые нелюбители грида поморщатся). Там все уже просто.
...
Рейтинг: 0 / 0
13.11.2012, 12:10
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38036005
NIX2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NIX2012
Гость
Jonny540, описанный вами способ у меня реализован в другой программе, я так пробовал он заносит таблицу символ, удаление не получается.

вот как у меня реализован то что вы описываете в другой проге

Код: sql
1.
2.
3.
4.
5.
6.
SELECT prodavci
IF thisform.check1.Value=1
   replace otdel with '0' + alltrim(prodavci.otdel) 
ELSE
   replace otdel with ChrTran(prodavci.otdel,'0','')
ENDIF



это работа в таблице это понятно.. А как сделать такое в тексбоксе? Отображение получается я ставлю галочку, в тексбокс заносит символ, а когда снимаю галочку не понимаю как сделать чтобы убирался символ
...
Рейтинг: 0 / 0
13.11.2012, 12:12
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38036027
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
NIX2012,

С полгода назад такой принцип (записывать в символьную строку коды "отделов") уже кто-то пытался опять внедрить... Почему-то все начинающие очень такие грабли любят
У вас же реляционная БД. Заведите еще одну таблицу, содержащую записи соответствия "код работника - код отдела", - и вы избавитесь о кучи чекбоксов на форме, необходимости динамически формировать эти чекбоксы, парсить строку с кодами на предмет вхождения отделов, написания левой логики "на добавление в отдел", "на удаление из отдела"...
...
Рейтинг: 0 / 0
13.11.2012, 12:18
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38036060
NIX2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NIX2012
Гость
Хмм.. видимо не дождусь тут помощи(
...
Рейтинг: 0 / 0
13.11.2012, 12:29
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38036070
NIX2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NIX2012
Гость
AndreTM, это будет программа для администрирования продавцов.. Поэтому хотел сделать для пользователя наглядно. Чтобы он мог выбрать нужный отдел выбрав соответствующий чекбокс
...
Рейтинг: 0 / 0
13.11.2012, 12:34
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38036112
NIX2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NIX2012
Гость
получилось у самого как то так:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
SELECT prodavci
IF thisform.check1.Value=1
   thisform.text1.Value='0'+thisform.text1.Value
   
ELSE
   thisform.text1.Value=ChrTran(thisform.text4.Value,'0','')
  
ENDIF
...
Рейтинг: 0 / 0
13.11.2012, 12:51
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38036123
NIX2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NIX2012
Гость
ой ну везде text1 там а не Text4
...
Рейтинг: 0 / 0
13.11.2012, 12:53
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38036188
NIX2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NIX2012
Гость
мелочь оказалась. У меня есть поле id это номер продавца и есть поле nom_reg тоже номер нужен для чего-то.. Поле id нужно сделать при добавлении нового продавца такое чтобы оно само проставлялось. Например в таблице есть 10 человек. Добавляю нового у этого нового поле id должно автоматически стать 11. Как так сделать? Это поле у меня ключевое. Тип ключа Regular. Менять тип ключа нельзя. Это первое.

А второе поле nom_reg оно произвольно заполняется, но не должно быть одинаковых номеров у разных людей.. И его нужно автоматически заполнять. Я думаю посчитать максимальное значение этого поля у записей и прибавить 1 и полученное значение записать в поле при добавлении. тока не понимаю как. выбрал максимальное значение, а как занести его в тексбокс?

Код: sql
1.
SELECT MAX(nom_reg) FROM prodavci
...
Рейтинг: 0 / 0
13.11.2012, 13:32
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38036593
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
NIX2012Я думаю посчитать максимальное значение этого поля у записей и прибавить 1 и полученное значение записать в поле при добавлении.
тока не понимаю как. выбрал максимальное значение, а как занести его в тексбокс?
Так попробуй
Код: sql
1.
2.
SELECT MAX(nom_reg) AS maxr FROM prodavci INTO res
Thisform.textbox.Value=res.maxr + 1
...
Рейтинг: 0 / 0
13.11.2012, 16:38
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38036668
МеганFOX90
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МеганFOX90
Гость
[/quot]Так попробуй
Код: sql
1.
SELECT MAX(nom_reg) AS maxr FROM prodavci INTO res

[/quot]

в этой строке синтаксическая ошибка говорит
...
Рейтинг: 0 / 0
13.11.2012, 17:06
| Ответить | Цитировать | Написать  
Вывод в TEXTEDIT по условию
    #38037154
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
XAndy
Гость
МеганFOX90,

... into cursor res
...
Рейтинг: 0 / 0
13.11.2012, 23:06
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вывод в TEXTEDIT по условию
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=49&tid=1583331]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 268ms
total:  409ms
созд. / загр.: 409ms
x
x
Закрыть


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