VPF::Как работает SaveDBGridEhToExportFile - Форум программистов

ADAM83

Дата 5.4.2006, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 13.1.2006

Репутация: нет
Всего: нет

где-то прочитал о SaveDBGridEhToExportFile, а вот не знаю как его использовать, какие модули надо подключать.
Хотел бы експортировать дбгридех сразу при нажати на кнопке в ексел или веб.
Спасибо заранее

Alex

Дата 5.4.2006, 17:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162

Код


uses
  DBGridEhImpExp;


var
  ExpClass: TDBGridEhExportClass;
  Ext: String;
begin
  if SaveDialog1.Execute then begin
    case SaveDialog1.FilterIndex of
      1: begin ExpClass:= TDBGridEhExportAsText; Ext:= 'txt'; end;
      2: begin ExpClass:= TDBGridEhExportAsCSV ; Ext:= 'csv'; end;
      3: begin ExpClass:= TDBGridEhExportAsHTML; Ext:= 'htm'; end;
      4: begin ExpClass:= TDBGridEhExportAsXLS ; Ext:= 'xls'; end;
    else
      ExpClass:= nil;
      Ext:= '';
    end;

    if ExpClass <> nil then begin
      if not AnsiSameText(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3), Ext) then
        SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
      SaveDBGridEhToExportFile(ExpClass, DBGridEh1, SaveDialog1.FileName, True);
    end;
  end;
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

ADAM83

Дата 6.4.2006, 11:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 13.1.2006

Репутация: нет
Всего: нет

Alex, попробовал подключить модуль DBGridEhImpExp, уже работает SaveDBGridEhToExportFile, но потом пробовал твой код использовать что-то дельфа ругает, пишет что SaveDialog1 не может понять, а в списке методов его нету, зато появился процедура SaveDBGridEhToExportFile.
Не знаешь в чем проблема?

Alex

Дата 6.4.2006, 21:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162

Ну, а немного смекнуть и понять, что это компонент SaveDialog лежит? smile

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

ADAM83

Дата 7.4.2006, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 13.1.2006

Репутация: нет
Всего: нет

Alex, ну да немножко затупил, можно было догадаься. Ладно сэнк за ответ

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »