兩個form互傳資料 再由quickrep列印出來 |
|
尚未結案
|
|
odyaho
初階會員   發表：60 回覆：104 積分：42 註冊：2005-02-15 發送簡訊給我 |
|
|
andychang1690
資深會員 發表：20 回覆：694 積分：442 註冊：2003-03-14 發送簡訊給我 |
odyaho：QuickRep中一定有QRBand其BandType屬性是rbDetail。
假設int n=5; // 一頁只印五筆
int i=0;
void __fastcall TPrint1::DetailBand1BeforePrint(TQRCustomBand *Sender,
bool &PrintBand)
{
i ;
}
void __fastcall TPrint1::DetailBand1AfterPrint(TQRCustomBand *Sender,
bool BandPrinted)
{
if (i < n )
BandPrinted=true;
else {
QuickRep1->NewPage(); // 跳頁，QuickRep1是TQuickRep的Name
i=0;
}
}
請參考！
Andy Chang
------
Andy Chang |
|
odyaho
初階會員 發表：60 回覆：104 積分：42 註冊：2005-02-15 發送簡訊給我 |
|
|
andychang1690
資深會員 發表：20 回覆：694 積分：442 註冊：2003-03-14 發送簡訊給我 |
odyaho：form2先include form1。
QuickRep有一個事件為NeedData(TObject *Sender, bool &MoreData)。
我舉例
當然DBGrid複選要複雜多了
void __fastcall TPrint1::QuickRep1NeedData(TObject *Sender, bool &MoreData)
{
static n=1;
TDataSet *pDS = Form1->DBGrid1->DataSource->DataSet;
if ( Form1->DBGrid1->SelectedRows->Count < n) {
MoreData=false;
n=1;
}
else {
// 處理你的資料例
pDS->GotoBookmark((void *)Form1->DBGrid1->SelectedRows->Items[i].c_str());
.........
n ;
MoreData=true;
}
}
請參考！
Andy Chang
------
Andy Chang |
|
odyaho
初階會員 發表：60 回覆：104 積分：42 註冊：2005-02-15 發送簡訊給我 |
請問一下
void __fastcall TPrint1::QuickRep1NeedData(TObject *Sender, bool &MoreData)
{
static n=1;
TDataSet *pDS = Form1->DBGrid1->DataSource->DataSet; //這一段是什麼意思?? 不懂
if ( Form1->DBGrid1->SelectedRows->Count < n) {
MoreData=false;
n=1;
}
else {
// 處理你的資料例
pDS->GotoBookmark((void *)Form1->DBGrid1->SelectedRows->Items[i].c_str()); 這段也不懂 天啊....
.........
n ;
MoreData=true;
}
}
|
|
andychang1690
資深會員 發表：20 回覆：694 積分：442 註冊：2003-03-14 發送簡訊給我 |
引言:
請問一下
odyaho：以上只是舉例回應你所謂dbgrid設為可以複選 看一看也應該要懂，不然請問你如何判斷dbgrid所選到的Row？ 寫的太急上面n的寫法請自行修正！Andy Chang
------
Andy Chang |
發表時間：2005-07-25 19:39:51
IP:61.31.xxx.xxx 未訂閱
系統時間：2024-11-21 20:11:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |