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

•  DeLiKaTeS Tetris (Тетрис)  447

•  TDictionary Custom Sort  3 545

•  Fast Watermark Sources  3 283

•  3D Designer  5 054

•  Sik Screen Capture  3 539

•  Patch Maker  3 750

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

•  ListBox Drag & Drop  3 202

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

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

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

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

•  Canvas Drawing  2 966

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

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

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

•  Paint on Shape  1 648

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

•  Головоломка Paletto  1 838

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

 

 

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

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

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

 

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).

Просмотры: 799
Дата: 05.11.2006, Автор: Matugin1957
Скачивания: 268

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

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

 

 

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

   

 



























 

© 2004-2024 "DS"

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