ADOTable позиция

← →
Sergey13 © (2009-11-10 15:24) [40]

> [38] Andrewtitoff © (10.11.09 15:16)
> Мля, да Вы все не правильно поняли... =)))

Да все я понял. Есть одна таблица, которая закатана в грид и фильтруется до полного удовлетворения. После этого по кнопке появляется твоя чудесная форма для редактирования. Только какая разница бабушке какую именно (в случайном порядке) запись она видит? Ведь она может, насколько я понял, и не фильтровать вовсе, а просто редактировать все подряд лифты.

← →
Dennis I. Komarov © (2009-11-10 15:24) [41]

Т.е. это мне телепатор должен подсказать, что такое режим редактирования...

← →
Anatoly Podgoretsky © (2009-11-10 15:37) [42]

> Andrewtitoff (10.11.2009 15:03:33) [33]

Обидно слышать.

← →
andrewtitoff © (2009-11-10 19:48) [43]

> Sergey13 © (10.11.09 15:24) [40]
> > [38] Andrewtitoff © (10.11.09 15:16)> Мля, да Вы все
> не правильно поняли... =)))Да все я понял. Есть одна таблица,
> которая закатана в грид и фильтруется до полного удовлетворения.
> После этого по кнопке появляется твоя чудесная форма для
> редактирования. Только какая разница бабушке какую именно
> (в случайном порядке) запись она видит? Ведь она может,
> насколько я понял, и не фильтровать вовсе, а просто редактировать
> все подряд лифты.

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

> Dennis I. Komarov © (10.11.09 15:24) [41]
> Т.е. это мне телепатор должен подсказать, что такое режим
> редактирования...

Ну в общем то да, извиняюсь, немного не верно изложил информацию.., но теперь то я думаб вам все ясно стало?!, и вы мне поможете найти ответ на мой вопрос? ;)

> Anatoly Podgoretsky © (10.11.09 15:37) [42]
> > Andrewtitoff (10.11.2009 15:03:33) [33]Обидно слышать.
>

А что обидно?, может я и дурак, но вот Вы посмотрите тему сабджа и ткните пальцем в строчку в приведенном выше материале где написано решение моей проблемы и тогда поговорим, а просто оскорбления ни мне пользы не принесут - не Вам уважения не прибавят....

← →
Сергей М. © (2009-11-10 19:50) [44]

> Вы посмотрите тему сабджа

Там что-то из Камасутры)

← →
sniknik © (2009-11-10 20:14) [45]

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

> А что обидно?
неправильное цитирование, в оригинале(?) Игорь Шевченко говорил "больно слышать".
(и действительно, смотришь на твои мучения, и душа болит... не настолько чтобы взять, и за тебя сделать, а по другому вряд ли получится. объяснять тебе труда больше займет чем самому... и потом, ты чтото говорил о самообразовании(/интересе к этому делу)... :о))

← →
andrewtitoff © (2009-11-10 20:42) [46]

> Сергей М. © (10.11.09 19:50) [44]
> > Вы посмотрите тему сабджаТам что-то из Камасутры)

Это все Ваши эротические фантазии... =))))

> sniknik © (10.11.09 20:14) [45]
> > где написано решение моей проблемы твоя проблема в том
> что ты занимаешься не своим делом. что делать я тебе говорил.
> извини, но не буду искать где, чтобы ткнуть конкретно в
> строчку.> А что обидно?неправильное цитирование, в оригинале(?
> ) Игорь Шевченко говорил "больно слышать".(и действительно,
> смотришь на твои мучения, и душа болит... не настолько
> чтобы взять, и за тебя сделать, а по другому вряд ли получится.
> объяснять тебе труда больше займет чем самому... и потом,
> ты чтото говорил о самообразовании(/интересе к этому делу).
> .. :о))

А вы простите, что, родились со всеми своими знаниями, или вам все таки кто по подсказывал?, за меня делать не нужно, вы подскажите, а если нужно и обЪясноте, времени это естественно больше займет - но за то у вас будет на одного человека меньше - кто будет обращаться к вам с подобным вопросом... =)))

← →
Германн © (2009-11-10 20:51) [47]

> за то у вас будет на одного человека меньше - кто будет
> обращаться к вам с подобным вопросом...

Имя вам - легион (((

← →
Сергей М. © (2009-11-10 20:53) [48]

> andrewtitoff © (10.11.09 20:42) [46]

Почему мои-то ?)
Про "позицию ADOTable" кто нафантазировал ?)

← →
andrewtitoff © (2009-11-10 21:02) [49]

> Германн © (10.11.09 20:51) [47]
> > за то у вас будет на одного человека меньше - кто будет
> > обращаться к вам с подобным вопросом...Имя вам - легион
> (((

Ну что поделаешь..., Вы тоже в чем то не очень то и разбираетесь...

> Сергей М. © (10.11.09 20:53) [48]
> > andrewtitoff © (10.11.09 20:42) [46]Почему мои-то ?)Про
> "позицию ADOTable" кто нафантазировал ?)

Ну тему то конечно придумал я, отрицать не буду, но вот ее эротический смысл в полной мере раскрыли именно Вы.... =))))

← →
sniknik © (2009-11-10 23:37) [50]

> А вы простите, что, родились со всеми своими знаниями, или вам все таки кто по подсказывал?
не родился с ними конечно, но как то все сам, мало кто мне подсказывал. так выходило, и интернета не было когда азам учился, и когда взялся фоксовую систему дорабатывать в единственном числе хоть как-то знакомых с фоксом оказался, и когда на Delphi-ADO пришел оно только начиналось... ни одной русскоязычной доки/знакомого с ним человека рядом не было... т.что в основном сам.

а вообще, ты не смотри на других, проблема то у тебя, а не у других (чё за привычка, на других кивать?), и я тебе сказал так не по по тому что ты спрашиваешь, а потому, что не слушаешь, не читаешь, не учишься. "невменяемый" в общем, что не советуй все мимо ушей, считаешь неправильными советами, бредом... (знаний нет, но определить что правильно, что нет берешься. парадокс).

> за меня делать не нужно, вы подскажите
сколько веток назад я тебе "подсказал" бросить ADOTable? и? почему до сих вопрос по нему? и не надо говорить "не сказали почему его бросать", это не уговоры/сравнительный анализ с другими компонентами, это совет, т.е. тебе его дали, а дальше ты сам должен выяснить следовать ему или нет, поискать информацию, почитать и сделать вывод (и озвучить, типа "да вот поменял", или "я не согласен с этим вот по такой причине ...").
а совет о последовательном/наглядном заполнении "боксов"? ты его просто не понял (!). из чего я сделал вывод что у тебя нет "базы", а без базовых знаний советы не помогут, только навредят (т.к. их истолковывают неверно). тут уже не совет, обучение, ликбез нужен. а это долго, и бессмысленно т.к. ты не учишься быть программистом, ты хочешь на наших советах "сляпать" программку, и забыть все как страшный сон... (мнение составлено по твоим ответам)

> но за то у вас будет на одного человека меньше - кто будет обращаться к вам с подобным вопросом... =)))
сомневаюсь. на добрых "ездят". прокати одного, набежит сотня желающих.

> Ну что поделаешь..., Вы тоже в чем то не очень то и разбираетесь...
логично, черт побери. я тоже не разбираюсь во многом. например в ремонте автомобилей, но я в ремонт и не лезу!
вот потому и говорю - займись своим делом. либо бросай его и начинай серьезно заниматься программированием, книжки там читай, примеры делай, и т.д. но только не отмазывайся тем, что за основную работу тебе все одно заплатят даже за не сделанную...
"это уж совсем не доказательство". © Крош
http://rutube.ru/tracks/1494430.html?v=e2f55f5079b9c65be0077c6b0e3e2bdb&bmstart=26

← →
andrewtitoff © (2009-11-11 00:44) [51]

> sniknik © (10.11.09 23:37) [50]
> > А вы простите, что, родились со всеми своими знаниями,
> или вам все таки кто по подсказывал?не родился с ними конечно,
> но как то все сам, мало кто мне подсказывал. так выходило,
> и интернета не было когда азам учился, и когда взялся фоксовую
> систему дорабатывать в единственном числе хоть как-то знакомых
> с фоксом оказался, и когда на Delphi-ADO пришел оно только
> начиналось... ни одной русскоязычной доки/знакомого с ним
> человека рядом не было... т.что в основном сам.

