判斷日期 |
尚未結案
|
od11112001
一般會員 發表:8 回覆:2 積分:2 註冊:2008-08-04 發送簡訊給我 |
|
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
systemDay:=formatdatetime('yyyymmdd',now);
if formatdatetime('yyyymmdd',AdoTable['FindedDay']) > systemDay then Edit1.readyonly := true; ===================引 用 od11112001 文 章=================== 我在系統上設置一個系統時間 若希望使用者在選擇修改時 ,若超過現在的現在系統時間 則能提出警告或edit欄位皆不能輸入改為readyonly 如:現在時間為20081113 但使用者查到了20081115 我希望查到之後不能輸入資料並能使edit的所有欄位改成readonly 謝謝 使用delphi6 資料庫:mysql
------
努力會更接近成功 |
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
我想您問的應該是 日期 而不是 時間. 又, 不知您是問 1.如何判斷日期, 還是 2.如何將所有 edit 欄位改成 readonly. 1. 如何判斷日期 假設查到的日期欄位為 dt_fld if query1.fieldybname('dt_fld').asstring > formatdatetime('yyyymmdd', now) then begin ..... end; 2. 如何將所有 edit 欄位改成 readonly 老牛托車方式 : 列舉所有 tedit 的 instances 並設 readonly,例如 edit1.readonly := true; edit2.readonly := true; ...... 偷懶方式 : 參考 http://delphi.ktop.com.tw/board.php?cid=30&fid=1498&tid=95954 參考一下lo. ===================引 用 od11112001 文 章=================== 我在系統上設置一個系統時間 若希望使用者在選擇修改時 ,若超過現在的現在系統時間 則能提出警告或edit欄位皆不能輸入改為readyonly 如:現在時間為20081113 但使用者查到了20081115 我希望查到之後不能輸入資料並能使edit的所有欄位改成readonly 謝謝 使用delphi6 資料庫:mysql
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |