powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / 2 нубовских вопроса по Grid-у
10 сообщений из 10, страница 1 из 1
2 нубовских вопроса по Grid-у
    #35597032
rock-n-roll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Понимаю - вопросы нубовские но ниче не могу допетрить своим мозжичком.Помогите плиз советом!
1. На форме нарисован Grid. Column-ы(все) состоят из Heder-ов и Text-ов. Все красиво разрисовано, в Text-ах стоят функции на события и тд. Первый раз в событии Show самой формы(может это важно) собираю курсор и загоняю в грид
Tisform.Grid1.RecordSource = "rezkat_curs"
Tisform.Grid1.RecordSourceType = 1 при первом запуске все абсолютно нормально. Но дальше в процессе пересобирыю курсор и так же загоняю в грид. И грид становится каким-то Browse!!!
Слетают все цвета, в заголовках- имена полей курсора, нет событий на Text-x и тд. Подскажите пожалуса где мне че посмотреть ?

2. Другой грид. Помоему прочитал на это форуме решение. В Init Грида

IF RECNO(This.RecordSource)#0
THIS.SetAll("DynamicBackColor",;
"IIF(auto,RGB(0,255,255),RGB(192,192,192))",;
"COLUMN")
выделение цветом всех полей в строке. Хорошо- принимаю. Но хотелось бы еще по анологии.
THIS.SetAll("Enabled",;
"IIF(auto,.F.,.T.)",;
"Text") -выдает ошибку

3. Ну и набирусь наглости -заодно спрошу об этом.
SELECT Tarlgot.vid,Lgkat.proj,iif(Lgkat.fampl,cLgotpl,0) as fampl,Lgkat.date_snat;
FROM Lgkat,Tarlgot;
WHER Lgkat.schet=cschet and Tarlgot.num_lgot = Lgkat.num_lgot and Lgkat.date_snat>dTekMes_num
INTO CURS lgkat_curs
хотелось бы в этом курсоре поле с номером записи в Lgkat по которой собрана запись в курсоре. Эксперементировал с RECNO - ничего не вышло.
Зарание благодарен! И ответьте пожалуста хотябы на первый ворос- он выжнее всего
...
Рейтинг: 0 / 0
2 нубовских вопроса по Grid-у
    #35597075
rock-n-rollПонимаю - вопросы нубовские но ниче не могу допетрить своим мозжичком.Помогите плиз советом!
1. На форме нарисован Grid. Column-ы(все) состоят из Heder-ов и Text-ов. Все красиво разрисовано, в Text-ах стоят функции на события и тд. Первый раз в событии Show самой формы(может это важно) собираю курсор и загоняю в грид
Tisform.Grid1.RecordSource = "rezkat_curs"
Tisform.Grid1.RecordSourceType = 1 при первом запуске все абсолютно нормально. Но дальше в процессе пересобирыю курсор и так же загоняю в грид.
А вот этого как раз и не надо делать.
[quot]И грид становится каким-то Browse!!!
Слетают все цвета, в заголовках- имена полей курсора, нет событий на Text-x и тд. Подскажите пожалуса где мне че посмотреть ?

2. Другой грид. Помоему прочитал на это форуме решение. В Init Грида

IF RECNO(This.RecordSource)#0
THIS.SetAll("DynamicBackColor",;
"IIF(auto,RGB(0,255,255),RGB(192,192,192))",;
"COLUMN")
выделение цветом всех полей в строке.[/quot]
Плохо читаем. Не в строке. Column - колонка.
[quot] Хорошо- принимаю. Но хотелось бы еще по анологии.
THIS.SetAll("Enabled",;
"IIF(auto,.F.,.T.)",;
"Text") -выдает ошибку
[/quot]
Грид - не таблица ячеек. Это набор колонок с заголовками и контролами для одной строки. Техт'ы лежат не в гриде, а в колонках.
[quot]
3. Ну и набирусь наглости -заодно спрошу об этом.
SELECT Tarlgot.vid,Lgkat.proj,iif(Lgkat.fampl,cLgotpl,0) as fampl,Lgkat.date_snat;
FROM Lgkat,Tarlgot;
WHER Lgkat.schet=cschet and Tarlgot.num_lgot = Lgkat.num_lgot and Lgkat.date_snat>dTekMes_num
INTO CURS lgkat_curs
хотелось бы в этом курсоре поле с номером записи в Lgkat по которой собрана запись в курсоре. Эксперементировал с RECNO - ничего не вышло.
Зарание благодарен! И ответьте пожалуста хотябы на первый ворос- он выжнее всего[/quot]
Ну а с номерами строк стандартный вопрос - а задлянафига? Что с этим номером делать?
...
Рейтинг: 0 / 0
2 нубовских вопроса по Grid-у
    #35597105
rock-n-roll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
проходящий
А вот этого как раз и не надо делать.