Ну неповезло вам в чем то, согласен, вам когда то паскаль изучал - когда интернета небыло, да и с книгами проблемы были, правда слава богу подсказать было кому, ну так зачем теперь жадничать - мол я сам изучал и другие пускай сами мучаются, неужели так сложно подсказать?

> а вообще, ты не смотри на других, проблема то у тебя, а
> не у других (чё за привычка, на других кивать?), и я тебе
> сказал так не по по тому что ты спрашиваешь, а потому, что
> не слушаешь, не читаешь, не учишься. "невменяемый" в общем,
> что не советуй все мимо ушей, считаешь неправильными советами,
> бредом... (знаний нет, но определить что правильно, что
> нет берешься. парадокс).

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

> > за меня делать не нужно, вы подскажитесколько веток назад
> я тебе "подсказал" бросить ADOTable? и? почему до сих вопрос
> по нему? и не надо говорить "не сказали почему его бросать",
> это не уговоры/сравнительный анализ с другими компонентами,
> это совет, т.е. тебе его дали, а дальше ты сам должен выяснить
> следовать ему или нет, поискать информацию, почитать и сделать
> вывод (и озвучить, типа "да вот поменял", или "я не согласен
> с этим вот по такой причине ..."). а совет о последовательном/наглядном
> заполнении "боксов"? ты его просто не понял (!). из чего
> я сделал вывод что у тебя нет "базы", а без базовых знаний
> советы не помогут, только навредят (т.к. их истолковывают
> неверно). тут уже не совет, обучение, ликбез нужен. а это
> долго, и бессмысленно т.к. ты не учишься быть программистом,
> ты хочешь на наших советах "сляпать" программку, и забыть
> все как страшный сон... (мнение составлено по твоим ответам)

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

> > Ну что поделаешь..., Вы тоже в чем то не очень то и разбираетесь.
> ..логично, черт побери. я тоже не разбираюсь во многом.
> например в ремонте автомобилей, но я в ремонт и не лезу!
> вот потому и говорю - займись своим делом. либо бросай его
> и начинай серьезно заниматься программированием, книжки
> там читай, примеры делай, и т.д. но только не отмазывайся
> тем, что за основную работу тебе все одно заплатят даже
> за не сделанную... "это уж совсем не доказательство". ©
> Крошhttp://rutube.ru/tracks/1494430.html?v=e2f55f5079b9c65be0077c6b0e3e2bdb&bmstart=26

Ну и зря, видимо вы совсем не любознательный..., я тоже 2 года назад даже не знал где в автомобиле какие педали, но полтора года назад решил что мне необходима машина и отучился на права, а этим летом я уже своими руками произвел кап. ремонт двигателя и машина замечательно ездит, и замедьте для этого никаких книг по устройству ДВС я не читал, а обошелся базовыми знаниями полученными в процессе обучения (школа, техникум, университет, причем с автомобилями ничего связанно небыло), руководству по ремонту автомобиля и ХОРОШЕГО СОВЕТЧИКА, который по телефону меня консультировал...

← →
andrewtitoff © (2009-11-11 00:52) [52]

> http://rutube.ru/tracks/1494430.html?v=e2f55f5079b9c65be0077c6b0e3e2bdb&bmstart=26

И замедьте даже смешарики нашли в итоге свой край земли... =)))))))))))

← →
Германн © (2009-11-11 00:55) [53]

> andrewtitoff © (11.11.09 00:44) [51]

> По поводу обучения - нужно либо тупо отвечать на мои вопросы
> либо обьяснять нормально что к чему и почему, а не гнуть
> пальцы что я все делаю не так...

"Тупые" ответы ты игнорируешь, спрашиваешь почему. Но объяснить тебе "почему" нереально. Слишком длинная лекция порой получится. Тезис "ты делаешь всё не так" - это не гнутые пальцы, это факт. Но объяснение этого - это тоже не хилая лекция.
Так что я вижу только три варианта:
1. Ты платишь кому-то за программу.
2. Ты начинаешь учиться (читать учебники, причем от корки до корки).
3. Ты плюёшь на всё это и живёшь своей жизнью забыв про эту программу. А заодно и про любые другие программы.

← →
andrewtitoff © (2009-11-11 01:07) [54]

