var
FrmBIL1211: TFrmBIL1211;
implementation
uses BIL1211_1 ;
{$R *.DFM}
procedure TFrmBIL1211.Button1Click(Sender: TObject);
var
BIL1211_1 : TQuickReport12ll;
begin
BIL1211_1 : TQuickReport12ll.Create(Self);
.
DataDisPlay1;
DataDisPlay2;
.
BIL1211_1.Free;
end;
procedure TFrmBIL1211.DataDisPlay1;
var
BIL1211_1 : TQuickReport12ll;
begin
BIL1211_1 : TQuickReport12ll.Create(Self); <====
이부분을 생성하구 해제를 해주면 돼는데 않해주면
access 바이오래이션에러가발생하는데 위(BUtton1)에서 해제가
않된상태에서 또 생성을 해두 되는건가여..
BIL1211_1.Free;
end;
Procedure TFrmBIL1211.DataDisPlay2;
var
BIL1211_1 : TQuickReport1211;
begin
BIL1211_1 := TQuickReport1211.Create(Self);//1211_1
BIL1211_1.QRLabel10.Caption := EdtBmstFCode.Text; <===
BIL1211_1.QRLabel12.Caption := EdtBmstTCode.Text; <===
여기서는 디버깅시에 확인해보면 값이 제대루 대입되는데
실해해보면 라벨값이 찍히지 않아여...
BIL1211_1.Free;
end;