| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Печать базы [D6, Paradox]
Great DAN © (2002-05-04 11:11:00)Объясните пожалуйста как распечатать таблицу Парадокс 7
Ну я понимаю, что нужно обратиться к ячейке, потом отправить ее на принтер, ну а как именно это сделать и как провести инициализацию принтера?
Прошу помочь!
Николай В. (2002-05-06 10:20:00) [1]http://www.citforum.ru/cgi-bin/yandmarkup?HndlQuery=878678225&HndlDoc=12698&PageNum=0
Написано для Билдера, но в Дельфи все делается аналогично.
nomshar (2002-05-06 02:34:00) [2]Ничего в цикл помещать не надо, будет больше геморра. Просто я тебе не сказал, в свойстве DataSet компонента TQuickRep установи в значение имени компонента TTable, т.е. сделай также, как ты сделал в компонентах типа TQRDBText, и все у тебя получится. Каждый лист отображает одну строку, щелкая клавиши со стрелками (аля TNavigator), ты будешь перемещаться по строкам твоей таблицы. Вот и все.
Кстати, я тогда забыл сказать. Купи себе хорошую книгу по Delphi, чтобы потом не задавать таких простых вопросов. Например, купи себе книгу Архангельского "Программирование в Delphi 5". Там все очень просто, как раз для начинающих.
Great DAN (2002-05-05 07:13:00) [3]Ну у меня вывелось на печать одна ячейка, а как это поместить в цикл? и еще: как иожно сделать такую таблицу, что бы вид был следующий:
|| Позиция | Цена | Количество || Позиция | Цена | Количество ||
Ну т.е. в несколько столбцов, и разделенными разными линиями.
nomshar (2002-05-05 02:27:00) [4]Есть очень много способов распечатать базу данных. Если, как ты говоришь, ты новичок в Delphi, то лучше пока в TPrinter даже и не совайся. Тут тебе как раз дали дельную мысль: используй QReport. Если не знаешь как, то прочти Help по этому делу.
А так можно сделать просто:
В своем приложении подключи новую форму. На нее брось компонент QuickRep1. В свойстве Bands установи HasDetail в true (там будут находится поля твоего будущего отчета). Далее в области под именем TЕDetailBand размести столько компонент TQRDBText, сколько тебе надо (в каждом из этих компонент будет отображаться по одному полю твоей таблицы).
Далее в свойстве DataSet каждого компонента TQRDBText задай имя компонента TTable (не знаю, как ты его назовешь). Впрочем, там выпадающий список, надеюсь, разберешься. После это в свойстве компонента TQRDBText задай имя поля твоей таблицы (опять же выбери из выпадающего списка). Ну вот и все. В принципе уже можешь печатать. Теперь в главной форме пишешь что-то вроде этого:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.QuickRep1.Print;
end;
// А этой процедурой ты вызовешь окно предосмотра будущего отчета
//Тоже самое можно сделать в DesignTime, нажав правую кнопку
// мыши на компоненте TQuickRep и выбрав из контекстного меню
// команду Preview.
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.QuickRep1.Preview;
end;
Вот в принципе и все.
Delirium (2002-05-04 13:21:00) [5]> Great DAN
Много времени уйдёт на пустую болтовню - изучи примеры, а когда что-то не поймёшь, тогда и спрашивай.
Great DAN (2002-05-04 13:12:00) [6]Да мне бы основные процедуры и все, а так пока во всем лишнем разбираться, на это очень много времени уйдет
fnatali (2002-05-04 12:53:00) [7]Посмотри DELPHI\DEMOS\... - там есть примеры.
Great DAN (2002-05-04 11:32:00) [8]Ну я и qreport не знаю как использовать, первый раз вообще Дельфи вижу, если это возможно, покажите пожалуйста с подробными комментариями
Anatoly Podgoretsky (2002-05-04 11:26:00) [9]Проще использовать генератор отчетов, в комплекте есть Quick Report
| |