> Германн © (11.11.09 00:55) [53]
> > andrewtitoff © (11.11.09 00:44) [51]> По поводу обучения
> - нужно либо тупо отвечать на мои вопросы > либо обьяснять
> нормально что к чему и почему, а не гнуть > пальцы что я
> все делаю не так..."Тупые" ответы ты игнорируешь, спрашиваешь
> почему. Но объяснить тебе "почему" нереально. Слишком длинная
> лекция порой получится. Тезис "ты делаешь всё не так" -
> это не гнутые пальцы, это факт. Но объяснение этого - это
> тоже не хилая лекция.Так что я вижу только три варианта:
> 1. Ты платишь кому-то за программу. 2. Ты начинаешь учиться
> (читать учебники, причем от корки до корки). 3. Ты плюёшь
> на всё это и живёшь своей жизнью забыв про эту программу.
> А заодно и про любые другие программы.

Опять вы за свое... =))))
Я уже говорил что года полтора говорили тоже самое - но проект я свой завершил и все нормально работает и этот завершу с вашей помощью или без нее, так что свои варианты по поводу бросить и нанять оставьте для себя.....

По поводу обьяснять - согласен, это дело не легкое и утомительное, сам в свое время замещал в техникуме преподавателя информатики когда изучали ДОС, чесно скажу после пары практических занятий я "писал кипятком" и крыл всех трехэтажным матом.... =)))))
Ну тогда если вам по каким либо причинам нехочется объяснять - Вы можете вместо того что бы умничать - тупо ответить на поставленный вопрос?

Например по данной теме: плюньте что адотейбл нехорошая вещь - это моя проблема и мне с ней мучаться просто скажите что то вроде : в адотейбл есть такое-то свойство, обработчик куда можно мою процедуру вывода этих двух значений и все будет ок...

← →
Германн © (2009-11-11 01:21) [55]

> andrewtitoff © (11.11.09 01:07) [54]

> По поводу обьяснять - согласен, это дело не легкое и утомительное,
> сам в свое время замещал в техникуме преподавателя информатики
> когда изучали ДОС, чесно скажу после пары практических занятий
> я "писал кипятком" и крыл всех трехэтажным матом.... =)))))

Ты когда замещал преподавателя работал в режиме "лекции/семинара" или в режиме диалога?

> Ну тогда если вам по каким либо причинам нехочется объяснять
> - Вы можете вместо того что бы умничать - тупо ответить
> на поставленный вопрос?

Вот теперь я понял, что "тупо ответить на поставленный вопрос" == дать код. Но далеко не всегда можно дать код на "неправильный" вопрос.

> Например по данной теме: плюньте что адотейбл нехорошая
> вещь - это моя проблема и мне с ней мучаться просто скажите
> что то вроде : в адотейбл есть такое-то свойство, обработчик
> куда можно мою процедуру вывода этих двух значений и все
> будет ок...
>

А это уже совсем непонятно. Какие два значения?
RecNo & RecordCount?

← →
Sergey13 © (2009-11-11 08:36) [56]

> [43] andrewtitoff © (10.11.09 19:48)
> грид только для избранных

За что ты так людей не любишь? 8-)
Вот бы тебе в гугле такое сделать. Ввел строку поиска, а тебя сразу на первую ссылку, и "далее со всеми остановками".

← →
Сергей М. © (2009-11-11 09:18) [57]

> просто скажите что то вроде : в адотейбл есть такое-то свойство,
> обработчик куда можно мою процедуру вывода этих двух значений
> и все будет ок

OnAfterScroll

И попробуй только после всего этого захныкать, что не все или не ок)

← →
Andrewtitoff © (2009-11-11 10:02) [58]

> Германн © (11.11.09 01:21) [55]
> > andrewtitoff © (11.11.09 01:07) [54]> По поводу обьяснять
> - согласен, это дело не легкое и утомительное,> сам в свое
> время замещал в техникуме преподавателя информатики > когда
> изучали ДОС, чесно скажу после пары практических занятий
> > я "писал кипятком" и крыл всех трехэтажным матом.... =)))))Ты
> когда замещал преподавателя работал в режиме "лекции/семинара"
> или в режиме диалога?

И то и другое, но бесился естественно в режиме диалога, там было пол урока теория, а вторая половина - практика...

> > Ну тогда если вам по каким либо причинам нехочется объяснять
> > - Вы можете вместо того что бы умничать - тупо ответить
> > на поставленный вопрос?Вот теперь я понял, что "тупо ответить
> на поставленный вопрос" == дать код. Но далеко не всегда
> можно дать код на "неправильный" вопрос.

