dbedit中如果不要用賦值的形式,有無直接設定預設值的屬性設定 初學者望高手們多賜教

您好﹗    不知您對此想法的目的是什么﹖DBEdit元件是屬于資料感知元件﹐透過DataAccess元件連接上游的資料集元件﹐其沒有預設值的相關屬性設定.    如果您是為了當使用者對此欄位不做輸入時﹐就代入預設值﹐選擇使用Edit元件是一種解決的方法﹐因為Edit元件可以在其Text屬性中設定預設值﹐只是在程式碼的控制上需多寫幾行字了﹐可將程式碼寫在資料集元件的BeforePost事件中:

begin
  ADOTable1.FieldByName('欄位名稱').AsInteger := StrToInt(Edit1.Text)
end;

另外還有一種方法就是仍然使用DBEdit元件﹐在資料集元件的AfterInsert事件中賦予此DBEdit元件一個初值即可﹐如下﹕

begin
  DBEdit1.Text := IntToStr(100);
end;

也不知猜得對不對﹒﹒﹒ <><>========================= 大病初愈﹐休養調整中... =========================

------
忻晟