|
ms access mdb파일을 쿼리로 연결한다음 dbgrid에 뿌렸습니다.
그런다음 quick report로 프린트를 하려는데요
간략하게 프린트하기까지 과정을 보면..
ADOQuery1->ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
+ ExpandFileName("C:\\CS_DB\\THW_CS.mdb");
ADOQuery1->SQL->Text = "select * from SEC_S_LSI_Logic_Power_CSR";
ADOQuery1->SQL->Add("order By 순번");
ADOQuery1->Open();
DataSource1->DataSet = ADOQuery1;
DBGrid1->DataSource = DataSource1;
Form4->QuickRep1->DataSet = ADOQuery1;
Form4->QRDBText1->DataSet = ADOQuery1;
Form4->QRDBText2->DataSet = ADOQuery1;
Form4->QRDBText3->DataSet = ADOQuery1;
Form4->QRDBText4->DataSet = ADOQuery1;
Form4->QRDBText5->DataSet = ADOQuery1;
Form4->QRDBText6->DataSet = ADOQuery1;
Form4->QRDBText7->DataSet = ADOQuery1;
Form4->QRDBText8->DataSet = ADOQuery1;
Form4->QRDBText9->DataSet = ADOQuery1;
Form4->QRDBText10->DataSet = ADOQuery1;
Form4->QRDBText11->DataSet = ADOQuery1;
Form4->QRDBText12->DataSet = ADOQuery1;
Form4->QRDBText13->DataSet = ADOQuery1;
Form4->QRDBText14->DataSet = ADOQuery1;
Form4->QRDBText15->DataSet = ADOQuery1;
Form4->QRDBText16->DataSet = ADOQuery1;
Form4->QRDBText17->DataSet = ADOQuery1;
Form4->QRDBText18->DataSet = ADOQuery1;
QuickRep1->Print;
이렇게 작성했습니다.
이렇게 하고 프린트를 하니까 dbgrid의 맨 위 데이터만 출력되더군요.
혹시나 해서
int a =2;
.
.
.
while(a)
{
// QuickRep1->Print();
// MessageBox(Handle,
// "고객사 이름이 잘못되었습니다.","Warning", MB_OK);
Form1->ADOQuery1->Next();
Form1->ADOQuery1->Open();
QuickRep1->DataSet = Form1->ADOQuery1;
QRDBText1->DataSet = Form1->ADOQuery1;
QRDBText2->DataSet = Form1->ADOQuery1;
QRDBText3->DataSet = Form1->ADOQuery1;
QRDBText4->DataSet = Form1->ADOQuery1;
QRDBText5->DataSet = Form1->ADOQuery1;
QRDBText6->DataSet = Form1->ADOQuery1;
QRDBText7->DataSet = Form1->ADOQuery1;
QRDBText8->DataSet = Form1->ADOQuery1;
QRDBText9->DataSet = Form1->ADOQuery1;
QRDBText10->DataSet = Form1->ADOQuery1;
QRDBText11->DataSet = Form1->ADOQuery1;
QRDBText12->DataSet = Form1->ADOQuery1;
QRDBText13->DataSet = Form1->ADOQuery1;
QRDBText14->DataSet = Form1->ADOQuery1;
QRDBText15->DataSet = Form1->ADOQuery1;
QRDBText16->DataSet = Form1->ADOQuery1;
QRDBText17->DataSet = Form1->ADOQuery1;
QRDBText18->DataSet = Form1->ADOQuery1;
a--;
}
이렇게 해보니까 2장이 출력되긴 하는데 첫번째 데이터만 2장이 출력되더군요.
출력버튼을 누르면 dbgrid의 모든 데이터를 출력하는게 목표인데요.
뭐가 잘못된걸까요?
|