|
2 нубовских вопроса по Grid-у
|
|||
---|---|---|---|
#18+
Понимаю - вопросы нубовские но ниче не могу допетрить своим мозжичком.Помогите плиз советом! 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 - ничего не вышло. Зарание благодарен! И ответьте пожалуста хотябы на первый ворос- он выжнее всего ... |
|||
:
Нравится:
Не нравится:
|
|||
15.10.2008, 22:21 |
|
2 нубовских вопроса по Grid-у
|
|||
---|---|---|---|
#18+
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] Ну а с номерами строк стандартный вопрос - а задлянафига? Что с этим номером делать? ... |
|||
:
Нравится:
Не нравится:
|
|||
15.10.2008, 23:12 |
|
2 нубовских вопроса по Grid-у
|
|||
---|---|---|---|
#18+
проходящий А вот этого как раз и не надо делать. Стоп! А что надо делать то кода содержание грида берется из нескольких таблиц в зависимости от условия выбранного оператором? по 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 в принципе обойдусь но было бы оч удобней ... |
|||
:
Нравится:
Не нравится:
|
|||
15.10.2008, 23:53 |
|
2 нубовских вопроса по Grid-у
|
|||
---|---|---|---|
#18+
rock-n-roll 1. На форме нарисован Grid. Column-ы(все) состоят из Heder-ов и Text-ов. Все красиво разрисовано, в Text-ах стоят функции на события и тд. Первый раз в событии Show самой формы(может это важно) собираю курсор и загоняю в грид Tisform.Grid1.RecordSource = "rezkat_curs" Tisform.Grid1.RecordSourceType = 1 при первом запуске все абсолютно нормально. Но дальше в процессе пересобирыю курсор и так же загоняю в грид. И грид становится каким-то Browse!!! Слетают все цвета, в заголовках- имена полей курсора, нет событий на Text-x и тд. Подскажите пожалуса где мне че посмотреть ? Посмотреть сюда ... |
|||
:
Нравится:
Не нравится:
|
|||
16.10.2008, 04:10 |
|
2 нубовских вопроса по Grid-у
|
|||
---|---|---|---|
#18+
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.
Однако присоединюсь к вопросу проходящего проходящийНу а с номерами строк стандартный вопрос - а задлянафига? Что с этим номером делать? Привязка к номеру строки чревата дальнейшими косяками. Лучше завести отдельное поле идентификатора. ... |
|||
:
Нравится:
Не нравится:
|
|||
16.10.2008, 04:40 |
|
2 нубовских вопроса по Grid-у
|
|||
---|---|---|---|
#18+
Ага. Всем большое спасибо! Топ=) ... |
|||
:
Нравится:
Не нравится:
|
|||
19.10.2008, 21:16 |
|
2 нубовских вопроса по Grid-у
|
|||
---|---|---|---|
#18+
Продолжу вопрошать в этом топе хоть и не по гриду. 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 открыта база в текущий момент? ... |
|||
:
Нравится:
Не нравится:
|
|||
22.10.2008, 20:06 |
|
2 нубовских вопроса по Grid-у
|
|||
---|---|---|---|
#18+
1. Так пусть твоя функция mes_str_short выдает результат фиксированного размера, например используя PADR ... |
|||
:
Нравится:
Не нравится:
|
|||
23.10.2008, 05:47 |
|
2 нубовских вопроса по Grid-у
|
|||
---|---|---|---|
#18+
2. Может быть поможет Кто в данный момент работает с приложением ... |
|||
:
Нравится:
Не нравится:
|
|||
23.10.2008, 05:51 |
|
2 нубовских вопроса по Grid-у
|
|||
---|---|---|---|
#18+
Даг. ОГРОМНОЕ спосибо. Ссылка просто СУПЕР. Получилось идентифицировать каждого пользавателя: кто, когда и как подключился. И вообще тема ШИКАРНАЯ - можно таким образом решить множество проблем. Еще раз ОГРОМНОЕ спосибо! ... |
|||
:
Нравится:
Не нравится:
|
|||
23.10.2008, 20:11 |
|
|
start [/forum/topic.php?fid=41&msg=35610619&tid=1587152]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
66ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
1ms |
others: | 345ms |
total: | 508ms |
0 / 0 |