Голосование

Какой почтовый клиент Вы используете?

Microsoft Outlook
Outlook Express
The Bat!
Thunderbird
Eudora
Opera
Веб-интерфейс
Другой



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

 

Лента 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-2016 "DS"

E-mail: Отправить письмо


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

ВКонтакте   Twitter   Facebook