Ну не совсем в явном виде код - но близко к тому
> > Например по данной теме: плюньте что адотейбл нехорошая
> > вещь - это моя проблема и мне с ней мучаться просто скажите
> > что то вроде : в адотейбл есть такое-то свойство, обработчик
> > куда можно мою процедуру вывода этих двух значений и все
> > будет ок...> А это уже совсем непонятно. Какие два значения?
> RecNo & RecordCount?

Ну можно ли куда нибудь запихнуть вывод этих значений что бы при изменении любого из них они обновлялись на форме?

> Sergey13 © (11.11.09 08:36) [56]
> > [43] andrewtitoff © (10.11.09 19:48)> грид только для
> избранныхЗа что ты так людей не любишь? 8-)Вот бы тебе в
> гугле такое сделать. Ввел строку поиска, а тебя сразу на
> первую ссылку, и "далее со всеми остановками".

Да люблю я людей, просто так надо... =))))
Тем более в таблице 80 полей, из которых пользователю нужны не больше половины и просистав вправо они просто потеряют нужную строчку и исправят ненароком не ту строчку, тем более в родной проге столбцы по руски не подписаны, они автоматом называются как поле и не так просто догодаться что столбец "EWHO" - это оказывается кто проводил экспертизу...

> Сергей М. © (11.11.09 09:18) [57]
> > просто скажите что то вроде : в адотейбл есть такое-то
> свойство,> обработчик куда можно мою процедуру вывода этих
> двух значений > и все будет окOnAfterScrollИ попробуй только
> после всего этого захныкать, что не все или не ок)

Я это уже пробовал - сразу ошибку выдает.... =((((
Access violation at address 00404F84 ....

← →
Сергей М. © (2009-11-11 10:05) [59]

> уже пробовал - сразу ошибку выдает....
> Access violation at address 00404F84

Ты сам сказал, что "все будет ок".
Ну раз ок, то какие претензии ?)

Проблемы индейцев шерифа не волнуют)

← →
Sergey13 © (2009-11-11 10:14) [60]

> [58] Andrewtitoff © (11.11.09 10:02)
> Да люблю я людей, просто так надо... =))))
> Тем более в таблице 80 полей

В гриде количество полей может быть любым.

← →
Anatoly Podgoretsky © (2009-11-11 10:23) [61]

> sniknik (10.11.2009 23:37:50) [50]

> считаешь неправильными советами, бредом... (знаний нет, но определить что правильно, что нет берешься. парадокс).

Бред это когда человек, что то бормочет, а что непонятно, ну как с тобой.

← →
Anatoly Podgoretsky © (2009-11-11 10:25) [62]

> andrewtitoff (11.11.2009 00:44:51) [51]

Ну чисто халявная позиция, вы не только дайте, но еще и ложку ко рту поднесите, но не просто так, а вот так.

← →
Dennis I. Komarov © (2009-11-11 10:30) [63]

Пользователь вообще не должен знать о существовании неких таблиц, полей, записей, и тем более править какие-то значения в гриде %)
У пользователя должен быть понятный интерфейс, А НЕ НАЗВАНИЕ ПОЛЕЙ ТАБЛИЦ

← →
Anatoly Podgoretsky © (2009-11-11 10:32) [64]

> В гриде количество полей может быть любым.

И в гриде совсем не обязательно редактировать, а при таких проблемах это должно быть категорически запрещено.

← →
Andrewtitoff © (2009-11-11 10:49) [65]

> Сергей М. © (11.11.09 10:05) [59]
> > уже пробовал - сразу ошибку выдает....> Access violation
> at address 00404F84Ты сам сказал, что "все будет ок".Ну
> раз ок, то какие претензии ?)Проблемы индейцев шерифа не
> волнуют)

Не, я имел ввиду рабочий вариант, а не заведомо ложный... =)))
> Sergey13 © (11.11.09 10:14) [60]
> > [58] Andrewtitoff © (11.11.09 10:02)> Да люблю я людей,
> просто так надо... =))))> Тем более в таблице 80 полейВ
> гриде количество полей может быть любым.

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

