如何DBGRID增修時鎖定編修ROW?

發文回覆瀏覽次數：1658

推到 Plurk!

推到 Facebook!

尚未結案

isthatu
初階會員

發表：80
回覆：47
積分：25
註冊：2002-06-26

發送簡訊給我

#1 引用回覆回覆

發表時間：2006-12-15 13:28:40

IP:211.20.xxx.xxx 訂閱

請問在DBGRID做資料的增修時，如何在 DATASET 在 dsedit,dsinsert 的狀態下，
把編修的DBGRID ROW 鎖定，以必免USER滑鼠移到其他ROW時，
造成DBGRID自動POST???

------
BCDEFHIJKLMNOPQRSTUVWXZ

Fishman
尊榮會員

發表：120
回覆：1949
積分：2163
註冊：2006-10-28

發送簡訊給我

#2 引用回覆回覆

發表時間：2006-12-15 17:20:27

IP:210.65.xxx.xxx 未訂閱

在 BeforePost 判斷是否已存檔，範例如下！
procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
begin
if ((DataSet.State in [dsEdit,dsInsert]) and (not Saved)) then
Abort;
end;
procedure TForm1.ButtonSaveClick(Sender: TObject);
begin
Saved := True;
ADOTable1.Post;
end;
procedure TForm1.ADOTable1BeforeEdit(DataSet: TDataSet);
begin
Saved := False;
end;
procedure TForm1.ADOTable1BeforeInsert(DataSet: TDataSet);
begin
Saved := False;
end;
procedure TForm1.ADOTable1AfterCancel(DataSet: TDataSet);
begin
Saved := True;
end;
Saved 為全域變數，在 BeforeEdit & BeforeInsert 時設為 False，並在 AfterCancel 及按下存檔鍵時設為 True

Fishman

------
Fishman

系統時間：2025-02-24 7:57:54

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！