三問DateTimepicker！DateTimepicker的值不見了？ |
|
尚未結案
|
|
priest
一般會員   發表：8 回覆：1 積分：1 註冊：2002-12-16 發送簡訊給我 |
資料庫中的日期欄位是一個必填欄位，不允許空值！ 我的表單裡有TDBEDIT、TDateTimePicker、TDBNavigator元件 我現在的做法是設定當使用者按下DBNavigator的新增資料時，先設定datetimepicker元件的日期值為今天！按理說這元件應該有值了阿！當使用者按下DBNavigator元件的nbpost鈕時觸發事件，這事件的內容主要是將datasource進入編輯狀態，然後將DateTimePicker的值塞入資料庫程式碼如下！ nbPost:
begin
// showmessage(datetostr(DateTimePicker1.Date));
ADOTable1.Edit;
ADOTable1.FieldByname('hire_date').AsDateTime:=DateTimePicker1.Date;
ADOTable1.FieldByname('birthday').AsDateTime:=DateTimePicker2.Date;
ADOTable1.FieldByname('leave_date').AsDateTime:=DateTimePicker8.Date;
DateTimePicker1.Enabled:=false;
DateTimePicker2.Enabled:=false;
DBComboBox1.Enabled:=false;
DBComboBox2.Enabled:=false;
DBComboBox3.Enabled:=false;
DBComboBox5.Enabled:=false;
DBComboBox6.Enabled:=false;
DBEdit10.Enabled:=false;
DBEdit11.Enabled:=false;
DBEdit12.Enabled:=false;
DBEdit14.Enabled:=false;
DBEdit20.Enabled:=false;
DBEdit2.Enabled:=false;
DBEdit4.Enabled:=false;
DBEdit5.Enabled:=false;
DBEdit7.Enabled:=false;
DBEdit8.Enabled:=false;
DBLookupComboBox1.Enabled:=false;
DBLookupComboBox2.Enabled:=false;
DBEdit8.Enabled:=false;
DBComboBox9.Enabled:=false;
showmessage('資料儲存成功！');
end; 可是奇怪的事發生了！ 竟出現該日期欄位不能為空值的錯誤！ 請教各位高手是否有愈過這種情形，又該如何排除呢？ 把資料送出的話！就會出現我剛剛說的錯誤！
|
|
william
版主   發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
發表時間：2002-12-19 14:18:13
IP:61.222.xxx.xxx 未訂閱
系統時間：2024-11-23 3:20:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |