————————————————————————
Goods ID 商品编号
Goods Name 商品名称
Goods Price 商品单价
---- 好了,准备工作完成了一半,现在写入代码。在unit1的implementation下写入uses Unit2;在button1的click事件中写入以下代码:
begin
PreparePrint;
with Form2 do
begin
Preview;
Table1.Close;
Table2.Close;
end;
end;
在unit1中添加一个过程PreparePrint;
procedure TForm1.PreparePrint;
var LeftValue:integer;
aLabel : TQRLabel;
aText:TQRDBText;
begin
LeftValue:=100;
with Form2 do
begin
aLabel := TQRLabel.Create(Form2); '设置标题
aLabel.Parent := TitleBand1;
with aLabel do
begin
Width:=300;
Height:=TitleBand1.Height;
Alignment:=taCenter;
Caption := Edit1.Text;
end;
Table1.Open;
Table2.Open;
Table2.First;
while not Table2.EOF do
begin
aLabel := TQRLabel.Create(Form2);
’设置显示字段标题
aLabel.Parent := HeaderBand1;
with aLabel do
begin
AutoSize:=False;
AutoStretch:=True;
Left :=LeftValue;
Top := 0;
Width:=80;
Height:=HeaderBand1.Height;
Alignment:=taCenter;
Caption := ' '+table2.FieldbyName(
'DisplayName').AsString+' ';
end;
aText := TQRDBText.Create(Form2);
'设置显示字段内容
aText.Parent := DetailBand1;
with aText do
begin
AutoSize:=False;
AutoStretch:=True;
Height:=DetailBand1.Height;
DataSet:=Table1;
DataField:=Table2.FieldbyName(
'FieldsName').AsString;
Alignment:=taCenter;
end;
LeftValue:=LeftValue+80;
Table2.Next;
end;
end;
end;
procedure TRptForm.RptFormPreview(Sender: TObject);
begin
with TMyPreview.Create(Application) do
begin
QRPreview1.QRPrinter := TQRPrinter(Sender);
CurRep := self;
Show;
end;
end;