各位先進，我用ADO元件配合DBGRID來搜尋資料庫中的資料，我想讓搜尋能夠準確的分辨大小寫，但似乎我寫的是這個搜尋機制不能分辨大小寫，通通一視同仁，我的寫法如下，請問錯在哪裡？ procedure TFindUserForm.FindUserBitBtnClick(Sender: TObject); var Opts:TLocateOptions; begin if ( Length( AccountLabeledEdit.Text ) = 0 ) then begin AccountLabeledEdit.SetFocus; exit; end; Opts := []; if ( SystemGateWayManagerForm.UserAccountDBGrid.DataSource.DataSet.Locate('Account',AccountLabeledEdit.Text,Opts) = false ) then MessageBox(GetActiveWindow(),'找不到使用人員帳號!','搜尋失敗',MB_OK or MB_ICONINFORMATION) else SystemGateWayManagerForm.UserAccountDBGrid.SelectedRows.CurrentRowSelected := true; AccountLabeledEdit.Text := ''; AccountLabeledEdit.SetFocus; end; 躺著睡不著，閒坐打瞌睡-年紀大啦！ 學習要趁早。

加入紅色部份試試:

procedure TFindUserForm.FindUserBitBtnClick(Sender: TObject);
var
 Opts:TLocateOptions;
begin
      if ( Length( AccountLabeledEdit.Text ) = 0 ) then
      begin
       AccountLabeledEdit.SetFocus;
       exit;
      end;
       Opts := [loCaseInsensitive];
      if ( SystemGateWayManagerForm.UserAccountDBGrid.DataSource.DataSet.Locate('Account',AccountLabeledEdit.Text,Opts) = false ) then
       MessageBox(GetActiveWindow(),'找不到使用人員帳號!','搜尋失敗',MB_OK or MB_ICONINFORMATION)
      else
       SystemGateWayManagerForm.UserAccountDBGrid.SelectedRows.CurrentRowSelected := true;
      AccountLabeledEdit.Text := '';
      AccountLabeledEdit.SetFocus;
end;

-- hagar.

謝謝hagar兄，我試過了還是不行，也就是說我想準確的搜尋到「Beauty」這個欄位內的值時，一定要打「Beauty」,而不是打「beauty」或「BEAUTY]。 躺著睡不著，閒坐打瞌睡-年紀大啦！ 學習要趁早。

小弟試了一下 用 TADODataset / TADOTable / TADOQuery 的話 不論是 ADODataset1.Locate('field1', edit1.text, []) 或 ADODataset1.Locate('field1', edit1.text, [loCaseInsensitive]) 皆可搜尋到 用 TTable 或 TQuery 的話 Table1.Locate('field1', edit1.text, []) 搜尋不到 Table1.Locate('field1', edit1.text, [loCaseInsensitive]) 可以搜尋得到 所以照理說, 有加 loCaseInsensitive 選項應該可以搜尋得到 -- hagar.

感謝HAGAR版主花時間為小弟的問題作實驗，其實TLocateOptions參數，我試過無論加不加參數[loCaseInsensitive]，搜尋時都不論大小寫都認為找到了合乎的欄位值，但都不是我想要的。再經過查閱本站的其他文章發現，可能就像其他的版友所說，這或許是TADO系列元件的BUG，果真如此的話，可能要自己在搜尋到欄位值後，在寫個程序作進一步精確的判斷！謝謝！ 躺著睡不著，閒坐打瞌睡-年紀大啦！ 學習要趁早。