validar con un if
Hola: si mira esto es parte de mi codigo, es simple, so lo guarda datos...
este es el codigo dentro de mi boton guardar...
procedure TFrmBuscaLaCancion.btnGrabarClick(Sender: TObject);
begin
DataModule1.Concentrado_Insert.Close;
DataModule1.Concentrado_Insert.ParamByName('@DS_Cancion').value:= cmbMostrarCancion.text;
DataModule1.Concentrado_Insert.ParamByName('@DS_Artista').value:= cmbArtista.Text;
DataModule1.Concentrado_Insert.ParamByName('@DS_Autor').value:= cmbAutores.Text;
DataModule1.Concentrado_Insert.ParamByName('@DS_Genero').value:= cmbGenero.Text;
DataModule1.Concentrado_Insert.paramByName('@DN_NoDisco').Value:=txtNumeroDisco.Text;
DataModule1.Concentrado_Insert.paramByName('@DN_Pista').Value:=txtNoPista.Text;
DataModule1.Concentrado_Insert.ParamByName('@DS_Titulo_CD').Value:=txtTituloDelDisco.Text;
DataModule1.Concentrado_Insert.ParamByName('@DS_Idioma').Value:=cmbIdioma.Text;
DataModule1.Concentrado_Insert.ParamByName('@DI_Portada_Disco').Value:=txtImagen.Text;
DataModule1.Concentrado_Insert.ParamByName('@DS_Ruta').Value:=txtRuta.Text;
DataModule1.Concentrado_Insert.Open;
solo ke antes de ke guarde kiero ponerle un if para validar ke si ya existen esos dos datos ke son DS_Cancion' y DS_Titulo_CD' ya no me permita guardarlos de nuevo...
eso no se como estructurarlo...
Gracias y Saludos...
|