Форум: "Базы";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];
ВнизПечать базы Найти похожие ветки
← →
Great DAN (2002-05-04 11:11) [0]Объясните пожалуйста как распечатать таблицу Парадокс 7
Ну я понимаю, что нужно обратиться к ячейке, потом отправить ее на принтер, ну а как именно это сделать и как провести инициализацию принтера?
Прошу помочь!
← →
Anatoly Podgoretsky (2002-05-04 11:26) [1]Проще использовать генератор отчетов, в комплекте есть Quick Report
← →
Great DAN (2002-05-04 11:32) [2]Ну я и qreport не знаю как использовать, первый раз вообще Дельфи вижу, если это возможно, покажите пожалуйста с подробными комментариями
← →
fnatali (2002-05-04 12:53) [3]Посмотри DELPHI\DEMOS\... - там есть примеры.
← →
Great DAN (2002-05-04 13:12) [4]Да мне бы основные процедуры и все, а так пока во всем лишнем разбираться, на это очень много времени уйдет
← →
Delirium (2002-05-04 13:21) [5]> Great DAN
Много времени уйдёт на пустую болтовню - изучи примеры, а когда что-то не поймёшь, тогда и спрашивай.
← →
nomshar (2002-05-05 02:27) [6]Есть очень много способов распечатать базу данных. Если, как ты говоришь, ты новичок в 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;
Вот в принципе и все.
← →
Great DAN (2002-05-05 07:13) [7]Ну у меня вывелось на печать одна ячейка, а как это поместить в цикл? и еще: как иожно сделать такую таблицу, что бы вид был следующий:
|| Позиция | Цена | Количество || Позиция | Цена | Количество ||
Ну т.е. в несколько столбцов, и разделенными разными линиями.
← →
nomshar (2002-05-06 02:34) [8]Ничего в цикл помещать не надо, будет больше геморра. Просто я тебе не сказал, в свойстве DataSet компонента TQuickRep установи в значение имени компонента TTable, т.е. сделай также, как ты сделал в компонентах типа TQRDBText, и все у тебя получится. Каждый лист отображает одну строку, щелкая клавиши со стрелками (аля TNavigator), ты будешь перемещаться по строкам твоей таблицы. Вот и все.
Кстати, я тогда забыл сказать. Купи себе хорошую книгу по Delphi, чтобы потом не задавать таких простых вопросов. Например, купи себе книгу Архангельского "Программирование в Delphi 5". Там все очень просто, как раз для начинающих.
← →
Николай В. (2002-05-06 10:20) [9]http://www.citforum.ru/cgi-bin/yandmarkup?HndlQuery=878678225&HndlDoc=12698&PageNum=0
Написано для Билдера, но в Дельфи все делается аналогично.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c