Determinar cual es el campo que existe

[agustin173]

hola muchachos como estan todos

Necesito una pequeña luz para resolver un problema

Tengo 4 campos y quiero que me diga cual o cuales fueron los campos que encontro iguales en la base de dato Me explico mejor.

Estoy usando delphi 7
una tabla llamada = suplidor
Con cuatro campos llamados = (RNC, Suplidor, Telefono y Email)
Un Adoquery llamado = Temp
2 Maskedit llamados = (MERnc y METelefono)
2 Edit llamados = (EDSuplidor y EDEmail)

Pongo el Codigo

Código Delphi [-]
var
  Msk: string;
  Msk1: String;
begin
// Determina si Existe un Registro en la Base de Datos
 with temp do
  begin
    close;
    sql.Clear;
    Msk:= MERnc.EditMask;  // salvar mascara
    Msk1:= METelefono.EditMask;
    MERnc.EditMask:= '';   // borrarla
    METelefono.EditMask:= '';
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Rnc = '+QuotedStr(MERnc.Text));
    sql.Add('or Suplidor = '+QuotedStr(EDSuplidor.Text));
    sql.Add('or Telefono = '+QuotedStr(METelefono.Text));
    sql.Add('or Email = '+QuotedStr(EDEmail.Text));
    MERnc.EditMask:= Msk; // restaurarla;
    METelefono.EditMask:= Msk1;
    open
  end;
   if not temp.IsEmpty then
     raise exception.Create('Registro Existe');

Lo que deseo es, tengo cuatro campos si ustedes ven cuando encuentra los datos en la base de dato esta me dice en general que registro existe, pero deseo que lo haga campo por campo que si fue RNC, me diga RNC Existe, si Fue TElefono Me diga Telefono Existe, si fueron 2 o mas me lo diga en un solo letrero es eso posible ayundenme por favor.

[marcoszorrilla]

Yo creo que habria que lanzar la consulta tantas veces como campos quieres comparar y guardar los resulados positivos en una variable de tipo texto.

Var
xxx:String

xxxx:='Se encontraron resultados en los campos:';
Si consulta no está vacía:

xxx:=xxx+Nombre_del_campo;

así hasta completar los 4 campos.

Primero lanzar una con los 4 campos a la vez por si no hubiese ningún resultado no seguir con el resto.

Un Saludo.

[agustin173]

marcoszorillas podrias explicarme mejor con el codigo porque no se mucho de programacion

por favor

[marcoszorrilla]

Código Delphi [-]
var
  Msk: string;
  Msk1: String;
  cCampos:String;
begin
// Determina si Existe un Registro en la Base de Datos
cCampos:='Los siguientes campos se encontraron en la busqueda';
 with temp do
  begin
    close;
    sql.Clear;
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Rnc = '+QuotedStr(MERnc.Text));
     open;
  end;
   if not temp.IsEmpty then
     cCampos:=cCampos+':RNC';//segundo campo
with temp do
  begin
    close;
    sql.Clear;
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Suplidor = '++QuotedStr(EDSuplidor.Text));
     open;
  end;
   if not temp.IsEmpty then
     cCampos:=cCampos+':Suplidor';

Y así hasta testar todos los campos.

Un Saludo.

[agustin173]

marcoszorrilla este codigo no me funciona tienes otra idea amigo por favor

[agustin173]

por favor alguien puede ayudarme a con el codigo que necesito por favor

muchachos ayudenme que estoy desde ayer sin solucionar este lio

si tengo que explica mejor diganmelo

[ecfisa]

Empezado por agustin173

marcoszorrilla este codigo no me funciona tienes otra idea amigo por favor

Hola Agustin.

Según lo que leí, el código que puso marcos, debería funcionar correctamente.

Hubiera sido mejor que pusieras el error generado o explicar mejor el resultado que buscas, yo interpreto tu planteo como marcos.

