DateTimePicker連結到BDE Table 的方法 |
尚未結案
|
devilfire
一般會員 ![]() ![]() 發表:24 回覆:8 積分:6 註冊:2003-07-27 發送簡訊給我 |
|
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好! 一般來講, 資料指針的移動很頻繁, 即使是移動DBGrid元件的ScrollBar(捲軸)也會触發這樣的事件, 所以在Browse(瀏覽)資料的部分, 您可以將程式碼寫在DataSource元件的OnDataChange事件中, 以Table元件為例, 程式碼如下:
begin DateTimePicker1.Date := Table1.FieldByName('日期').AsDate; ...//此處為其它欄位的內容, 語法相同以上日期欄位部分 end;//以上程式碼就可以在瀏覽資料的時候, 即時的在DateTimePicker1中反應出對應日期欄位的Date內容, 請注意, 此方法僅在DateTimePicker元件的Kind屬性值為dtkDate時有效. 另外, 有關新增和修改資料的程式碼, 請將程式碼分別寫在触發資料新增(Insert)和資料修改(Edit)的事件中, 以下程式碼以ButtonInsert和ButtonEdit來為例: ButtonInsert按鈕OnClick事件中 begin Table1.Insert; Table1.FieldByName('日期').AsDate := DateTimePicker1.Date; ...//此處為其它欄位的內容, 語法相同以上日期欄位部分 Table1.Post; ShowMessage('新增資料成功'); end; ButtonEdit按鈕OnClick事件中 begin Table1.Edit; Table1.FieldByName('日期').AsDate := DateTimePicker1.Date; ...//此處為其它欄位的內容, 語法相同以上日期欄位部分 Table1.Post; ShowMessage('修改資料成功'); end;===================================================================== 以上部分, 是將Post方法和Insert或Edit結合在一起寫, 如果Post按鈕需要分開處理的話, 您可寫成如下: ButtonInsert按鈕OnClick事件中 begin Table1.Insert; end; ButtonEdit按鈕OnClick事件中 begin Table1.Edit; end; ButtonPost按鈕的OnClick事件中 begin Table1.FieldByName('日期').AsDate := DateTimePicker1.Date; ...//此處為其它欄位的內容, 語法相同以上日期欄位部分 Table1.Post; ShowMessage('資料異動成功'); end;注意各個欄位對應的顯示元件(如以上的DateTimePicker1)的形態設定要正确 參考看看! ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/10/05 00:29:20
------
忻晟 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |