// aDataSet 為要鎖定的TableName, 例如 Table1
function RecordLock(aDataSet: TDataSet): boolean;
         var RecordProps: RECProps;
             wresult: DBIresult;
begin
with (aDataSet as TTable) do begin
     if State = dsInactive then begin
        Application.MessageBox(pChar('無法鎖定被關閉的資料庫'),
                              '網路錯誤',MB_ICONERROR MB_OK);
        exit;
     end;
     UpdateCursorPos;
     wresult:= DbiGetRecord(Handle, dbiWriteLock, nil, @RecordProps);
     if wresult = DBIERR_NONE then begin
        DbiRelRecordLock(Handle, False);
        result:= False;
     end
     else begin
        IDkey:=Application.MessageBox('記錄被鎖定','錯誤'
               MB_ICONERROR MB_OK);
     end;
end;    // 另外解除鎖定
//rlAll=True 表示解除所有鎖定記錄, 反之則解除當筆
function RecordUnlock(aDataSet: TDataSet; rlAll: boolean): boolean;
begin
     result:= True;
     if aDataSet is TTable then 
     with (aDataSet as TTable) do begin
          if State = dsInactive then begin
             Application.MessageBox(pChar('無法解除關閉的資料庫'),
                                    '錯誤',MB_ICONERROR MB_OK);
             exit;
          end;
          try
             DbiRelRecordLock(Handle, rlAll);
             result:= False;
          except
             Application.MessageBox('無效命令','錯誤',MB_OK);
          end;
     end;
end;