[code delphi]
procedure TBar_Fm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from stokdata');
Query1.SQL.Add('WHERE 商品代號 >= ''' Edit1.Text '''');
Query1.SQL.Add('ORDER BY 商品代號');
Query1.Open;
IF Query1.RecordCount >0 THEN
BEGIN
Edit2.Text := Query1.FIELDBYNAME('名稱').AsString;
Edit3.Text := Query1.FIELDBYNAME('規格').AsString;
Edit4.Text := Query1.FIELDBYNAME('單位').AsString;
Query1.Next;
END;
Query1.Next;

[/code]

ktop 版主：小弟沒有把 Bar Code 設定自動 Enter 重新設定再scan 條碼就不會亂跳 key 了，這問題已經解決了，可是若要應用到 DBGrid1 特定欄位，小弟就沒經驗，我再 ktop Bar Code 問題搜尋是有相關的，但都不是小弟要的結果，不知個位大大可有相關 Bar Code 在dbgrid1 上實際運作的相關資訊可參考嗎？謝謝！