如果有資料庫設定為 default 0 not null , 原來的意思不是該欄位可以不填, 自動給0值, 可是在tquery 時, 新增時, 一定要再給值, 否則會出現 欄位不可以為Null的訊息.. 因為使用Update_query 的元件.. 有沒有解決方式..(所有的欄位都用很久,故不能改將Not null拿掉

Hi, 若是使用 TUpdateSQL 元件的話, 很容易做到這點, 在該元件的 InsertSQL 中有關該欄位的值拿掉即可, 如原來內容為, default 0 的欄位為 fsig 時, InsertSQL 內容如,    Insert into mytable (fid, ftype, fsig) values (:fid, :ftype, :fsig)     改為     Insert into mytable (fid, ftype) values (:fid, :ftype)    如此一來便會以 table 的 default 來進行新增的動作, 當然, 若是不是用 TUpdateSQL 元件進行 batch 寫入時, 或是使用者在新增時可以在該欄位寫值時, 也可以在 BeforePost 事件中來判斷該欄位是否為 null , 若是為 null 的話, 給定預設值即可, 但要注意的是, 該預設值便會在程式裡, 而非由 table 的 default value 來控制囉, 如,    

procedure TForm1.Query1BeforePost(DataSet: TDataSet);
begin
  if DataSet.FieldByName('fsig').IsNull then
  begin
    DataSet.FieldByName('fsig').AsInteger := 0;
  end;
end;