5,392
社区成员
发帖
与我相关
我的任务
分享
//采购金额
if (pub.RID = 11) then
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from PurCost1View where 1<>2 ');
if Trim(ReportNo.Text) <> '' then
SQL.Add(' and ReportNo=''' + Trim(ReportNo.Text) + ''' ');
Open;
if RecordCount > 0 then
begin
{更新FR的数据源}
frxDBDataset1.FieldAliases.Clear;
frxDBDataset1.FieldAliases.BeginUpdate;
end;
end;
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from PurCost2View where 1<>2 ');
if Trim(ReportNo.Text) <> '' then
SQL.Add(' and ReportNo=''' + Trim(ReportNo.Text) + ''' ');
Open;
if RecordCount > 0 then
begin
{更新FR的数据源}
frxDBDataset2.FieldAliases.Clear;
frxDBDataset2.FieldAliases.BeginUpdate;
end;
end;
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from PurCost3View where 1<>2 ');
if Trim(ReportNo.Text) <> '' then
SQL.Add(' and ReportNo=''' + Trim(ReportNo.Text) + ''' ');
Open;
if RecordCount > 0 then
begin
{更新FR的数据源}
frxDBDataset3.FieldAliases.Clear;
frxDBDataset3.FieldAliases.BeginUpdate;
end;
end;
end;
if (pub.RID = 10) then
fileStr :=ExePath+'Report\PurQty.fr3'
else
fileStr :=ExePath+'Report\PurCost.fr3';
if FileExists(fileStr) then
begin
try
frxReport1.LoadFromFile(fileStr);
frxReport1.Report.PrepareReport;
frxReport1.Report.ShowPreparedReport;
except
end;
end;