> Dennis I. Komarov © (11.11.09 10:30) [63]
> Пользователь вообще не должен знать о существовании неких
> таблиц, полей, записей, и тем более править какие-то значения
> в гриде %)У пользователя должен быть понятный интерфейс,
> А НЕ НАЗВАНИЕ ПОЛЕЙ ТАБЛИЦ

Ну так и я про то же, для этого и существует чудесная форма!, но некоторым типа меня нужно и таблица!, а целом я про это и говор!

> Anatoly Podgoretsky © (11.11.09 10:32) [64]
> > В гриде количество полей может быть любым.И в гриде совсем
> не обязательно редактировать, а при таких проблемах это
> должно быть категорически запрещено.

В смысле?, при каких проблемх?

← →
Sergey13 © (2009-11-11 10:49) [66]

> [64] Anatoly Podgoretsky © (11.11.09 10:32)

Да он и не редактирует в нем. Он его даже на посмотреть не выводит. 8-)

← →
Andrewtitoff © (2009-11-11 10:52) [67]

> Sergey13 © (11.11.09 10:49) [66]
> > [64] Anatoly Podgoretsky © (11.11.09 10:32)Да он и не
> редактирует в нем. Он его даже на посмотреть не выводит.
> 8-)

Ну а это вам кто сказал?...
Вот вы на меня все гоните, а сами даже не знаете про что говорите, а потом обижаетесь что я не слушаю вас....

← →
Сергей М. © (2009-11-11 10:53) [68]

> имел ввиду рабочий вариант, а не заведомо ложный

Я не знаю кого или чего и в какой позиции ты там имел, но AfterScroll вызывается при позиционировании на существующую запись в результате явных или неявных вызовов методов методов навигации объекта TDataSet.

> [67] Andrewtitoff © (11.11.09 10:52)
> Ну а это вам кто сказал?...

> [43] andrewtitoff © (10.11.09 19:48)
> грид там действительно есть, но это не значит что бабушка
> его обязательно видит, грид только для избранных, а бабушка
> просто выбирает в меню "поиск", выбирает нужные ей параметры
> и появляется "чудесная форма", но форма отображает только
> одну запись, а в статус баре должно писаться что мол по
> вашим, бабушка критериям отобрано х-записей, а сейчас вы
> просматриваете из них запись № у....

Как понимать тебя, Саид? (с)

> но некоторым типа меня нужно и таблица

MS Аксесс спасет

> Сергей М. © (11.11.09 10:53) [68]
> > имел ввиду рабочий вариант, а не заведомо ложныйЯ не знаю
> кого или чего и в какой позиции ты там имел, но AfterScroll
> вызывается при позиционировании на существующую запись в
> результате явных или неявных вызовов методов методов навигации
> объекта TDataSet.

Ну в общем то конечно тут я не могу утверждать что не получил что хотел - просто как мне показалось - вы когда это писали уже заранее знали что будет такая ошибка.....
procedure TForm1.ADOTable4AfterScroll(DataSet: TDataSet); begin Form2.StatusBar1.SimpleText:="Запись № "+inttostr(ADOTable4.RecNo)+" из "+inttostr(ADOTable4.RecordCount); end;
ошибка при запуске программы возникает....

