不好意思~又要麻煩各位高手囉~~     請問~ 我想要在EDIT1鍵入號碼離開之後 會自動找DB2.DB(已建好資料)的該號碼資料 然後自動在EDIT2~4顯示該筆資料在DB2.DB的商店名稱跟商店編號 請問該如何做呢? 我有試打了一些 不曉得是不是補強一些就好還是跟本完全就是錯的

>我想要在EDIT1鍵入號碼離開之後 可以在 Edit1.OnExit 事件，或者是OnKeyPress 鍵入 Enter鍵事件。 利用 DB2Query.Locate 應該是不會很能難的。

您好﹗    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=59655    ========================= 我是您的朋友﹐有您真好﹗ =========================

------
忻晟

感謝兩位版主的回應~ 我參考了cashxin2002貼的討論打了下列程式碼 已經成功可以顯示一個(edit2) 請問一下要怎麼顯示兩個以上呢(商店編號1跟商店編號2)? 因為試了好久都不行所以再詢問一下~ if Key=#13 then begin DB2Query.Close; DB2Query.SQL.Clear; DB2Query.SQL.Add('Select 商店名稱'); DB2Query.SQL.Add('From CU2.db Where '); DB2Query.SQL.Add('廠商統一編號=''' Edit1.Text ''''); DB2Query.Open; if Not DB2Query.Eof then begin Edit2.Text := DB2Query.Fields.Fields[0].AsString; end else ShowMessage('資料庫中無此筆資料'); end; 發表人 - tv66 於 2004/12/04 23:43:18

    DB2Query.Close;
DB2Query.SQL.Clear;
DB2Query.SQL.Add
  ('Select 商店名稱,商店編號 From DB2.db Where 廠商統一編號=' quotedstr(edit1.Text));
DB2Query.Open;    If Not DBQuery.Eof then Begin
   Edit2.text:=DBQuery.FieldByName('商店名稱').asString;
   Edit3.text:=DBQuery.FieldByName('商店編號').asString;
End
Else Begin
   Edit2.text:='';
   Edit3.text:='';
End;