Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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
1-97246
APTEMKA
2002-05-20 15:10
2002.05.30
Помогите зачет горит. Просьба к модератору не удалять ето письмо


3-97186
weak
2002-05-08 11:56
2002.05.30
создание модального окна


3-97129
N00N
2002-05-06 11:47
2002.05.30
Переиндексация. Как?


1-97261
VicV
2002-05-17 23:00
2002.05.30
Кто нибудь знает, как сделать отчет в Еxcel?


1-97272
Durak
2002-05-16 18:27
2002.05.30
StringGrid and DrawGrids





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский