各位大大: 我在寫一個報表用的unit, 想抓出SQL SELECT欄位的對應中文名稱(有table專門記錄中文名稱), 動態填入報表的欄位Caption. 正在苦思如何知道SELECT的欄位屬那個table時, 發現TFields有一個Origin的屬性, 會記錄欄位所在資料庫及talbe, 稍加分解就能得到我要的資訊. 可是實做時發現, 如果design時沒把Fields加進TQuery元件裡, Origin就會沒有值. 這個有解嗎? 還是有其他方法可以取得以上資訊?

Hi:    binbinalia，關於這問題，你可以先參考以下這一篇討論 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=44010 再者，如果你的 DataSet 有 CalCulated Field 時該如何？ 因此如果不考慮 Table Name 而只使用 TField 的 FiledName 來轉換為中文，是否會簡單點 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

有一個文件中沒提到的class可以幫忙TQueryDescription可以找到origin 以下給你參考, 在run Time 傳入一query若原來無origin則將各欄位填入origin

procedure fixorigin(qry: TQuery);
var qdes: TQueryDescription;
    field:TField;
begin
  if qry.Active then
    if qry.Fields[0].origin = '' then begin
      qdes := TQueryDescription.Create(nil);  //create輔助之TQueryDescription
      try
        try
          qdes.Query := Qry;  //指向原query
          qdes.Open;
          qdes.First;
          while not qdes.Eof do begin
            field := qry.findfield(qdes['FIELDNAME']);
            if field <> nil then
              field.origin := qdes['TABLENAME']  '.'  qdes['FIELDNAME'];
            qdes.Next;
          end;
        except
        end;
      finally
        qdes.Free;
      end;
    end;
end;

Fishman大大: 有想過規範在SELECT時ASSIGN欄名給它,但因UNIT是多人共用有人嫌麻煩,所以才想有無直接解析出SQL裡TABLE NAME的方法,查不到的再讓他們自己填. ccchen大大: 我用的是DELPHI 5.0,它沒有TQueryDescription這個元件耶!有其他類似元件嗎?

引言: Fishman大大: 有想過規範在SELECT時ASSIGN欄名給它,但因UNIT是多人共用有人嫌麻煩,所以才想有無直接解析出SQL裡TABLE NAME的方法,查不到的再讓他們自己填. ccchen大大: 我用的是DELPHI 5.0,它沒有TQueryDescription這個元件耶!有其他類似元件嗎?

TQueryDescription不在元件盤上, 我也不確定是否在Delphi6才新增之Class 你可以uses DrTable再試試 (此unit不會自動uses)

use DrTable後有work了! 感謝 ccchen大大~