Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

проблема с АДО и Oracle   Найти похожие ветки 

 
nika_ufc ©   (2004-04-10 14:10) [0]

мужики помогите.
хочу из базы сделать рапорт (из Oracle). Connection делаю через АДО. но рапорт должен бить в формате .txt .
есть ли какой-нибудь компонент или класс который поможет меня в этом ? может у АДО есть что-то такое ? икал много но ничего ценного не смог найти.

сапасибо за помощь заранее .


 
nika_ufc ©   (2004-04-10 14:10) [0]

мужики помогите.
хочу из базы сделать рапорт (из Oracle). Connection делаю через АДО. но рапорт должен бить в формате .txt .
есть ли какой-нибудь компонент или класс который поможет меня в этом ? может у АДО есть что-то такое ? икал много но ничего ценного не смог найти.

сапасибо за помощь заранее .


 
RayRom ©   (2004-04-10 19:04) [1]

Компонент ручками писать надо могу аоделится как в ХТМЛ Грид перегонять:
procedure TConvert.OKBtnClick(Sender: TObject);
var F1 : TextFile;
   indfil, inddat : integer;
begin
 AssignFile(F1, FileNameEdit1.FileName);
 {$I-}
 Rewrite(F1);
 {$I+}
 if (IOResult <> 0) or (FDataSet = nil) then
   begin
     MessageBox(0,"Невозможно создать файл или"#13#10"не определен набор данных!!!","Предупреждение!",
        MB_OK or MB_ICONWARNING or MB_APPLMODAL);
     CloseFile(F1);
   end
 else
   if RadioButton1.Checked then // Тута проверка на отображение полей в заголовке формы
   begin
     indfil := FDataSet.FieldCount;
     WriteLn(F1, "<html>"#13#10"<meta http-equiv="Contetnt-Type" content="text/html; charset=windows-1251">");
     WriteLn(F1, "<title>", FileNameEdit1.FileName, "</title>");
     WriteLn(F1, "<body>"#13#10"<font face="Arial">");
     WriteLn(F1, "<table col="", indfil, "" border="1" cellpadding="2" cellspacing="0">");
     if CheckBox1.Checked then
       begin
         Write(F1, "<tr>");
         for indfil := 0 to FDataSet.FieldCount - 1 do
           Write(F1, "<td>", FDataSet.Fields[indfil].FieldName,"</td>");
         WriteLn(F1, "</tr>");
       end;
     for inddat := 1 to FDataSet.RecordCount do
       begin
         Write(F1, "<tr>");
         FDataSet.RecNo := inddat;
         for indfil := 0 to FDataSet.FieldCount - 1 do
           begin
             Write(F1, "<td>", FDataSet.Fields[indfil].AsString,"</td>");
           end;
         WriteLn(F1, "</tr>");
       end;
     WriteLn(F1, "</table>"#13#10"</font>"#13#10"</body>"#13#10"</html>");
   end
 else
   if RadioButton3.Checked then
   begin
     indfil := FDataSet.FieldCount;
     for inddat := 1 to FDataSet.RecordCount do
       begin
         FDataSet.RecNo := inddat;
         for indfil := 0 to FDataSet.FieldCount - 1 do
           begin
             Write(F1, FDataSet.Fields[indfil].AsString,",");
           end;
         WriteLn(F1);
       end;
   end;
 CloseFile(F1);
end;


 
RayRom ©   (2004-04-10 19:04) [1]

Компонент ручками писать надо могу аоделится как в ХТМЛ Грид перегонять:
procedure TConvert.OKBtnClick(Sender: TObject);
var F1 : TextFile;
   indfil, inddat : integer;
begin
 AssignFile(F1, FileNameEdit1.FileName);
 {$I-}
 Rewrite(F1);
 {$I+}
 if (IOResult <> 0) or (FDataSet = nil) then
   begin
     MessageBox(0,"Невозможно создать файл или"#13#10"не определен набор данных!!!","Предупреждение!",
        MB_OK or MB_ICONWARNING or MB_APPLMODAL);
     CloseFile(F1);
   end
 else
   if RadioButton1.Checked then // Тута проверка на отображение полей в заголовке формы
   begin
     indfil := FDataSet.FieldCount;
     WriteLn(F1, "<html>"#13#10"<meta http-equiv="Contetnt-Type" content="text/html; charset=windows-1251">");
     WriteLn(F1, "<title>", FileNameEdit1.FileName, "</title>");
     WriteLn(F1, "<body>"#13#10"<font face="Arial">");
     WriteLn(F1, "<table col="", indfil, "" border="1" cellpadding="2" cellspacing="0">");
     if CheckBox1.Checked then
       begin
         Write(F1, "<tr>");
         for indfil := 0 to FDataSet.FieldCount - 1 do
           Write(F1, "<td>", FDataSet.Fields[indfil].FieldName,"</td>");
         WriteLn(F1, "</tr>");
       end;
     for inddat := 1 to FDataSet.RecordCount do
       begin
         Write(F1, "<tr>");
         FDataSet.RecNo := inddat;
         for indfil := 0 to FDataSet.FieldCount - 1 do
           begin
             Write(F1, "<td>", FDataSet.Fields[indfil].AsString,"</td>");
           end;
         WriteLn(F1, "</tr>");
       end;
     WriteLn(F1, "</table>"#13#10"</font>"#13#10"</body>"#13#10"</html>");
   end
 else
   if RadioButton3.Checked then
   begin
     indfil := FDataSet.FieldCount;
     for inddat := 1 to FDataSet.RecordCount do
       begin
         FDataSet.RecNo := inddat;
         for indfil := 0 to FDataSet.FieldCount - 1 do
           begin
             Write(F1, FDataSet.Fields[indfil].AsString,",");
           end;
         WriteLn(F1);
       end;
   end;
 CloseFile(F1);
end;


 
RayRom ©   (2004-04-10 21:11) [2]

Извини малеха обшибся, тут у мя из грида создает или ХТМЛ или ЦСВ фал радиовутоном определяется, а чекбоксом определяется выводить названия полей в ХТМЛе или нет


 
RayRom ©   (2004-04-10 21:11) [2]

Извини малеха обшибся, тут у мя из грида создает или ХТМЛ или ЦСВ фал радиовутоном определяется, а чекбоксом определяется выводить названия полей в ХТМЛе или нет


 
nika_ufc ©   (2004-04-10 22:17) [3]

спасибо тебе большое. пригодится не то слово !


 
nika_ufc ©   (2004-04-10 22:17) [3]

спасибо тебе большое. пригодится не то слово !


 
RayRom ©   (2004-04-11 16:34) [4]

Если есть мыло, то полностью модуль экспорта из ДБГрида вышлю, тока как я уже говорил там только ХТМЛ или ЦСВ, если сможеш то есче и РТФ можеш добавить!
Если надо модуль кидай свое мыло!


 
RayRom ©   (2004-04-11 16:34) [4]

Если есть мыло, то полностью модуль экспорта из ДБГрида вышлю, тока как я уже говорил там только ХТМЛ или ЦСВ, если сможеш то есче и РТФ можеш добавить!
Если надо модуль кидай свое мыло!



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.038 c
1-1082617713
Григорьев Антон
2004-04-22 11:08
2004.05.09
Непрозрачные проволочные поверхности в OpenGL


1-1082384472
pantel
2004-04-19 18:21
2004.05.09
Написание Form Designer а


3-1082027419
Vitaly
2004-04-15 15:10
2004.05.09
Ребята, не могу найти d5adoupdate2.exe


4-1078988334
Shiza
2004-03-11 09:58
2004.05.09
Помогите перевести кусок С-шного кода.


4-1079353821
StAL
2004-03-15 15:30
2004.05.09
Парадокс при перехвате API





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский