Недавно добавленные исходники

•  Fast Watermark Sources  33

•  3D Designer  1 165

•  Sik Screen Capture  760

•  Patch Maker  710

•  Айболит (remote control)  845

•  ListBox Drag & Drop  637

•  Доска для игры Реверси  11 939

•  Графические эффекты  788

•  Рисование по маске  610

•  Перетаскивание изображений  653

•  Canvas Drawing  673

•  Рисование Луны  493

•  Поворот изображения  363

•  Рисование стержней  442

•  Paint on Shape  261

•  Генератор кроссвордов  334

•  Головоломка Paletto  287

•  Теорема Монжа об окружностях  332

•  Пазл Numbrix  254

•  Заборы и коммивояжеры  407

 

 

Архив исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

Ссылки и Баннеры ...

 

Delphi Sources

Delphi Sources

ИСХОДНИК ПРОГРАММЫ

 

. : DBNavSearch : .

 

Исходник программы, демонстрирующей усовершенствованный компонент DBNavigator

Исходник программы, демонстрирующей усовершенствованный компонент DBNavigator (к компоненту DBNavigator добавлена еще одна кнопка - nbSearch (Поиск), а также были добавлены и другие функции).

За основу взят стандартный DBNavigator из исходных текстов VCL Delphi7, из файла C:\Program Files\Borland\Delphi7\Source\Vcl\DBCtrls.pas выделено только то, что относится к компоненту DBNavigator и добавлена еще одна кнопка - nbSearch (Поиск). Также появилось еще одно опубликованное свойство (свойство видимое в Инспекторе) - RuKeybrd (логического типа), значение по умолчанию True. Это свойство управляет автоматическим переключением клавиатуры на русскую раскладку при нажатии на кнопку nbSearch (Поиск) и появлении модального диалога для ввода значений полей искомой записи/записей.
После закрытия модального диалога клавиатура переключается обратно на ту же раскладку, которая была до этого. Переключение работает корректно при любом количестве раскладок в системе (две и более) и даже при отсутствии русской раскладки - остается та же раскладка. Остальные опубликованные свойства компонента DBNavSearch такие же как и у стандартного DBNavigator. При включении показа всплывающих подсказок (ShowHint = True), всплывающие подсказки для кнопок компонента DBNavSearch выводятся на русском языке, также на русском языке выводятся запрос на подтверждение удаления записи и сообщение о том что искомая запись не найдена. Вся русификация компонента DBNavSearch инкапсулирована внутри модуля DBNAVSCH.PAS и никак не связана со строковыми ресурсами VCL.

В свете клиент-серверных технологий в компоненте DBNavSearch сделаны еще два изменения по сравнению с DBNavigator:
1. При нажатии на кнопку nbInsert (Вставка), выполняется Append, а не Insert. Соответственно изменена всплывающая подсказка на кнопку nbInsert с 'Вставить запись' на 'Добавить новую запись'.
2. Если связанный с DBNavSearch DataSet является запросом (Query), то кнопка nbRefresh (Обновить данные) является неактивной (Enabled = False) вне зависимости от возможности редактировать данные (CanModify).

Идея создания данного компонента взята из книги Кена Хендерсона "Руководство разработчика баз данных в Delphi 2". Все оригинальные файлы компонента DBNavSearch от Кена Хендерсона помещены в поддиректории Original (взяты с прилагаемого к книге CD).

Просмотры: 162
Дата: 05.11.2006, Автор: Matugin1957

Комментарии пользователей:
Zerg06969_
28 июля 2019
Компонент хороший, минус то, что в поиске отображаются все столбцы, даже невидимые в DBGrid, вот если бы сделать (доработать компонент) так, чтобы в поиске отображались только те столбцы, которые видны в DBGrid, а невидимые не отображались, тогда компонент был бы еще лучше.
   

Написать сообщение:
 

 

 

Скачать (26 Кб)   ↓ 260   Регистрация >>

   

 



























 

© 2004-2022 "DS"

Соглашение пользователя / Реклама / Карта сайта             Created by BrokenByte Software