nuker2015 BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Derrick Morgan Цитата: есть два TImage наложенных друг на друга (т.е с одинаковыми координатами и размерами), только картинки там разные Image1.Visible := True; Image2.Visible := False;   А один TImage использовать никак?  Какое расточительство системных ресурсов. Чтобы не мерцало: form(форма, панель или контейнер содержащий Timage).doublebuffered:=true; Всего записей: 132 | Зарегистр. 26-10-2005 | Отправлено: 10:35 23-02-2008

FaustOVO Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет всем   У меня возникла проблема - использую Delphi 10 lite но в нем в палитре почему то нету компонентов отвечающих за DataAccess - только 1 TDataSource, а DataSet и TTable  отсутствуют О_О можно как нибудь эти компоненты добавить? Всего записей: 306 | Зарегистр. 10-01-2007 | Отправлено: 14:36 24-02-2008

SRUTSSSSSSSS80 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет всем я сам в этом разделе в первые помогите пожалуйста настроить поиск в программе   Программа для базы данных по служебкам на HDD SAMSUNG ВРОДЕ ВСЁ СДЕЛАЛ А ВОТ ПОИСК НЕ РАБОТАЕТ ПОИСК выдрал с другой проги     тут моя база данных http://slil.ru/25510844     а тут прога откуда выдрал поиск( Unit9.pas) http://slil.ru/25510856   P.S.в дальнейшем программа будет выложена бесплатно с исходниками и забитой базой данных тут http://forum.ru-board.com/topic.cgi?forum=84&topic=0308&start=2060 [?]   не останьтесь равнодушными помогите доделать поисковик а то он уже задолбал   признаюсь честно в Делфи и в програмировании я новичёк Всего записей: 4462 | Зарегистр. 23-04-2006 | Отправлено: 17:48 24-02-2008 | Исправлено: SRUTSSSSSSSS80, 21:32 24-02-2008

waik Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору SRUTSSSSSSSS80   Не думаю что кто-то тебе поможет при такой постановке вопроса. Загляни сюда http://forum.ru-board.com/topic.cgi?forum=13&topic=1774 [?]  и спрячь весь этот  нечитаемый код. И заоддно поясни что значит не работает? Выдаёт ошибку (какую)? Всего записей: 610 | Зарегистр. 15-01-2003 | Отправлено: 19:31 24-02-2008

Minissota Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет всем! Мужики, спасибо за помощь с поиском в базе данных! Все работает, отлично, вот только хотел уточнить можно ли сделать так, что б я например, ввел букву "А" или букву "Д" и мне вывело все фамилии на букву "А" или "Д"?   И еще вопросик, как в DBGridе сделать так, что б я ввел значение ( например, в Edit )  число 10 и у меня DBGrid мог добавлять только 10 записей и не больше?   Заранее всем благодарен!!!! Всего записей: 13 | Зарегистр. 14-12-2007 | Отправлено: 19:37 24-02-2008

FaustOVO Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Привет всем   У меня возникла проблема - использую Delphi 10 lite но в нем в палитре почему то нету компонентов отвечающих за DataAccess - только 1 TDataSource, а DataSet и TTable  отсутствуют О_О можно как нибудь эти компоненты добавить? Сам разобрался - они отдельно устанавливаются Всего записей: 306 | Зарегистр. 10-01-2007 | Отправлено: 20:37 24-02-2008

waik Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Minissota   На сколько помню у тебя используется Interbase или его клон. В этом случае лучшее решение подключить UDF функцию к серверу типа SUBSTR и в запрос добавить что-то типа такого and SUBSTR(FAM,1,1)='А'  Это будет работать лучше, но можно и локально фильтровать записи в событии OnFilterRecord. Код - одна строка Accept := (UPPER(Copy(QUERY1FAM.Astring,1,1))='А')  При включенной фильтрации Filtered := true это событие будет срабатывать и записи удовлетворяющие условию будут выводиться.   По второму вопросу  - Не заставляй грид делать не свойственную ему работу. Это делается на уровне датасета, а грид только покажет всё что нужно. Точнее трудно сказать, не понятно что за датасет будет использоваться и в каком режиме. Копни в сторону свойства RecordCount и ручного ограничения вставки записей если количество уже достигло максимума. Всего записей: 610 | Зарегистр. 15-01-2003 | Отправлено: 21:01 24-02-2008

SRUTSSSSSSSS80 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору всё сам сел и разобрался и переписал прогу   Базу Данных подключил через TQuery   теперь поиск работает осталось чуть с формами поработать пару кнопок добавить и в путь тут исправленый исходник программы http://slil.ru/25511475 (я не чего не комертировал и так всё понятно можно даже свою базу данных подключить только чуть откоректировать то что будет в TQuery)   а то часто такие вопросы про использование TQuery в качестве поисковика попадаються   Всем спасибо за советы   Добавлено: Цитата: Minissota на скока я помню можно   нужно заменить = в запросе на LIKE   типа строгое соответствие на не строгое   поправьте если не прав Всего записей: 4462 | Зарегистр. 23-04-2006 | Отправлено: 21:51 24-02-2008

SRUTSSSSSSSS80 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Lexz84 глянь тут   http://valery-us4leh.narod.ru/main.html можно использовать и для твоих целей       Добавлено: Там всё просто с примерами и обьяснениями   P.S. Видно плохо искал Всего записей: 4462 | Зарегистр. 23-04-2006 | Отправлено: 23:53 25-02-2008

SergeBS Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору SRUTSSSSSSSS80 Цитата: а то часто такие вопросы про использование TQuery в качестве поисковика попадаються   Это называется "халява". Люди не понимая что такое БД и как с ними работать, не читают ничего, а втупую ко всем пристают с криками "сделайте мне хорошо, а то уволят". А вопрос прописан во ВСЕХ FAQах по БД, какие я видел. Но их же читать надо.     Добавлено: waik Цитата: В этом случае лучшее решение подключить UDF функцию к серверу типа SUBSTR и в запрос добавить что-то типа такого and SUBSTR(FAM,1,1)='А'  Это будет работать лучше, но можно и локально фильтровать записи в событии OnFilterRecord. Код - одна строка Accept := (UPPER(Copy(QUERY1FAM.Astring,1,1))='А')   Ну боже ж мой! Прочитай про LIKE и не парь людям мозги. И не надо насчет "лучших решений". Это не лучшее, а кривейшее решение. Как из Питера в Москву через Владик лететь. Специально есть оператор с кучей параметров и богатейшими возможностями, так нет, обязательно нужно что-то свое придумать. . Вместо того, чтобы доки прочесть.     Добавлено: SRUTSSSSSSSS80 Цитата: Программа для базы данных по служебкам на HDD SAMSUNG   На http://doxtorhdd.narod.ru/Resurs/samsung/samsung.htm ходил? У тебя больше будет?  Или может ну его - уже все есть. Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 08:44 26-02-2008

waik Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору SergeBS Цитата: Ну боже ж мой! Прочитай про LIKE и не парь людям мозги. И не надо насчет "лучших решений".   По осторожнее на поворотах... Никто никому мозги не парит. Какой вопрос такой ответ... Кто бы мог подумать что про лайк человеку не известно. Да и на какой базе это работате тоже пришлось догадываться... И в доку попрошу не тыкать, есть подозрение что я её в свои годы прочитал много больше.   Всего записей: 610 | Зарегистр. 15-01-2003 | Отправлено: 11:36 26-02-2008

vladk1973 Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Minissota Цитата: И еще вопросик, как в DBGridе сделать так, что б я ввел значение ( например, в Edit )  число 10 и у меня DBGrid мог добавлять только 10 записей и не больше?   waik Цитата: Копни в сторону свойства RecordCount и ручного ограничения вставки записей если количество уже достигло максимума Есть подозрение, что следующий вопрос от Minissota будет "А как мне теперь, мужики, вывести следущие десять записей?" Так что, waik, дружище, почему бы тебе сразу и этот вопрос не осветить? Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 11:56 26-02-2008

SergeBS Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору waik Цитата: На сколько помню у тебя используется Interbase или его клон. В этом случае лучшее решение подключить UDF функцию к серверу типа SUBSTR Это чье произведение?   Minissota Цитата: И еще вопросик, как в DBGridе сделать так, что б я ввел значение ( например, в Edit )  число 10 и у меня DBGrid мог добавлять только 10 записей и не больше?   Лезешь в любой FAQ - "как запретить добавление записей в DBGride". Выбираешь что больше нравится и запрещаешь не сразу, а когда нужно. Заодно там же посмотри "как Enter заставить себя вести как Tab".  Симпатичнее будет. Или с torry тащи готовое.   Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 13:25 26-02-2008

Maks150988 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет. Подскажите как применить расширенный стиль к TreeView. Нужен стиль TVS_FULLROWSELECT. Например для ListView SendMessage(ListView, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, LVS_EX_FULLROWSELECT); Для TreeView подобного не нашел. Что нужно вместо LVM_SETEXTENDEDLISTVIEWSTYLE для TreeView? Спасибо. =) Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 13:34 26-02-2008

waik Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору SergeBS Цитата: Это чье произведение?   Это моё предположение что используется sql сервер. Не больше. Если не понравился мой ответ можно просто дать свой. Если есть желание пофлудить - прошу в ПМ. Здесь не место.   Minissota Зря тебя тыкают в любой ФАК. Ещё раз повторю что грид не должен заниматься этой работой. Но на всякий случай дам прямые ссылки   http://delphiworld.narod.ru/_comps_.html http://delphiworld.narod.ru/base/tdbgrid_not_auto_add.html http://delphiworld.narod.ru/base/enter_next_dbgrid.html Хотя на самом деле это нужно делать в датасете. Хоть в BeforeInsert  вписать   if dataset.recordcount > 10 then Abort; Всего записей: 610 | Зарегистр. 15-01-2003 | Отправлено: 14:57 26-02-2008

plastkor BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору кто-нибудь может дать ссылочку на update's for Delphi 7? Буду очень признателен Всего записей: 170 | Зарегистр. 10-04-2007 | Отправлено: 10:26 27-02-2008

RostY Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору plastkor http://forums.realcoding.net/index.php?s=6be83ec21ed686a6dfa834233f8df37e&showtopic=1193&st=15&start=15   http://www.codegear.com/downloads/regusers/delphi http://forum.vingrad.ru/act-Print/client/html/f-84/t-54119.html Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 12:35 27-02-2008

SRUTSSSSSSSS80 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: SergeBS читал я эти FAQ пример работы людям не помешает как и мне я этих примеров скачал много и понял суть мне читать лень мне проще в программе увидеть как что устроенно   осмыслить и сделать что мне нужно   а на samsung примерно 120 метров служебок  пока..... есть и новее, именно комплектов служебок а не слитое Vtool-ом и Wcub-ом       Добавлено: Цитата: Это называется "халява". Люди не понимая что такое БД и как с ними работать, не читают ничего, а втупую ко всем пристают с криками "сделайте мне хорошо, а то уволят". А вопрос прописан во ВСЕХ FAQах по БД, какие я видел. Но их же читать надо. что правда то правда везде про него читал  но такого чтоб тыкал что нуно делать не видел я ж тока начал писать и эт моя первая БД и с этими компонентами не сталкивался   Цитата: На http://doxtorhdd.narod.ru/Resurs/samsung/samsung.htm ходил? У тебя больше а его у меня не чего нет хотя видял я этот сайт неплохой но пока от туда не чего не брал Цитата: SergeBS  если чем обидил извини Всего записей: 4462 | Зарегистр. 23-04-2006 | Отправлено: 21:48 27-02-2008

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование