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

•  TDictionary Custom Sort  1 423

•  Fast Watermark Sources  1 609

•  3D Designer  2 663

•  Sik Screen Capture  2 013

•  Patch Maker  2 173

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

•  ListBox Drag & Drop  1 642

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

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

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

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

•  Canvas Drawing  1 371

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

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

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

•  Paint on Shape  777

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

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

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

•  Пазл Numbrix  862

 

 

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

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

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

 

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

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

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

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

 

 

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

   

 



























 

© 2004-2023 "DS"

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