QReport에서 Database를 Query 컴포넌트의 SQL속성에서 query문을 사용하지 않고 바로 소스에서 코딩해서 사용할려고 하는데 화면에 나오지가 않네요
예를 들어
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.QuickRep1.Preview;
Form1.Database1.Connected := True;
With Query1 Do Begin
Close;
Sql.Clear;
Sql.Add('Select Name, Secure_No, Age, City, Birth from MOON_STUDENT');
Open;
While Not Eof Do Begin
QRDBText1.Caption := FieldByName('Name').AsString;
QRDBText2.Caption := FieldByName('Secure_No').AsString;
QRDBText3.Caption := FieldByName('Age').AsString;
QRDBText4.Caption := FieldByName('City').AsString;
QRDBText5.Caption := FieldByName('Birth').AsString;
Next;
end;
End;
end;
이런식으로 사용했습니다.
꼭 좀 답변 부탁드립니다.
그럼...
근데..Query1을 Select하는 부분이 QuickRep1.Preview의 위쪽으로 와야 될것 같군요
그리고...
QRDBText1.Caption := FieldByName('Name').AsString;
...
이부분은 Form1의 Button3Click 이니까
Form4.QRDBText1.Caption := FieldByName('Name').AsString;
...
이런식으로 붙어야 할것 같구요...
함 해보세요.. ^^;
moon wrote:
> QReport에서 Database를 Query 컴포넌트의 SQL속성에서 query문을 사용하지 않고 바로 소스에서 코딩해서 사용할려고 하는데 화면에 나오지가 않네요
> 예를 들어
> procedure TForm1.Button3Click(Sender: TObject);
> begin
> Form4.QuickRep1.Preview;
> Form1.Database1.Connected := True;
>
> With Query1 Do Begin
> Close;
> Sql.Clear;
> Sql.Add('Select Name, Secure_No, Age, City, Birth from MOON_STUDENT');
> Open;
>
> While Not Eof Do Begin
> QRDBText1.Caption := FieldByName('Name').AsString;
> QRDBText2.Caption := FieldByName('Secure_No').AsString;
> QRDBText3.Caption := FieldByName('Age').AsString;
> QRDBText4.Caption := FieldByName('City').AsString;
> QRDBText5.Caption := FieldByName('Birth').AsString;
> Next;
> end;
> End;
> end;
>
> 이런식으로 사용했습니다.
> 꼭 좀 답변 부탁드립니다.
> 그럼...