各位大大好, 我是會員david0927

我有一個關於 delphi 寫入資料的問題, 想請教各位前輩:
當多個使用者同時使用一個 table,如同時開起產品基本資料檔,
當一個人正在修改一筆資料其它人就無法存檔(掛鐘)
請問這個問題不知如何解決, 有沒有強迫存檔或其他
方法解決這個問題, 謝謝,感恩

------
陳效聖

比較基本的做法...

先在產品基本檔中開一個欄位
當甲想要修改產品A的資料時
先判斷該欄位是否有值
沒有的話就將該欄位寫一個值進去
然後可以開始修改
(反之, 有值的話就不能修改)
假如乙現在也要去修改產品A的資料
先判斷剛剛講的欄位是否已經有值
假如已經有值 代表有人正在編輯中
所以會無法修改
以此類堆...

謝謝前輩的建議, 我會按照此建議試試看,
再請請問前輩有沒有強迫存檔(post)
謝謝

------
陳效聖

Delphi - How to test if a Table is locked?

http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_21863413.html

Requires DB, DBTable, BDE in the uses clause.

function IsRecordLocked(DataSet: TBDEDataSet): LongBool;
begin

// Check for active dataset
if DataSet.Active then
begin
// Check if record is locked, if an error occurs return false
if (Bde.DbiIsRecordLocked(DataSet.Handle, result) <> 0) then result:=False;
end
else
// Not active
result:=False;

end;

通常我們會用"交易模式" Transaction 來操作, 但這恐無法以一文就說明白, 建議你先google一下這部份資料
===================引 用 david0927 文 章===================
各位大大好, 我是會員david0927

我有一個關於 delphi 寫入資料的問題, 想請教各位前輩:
當多個使用者同時使用一個 table,如同時開起產品基本資料檔,
當一個人正在修改一筆資料其它人就無法存檔(掛鐘)
請問這個問題不知如何解決, 有沒有強迫存檔或其他
方法解決這個問題, 謝謝,感恩

现在是 2015 年了，还在让用户客户端直接连数据库？

用 Delphi 的话，早该换成多层模式了。Delphi 最新的技术是采用 DataSnap。这样的话，用户客户端是 ClientDataSet，打开后，一直在那编辑一个表，因为用户并没一直连着 DataBase，就不会有 Table 被锁住的情况。