Igual te pongo un código (que básicamente hace lo mismo) y pone además la cantidad de veces que está repetido el dato. Por ahí podés sacar alguna idea de él.

Código Delphi [-]

function TForm1.Mensaje(cp1,cp2,cp3,cp4:string): string;
const
   Consulta ='SELECT COUNT(*) AS CANTIDAD FROM TU_TABLA WHERE %s = %s';
begin
  with Query do
  begin
    Close;
    SQL.Text:= Format(Consulta,['Rnc',QuotedStr(cp1)]);
    Open;
    if not IsEmpty then
     Result:= 'Rnc: ' + FieldByName('CANTIDAD').AsString+#10#13;

    Close;
    SQL.Text:= Format(Consulta,['Suplidor',QuotedStr(cp2)]);
    Open;
    if not IsEmpty then
     Result:= Result + 'Suplidor: '+FieldByName('CANTIDAD').AsString+#10#13;

    Close;
    SQL.Text:= Format(Consulta,['Telefono',QuotedStr(cp3)]);
    Open;
    if not IsEmpty then
      Result:= Result+'Telefono: '+FieldByName('CANTIDAD').AsString+#10#13;

    Close;
    SQL.Text:= Format(Consulta,['Email',QuotedStr(cp4)]);
    Open;
    if not IsEmpty then
      Result:= Result+'Email: '+ FieldByName('CANTIDAD').AsString;
  end;
end;

La función la pensé para ser usada con un ShowMessage, de ahí (#10#13).

Saludos.

[agustin173]

como estas ecfisa

el codigo que marco me dio no hace nada no me da error ni nada

simplemente cuando le doy al boton no hace nada, es como si no funcionara

voy a probar lo que me diste haber te cuento luego.

[agustin173]

ecfisa tampoco me funciono me voy a explicar mejor

Lo que deseo es que cuando encuentre un registro en la base de datos ya sea por RNC, Suplidor, Telefono o Email me diga registro existe.

el codigo que puse al principio me lo dice osea funciona bien.

lo que deseo es que me diga si el registro encontrado igual en la base dec dato fue el RNC o si fue El Suplidor o si fue El telefono o Si fue el Email.

Ejemplo:

si digito el RNC y el Suplidor y los registro ya existe de ambos me diga RNC y Suplidor Existe y asi con los demas

Vuelvo a Colocar el Codigo

Código Delphi [-]
var
  Msk: string;
  Msk1: String;
begin
// Determina si Existe un Registro en la Base de Datos
 with temp do
  begin
    close;
    sql.Clear;
    Msk:= MERnc.EditMask;  // salvar mascara
    Msk1:= METelefono.EditMask;
    MERnc.EditMask:= '';   // borrarla
    METelefono.EditMask:= '';
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Rnc = '+QuotedStr(MERnc.Text));
    sql.Add('or Suplidor = '+QuotedStr(EDSuplidor.Text));
    sql.Add('or Telefono = '+QuotedStr(METelefono.Text));
    sql.Add('or Email = '+QuotedStr(EDEmail.Text));
    MERnc.EditMask:= Msk; // restaurarla;
    METelefono.EditMask:= Msk1;
    open
  end;
   if not temp.IsEmpty then
     raise exception.Create('Registro Existe');

Todo esto sucede antes de grabar la informacion en la base de dato estoy evitando duplicar informacion.

haber ecfisa y marcos si me pueden ayudar ahora que me explique mejor si no se entiene por favor haganmelo saber, es que el proyecto de la universidad tengo que entregarlo.

[ecfisa]

Hola de nuevo Agustín.

El código funciona, ya que lo probé.
Lo que sucede es que antes no entendí bién lo que buscabas y lo anterior no es lo adecuado para lo que intentas hacer.

Este creo que va más acorde:

Código Delphi [-]
function TForm1.DatoExiste(Campo, Valor: string): Boolean;
begin
  with Query do
  begin
    Close;
    SQL.Text:='SELECT ' + Campo + ' FROM SUPLIDOR WHERE ' + Campo + ' = '+ QuotedStr(Valor);
    Open;
    if IsEmpty then
      Result:= False
    else
    begin
      ShowMessage('Dato existente, vuelva a ingresarlo');
      Result:= True;
    end;
    Close;
  end;
end;

Ejemplo de llamada

Código Delphi [-]
procedure TForm1.btAceptarClick(Sender: TObject);
begin
  ... 
  if DatoExiste('Telefono',METelefono.Text) then
    METelefono.SetFocus;
  ...
end;

Recordá desactivar Save Literal Characters, haciendo doble click sobre la propiedad EditMask en cada TMaskEdit. (o desactivarla desde código y restaurarla después de la comprobación)

Saludos.

[agustin173]

voy a probar ecfisa excusame mi ignorancia pero no se trabajar con funciones nunca lo he usado puedes decirme como pongo la funcion a funcionar dentro del boton guardar

excusame pero estoy tratando de aprender a programar

[ecfisa]

Hola Agustin.

No tenes nada de que excusarte.
Hay que poner la cabecera de la funcion en la sección private o public de la clase TForm:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, ...

type
  TForm1 = class(TForm)
  ... 
   procedure Button1Click(Sender: TObject);
  ...  
  private
     function DatoExiste(Campo, Valor: string): Boolean;
  public
  
  end;

var
  Form1: TForm1;

implementation
...

function TForm1.DatoExiste(Campo, Valor: string): Boolean;
begin
   ....
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ...
   if DatoExiste('Telefono',METelefono.Text) then
      METelefono.SetFocus;
   ...
end;
...

Saludos.

[agustin173]

ok voy a probar luego te cuento

[agustin173]

ecfisa estoy haciendo algunos arreglos te cuento mañana como anda todo

[agustin173]

Atencion Ecfisa y Marcos

Miren hice unos arreglos de los codigos que ustedes dos me dieron y pude mejor las cosas en un 50%, pero falta algo me explico.

Primero Pondre el codigo para que lo vean Completo:

Código Delphi [-]
 
unit Suplidor;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Buttons, PngSpeedButton, StdCtrls, Mask, DB,
  ADODB;
type
  TFrmSuplidor = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    SuplidorNuevo: TPngSpeedButton;
    SuplidorGuardar: TPngSpeedButton;
    SuplidorBuscar: TPngSpeedButton;
    SuplidorAplicar: TPngSpeedButton;
    SuplidorModificar: TPngSpeedButton;
    SuplidorEliminar: TPngSpeedButton;
    SuplidorCancelar: TPngSpeedButton;
    SuplidorCancelarBusqueda: TPngSpeedButton;
    SuplidorAyuda: TPngSpeedButton;
    Panel2: TPanel;
    Label2: TLabel;
    EDCodigo: TEdit;
    Label8: TLabel;
    EDFecha: TEdit;
    Label1: TLabel;
    EDSuplidor: TEdit;
    Label3: TLabel;
    EDContacto: TEdit;
    Label4: TLabel;
    EDDireccion: TEdit;
    Label5: TLabel;
    CBTelefono: TComboBox;
    METelefono: TMaskEdit;
    Label6: TLabel;
    CBFax: TComboBox;
    MEFax: TMaskEdit;
    Label7: TLabel;
    MERnc: TMaskEdit;
    Label9: TLabel;
    CBTerminos: TComboBox;
    Label10: TLabel;
    EDLimite: TEdit;
    Label11: TLabel;
    EDEmail: TEdit;
    ADOSuplidor: TADOQuery;
    Temp: TADOQuery;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure EDFechaClick(Sender: TObject);
    procedure EDCodigoClick(Sender: TObject);
    procedure EDLimiteKeyPress(Sender: TObject; var Key: Char);
    procedure EDLimiteExit(Sender: TObject);
    procedure EDLimiteEnter(Sender: TObject);
    procedure MERncKeyPress(Sender: TObject; var Key: Char);
    procedure EDCodigoEnter(Sender: TObject);
    procedure CBFaxChange(Sender: TObject);
    procedure CBTelefonoChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MERncClick(Sender: TObject);
    procedure EDSuplidorClick(Sender: TObject);
    procedure EDContactoClick(Sender: TObject);
    procedure EDDireccionClick(Sender: TObject);
    procedure CBTerminosClick(Sender: TObject);
    procedure EDLimiteClick(Sender: TObject);
    procedure EDEmailClick(Sender: TObject);
    procedure MERncEnter(Sender: TObject);
    procedure EDSuplidorEnter(Sender: TObject);
    procedure EDContactoEnter(Sender: TObject);
    procedure EDDireccionEnter(Sender: TObject);
    procedure CBFaxEnter(Sender: TObject);
    procedure MEFaxEnter(Sender: TObject);
    procedure CBTerminosEnter(Sender: TObject);
    procedure EDEmailEnter(Sender: TObject);
    procedure CBTelefonoClick(Sender: TObject);
    procedure METelefonoClick(Sender: TObject);
    procedure CBTelefonoEnter(Sender: TObject);
    procedure METelefonoEnter(Sender: TObject);
    procedure SuplidorCancelarClick(Sender: TObject);
    procedure MERncChange(Sender: TObject);
    procedure EDSuplidorChange(Sender: TObject);
    procedure EDContactoChange(Sender: TObject);
    procedure EDDireccionChange(Sender: TObject);
    procedure METelefonoChange(Sender: TObject);
    procedure MEFaxChange(Sender: TObject);
    procedure CBTerminosChange(Sender: TObject);
    procedure EDLimiteChange(Sender: TObject);
    procedure EDEmailChange(Sender: TObject);
    procedure SuplidorGuardarClick(Sender: TObject);
  private
    { Private declarations }

function DatoExiste(Campo, Valor: string): Boolean;

  public
    { Public declarations }
  end;
var
  FrmSuplidor: TFrmSuplidor;

implementation
uses Menu, Login;
{$R *.dfm}
function TFrmSuplidor.DatoExiste(Campo, Valor: string): Boolean;
begin
  with Temp do
  begin
    Close;
    SQL.Text:='SELECT ' + Campo + ' FROM SUPLIDOR WHERE ' + Campo + ' = '+ QuotedStr(Valor);
    Open;
    if IsEmpty then
      Result:= False
    else
    begin
//      ShowMessage('Dato existente, vuelva a ingresarlo');
      Result:= True;
    end;
    Close;
  end;
end;

procedure TFrmSuplidor.SuplidorGuardarClick(Sender: TObject);
var
  Msk: string;
  Msk1: String;
begin
    Msk:= MERnc.EditMask;  // salvar mascara
   if MERnc.EditText <> '_-__-_____-_' then
     MERnc.EditMask:= '';   // borrarla
 if DatoExiste('RNC',MERnc.Text) then
   Begin
     MERnc.EditMask:= Msk; // restaurarla;
     ShowMessage('RNC Existe');
     MERnc.SetFocus;
   End;
 
 if DatoExiste('Suplidor',EDSuplidor.Text) then
   Begin
     ShowMessage('Suplidor Existe');
     EDSuplidor.SetFocus;
   End;
 
 if DatoExiste('Telefono',METelefono.Text) then
   Begin
     Msk1:= METelefono.EditMask;  // salvar mascara
     METelefono.EditMask:= '';   // borrarla
     METelefono.EditMask:= Msk1; // restaurarla;
     ShowMessage('Telefono Existe');
     METelefono.SetFocus;
   End;
 
end;
 
end.

Si miran el "Procedure Guardarclick" fijense en cada uno de los "if DatoExiste"
que hay 3, cada uno de ellos en el Showmessage tienen un letro diferente diciendome cual es el campo que existe en la base de dato si es el "RNC Existe", Si es el "Suplidor Existe" o si es el "Telefono Existe" individualmente eso esta bien.

Pero cuando el encuentra dos campos por Ejemplo:

RNC y Suplidor me tira dos mensajes que dicen "RNC Existe" y "Suplidor Existe" eso para mi esta mal porque debiera decirmelo en un solo mensaje por Ejemplo que diga "RNC y Suplidor Existen", y asi tambien con el campo telefono si lo encuentra debiera decirme en un solo letro tambien Ejemplo:
"RNC, Suplidor y Telefono Existe", igual como si fuera un solo que encuentre que me diga ese solo.

haber si me ayudanme mejor ahora, ya falta poco muchachos cuanto dolor de cabeza le doy pero los considero mis amigos a todos y hablo muy bien del foro con mis amigos en facebook, la universidad y el trabajo.

Nota: Lo que deseo es que me diga en un solo Showmessage cuales son los campos que encontro en la base de dato, si fue RNC, Suplidor, Telefono o Email, si fueron dos campos o tres o los cuatro que me lo diga pero en un solo Showmessage..

[ecfisa]

Hola Agustin.

Entonces alguna de las primeras propuestas es la que corresponde usar.
De este último modo te va a dar tantos mensajes como campos duplicados encuentre.

En las primeras propuestas, se concatenaban en una cadena todas las duplicaciones encontradas para mostrarlas en un solo mensaje.
Creo que deberías trabajar sobre ellas. Tu código también deberá ser congruente a esa lógica, mostrando la cadena obtenida (si la hay) antes de guardar.

Particularmente este modo de trabajo no me convence, es mucho más sencillo y eficiente trabajar directamente con los DataControls.


Saludos.

[ecfisa]

Hola.

Se ocurrió algo que quizá te pueda aportar una idea:

Código Delphi [-]
procedure TFrmSuplidor.SuplidorGuardarClick(Sender: TObject);
var
  Msg: string;
  TC: TWinControl;
begin
  Msg:= '';
  if DatoExiste('Telefono',METelefono.Text) then
  begin
    Msg:= Msg + 'Telefono Existe, ';
    TC:= METelefono;
  end;
  if DatoExiste('Suplidor',EDSuplidor.Text) then
  begin
    Msg:= Msg + 'Suplidor Existe, ';
    TC:= EDSuplidor;
  end;
  if DatoExiste('RNC',MERnc.Text) then
  begin
     Msg:= Msg + 'RNC Existe, ';
     TC:= MERnc;
  end;
  if Msg = '' then
     // Guardar
  else
  begin
    ShowMessage(Msg+ ' Ingrese nuevamente');
    TC.SetFocus;
  end;
end;

Te mostrará un sólo mensaje y como son evaluados en órden inverso a su Tab Order, el SetFocus te posicionará en el primer campo duplicado.

Como sugerencia, sacar con el Input Mask Editor la opción Save Literal Characters ( en vez de borrar la máscara por código ) va a hacer tu código más simple.

Saludos.

[marcoszorrilla]

Estoy de acuerdo con la última propuesta que consiste como yo también apunté en el ejemplo un tanto superficial que mostré en ir acumulando en una variable de texto todos los campos que resulten positivos en la consulta y al final realizar un simple ShowMessage mostrando los resultados, también convendría controlar sino se obtiene nada para mostrar en este caso otro mensaje distinto.

Un Saludo.

[agustin173]

ecfisa ahora si el codigo confuciona bien pero hay un error cuando corre el programa que dice:

[warning] suplidor.pas [823]: variable 'TC' might not have been initialized.

como se corrige ese error.

pero el programa como quiera funciona porque ya lo probe solo debo hacer los arreglos del maskedit

[agustin173]

tenias razon ecfisa quitando el save literal character era mas sencillo

solo falta corregir el error que me da

[warning] suplidor.pas [823]: variable 'TC' might not have been initialized.

Pero vuelvo y te digo el programa corre y se ejecuta bien