procedure TCashItemForm.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
begin
if memo.count > 0 then
begin
if memo[0] = '标题' then
begin
memo.Clear;
memo.Add(UserName+ '消费项目价目表');
end;
end;
end;
这段代码什么意思?
procedure TForm1.Frreport1GetValue(const ParName:String;var ParValue:Variant);
begin
if ParName='var1' then
ParValue:='1'
else
if ParName='var2' then
ParValue:=2;
end;