Q&A

  • [부탁]QReport에서
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;



이런식으로 사용했습니다.

꼭 좀 답변 부탁드립니다.

그럼...

1  COMMENTS
  • Profile
    하기 2001.09.04 23:44
    우선 어디에선가 Form4가 Create되겠지요...

    근데..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;

    >

    > 이런식으로 사용했습니다.

    > 꼭 좀 답변 부탁드립니다.

    > 그럼...