Недавно мне пришлось работать с таблицами БД сервера MSSQL. По окончании написания некоторого количества практически однотипного кода, меня посетила мысль об автоматизации этих “рутинных” действий. Всем понятно, что написание практически одинакового кода, который отличается фактически всего лишь структурой таблиц БД, скорее всего никого не вдохновит. И к тому же, если сумма таблиц переваливает за десяток, с которыми вам приходиться работать, то занятие это из разряда скучных перейдет в разряд трудоемких.
Поиск в сети ни к чему не привел, потому реализацию взял на себя. Впоследствии удалось создать набор модулей (дальше DigestSDK) с помощью языка Delphi, который позволяет программисту избавится от написания “стандартных” строк кода по работе с базами данных и сосредоточить свои усилия на логике приложения.
Список основных функций
По окончании создания справочник автоматически владеет следующими функциями:
- удаление (в т.ч. групповое);
- добавление;
- редактирование (в т.ч. групповое);
- поиск (с опцией частичного соответствия);
- сортировка (при нажатии на DBGrid)
- выделение записей;
- сортировка (с указанием порядка сортировки и множеством полей);
- подсчет количества записей для выделенных записей и текущей выборки;
- быстрый переход к указанной записи;
- возможность сохранить последнее состояние справочника в базах данных либо в файле (последний запрос, настройки колонок, условия сортировки и отбора, положение формы);
- настройка видимых колонок (ширина, видимость, положение);
- указание максимального количества записей, которые отображаются;
- автоперевод английских названий соответственно пользовательского справочника.
Пример использования и демонстрация результатов
Программа создания:
// создаем основой справочник
DigestProducts := TSimpleDigestR.Create(
// запрос в произвольной форме
’select top 10 * from Production.Product’,
‘Production.Product’, // Имя таблицы для изменения
ConnectionString, // Строка подключения
nil, // Где создавать справочник
0 // Идентификатор оператора (для сохранения настроек)
);
// открываем справочник
DigestProducts.Open();
DigestProducts.ShowModal;
Результат действий:
Модули DigestSDK на языке Delphi
Достаточно создать нужный модуль, и работа всех возможностей, а также перевод названий полей и таблиц, произведется автоматически.