Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Печать. TDBGrid [D6]

Drakon © (2005-09-06 09:46:00)
База данных: Access *.Mdb
При вводе значений в Edit -> поиск данных и вывод в TDBGrid.
Как сделать вывод на печать этих данных которые появляются в TDBGrid?

Ильш (2005-09-07 06:11:00) [1]

> EhLib - классная штука!

хе хе хе хе хе хе хе хе
еще одного подсадили :))))

Drakon (2005-09-06 15:00:00) [2]
Всем спасибо, сделал.
EhLib - классная штука!

DrAndrey (2005-09-06 14:19:00) [3]
procedure TForm_Setka.ToolBtn_TXTClick(Sender: TObject);
var RST: Recordset; b: Byte; SL: TStringList; sS: String;
begin
try
sS:=''; b:=0;

SL := TStringList.Create; //создание пустого списка строк
With (DBG_Setka.DataSource.DataSet As TADODataset) do begin
RST:= Recordset._xClone;

RST.Sort:= Sort; RST.Filter:=Filter;
end;

With RST do begin
While not EOF do begin
sS:='';
for b:= 0 to Fields.Count-1 do
sS:= sS + VarToStr(Fields[b].Value) + ' * ';//разделитель столбцов любой символ, здесь - астерикс
SL.Add(sS);//добавляешь строки в список
MoveNext;
end;
end;
//путь к новому файлу
sS:= ExtractFilePath(application.ExeName)+ Caption + '.txt';
// выгружаешь список в файл
SL.SaveToFile(sS);
//запуск приложения зарег. в системе по умолчанию
ShellExecute(Application.Handle, 'open', Pchar(sS), nil, nil,
SW_SHOWNORMAL);

finally
RST.Close;
SL.Free;
end;
end;

TForm_Setka - это класс родитель всех форм с DBGRidamи в моем приложении (обычно справочники), ToolBtn_TXT - это кнопка на панели

Получится наподобие

1* Иванов * Иван * Иван *
2* Петров * Петр * Петрович *
3* Сидоров * Сидор * Сидорович *

Примитивно, но для шпаргалок вполне

Drakon (2005-09-06 11:58:00) [4]
To DrAndrey можно код глянуть? nov.v.v@mail.ru

DrAndrey (2005-09-06 10:36:00) [5]
Цикл по DataSet с формированием тестового файла и последующим открытием в приложении по умолчанию, наверное "Блокнот".
Работает это быстро, кроме того есть возможность последующего редактирования. Кода 5 строк и никаких компонентов.
Я использую этот прием очень часто. Если интересует - дам код.

Shopot (2005-09-06 10:25:00) [6]
www.EhLib.com

Для русских пользователей регистрация бесплатно "ФЕВРАЛЬФЕВРАЛЬ". Качай пакет EhLib.exe (rar) распаковывай и пользуйся. Ниче делать не надо. Все за нас уже сделано. Быстро и красиво!

Ильш (2005-09-06 09:57:00) [7]
QuickReport

ЮЮ (2005-09-06 09:56:00) [8]
1) Вывести на печать DataSet, отображаемый в гриде. Используя компоненты с закладки QReport или другие компонентты (библиотеки) формирования отчетов.

2) Использовать TDBGridEh, автор которой тоже считает, что это должен уметь делать Grid :)

Наверх

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