안녕하세요..제가 지금 델파이로 증권쪽 프로그램을 부분적으로 맡아서 하고 있습니다. 몇가지..에러사항때매..며칠밤을 고생했는데..해결이 안되서...제가 -_-초짜라서..마니 부족하네요.

조언을 좀 해주셨으면..좋겠네요..흑..



1. 우선..큐리포트에서 아래에 총페이지를 출력해줄려고 합니다.

이곳 질문답변란을 다 뒤져서..pagecount나 pagenumber에 대한 내용이 있어 응용해봤는데..잘 안되네요. 위 함수가 맞다면..코딩해야하는 위치나 ..그런것들이 틀린건가요? beforeprint나 QRBandpriview(?확실하지않음.)등 몇곳에 해봤거든요..(__)

ex>



QrMaeMae.Prepare;

QrMaeMae.QrTotal.Caption := inttostr(QrMaeMae.QRPrinter.PageCount);

이코딩을 여러곳에 뿌려봤는데..ㅠㅠ 잘안되네요..







2. 한폼에 두개의 DB그리드를 두고요. 쿼리 콤포넌트도 두개,데이타소스콤포두 두개..그래서 Query1,Query2를 잡은다음. 각각 두개의 쿼리를 코딩상의 sSql,sSql1 변수에 저장해서 if나 조건문 안쓰고

그냥 where절뒤의 0,1조건만 다르게 두개의 쿼리를 순서대로 코딩을 하였습니다.



ex> 비슷하게 코딩을 할려다가..-_-그냥 제 소스에서 미리보기와 인쇄버튼(하나로 묶여있음)이벤트부분 소스를 올립니다..

문제는 미리보기를 누르면(인쇄결과도 마찬가지)

Qreport화면 왼쪽(sSql),오른쪽(sSql1)쿼리인데요..충돌(?)비슷한문제인지..오른쪽쿼리는 받아온 첫번째데이타만 계속 반복되서 나오네요..-_-여하튼..소스올립니다..



procedure TfrmMoney_Req.btnPriviewClick(Sender: TObject);

var sSql, sSql1 :String;

sCombo :String;

begin



sCombo :=Trim(ComboYear.text)+'-'+Trim(ComboMonth.text)+'-'+Trim(ComboDay.text);

//매수선택시//

begin

sSql := ' select a.TB04_MaeMae_Seq, a.TB04_Custom_Name, a.TB04_Tot_Amt,'+

' a.TB04_MaeMae_Kind, a.TB04_MaeMae_Date, b.TB05_Sudo_Name'+

' from TB04_MaeMae a, TB05_MaeMae_Sudo b where'+

' a.TB04_MaeMae_Kind = 1 '+

' and a.TB04_MaeMae_Seq = b.TB05_MaeMae_Seq and a.TB04_MaeMae_Date = '''+sCombo+''''+

' and b.TB05_MaeMae_Date = '''+sCombo+''''+

' and b.TB05_Sudo_Name != 0 and b.TB05_Qty != 0 and b.TB05_Amt != 0';



sSql1 := ' select a.TB04_MaeMae_Seq, a.TB04_Custom_Name, a.TB04_Tot_Amt,'+

' a.TB04_MaeMae_Kind, a.TB04_MaeMae_Date, b.TB05_Sudo_Name'+

' from TB04_MaeMae a, TB05_MaeMae_Sudo b where'+

' a.TB04_MaeMae_Kind = 0 and a.TB04_MaeMae_Seq = b.TB05_MaeMae_Seq and a.TB04_MaeMae_Date = '''+sCombo+''''+

' and b.TB05_MaeMae_Date = '''+sCombo+''''+

' and b.TB05_Sudo_Name != 0 and b.TB05_Qty != 0 and b.TB05_Amt != 0';

end;



try

begin

frmMoney_Req_Print := TfrmMoney_Req_Print.Create(Application);

frmMoney_Req_Print.Visible := False;

frmMoney_Req_Print.sSql := sSql;

frmMoney_Req_Print.sSql1 := sSql1;

end;

//발행조건//

if Sender = btnPrint then

frmMoney_Req_Print.QRMoney.Print

else

begin

frmMoney_Req_Print.QRMoney.Preview;

frmMoney_Req_Print.Free;

end;

except

frmMoney_Req_Print.Free;

end;

end;



후아..고수님들..너무 죄송합니다..너무 많은 질문을 올리게 되는거 같네요..요약하겠습니다..

3. 위와 같은 화면을 엑셀로 생성시

ex)excelconv(Query1)

excelconv(Query2)

DataSource1.Enabled := True;

DataSource2.Enabled := True;

당연히..두개의 엑셀파일이 생성되는데요..

하나의 엑셀로 왼쪽 오른쪽으로 화면에 나오게..출력해야하는데..

ㅠㅠ..아..정말 저 무식한거 같아요..

//------------------------------------------------------------//

세가지 질문이나 올리게 되었네요..

델파이 거의 모르는 제가..그래두 열심히 할려하는데..마니 힘이 드네요..모든 전산관련된 분들이 그렇겠지만..제 투정인가요..^^

모두들 즐프하시길 바랍니다. 저두 열심히 해서 이곳에 답변쓰는 날을..기대해주세요..^^

아..답변은..제가..아무말이라도..(__)..흑..부탁드려여