Голосование

Какую версию Delphi Вы используете?

Delphi 4 и ниже
Delphi 5
Delphi 7
Delphi 2005
Delphi 2006
Delphi 2007
Delphi 2009
Delphi 2010



Посмотреть результаты
Другие опросы ...

 

Лента RSS, новости сайта Новости сайта
Лента RSS, новости форума Новости форума
  Bookmark and Share

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

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

Кнопки, Ссылки и Баннеры ...

 


Automatic translation


English German French Italian Spanish
Portuguese Greece Japan Chinese Korean


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


скрыть

 

Delphi Sources

Delphi Sources

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

 

. : DBNavSearch : .

 

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

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

   За основу взят стандартный 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).


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

 

Назад

 

Скачать (27 Кб)

   

 
























 

© 2004-2018 "DS"

Отправить письмо / Реклама


|  У нас со скидками убод всем и каждому.  |

ВКонтакте   Facebook   Twitter