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

表單上的按鈕如何去作設定

答題得分者是:cashxin2002
t0288542
中階會員


發表:216
回覆:254
積分:94
註冊:2004-10-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-17 11:18:47 IP:61.221.xxx.xxx 未訂閱
請問各位~ (1) 目前表單有個元件~ DBNavigator -> VisibleButton -> nbCanel -> true 但是如果在當我按下Canel或Post時,表單上的欄位要設定為Enable=true 如何去設定 (2) 目前表單有一些按鈕,除了DBNavigator元件和speedbutton元件~ 可否Win32 -> ToolBar 所提供~將我目前按鈕放置於上面呢~ 謝謝~^^
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-17 12:11:30 IP:218.170.xxx.xxx 未訂閱
(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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-17 13:34:09 IP:61.221.xxx.xxx 未訂閱
您好: 問題1~ 我的意思~不是Canel或Post按完Enable~ 而是表單上其他欄位值~ 如何去設定他們Enable~ 謝謝~
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-11-17 13:46:58 IP:218.170.xxx.xxx 未訂閱
表單上的欄位-->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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-11-17 14:31:53 IP:202.62.xxx.xxx 未訂閱
您好﹗    在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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-11-17 14:37:16 IP:61.221.xxx.xxx 未訂閱
您好~ 表單欄位元件DBEdit和DBLookupComboBox~ 當點選DBNavigator中Post或Canel鍵時~ 表單欄位元件會Enable~ 是要將程序寫在 DBNavigator中click中~ 是指 var i:integer; begin for i:=0 to dataset.fieldcount do begin dataset.fields[i].CanModify:=false; end; 謝謝^^
t0288542
中階會員


發表:216
回覆:254
積分:94
註冊:2004-10-06

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-11-17 15:17:48 IP:61.221.xxx.xxx 未訂閱
您好~ 謝謝~可以嘍~ 請問DBNavigator這些按鈕~ 可否標示上一頁/下一頁/.../修改 當游標移至此按鈕時~ 不然,有些使用者不知道它的功能~ ^^~麻煩
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-11-17 15:26:59 IP:218.170.xxx.xxx 未訂閱
新的問題請開新的post 現有的DBNavigator如果要設定Caption 必須修改元件Source.... 也許你可以搜尋一下站上的Third-Party元件...
系統時間:2024-06-26 7:24:59
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!