Determinar cual es el campo que existe

[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.