| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как из TDBGridEh выгрузить данные в текстовый файл. [D6, IB6.x]

AVP_opck ©   (2004-04-28 10:51:00) 

Не уверен что сам GridEh умеет это делать.
потому пишу процедурку. В принципе можно просто dataset
сверху вниз пройти все поля выгрузить и все.
Но у меня много датасетов(соответственно и гридов под них)
хочу одной этой процедуркой выгружать данные с любого датасета.
делаю вот так.
одну менюшку popup
раздаю ее всем гридам. как узнать в каком гриде менюшка вызвана и как добраться до датасет этого грида??

---

Соловьев   (2004-04-28 13:16:00) [1]

> просто у меня по F1 ehlib help Не вылазиет.

в ридми почитай как сделать чтобы вылазил :)

---

AVP_opck   (2004-04-28 13:08:00) [2]

Соловьев СПАСИБО!!!!!

---

Соловьев   (2004-04-28 11:43:00) [3]

не знаю как ты смотрел демки....

procedure TForm1.ppmSaveSelectionClick(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
   Ext:String;
begin
 SaveDialog1.FileName := 'file1';
 if (ActiveControl is TDBGridEh) then
   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 := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
       5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
     else
       ExpClass := nil; Ext := '';
     end;
     if ExpClass <> nil then
     begin
       if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
          UpperCase(Ext) then
         SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
       SaveDBGridEhToExportFile(ExpClass,TDBGridEh(ActiveControl),
            SaveDialog1.FileName,False);
     end;
   end;
end;



---

AVP_opck   (2004-04-28 11:40:00) [4]

угу понятно. почитал. просто у меня по F1 ehlib help Не вылазиет.
так нашел файлик помощи и почитал.
с этим все понятно.
я хочу делать выгрузку из менюшки попап. спрашиваю там имя файла через savedialog, привязываю эту менюшку ко всем гридам
и дальше в
SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,'c:\temp\file1.txt',False);
че писать вместо DBGridEh1??
вобчим как мне вытащить это имя грида? как узнать в каком гриде нажато попап?

---

Соловьев   (2004-04-28 11:30:00) [5]

> AVP_opck   (28.04.04 11:18) [3]

в каком месте?
F1 - это кнопка на клавиатуре
TDBGridEhExportClass - класс из EhLib которые занимается экспортом
Demo - демки из EhLib, где лучше других тебе все уже рассказали :)

---

AVP_opck   (2004-04-28 11:28:00) [6]

никаких экспортов никак не найду в Ehlib

---

AVP_opck   (2004-04-28 11:18:00) [7]

Соловьев

> Умеет
> F1+TDBGridEhExportClass+Demo

подробней можно??

---

Соловьев   (2004-04-28 10:55:00) [8]

> Не уверен что сам GridEh умеет это делать.

Умеет
F1+TDBGridEhExportClass+Demo

---

Курдль   (2004-04-28 10:55:00) [9]

> Не уверен что сам GridEh умеет это делать.

Должен! Ищите - да обрящете! TdxGrid от Quantum умеет выгрузиться в текст, ёксель, ХТМЛ, ХМЛ.

---

Наверх