<textarea cols="60" rows="10" class="cpp" name="code"> ADO_DB_Conn->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=admin;Data Source=C:\\SystemDB.mdb;Mode=ReadWrite;Persist Security Info=False"; ADO_DB_Conn->Open(); if (!ADO_DB_Conn->Connected) { ShowMessage("資料庫開啟失敗!!"); return; } ADOCmd->Connection = ADO_DB_Conn; ADOCmd->CommandText = "SELECT * FROM InStroeCount"; ADOCmd->Prepared; DataSet->Recordset = ADOCmd->Execute(); DataSource1->DataSet = DataSet; DBGrid1->DataSource = DataSource1; 請問若是以此方式Select資料，該如何設定TQReport的屬性以及QRDBText的屬性 才能讓某欄位的資料全部自動指定給QRDBText?? 謝謝各位先進!! </textarea>

雖然ADOCommand也可以使用查詢，但顧名思義，ADOCommand物件適合對SQL伺服器下「命令」較佳，因此查詢時我喜歡用ADOQuery，以下以Query作為TReport的設定。
1.假設已經設定好一些SQL查詢了，然後進行查詢。
AQuery.Open();
2.把 AQuery指定給TReport的 DataSet 屬性。
aReport->DataSet = AQuery;
3.在一一指定Report上面的資料庫元件，以 DBText為例：
aReport->aDBText->DataSet = AQuery;
aReport->aDBText->DataField = "資料庫的欄位名稱";
4.開啟預覽或直接列印
aReport->PreView();
以上請參考～

P.S.另外你提問的這篇http://delphi.ktop.com.tw/board.php?cid=168&fid=914&tid=88422既然已經自行找到方案，請結案！如果你願意的話也可將解決方案貼在那裡。

編輯記錄

謝謝，已成功

另外我有將我前一個問題的解法回覆過了，就是用BlockInput()這個API

再次感謝Stallion先進!!
===================引 用 Stallion 文 章===================
雖然ADOCommand也可以使用查詢，但顧名思義，ADOCommand物件適合對SQL伺服器下「命令」較佳，因此查詢時我喜歡用ADOQuery，以下以Query作為TReport的設定。
1.假設已經設定好一些SQL查詢了，然後進行查詢。
AQuery.Open();
2.把 AQuery指定給TReport的 DataSet 屬性。
aReport->DataSet = AQuery;
3.在一一指定Report上面的資料庫元件，以 DBText為例：
aReport->aDBText->DataSet = AQuery;
aReport->aDBText->DataField = "資料庫的欄位名稱";
4.開啟預覽或直接列印
aReport->PreView();
以上請參考～

P.S.另外你提問的這篇http://delphi.ktop.com.tw/board.php?cid=168&fid=914&tid=88422既然已經自行找到方案，請結案！如果你願意的話也可將解決方案貼在那裡。