判斷日期 |
|
尚未結案
|
|
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 (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
發表時間：2008-11-13 08:43:34
IP:218.162.xxx.xxx 訂閱
系統時間：2024-05-06 4:47:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |