DarkACE
شنبه 05 فروردین 1391, 01:37 صبح
سلام دوستان، من دلفی XE دارم + Quick Report 5.5 وقتی قصد دارم گزارش گیری رو انجام بدم اولش طبیعتاً جستجو می کنم و مثلاً می خوام که رکورد های فروردین ماه 91 رو واسم توی خورجی نمایش بده. تا اینجا مشکلی نداره و جست جو می کنم اما وقتی می خوام گزارشم رو چاپ کنم فقط رکورد اولم چاپ میشه و اینکه قسمت title ردیف ها رو اصلاً توی گزارش نشون نمیده.
کد های جستجو اینه:
fmdmMain.qySearch.Close;
fmdmMain.qySearch.SQL.Clear;
fmdmMain.qySearch.SQL.Add('Select * from AllGuests where 1=1');
if (txtday.Text <> '') then
begin
fmdmMain.qySearch.SQL.Add(' and dayin = ' + txtday.Text);
end;
if (txtMonth.Text <> '') then
begin
fmdmMain.qySearch.SQL.Add(' and Monthin = ' + txtMonth.Text);
end;
if (txtYear.Text <> '') then
begin
fmdmMain.qySearch.SQL.Add(' and Yearin = ' + txtYear.Text);
end;
fmdmMain.qySearch.Open;
if (fmdmMain.qySearch.RecordCount = 0) then
begin
frmShInf.lblInformationMessage.Caption := ('موردی یافت نشد');
frmShInf.Show;
end;
کد مشاهده هم اینه:
ّFrmDailyReport.Quickrep1.preview;
و کد چاپ هم اینه :
FrmDailyReport.Quickrep1.Print;
کد های جستجو اینه:
fmdmMain.qySearch.Close;
fmdmMain.qySearch.SQL.Clear;
fmdmMain.qySearch.SQL.Add('Select * from AllGuests where 1=1');
if (txtday.Text <> '') then
begin
fmdmMain.qySearch.SQL.Add(' and dayin = ' + txtday.Text);
end;
if (txtMonth.Text <> '') then
begin
fmdmMain.qySearch.SQL.Add(' and Monthin = ' + txtMonth.Text);
end;
if (txtYear.Text <> '') then
begin
fmdmMain.qySearch.SQL.Add(' and Yearin = ' + txtYear.Text);
end;
fmdmMain.qySearch.Open;
if (fmdmMain.qySearch.RecordCount = 0) then
begin
frmShInf.lblInformationMessage.Caption := ('موردی یافت نشد');
frmShInf.Show;
end;
کد مشاهده هم اینه:
ّFrmDailyReport.Quickrep1.preview;
و کد چاپ هم اینه :
FrmDailyReport.Quickrep1.Print;