la duda es tengo un if con otro if adentro como hago para que mmm mejor les pongo el codigo y por favor diganme como hago para que en caso de que se cumpla la primera condicion se termine el proceso !!
procedure TForm2.Button1Click(Sender: TObject); var InputStr, trab, comillas, comodin, nom:string; begin InputStr:='nombre'; if InputQuery( 'NOMBRE', 'Nombre del trabajador', InputStr) then Label1.Caption := InputStr ; comillas:='"'; comodin:= '%'; zquery1.Close; zquery1.SQL.Clear; zquery1.SQL.Text:='SELECT cuenta.folio, cuenta.nombre from cuenta where cuenta.nombre like '+comillas+ InputStr + comodin + comillas + 'GROUP BY cuenta.folio ORDER BY cuenta.nombre ASC' ; zquery1.Open; While not ZQuery1.Eof do begin if Zquery1.RecordCount > 10 then Application.MessageBox( pchar( 'Afina tu busqueda has dado un rango demasiado amplio'), pchar('Error'), 0+16+0); end ; trab:=(zquery1.Fields[0].text); nom:=(zquery1.Fields[1].text); Label2.Caption := trab + '' + nom ; zquery1.Close; zquery1.SQL.Clear ; end; end.
por ejemplo hay si la respuesta del query es mayor a 10 registros
te manda un mensaje de error pero como hago que se termine el proceso hay ???
o en caso de que no sea asi tome el otro camino ??