begin
  Query1.Close;
  Query1.SQL.Text := 'ALTER TABLE TableA ADD COLUMN age integer';
  Query1.ExecSQL;
end;

引言: 請教各位前輩，小弟的資料表中有生日一欄，其中小弟用一個函式，將生日轉成年齡 ，但不知能不能在sql中新增年齡一欄，謝謝各位前輩。 function TFrmB01.Beage(MyBirthDay:TDateTime): integer; var CurYear,CurMonth,CurDay,BirthYear,BirthMonth,BirthDay: Word; begin Result:=0; if (MyBirthDay <> 0) then begin DecodeDate(Date,CurYear,CurMonth,CurDay); DecodeDate(MyBirthDay,BirthYear,BirthMonth,BirthDay); if (CurMonth > BirthMonth) then Result:=CurYear-BirthYear else if (CurMonth=BirthMonth) then begin if (CurDay >= BirthDay) then Result:=CurYear-BirthYear else Result:=CurYear-BirthYear-1; end else Result:=CurYear-BirthYear-1; end; end;

引言: 不好意思，再麻煩一下站長大大，如果想用動態sql 描述，亦即，在執行期間 生日欄位才select 進去，那麼query.onGetText該如何宣告才能讓程式知道那 一欄才是生日，再轉換成年齡。 謝謝您，您辛苦了。

引言: 不好意思，小弟說得不夠詳細，小弟因客戶需要，須寫成動態的查詢，如小弟的form 中，共有八個button執行八個不同查詢結果，其中一個查詢結果，是需要 得知顧客的消費年齡層，而另一個相關日期運算的查詢，是有關於取得最後一個消費日至目前日期的天數差，客戶本身預算不高，故此，小弟僅能用query 幫他 運算結果，而不使用sql server，acess(呵呵，也沒有office)... 小弟的生日一欄在八個查詢結果中，僅出現一次，而sql 語法是如此下的 select 會員等級,Beage(生日) as 年齡{不知該如何得到} ,累積總消費額 from Table M where 年齡 > 20 關於站長大大的一些細心詢問: >請問您生日的欄位名稱會變來變去嗎? 前面的select 的項目固定，故小弟想生日欄該是固定的，而後面的where 查詢 讓客戶自己選擇數字。 >還是不管產生的Query如何都會有生日的欄位呢? 只有一個sql 敘述需要得知顧客的消費年齡層，而另一個相關日期運算的查詢，是有關於取得最後一個消費日至目前日期的天數差(能順便請教嗎!?) 小弟會如此問如何以自己的function 新增一個欄位，是希望往後對有關的日期 欄位運算(目前遇到的是年齡以及消費天數差)，找到一個方法，而不被sql 資料庫語法限定(因每個資料庫的日期語法皆有些許不同)，有得能查天數，有得能算時間差...，這或許是小弟的一個妄想罷，希望能得到一個解答。 這是小弟的第一個case，從一開始的基本架構到修改了不下好幾次，每次的討論，每次的修改，都讓小弟吃足了苦頭，只恨小弟軟體功力不足，當初想練專案，答應了人，寫了之後才知小弟實在功力太淺，唉!!但不管如何，小弟希望 案子能漂漂亮亮的交給對方。不好意思，吐了這些苦水，這些日子，真得很受 各位前輩大大的照顧，給予小弟一些回答，感謝討論區的存在，讓小弟可以找到需要的資料，小弟在此再一次道謝。

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Grids, DBGrids;    type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure OnGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.sql.clear;
  Query1.sql.add('SELECT * FROM ANIMALS');
  Query1.open;
  Query1.fieldbyname('SIZE').OnGetText:=OnGetText; // 指定要轉的欄位
end;    procedure TForm1.OnGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  text:='15歲'; // 在此將生日轉為年齡
end;    end.