unit Start; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Gauges, jpeg, StdCtrls, ADODB, ComCtrls, DBCtrls, DB;//, DBClient, Mask; type TStartForm = class(TForm) Gauge1: TGauge; Image1: TImage; Label1: TLabel; Label2: TLabel; procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var StartForm: TStartForm; implementation uses MainUnit, Unit2, Unit3; {$R *.dfm} procedure TStartForm.FormActivate(Sender: TObject); var i : integer; c : boolean; n: integer; s : string; begin Gauge1.Progress:=0; Application.ProcessMessages; Form1.DBGrid5.Visible:=false; Form1.ADOQuery1.CursorType := ctOpenForwardOnly; for i := 0 to Form2.ComponentCount - 1 do if Form2.Components[i] is TDBComboBox then with TDBComboBox(Form2.Components[i]) do begin Form1.ADOQuery1.SQL.Text:=Format("select distinct %s from lift",[Form1.ADOTable4.Fields[tag].FieldName]); Form1.ADOQuery1.Open; Application.ProcessMessages; StartForm.Label1.Caption:="Загружаю список: "+Form1.ADOTable4.Fields[tag].FieldName; Gauge1.Progress:=I; while not Form1.ADOQuery1.Eof do begin Items.Add(Form1.ADOQuery1.Fields[0].AsString); Form1.ADOQuery1.Next; end; end; Form1.ADOQuery1.SQL.Text := "select distinct REGNUM from lift"; Form1.ADOQuery1.Open; while not Form1.ADOQuery1.Eof do begin Form2.ComboBox0.Items.Add(Form1.ADOQuery1.Fields[0].AsString); Form1.ADOQuery1.Next; Application.ProcessMessages; StartForm.Label1.Caption:="Загружаю лифты, Рег. №: "+Form1.ADOQuery1.Fields[0].AsString; Gauge1.Progress:=I+trunc(Form1.ADOQuery1.RecNo/10); end; Form1.ADOQuery1.SQL.Text := "select distinct STREET from lift"; Form1.ADOQuery1.Open; while not Form1.ADOQuery1.Eof do begin if Form1.ADOQuery1.Fields[0].AsString<>"" then Form2.ComboBox1.Items.Add(Form1.ADOQuery1.Fields[0].AsString) else Form2.ComboBox1.Items.Add("нет"); Form1.ADOQuery1.Next; Application.ProcessMessages; StartForm.Label1.Caption:="Загружаю Улицы : "+Form1.ADOQuery1.Fields[0].AsString; end; Form1.ADOQuery1.SQL.Text := "select distinct HOUSE from lift"; Form1.ADOQuery1.Open; while not Form1.ADOQuery1.Eof do begin if Form1.ADOQuery1.Fields[0].AsString<>"" then Form2.ComboBox2.Items.Add(Form1.ADOQuery1.Fields[0].AsString) else Form2.ComboBox2.Items.Add("нет"); Form1.ADOQuery1.Next; Application.ProcessMessages; StartForm.Label1.Caption:="Загружаю Дома : "+Form1.ADOQuery1.Fields[0].AsString; end; Form1.ADOQuery1.SQL.Text := "select distinct CORP from lift"; Form1.ADOQuery1.Open; while not Form1.ADOQuery1.Eof do begin if Form1.ADOQuery1.Fields[0].AsString<>"" then Form2.ComboBox3.Items.Add(Form1.ADOQuery1.Fields[0].AsString) else Form2.ComboBox3.Items.Add("нет"); Form1.ADOQuery1.Next; Application.ProcessMessages; StartForm.Label1.Caption:="Загружаю Корпуса : "+Form1.ADOQuery1.Fields[0].AsString; end; Form1.ADOQuery1.SQL.Text := "select distinct PARNUM from lift"; Form1.ADOQuery1.Open; while not Form1.ADOQuery1.Eof do begin if Form1.ADOQuery1.Fields[0].AsString<>"" then Form2.ComboBox4.Items.Add(Form1.ADOQuery1.Fields[0].AsString) else Form2.ComboBox4.Items.Add("нет"); Form1.ADOQuery1.Next; Application.ProcessMessages; StartForm.Label1.Caption:="Загружаю Парадные : "+Form1.ADOQuery1.Fields[0].AsString; end; n:=Gauge1.Progress; for I :=n to 1000 do Gauge1.Progress:=I; Form1.DBGrid5.Visible:=true; end; end.

эта форма запускается перед запуском основной т.е.
program Base_Util; uses Forms, Dialogs, MainUnit in "MainUnit.pas" {Form1}, Unit2 in "Unit2.pas" {Form2}, Unit3 in "Unit3.pas" {Form3}, Start in "Start.pas" {StartForm}, FirstHinstanceRunning_ in "FirstHinstanceRunning_.pas", gsCatcher in "gsCatcher.pas"; {$R *.res} begin GetDir(0,MD); Application.Initialize; if FirstHinstanceRunning(1) then begin Showmessage("Программа уже запущена!"); Exit; end; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); StartForm := TStartForm.Create(Application); StartForm.Show; StartForm.Update; while StartForm.Gauge1.Progress<>1000 do Application.ProcessMessages; Application.Title := "Лифтовая аварийная служба"; StartForm.Hide; StartForm.Free; Application.CreateForm(TForm3, Form3); Application.Run; end.