Стоп! А что надо делать то кода содержание грида берется из нескольких таблиц в зависимости от условия выбранного оператором?
по 2
IF RECNO(This.RecordSource)#0
THIS.SetAll("DynamicBackColor",;
"IIF(auto,RGB(0,255,255),RGB(192,192,192))",;
"COLUMN")
Действительно раскрашивает все техсты , комбы, в строке для auto=.T. в RGB(0,255,255) и для auto=.F. в RGB(192,192,192). Я не опытен в Visual . Просто в COLUMN есть DynamicBackColor a enabled -нет
по 3
в принципе обойдусь но было бы оч удобней
...
Рейтинг: 0 / 0
2 нубовских вопроса по Grid-у
    #35597183
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rock-n-roll
1. На форме нарисован Grid. Column-ы(все) состоят из Heder-ов и Text-ов. Все красиво разрисовано, в Text-ах стоят функции на события и тд. Первый раз в событии Show самой формы(может это важно) собираю курсор и загоняю в грид
Tisform.Grid1.RecordSource = "rezkat_curs"
Tisform.Grid1.RecordSourceType = 1 при первом запуске все абсолютно нормально. Но дальше в процессе пересобирыю курсор и так же загоняю в грид. И грид становится каким-то Browse!!!
Слетают все цвета, в заголовках- имена полей курсора, нет событий на Text-x и тд. Подскажите пожалуса где мне че посмотреть ?

Посмотреть сюда
...
Рейтинг: 0 / 0
2 нубовских вопроса по Grid-у
    #35597188
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rock-n-roll
3. Ну и набирусь наглости -заодно спрошу об этом.
SELECT Tarlgot.vid,Lgkat.proj,iif(Lgkat.fampl,cLgotpl,0) as fampl,Lgkat.date_snat;
FROM Lgkat,Tarlgot;
WHER Lgkat.schet=cschet and Tarlgot.num_lgot = Lgkat.num_lgot and Lgkat.date_snat>dTekMes_num
INTO CURS lgkat_curs
хотелось бы в этом курсоре поле с номером записи в Lgkat по которой собрана запись в курсоре. Эксперементировал с RECNO - ничего не вышло.


Попробуй так
Код: plaintext
1.
2.
3.
4.
SELECT Lgkat
SELECT RECNO() as Recno,Tarlgot.vid,Lgkat.proj,iif(Lgkat.fampl,cLgotpl, 0 ) as fampl,Lgkat.date_snat;
 	   FROM  Lgkat,Tarlgot;
WHERE  Lgkat.schet=cschet and Tarlgot.num_lgot = Lgkat.num_lgot and Lgkat.date_snat>dTekMes_num
       INTO CURS lgkat_curs

Однако присоединюсь к вопросу проходящего
проходящийНу а с номерами строк стандартный вопрос - а задлянафига? Что с этим номером делать?

Привязка к номеру строки чревата дальнейшими косяками. Лучше завести отдельное поле идентификатора.
...
Рейтинг: 0 / 0
2 нубовских вопроса по Grid-у
    #35603142
rock-n-roll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ага. Всем большое спасибо! Топ=)
...
Рейтинг: 0 / 0
2 нубовских вопроса по Grid-у
    #35610236
rock-n-roll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Продолжу вопрошать в этом топе хоть и не по гриду.
1.
sele vid,proc_otp,proc_vod,mes_str_short(date_ust) as date_ust_str;
from tarlgot;
wher date_snat>dtekmes_num;
into curs curs_type_lgot

mes_str_short-моя функция выдает строку
date_ust-поле в tarlgot
все нормально ,но!
Вадает курсор где ширина поля date_ust_str- равна длине строки которую выдало mes_str_short при формировании первой строки курсора. Остальные строки просто обрезаются. Как сделать чтобы длинна date_ust_str в курсоре была фиксированной (я знаю мах длинну строки от mes_str_short), либо курсор должен сабирать date_ust_str с максимальной длинной которую выдало ему mes_str_short при этой выборке.
2.
...
SET EXCLUSIVE off
...
do while !lEndMain
do case
case formMem=1
OPEN DATABASE ABONF
DO FORM ABONKARD
case formMem=2
OPEN DATABASE ABONF EXCL
DO FORM adminfancs
...
...
endc
READ EVENT
CLOS DATABASE ALL
endd
То есть впринципе добиваюсь своего: в форму adminfancs не зайти если у кого-то из пользователе откыта база(хоть как нибудь). И уж никто точно не войдет в базу если кому-то всетаки удалось открыть последнюю форму. Но естественно хотелось бы не просто 'в доступе отказано' и выброс. Облазил весь help в поиске какой-нибудь функции-результат логический(можно ли открыть данную базу монопольно или просто). И на всякий случай (врядли на данном этапе конечно пойму но все же попытаюсь) как узнать ну скажем с каких IP открыта база в текущий момент?
...
Рейтинг: 0 / 0
2 нубовских вопроса по Grid-у
    #35610619
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Так пусть твоя функция mes_str_short выдает результат фиксированного размера, например используя PADR
...
Рейтинг: 0 / 0
2 нубовских вопроса по Grid-у
    #35610621
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
2 нубовских вопроса по Grid-у
    #35613118
rock-n-roll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Даг. ОГРОМНОЕ спосибо. Ссылка просто СУПЕР. Получилось идентифицировать каждого пользавателя: кто, когда и как подключился. И вообще тема ШИКАРНАЯ - можно таким образом решить множество проблем. Еще раз ОГРОМНОЕ спосибо!
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / 2 нубовских вопроса по Grid-у
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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