表單上的按鈕如何去作設定 |
答題得分者是:cashxin2002
|
t0288542
中階會員 發表:216 回覆:254 積分:94 註冊:2004-10-06 發送簡訊給我 |
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
(1)
設定DataSource的autoedit為false
(2)
目前表單有一些按鈕,除了DBNavigator元件和speedbutton元件~
可否Win32 -> ToolBar 所提供~將我目前按鈕放置於上面呢~ 可以,這方式很多人用,你可以建立一個baseform,把基本的運作所需要的code以及介面用button來取代,可以省事很多,如果要看範例,可能篇幅不夠,市面上有一些delphi的書籍有提到這樣的做法,有一本是講進銷存的,有一本是講會計系統的,都有提到,你可以參考看看. 發表人 - hahalin 於 2004/11/17 12:12:48
|
t0288542
中階會員 發表:216 回覆:254 積分:94 註冊:2004-10-06 發送簡訊給我 |
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
表單上的欄位-->TField? 或是 表單上的DBEdit? 這樣呢?
var i:integer; begin for i:=0 to dataset.fieldcount do begin dataset.fields[i].CanModify:=false; end;或是 dataset.CanModify 而這 都需要不斷因應編輯狀態切換 你可以在datasource的onstatechange判斷 datasource.dataset的state 來處理,也是可以 |
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 在DataSource元件的OnStateChange事件中和資料集元件(如ADOTable)的
AfterScroll事件中共用如下程式碼﹕
Var I : Integer; begin For I:=0 to ADOTable1.FieldCount-1 do ADOTable1.Fields[I].ReadOnly := Not (ADOTable1.State In [dsInsert, dsEdit]); end;========================= 我是您的朋友﹐有您真好﹗ =========================
------
忻晟 |
t0288542
中階會員 發表:216 回覆:254 積分:94 註冊:2004-10-06 發送簡訊給我 |
|
t0288542
中階會員 發表:216 回覆:254 積分:94 註冊:2004-10-06 發送簡訊給我 |
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |