引言: 請教各位前輩,DBGrid如何檢查某一欄位輸入的值是否重覆?如果輸入的值己經重 覆,如何還原舊值??例DBGrid 有一個欄位'A',資料有五筆,1,2,3,4,5 , 如果使用者將3改為1,我要show出提示訊息,並將值還原為3 . 我的連結方式: ClientDataSet -> DataSource -> DBGrid. 新手上路,請多指教

引言: 由於是ClientDataSet可以在該欄位之onFieldValidate如此做 1. 動態Create另一ClientDataSet(cdtemp)後用原ClientDataSet之CloneCursor取得Data 2. 在cdtemp上lcoate, 找到的話Raise Error

procedure TForm1.pbInsertItemClick(Sender: TObject);//新增明細
begin
if trim(combobox1.Text) = '' then begin
 showmessage('請先選擇外箱規格編號');
 combobox1.SetFocus;
 exit;
end;
cdlist.Append ;
packinglistid := packinglistid 1;
cdlist.fieldbyname('packinglist_id').asstring:=inttostr((packinglistid));
cdlist.fieldbyname('carton_id').asstring:=trim(combobox1.text);
cdlist.fieldbyname('descp').AsString :=edcartondescp.text ;
cdlist.fieldbyname('gw').AsFloat := strtofloat(edcartongw.text);
cdlist.post;
end;
procedure TForm1.cdListcarton_numValidate(Sender: TField);
begin
if cdlist.State=dsBrowse then exit;//如果瀏覽狀態就不判斷
  cdlistt.First;
  while not cdlistT.eof do begin
   if  cdlistt.FieldByName('packinglist_id').AsString <> cdlistpackinglist_id.AsString then
     begin
       if cdlistt.FieldByName('carton_num').AsString =cdlistcarton_num.AsString then
       begin
        showmessage('資料重覆');
        abort;
       end;
     end;
      cdlistt.Next;
  end;
end;
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  if cdlist.State=dsBrowse then exit;
     cdlistT.Data:=cdlist.Data; //這一段要下在這嗎?
end;
 

引言: 用while not eof會導致client把整個table資料 調到client端, 使效能不好 或許您可以在onFieldValidate地方像ccchen所講的方法 用另一個clientdataset下CommandText 向後端要資料, select top 1 * from table where packinglist_id='3' 然後RecordCount大於0就有資料重覆 如此就可減輕client負擔

pedro兄您好,因為我儲存的動作是按save才做,所以user一次可以打多筆資料, 但我要幫user檢查此次打的carton_no不能重覆,packinglist_id原本是save才要 給值,因為要判斷打的是那一筆,所以新增明細時,才會先暫時給值,save時會重新捉packinglist_id最新值. 麻煩各位大大囉

var cdTemp:TClientDataSet;
begin
  cdTemp := TClientDataSet.Create(nil);
  try
    cdTemp.CloneCursor(cdlist, True);
    cdTemp.indexfieldname:='packinglist_id';
    if cdTemp.locate('packinglist_id',packinglistid,[]) then
      raise Exception.create('資料重覆')
    else begin
      cdlist.Append ;
      packinglistid := packinglistid 1;
      cdlist.fieldbyname('packinglist_id').asstring:=inttostr((packinglistid));
      cdlist.fieldbyname('carton_id').asstring:=trim(combobox1.text);
      cdlist.fieldbyname('descp').AsString :=edcartondescp.text ;
      cdlist.fieldbyname('gw').AsFloat := strtofloat(edcartongw.text);
      cdlist.post;
    end;
  finally
    cdTemp.free;
  end;
end;

引言: 1. 因為會檢查到當筆的資料當然須排除當筆資料 2. 看一下你的程式, Insert 不是以DataAware方式, 而是直接寫, 那就不須在onValidate了, 在append之前檢查就可

var cdTemp:TClientDataSet;
begin
  cdTemp := TClientDataSet.Create(nil);
  try
    cdTemp.CloneCursor(cdlist, True);
    cdTemp.indexfieldname:='packinglist_id';
    if cdTemp.locate('packinglist_id',packinglistid,[]) then
      raise Exception.create('資料重覆')
    else begin
      cdlist.Append ;
      packinglistid := packinglistid 1;
      cdlist.fieldbyname('packinglist_id').asstring:=inttostr((packinglistid));
      cdlist.fieldbyname('carton_id').asstring:=trim(combobox1.text);
      cdlist.fieldbyname('descp').AsString :=edcartondescp.text ;
      cdlist.fieldbyname('gw').AsFloat := strtofloat(edcartongw.text);
      cdlist.post;
    end;
  finally
    cdTemp.free;
  end;
end;

其實Clone另一個clientdataSet是為了不改變目前dataSet之指標位置而已, 你未用DataAware元件, 原DataSet如何改變並不影響顯示, 故也不用cloneCursor了, 直接在原DataSet上先locate再append也可 Demo一下CloneDataSet之用法, 很抱歉只是想法給你參考, 未測試程式. ClientDataSet很方便, 可隨時改變index, Recno也是正確的 為何不用DataAware 順便提醒一下 cdlist.fieldbyname('gw').AsFloat := strtofloat(edcartongw.text); 也可以 cdlist.fieldbyname('gw').AsString := edcartongw.text; 發表人 - ccchen 於 2003/11/18 16:22:03