Форум: "Базы";
Текущий архив: 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.035 c
