If KeyCode = #13 Then Begin If Code.Text = '' Then // ถ้า Enter ที่ Textbox จะทำการค้นหาข้อมูล ในTable ที่ชื่อ EMP แล้วนำมาแสดง Begin Code.Text := ''; Code.SetFocus; // ถ้าหาไม่เอจจะกลับมาอยู่ที่เดิม Exit; End Else Begin qDB.SQL.Text := 'SELECT * FROM EMP'; qDB.Open;
FoundC := qDB.Locate('CODE', Code.Text, []);
If FoundC = True Then Begin Name.Text := qDB.FieldByName('NAME').AsString; // ถ้าหาเจอจะแสดงรายชื่อที่Text box Name.text end; end; end;