引言: 首先謝謝大家，我現用DBGRID中輸入數據，當然是無數筆之後才保存，可存在一個問題，如何判斷在緩沖中的數據記錄重復性，當然我用了自動唯一字段，可我是要判斷另一個或幾個字段隻能輸入一條記錄，如何判斷輸入記錄的重復性?

temptable.open; <--用來檢查
querydbgrid.open; <---連結dbgrid的query
querydbgrid.first;    while not querydbgrid.eof do 
begin
  s1: querydbgrid.fieldbyName('empno').asstring;//<--用來檢查是否重複的key值
  if not (temptable.locate('empno',s1,[])) then //用s1去找query的key值
  begin
    temptable.append;
    temptable.FieldByName('empno').AsString := s1;  // 做存檔動作
    temptable.post; 
  end
  else
  begin
   Application.MessageBox('資料重複!!請查明','訊息視窗',MB_ICONERROR);
   exit;
  end;
  querydbgrid.next;
end;
 

temptable.open; <--用來檢查
querydbgrid.open; <---連結dbgrid的query
querydbgrid.first;    while not querydbgrid.eof do 
begin
  s1: querydbgrid.fieldbyName('empno').asstring;//<--用來檢查是否重複的key值
  if not (temptable.locate('empno',s1,[])) then //用s1去找query的key值
  begin
    temptable.append;
    temptable.FieldByName('empno').AsString := s1;  // 做存檔動作
    temptable.post; 
  end
  else
  begin
   Application.MessageBox('資料重複!!請查明','訊息視窗',MB_ICONERROR);
   exit;
  end;
  querydbgrid.next;
end;
 

引言: 首先謝謝大家，我現用DBGRID中輸入數據，當然是無數筆之後才保存，可存在一個問題，如何判斷在緩沖中的數據記錄重復性，當然我用了自動唯一字段，可我是要判斷另一個或幾個字段隻能輸入一條記錄，如何判斷輸入記錄的重復性?

procedure TForm1.ClientDataSet1BeforeApplyUpdates(Sender: TObject;
  var OwnerData: OleVariant);
var TempCD:TClientDataSet;
    k : string; //Temp KeyValue
begin
   TempCD := TClientDataSet.Create(Self);
   ClientDataSet1.DisableControls;
   try
     TempCD.CloneCursor(ClientDataSet1, True);
     TempCD.Filtered := True;
     ClientDataSet1.First;
     while not ClientDataSet1.Eof do begin
       k := ClientDataSet1.Fields[0].AsString;
       TempCD.Filter := 'C1='#39 k #39;
       if TempCD.RecordCount>1 then begin
          ClientDataSet1.CancelUpdates;
          raise Exception.Create('Duplicate Key Found !');
       end;
       ClientDataSet1.Next;
     end;
   finally
     ClientDataSet1.EnableControls;
     TempCD.Free;
   end;
end;

procedure TForm1.ClientDataSet1BeforeApplyUpdates(Sender: TObject;
  var OwnerData: OleVariant);
var TempCD:TClientDataSet;
    k : string; //Temp KeyValue
begin
   TempCD := TClientDataSet.Create(Self);
   ClientDataSet1.DisableControls;
   try
     TempCD.CloneCursor(ClientDataSet1, True);
     TempCD.Filtered := True;
     ClientDataSet1.First;
     while not ClientDataSet1.Eof do begin
       k := ClientDataSet1.Fields[0].AsString;
       TempCD.Filter := 'C1='#39 k #39;
       if TempCD.RecordCount>1 then begin
          ClientDataSet1.CancelUpdates;
          raise Exception.Create('Duplicate Key Found !');
       end;
       ClientDataSet1.Next;
     end;
   finally
     ClientDataSet1.EnableControls;
     TempCD.Free;
   end;
end;

引言: 如果照你所說想在輸入時就能做判斷 也是可以 不過會有一點操作邏輯的問題 假設在輸入時就做判斷 此時query的狀態是在insert mode 或 edit mode 且是把資料先放在暫存區(也就是緩沖區中) 直到ApplyUpdates才寫回資料庫 但此時user可能未全部輸入資料完畢 就做取消的動作 此時query的狀態回到brower mode 而且暫存區(也就是緩沖區中)的資料全部清空 那麼在輸入時就做判斷就變的毫無意義 與其如此 到不如等user 做存檔時再做檢查會比較好 另外 你提到的一點 不過當輸入一條時當移動時就做保存到另一個temptable，但刪除了因還未提交時做刪除動作，這時就不好處理temptable剛才做的保存的那條記錄. 注意 : 此時的資料是放在暫存區(也就是緩沖區中) 因為此時query的狀態是在insert mode 或 edit mode 所以user是無法對暫存區(也就是緩沖區中)的資料做刪除的動作 只能做cancel或ApplyUpdates的動作 所以不必擔心不好處理temptable剛才做的保存的那條記錄 因為當user做cancel的動作時 把temptable的資料清空即可 而user又重新輸入時 再把它記錄到temptable 總結 : 1:最好是在存檔時去檢查 2:真要在輸入時就能做判斷也可以 , 但要考慮user做cancel時記的把temptable的資料清空 為什麼無法做也不可做刪除動作 原因如上 3: 存檔完畢也要把temptable的資料清空 天行健 君子當自強不息~~@.@

引言: 因我還有表頭，現對應的是表尾，所以必須要做判斷。你認為有必要嗎？

Multi-User 環境怎麼辦 ? "A" Client 與 "B" Client 不能修改同一筆"表頭"之"表尾"內容嗎 ? 個人認為, 資料之重複性應該置於數據庫端檢查( Unique Index or Trigger ), 這樣比較確實, Client端頂多只需負責,當 DB Server Raise Error 時, 指示因應對策, 如 cancel,rollback... 等等 Client端程式花了很多功夫(邏輯複雜),結果仍很難確保預期的"唯一". 只是個人一點淺見... /*