Printing from DBGrid

Hi all,
I have two forms .... the first one I used ADOQuery to search the Table and put the result in the DBGrid at the same form, when I press the button I should see the result of searching in the second form in the QReport .
any Idea ????

Thanx

Dear Sir,

Thanx for your reply , but I didn't got what you said .. infact I didn't know how to do it and where should I write it, so could you please exaplaine more.
Thanx again

Regards

Well, here's a simple question.


Is the QReport on the second form linked to a TDataSource that points to the ADOQuery on the first form? Perhaps that's the problem.


This ususally trips folks up the first time they try it. Be sure that the uses section of the QReport form includes the form with the ADOQuery on it.


In the DataSource's DataSet attribute, the ADOQuery may not show up in the drop-down list, but you can type in the reference as a member of the first form, like in this example:

Unit QForm;
...
MyQuery : TADOQuery;
...
Unit ReportForm;
...
RptSource : TDataSource;
...

RptSource.DataSet := QForm.MyQuery;

O-o-o-k-a-a-a-y-y...

Well, I can't know what your unit names or component names are, so I have to just provide a generic example to demonstrate what I meant.

I see now in the code example I showed above that I didn't make it clear enough (and I got the RptSource wrong...). Let me break it down better. I can't do screen shots in this forum, so you'll have to do with lines of code.

__________________________________________________

Let's take the one form with the TADOQuery, and the DBGrid. I think it would look something like this:

Unit QForm;
type
TMyQForm = class(TForm)
MyQuery : TADOQuery;
MySource : TDataSource;
MyGrid : TDBGrid;
... (other components)

with attribute settings that probably look something like this:

MySource.DataSet = MyQuery
MyGrid.DataSource = MySource
MyQuery.Active = True

Okay? This is something like what you should already have on the first form.

__________________________________________________

Now, about the second form. Here's a guess at what should be there:

Unit ReportForm;
type
TRptForm = class(TForm)
MyReport : TQuickRep;

Okay...mea culpa. Here's where I screwed up.

The QuickReport has a DataSet attribute. Since the TADOQuery doesn't sit on this form, you have to qualify the name using the name of the unit it resides in. In the DataSet attribute of the TQuickRep (MyReport), you type:

QForm.MyQuery

In code, this would be typed as:

MyReport.DataSet := QForm.MyQuery

If the TADOQuery is Active, or you used the Fields Editor to populate the form with TField components for the TADOQuery, you should be able to select DataField components for all of the QuickReport's Database variables.

For instance, let's say that you have a TQRDBText component on the QuickReport labeled as "First Name". And let's say that the TADOQuery includes a FirstName field, assigned to a TStringField component named MyQueryFirstName.

In code, you would assign the QuickReport's Database field to the TADOQuery's corresponding field like this:

QRDBFirstName.Data:= QForm.MyQueryFirstName

__________________________________________________


I hope that this is enough.