![]() |
|
![]() ![]() ![]() |
|
Nosor |
|
|||
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 24.4.2006 Репутация: нет Всего: нет |
ОООООчень нужно сделать распечатку данные из этого "грида", проблема в том что в нём отображены данные из других таблиц, а вместо компонента table он связан с querry, нашел готовый код но он какой-то непонятный, напишите плз как это сделать по этапам
|
|||
|
||||
Albinos_x |
|
|||
![]() Evil Skynet ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3288 Регистрация: 28.5.2004 Где: X-6120400 Y-1 4624650 Репутация: 1 Всего: 108 |
что конкретно непонятно?
-------------------- "Кто владеет информацией, тот владеет миром" Уинстон Черчилль |
|||
|
||||
Vit |
|
|||
![]() Vitaly Nevzorov ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 14 Всего: 207 |
Способы:
1. Сделать репорт. Плюсы - очень красивая печать, минусы - это не самый простой способ 2. Использовать третьесторонние DBGrid которые имеют встроенный метод печати. Минус - трудно регулировать внешний вид 3. Печатать форму - Form1.Print - просто но печатается только то что видно 4. Самому рисовать на канвасе принтера - геморрой... Я бы рекомендовал изучить работу любой репортинговой системы. -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
Nosor |
|
|||
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 24.4.2006 Репутация: нет Всего: нет |
всё по порядку: я в курсе как распечатывать данные из грида если в нём отображена таблица т.е. создать новую форму, закинуть на неё report и table, затем связаваю этот table c table который отображен в гриде. а у меня есть грид но нет table, а вместо него есть querry, и я не могу связать report с моим гридом
![]() |
|||
|
||||
Tror |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 193 Регистрация: 29.4.2005 Где: Кишинёв Репутация: нет Всего: 4 |
ну так и не надо связывать grid с reporto'м.
грид это всего лишь визуальное представление данных из DataSet'a, а TTable и TQuery и есть ничто иное как DataSet. т.е. вместо Table можно спокойно использовать Query. ![]() --------------------
Не говори всегда что знаешь, но знай всегда что говоришь. /Клавдий/============================================Кто может -- тот делает. Кто не может... тот получает сертификат MCSE ;) |
|||
|
||||
Nosor |
|
|||
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 24.4.2006 Репутация: нет Всего: нет |
Я знаю что могу это сделать, но кааааааааак???????? уже крыша едет. table и report я без проблем связываю, а querry и report не могуууууууу ![]() ![]() |
|||
|
||||
Tror |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 193 Регистрация: 29.4.2005 Где: Кишинёв Репутация: нет Всего: 4 |
Nosor, как ты думаешь, если есть 2 авто, один белого цвета, а другой черного,
то ездить они будут по разному??? ![]() может код покажешь. --------------------
Не говори всегда что знаешь, но знай всегда что говоришь. /Клавдий/============================================Кто может -- тот делает. Кто не может... тот получает сертификат MCSE ;) |
|||
|
||||
Nosor |
|
|||
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 24.4.2006 Репутация: нет Всего: нет |
unit Unit4;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, DB, DBTables; type TForm4 = class(TForm) DBGrid1: TDBGrid; Query1: TQuery; DataSource1: TDataSource; DBNavigator1: TDBNavigator; Table1: TTable; DataSource2: TDataSource; DBGrid2: TDBGrid; DBNavigator2: TDBNavigator; DBGrid3: TDBGrid; DBNavigator3: TDBNavigator; Table2: TTable; DataSource3: TDataSource; Bevel1: TBevel; Bevel2: TBevel; Bevel3: TBevel; procedure DataSource2DataChange(Sender: TObject; Field: TField); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation uses Unit1; {$R *.dfm} procedure TForm4.DataSource2DataChange(Sender: TObject; Field: TField); begin Query1.Active:=false; Query1.Active:=true; end; end. |
|||
|
||||
sexton |
|
|||
![]() sexton=Пономарь (eng) ![]() ![]() Профиль Группа: Участник Сообщений: 503 Регистрация: 5.5.2004 Где: Ульяновск Репутация: нет Всего: 9 |
Блин, ну подключай ты в отчетах Query ТОЧНО так же как и Table!
|
|||
|
||||
Vit |
|
|||
![]() Vitaly Nevzorov ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 14 Всего: 207 |
DataSource1.Dataset:=Query1;
DBGrid1.DataSource:=DataSource1; //или любой другой DB визуальный компонент Qurey1.open; -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Базы данных и репортинг" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами Обязательно указание: 1. Базы данных (Paradox, Oracle и т.п.) 2. Способа доступа (ADO, BDE и т.д.)
FAQ раздела лежит здесь! Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |