全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1371
推到 Plurk!
推到 Facebook!

maskedit的日期清空问题

答題得分者是:st33chen
zhouying82
高階會員


發表:150
回覆:272
積分:189
註冊:2004-03-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-05-08 15:02:29 IP:218.80.xxx.xxx 訂閱
我用MaskEdit,MonthCalendar1,Button等控件来选择相应的日期,然后保存到数据库中。
我现在想实现的功能是按一个键让MASKEDIT里面的值为空,并使存入到数据库中日期一栏也显示为空。我用
MaskEdit1.Text:=' ';
table1.fieldbyname('日期').asdatetime:=0
都没有用,在数据库的列表中总是显示1899-12-31,请为该怎么弄啊。
------
断断续续的学了几年,还是一个初学者,永远支持Delphi !
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-05-08 22:37:12 IP:61.67.xxx.xxx 未訂閱
TDateTime的格式沒有null值, 最原始的日期就是 1899-12-31, 如果你希望日期有空白, 那只能使用String的格式來記錄
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-05-09 09:22:18 IP:122.116.xxx.xxx 未訂閱
您好,

試一下看可以嗎?
if int(table1.fieldbyname('日期').asdatetime)=0 then
maskedit1.Text :=''
else begin
maskedit1.Text := formatdatetime('yyyy-mm-dd', table1.fieldbyname('日期').asdatetime);
end;



if table1.fieldbyname('日期').asdatetime<1 then
maskedit1.Text :=''
else begin
maskedit1.Text := formatdatetime('yyyy-mm-dd', table1.fieldbyname('日期').asdatetime);
end;
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2009-05-09 09:23:18, 註解 無‧
st33chen 重新編輯於 2009-05-09 09:48:48, 註解 無‧
zhouying82
高階會員


發表:150
回覆:272
積分:189
註冊:2004-03-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-05-09 14:35:30 IP:116.230.xxx.xxx 訂閱
再次感谢ST大大,我已经通过其他方法解决了。
------
断断续续的学了几年,还是一个初学者,永远支持Delphi !
系統時間:2024-05-16 14:18:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!