请问怎么用fastreport打印DBGrid中选中的记录
请教如何用fastreport打印DBGrid中选中的记录
现在客户要求对查询的结果进行选择性打印，我考虑让用户自己选择要打印的记录，但是请教怎样才能把选中的记录通过fastreport打印出来？
------解决方案--------------------
1.打印单条记录（当前记录），frxDataSet 设置RangeBegin和RangeEnd为Current
2.打印选中记录，基本思路：按照数据集过滤格式获取选中行的主键组合字串，过滤数据集，尔后打印。代码可依照如下（未测试）
uses StrUtils;
const filter:string = 'id in (%s)';//id相当于主键
var
i: Integer;
tmpStr,sql:string;
begin
with dbgrd1 do
begin
for i:=0 to SelectedRows.Count-1 do
begin
//假设Grid中第1列为主键所在列
tmpStr:=tmpStr+quotedStr(SelectedRows.Items[i][0])+',';
end;
if AnsiEndsStr(',',tmpStr) then
begin
tmpStr=AnsiLeftStr(tmpStr,Length(tmpStr)-1);
end;
DataSet.filtered:=false;
DataSet.filter := Format(filter,[tmpStr]);
DataSet.filtered:= True;
//打印
end;
end;
------解决方案--------------------
你要在FR的getvalue中作代碼處理，必須得到選中的數據記錄。。。
现在客户要求对查询的结果进行选择性打印，我考虑让用户自己选择要打印的记录，但是请教怎样才能把选中的记录通过fastreport打印出来？
------解决方案--------------------
1.打印单条记录（当前记录），frxDataSet 设置RangeBegin和RangeEnd为Current
2.打印选中记录，基本思路：按照数据集过滤格式获取选中行的主键组合字串，过滤数据集，尔后打印。代码可依照如下（未测试）
uses StrUtils;
const filter:string = 'id in (%s)';//id相当于主键
var
i: Integer;
tmpStr,sql:string;
begin
with dbgrd1 do
begin
for i:=0 to SelectedRows.Count-1 do
begin
//假设Grid中第1列为主键所在列
tmpStr:=tmpStr+quotedStr(SelectedRows.Items[i][0])+',';
end;
if AnsiEndsStr(',',tmpStr) then
begin
tmpStr=AnsiLeftStr(tmpStr,Length(tmpStr)-1);
end;
DataSet.filtered:=false;
DataSet.filter := Format(filter,[tmpStr]);
DataSet.filtered:= True;
//打印
end;
end;
------解决方案--------------------
你要在FR的getvalue中作代碼處理，必須得到選中的數據記錄。。。
- Delphi(Pascal) code
procedure TRes_Tryuser_F.frxReport_OtherGetValue(const VarName: String;
var Value: Variant);
var i:Integer;
begin
inherited;
IF VarName='account_id' then
begin
Value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[0];
fitext:=fitext+ VarToStr(Value)+',';
end;
if VarName='full_name' then
Value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[1];
if VarName='BM' then
value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[8];
if VarName='KB' then
value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[9];
if VarName='jcrq' then
value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12];
if VarName='kh1' then
begin
if VarToStr(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[15])= '' then
Value:='V'
else
Value:='';
end;
if VarName='kh2' then
begin
if VarToStr(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[15])= '' then
Value:=''
else
Value:='V';
end;
IF VarName='sxr' then
value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[19];
if varname='YY_JCRQ' then
Value:=FormatDateTime('YYYY',VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]));
if varname='MM_JCRQ' then
Value:=FormatDateTime('MM',VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]));
if varname='DD_JCRQ' then
Value:=FormatDateTime('DD',VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]));
if varname='YY' then
begin
if VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]) >StrToDateTime('2010/10/1') then
Value:=FormatDateTime('YYYY',IncMonth(VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]),6))
else
Value:=FormatDateTime('YYYY',IncMonth(VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]),3));