procedure TData_Form.first_checkpart_noValidate(Sender: TField);
var
MatCK_ado:tadoquery;
begin
MatCK_ado:=tadoquery.Create(self);
MatCK_ado.Connection:=mis;
MatCK_ado.SQL.Text:='select item_no from gbitem where item_no=:itno';
MatCK_ado.Parameters[0].Value:=trim(sender.Value) ;
MatCK_ado.Open ;
if MatCK_ado.RecordCount<>1 then
begin
showmessage('ª«®Æ½s¸¹¿ù»~¡A½Ð¬d¹ï!!!');
abort;
end;
end;