Тема: dbf в delphi
Показать сообщение отдельно
  #56  
Старый 06.12.2012, 11:45
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от spawn-1212
Подскажи пожалуйста как это сделать не могу допетрить Columns нашёл, а далее туплю.
Если нужно программно, то примерно так:
Код:
        grdTable.Columns.Clear; // Удаляем из DBGrid всё ранее добавленные колонки

        Clm := grdTable.Columns.Add; // Добавляем новую колонку
        Clm.FieldName := 'RKL';  // Привязываем эту колонку к полю с именем "RKL"
        Clm.Title.Caption := 'Ф.И.О.'; // Если нужно задаём заголовок колонки
        Clm.Width := 300;              // ширину, и другие параметры

        Clm := grdTable.Columns.Add; // Добавляем ещё одну колонку
        Clm.FieldName := 'R069';  // Привязываем эту колонку к другому полю
        // и так далее
Ещё можно добавлять колонки в TDBGrid в режиме разработки: Кликни дважды по DBGrid - появится небольшое окошко. Если DBGrid уже привязан к какой нибудь таблице, то нажми в этом окошке кнопку "Add All Fields" - добавятся колонки со всеми полями из таблицы - удали из списка ненужные, или если не привязан, то добавляй колонки по одному кнопкой "Add New (Ins)", привязывай к нужному полю свойством FieldName в "Инспекторе Объектов" и т.д.
Цитата:
Сообщение от spawn-1212
И если не тяжело можешь подсказать, как сделать фильтр (скорей всего с помощью Query) по колонке R069 в ней дата, либо нет датыв формата 01.01.2013: если в этой ячеке есть дата, то выводить эту строку не надо (типо If R069 is null Then выводить колонки RFA, RIM, ROT, R003).
Если через Query, то запрос будет примерно такой:
PHP код:
SELECT RFARIMROTR003 FROM "KADRY_.DBF" WHERE R069 IS NULL 
Ответить с цитированием