EhLib содержит компоненты для работы с элементами календаря и планирования. DBGridEh позволяет отображать дополнительную информацию в . В данной статье я попытаюсь описать основные приемы, которые. И для отображения данных использует DBGridEh из ehLib - тоже .

Добрый день. Пытаюсь воспользоваться компонентом DBGridEh из библиотеки Ehlib.v5.0.02. Нашел в доке описание этой проблемы.

Библиотека Ehlib. Компонент TDBGrid.

Eh. Установка checkboxes в ячейках. Здравствуйте, рассматриваю данную тему — по просьбе читателя моего блога.

После того, как он мне задал вопрос: как в TDBGrid. Eh, в полях (в записях), где установлены checkbox (флажки), перенести в другую таблицу. Через пару часов, я скачал последнюю версию библиотеки Ehlib и установил ее. Как мне известно, то в компоненте TDBGrid. Eh, в отличии от того же TDBGrid, присутствует расширенный функционал. А для начала сформируем наш проект. На форме у меня следующие компоненты: TDBGrid.

EhLib 8.0 содержит компоненты и классы для Borland Delphi 7, 9, 2005, 2006. DBGridEh просматривать все данные, не перемещая активную запись. Несмотря на то, что в описании от автора обещается печать набора данных ("Well here is a component that will print a DBGrid with any data in it. Если DBGrid то можно использовать сторонний компонент EhLib. У меня такая проблема. Есть поле формата NUMERIC(15,2), когда я его передаю в DBGrid, то он произвольно округляет это число, т.е. Через пару часов, я скачал последнюю версию библиотеки Ehlib и установил ее. Меня как то на одном форуме спросили где можно купить игру.

Eh. TADOQuery. TADOConnection. TData. Source. TButton. Теперь, давайте создадим нашу БД, с которой мы будем работать. Таблица у меня следующей структуры: То есть, понятно, где у нас будут отображаться checkboxes, там у нас тип Логический, если использовать БД My.

SQL, то необходимо для данного поля, выбирать тип BOOL. Теперь давайте настроем немного наши компоненты. Выделяем компонент TADOConnection и свойство Login.

Promt устанавливаем в False. Затем, через свойство Connection. String, подключаемся к нашей БД. Как это сделать, можно посмотреть здесь. Далее, мы выделяем компонент TData. Source и в свойстве Data. Set - выбираем TADOQuery.

После этого, выделяем компонент TADOQuery и в свойстве Connection - выбираем TADOConnection, ну и наконец- то выделяем компонент TDBGrid. Eh и в свойстве Data. Source выбираем — TData. Source. Если, Вы сделали все правильно, то подключение к нашей БД должно работать. Далее, выделяем еще раз компонент TDBGrid. Eh и нажимаем по нему двойным щелчком мыши, после чего должно появиться следующее окно: В данном окне, мы создаем 2 колонки (TColumns). В свойствах Field.

Name указываем — id, а второй колонки — checkbox. Название полей, в свойстве Field. Name, должно совпадать — с названием полей, в таблице MS Access (В нашем случае в таблице Table. Test)В свойстве checkboxes поля, в котором необходимо отображать Check. Box устанавливаем в True (в нашем случае это поле — checkbox). Теперь необходимо активировать нашу таблицу, для этого на событие формы On. Show напишем следующий код: procedure TForm.

Form. Show(Sender: TObject). ADOQuery. 1. SQL. Add('SELECT * FROM Table. Test'). ADOQuery. Active: =True; end; Тут все понятно, в прошлых статьях: по работе с БД MS Access, мы рассматривали данный код подробнее. Ну, а теперь, давайте попробуем добавить какую- нибудь запись и посмотреть, как она храниться в таблице. Для этого, на событие On.

Click TButton напишем следующий код: procedure TForm. Button. 1Click(Sender: TObject); begin. ADOQuery. 1. Insert. ADOQuery. 1. Fields.

Field. By. Name('checkbox'). As. Variant: =True.

ADOQuery. 1. Post; end; Что делаем, мы данным кодом: вставляем запись, устанавливаем указатель (флажок), сохраняем запись. А теперь давайте попробуем вывести значение поля checkbox. Для это напишем следующий код: procedure TForm. Button. 3Click(Sender: TObject); begin. ADOQuery. 1. First.

Show. Message(ADOQuery. Fields. Fields. Все просто. При использовании БД My. Ты Мой Господь Моя Жизнь Для Тебя тут. SQL и поля BOOL для установки флажков, результатом будет вместо True/False — значение 1 или 0. Ну, а теперь, выборка записей, у которых установлен флажок.

Для этого, мы частично, воспользуемся статьей. Выделяем компонент TADOQuery, в свойстве Parameters - создадим новый параметр, которому в свойстве Name укажем check, а в свойстве Data. Type - ft. Boolean. Все, теперь нам остается написать следующий код: procedure TForm. Button. 2Click(Sender: TObject); begin. ADOQuery. 1. SQL.

Clear. ADOQuery. 1. SQL. Add('SELECT * FROM Table.

Test WHERE checkbox=: check'). ADOQuery. 1. Parameters. Param. By. Name('check'). Value: =True. ADOQuery. Active: =True; end; Все, теперь в нашем запросе находятся все поля, у которых установлен флажок (указатель), и с данными записями можно делать все, что угодно: переносить в другие таблицы, удалять, редактировать и так далее. Исходник, как всегда, прилагается, качаем его тут (IDE Delphi 7). Меня как то на одном форуме спросили где можно купить игру монополия, я конечно понял сразу, что это не просто игра, а ещё и тренажёр фортуны.

Метки: Access, Ado, ADoconnection, Ado. Query, dbgrideh, ehlib, MS Access, sql, tdbgrideh.