> Sergey13 © (11.11.09 10:55) [69]
> > [67] Andrewtitoff © (11.11.09 10:52)> Ну а это вам кто
> сказал?...> [43] andrewtitoff © (10.11.09 19:48)> грид
> там действительно есть, но это не значит что бабушка >
> его обязательно видит, грид только для избранных, а бабушка
> > просто выбирает в меню "поиск", выбирает нужные ей параметры
> > и появляется "чудесная форма", но форма отображает только
> > одну запись, а в статус баре должно писаться что мол по
> > вашим, бабушка критериям отобрано х-записей, а сейчас
> вы > просматриваете из них запись № у....Как понимать тебя,
> Саид? (с)

Ну так и понимать - что кому нужно - могут на грид смотрет, кому не нужно - на чудо форму, а для привередливых - грид на заднем фоне за формой...

> Dennis I. Komarov © (11.11.09 10:59) [70]
> > но некоторым типа меня нужно и таблицаMS Аксесс спасет

Ну это то конечно да, только зачем, если можно сделать все в одной программе, зачем пользователю сидеть сразу в куче оболочек, тем более из за этого тож проблемы могут быть...

В переменной Form2 у тебя nil, вот ты и получил граблями)

И, спрашивается, причем здесь AfterScroll ?

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

А ведь придет такой же но с условием, что низя ничего исправлять, вернее можно но чтобы работали VBS (которые, кстати, можно поправить при необходимости) и МегаСуперПрога (к которой уже все привыкли)

:(

> Сергей М. © (11.11.09 11:05) [74]
> В переменной Form2 у тебя nil, вот ты и получил граблями)И,
> спрашивается, причем здесь AfterScroll ?

А можно по подробнее?, т.е.
procedure TForm1.ADOTable4AfterScroll(DataSet: TDataSet); begin if Form2 <> nil then Form2.StatusBar1.SimpleText:="Запись № "+inttostr(ADOTable4.RecNo)+" из "+inttostr(ADOTable4.RecordCount); end;
Так действительно все работает, просто до неня не допирает откуда nil возникает и почему, а вообще огромное спасибо!, сейчас все работает и это именно то - что я хотел! =)))

> Dennis I. Komarov © (11.11.09 11:07) [75]
> Бедный программист который после тебя будет все это переделывать,
> начиная со структуры базы...А ведь придет такой же но с
> условием, что низя ничего исправлять, вернее можно но чтобы
> работали VBS (которые, кстати, можно поправить при необходимости)
> и МегаСуперПрога (к которой уже все привыкли):(

Мля, да достали вы стебаться, я на мастера и не претедндую, а про базу я уже 200 раз говорил что не моя она и я к ее структуре не имею ниткакого отношения...
А мега-супер прога ненравится никому, там во первых интерфейс неудобный не говоря уже он нехватке функционал, кучи лишних и т.д. так что однозначно проще новая - чем править ту в которой ксати уже травили все кому не лень - псле чего она такий и стала...

> не допирает откуда nil возникает и почему

Статические переменные, каковой является Form1, Form2 и иже с ними, на момент старта приложения всегда инициализированы нулями.

Application.CreateForm(TForm1, Form1); //<-- при выполнении этой строчки происходит вызов обработчика AfterScroll, в кготором ты обращаешься к переменной Form2,
Application.CreateForm(TForm2, Form2); //<-- которая, в свою очередь, получает валидное значение в этой строчке

> сейчас все работает и это именно то - что я хотел

А теперь установи фильтр на свою таблицу и получи еще раз граблями)

> Сергей М. © (11.11.09 11:19) [78]
> > не допирает откуда nil возникает и почемуСтатические переменные,
> каковой является Form1, Form2 и иже с ними, на момент старта
> приложения всегда инициализированы нулями. Application.CreateForm(TForm1,
> Form1); //<-- при выполнении этой строчки происходит вызов
> обработчика AfterScroll, в кготором ты обращаешься к переменной
> Form2, Application.CreateForm(TForm2, Form2); //<-- которая,
> в свою очередь, получает валидное значение в этой строчке

А если их местами поменять? =)))
Хотя в принципе и так пока что устраивает

> Сергей М. © (11.11.09 11:21) [79]
> > сейчас все работает и это именно то - что я хотелА теперь
> установи фильтр на свою таблицу и получи еще раз граблями)

Фильтровал - пока что все в норме!, а что должно быть?, какие грабли?

ADOTable позиция Найти похожие ветки