請問一下我有製作adodataset元件配合著access資料庫可是當我每次還沒有按編輯按鈕時我只要把滑鼠的游標放在dbedit元件上就會變成編輯那麼我怎麼寫一個程式當我要按編輯按鈕時才有辦法編輯一筆資料而不是滑鼠的游標放在dbedit元件上就可以編輯了

您好!    請在連接ADODataSet元件的DataSource元件的OnStateChage事件中寫入如下程式碼:

begin
  if ADODataSet1.State in [dsInsert, dsEdit] then
    begin
      DBEdit1.ReadOnly := False;
      DBEdit2.ReadOnly := False;
      ...//其它的DBEdit元件
    end
  else
    begin
      DBEdit1.ReadOnly := True;
      DBEdit2.ReadOnly := True;
      ...//其它的DBEdit元件
    end;
end;

另外, 還有一種方法, 可以控制DBGrid元件的自動編輯功能, 是否可控制DBEdit資料感知元件, 小弟沒有試過, 您可將DataSouce元件的AutoEdit屬性設為False試試看. ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

太感謝了!!!我終於了解了!!!

還是不行這二種方法我都試過了我還試了 adodataset1.Close; adodataset1.locktype:=ltOptimistic; adodataset1.Open; 也是不行!!!

您好﹗    不行﹖在DataSource元件的OnStateChange事件中控制資料感知元件的ReadOnly屬性我有試過﹐應該可以﹐能否列出您的程式碼﹒    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

您好﹗    剛才測試了一下﹐DataSource元件的AutoEdit屬性對DBEdit資料感知元件無控制能力﹐所以只有第一種方法可行﹐小弟連接Access資料庫的相關程式碼如下﹕

procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
  if ADOTable1.State In [dsEdit, dsInsert] then
    begin
      DBEdit1.ReadOnly := False;
      DBEdit2.ReadOnly := False;
      DBEdit3.ReadOnly := False;
    end
  else
    begin
      DBEdit1.ReadOnly := True;
      DBEdit2.ReadOnly := True;
      DBEdit3.ReadOnly := True;
    end;
end;
除了使用DBEdit元件的ReadOnly屬性將其設為不允許輸入﹐也可用Enabled屬性設定其是否能取得輸入焦點

參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

Enabled屬性設定其是否能取得輸入焦點這個方法就可以了可是enabled的方法字型會變成淡黑色的字型顏色是不是不能更改呢???

對不起對不起我把程式碼寫成 if ADODataSet1.State in [dsInsert, dsEdit] then begin DBEdit1.ReadOnly := True; DBEdit2.ReadOnly := True; ...//其它的DBEdit元件 end else begin DBEdit1.ReadOnly := False; DBEdit2.ReadOnly := False; ...//其它的DBEdit元件 現在可以了謝謝您!!

adodataset1.locktype:=ltOptimistic; 為什麼更改上列的方法沒有辦法呢??? 這個屬性不是也可以更改唯讀或可輸入嗎???

您好﹗    Enable屬性值是若設成False﹐則該元件不能取得焦點﹐為了區別于可取得焦點的元件﹐所以其顏色變得暗淡色﹐据小弟所知（能力範圍有限）﹐似乎不能改變﹐其實如果不想其顏色變得暗淡﹐使用ReadOnly屬性值為True就可以達到相同的效果﹒    LockType屬性是指資料表的鎖定形態﹐与您所提的DBEdit元件完全是不相關的﹐所以您使用LockType屬性中的ItOptimistic或者其它的屬性值當然就不會影響DBEdit元件了﹒    參考看看﹗    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