32 replies to this topic

[Delphius]

Opino igual que Fenareth, muy posiblemente el error se debe a que Caral ha definido los campos de manera persistente y amuntsempre no los tiene.

Quisiera en lo posible, a que se evitar exponer dudas en los tutoriales y manuales. Mantengámoslo limpio por favor. Toda duda o inquietud puede discutirse en una sección más adecuada. Por favor que amuntsempre habra un nuevo hilo, y expongas sus dudas allí haciendo referencia que se trata de dudas respecto a este tutorial.

Saludos,

[amuntsempre]

En la propiedad SQL (strings) del ibquery1 encontramos

SELECT CodUsuario, Nombre, Clave FROM Usuarios WHERE
CodUsuario = :cod

¿la clave que aparece en ibquery1clave.asstring hace referencia al campo clave que recuperamos en el select? Si es así, a mi no me funciona. Tengo un select con dos campos (codad y pwd) y si escribo en mi código "ibquery1pwd.asstring" me marca el siguiente error: E2003 Undeclared identifier: 'IBQuery1PWD'.

Saludos

[amuntsempre]

No hagan caso al último post entonces. Seguiré leyendo, pero en ese caso tampoco deberían hablar sobre los problemas de imageshack. De aquí en adelante, abriré un nuevo hilo y haré referencia a cualquier duda que encuentre en un manual.

Gracias.

[coruxito]

Siento contestar por aquí, el manual es algo antiguo, empiezo con Delphi ahora y la verdad, acabo de me dar de alta en el foro (por cierto muy bueno).
Utilize el ejemplo y no funciona por la línea ya citada:

delphi

If IBQuery1Clave.AsString = Edit2.Text then

Lo he arreglado utilizando:

delphi

if IBQuery1.FieldByName('CLAVE').Value= tclave.Text then

Y me ido redondo, sin problemas.

Espero ayudar futuras personas que estean empezando con Delphi ahora por lo que sea (yo mi motivo es laboral)

Gracias por el autor del post, me ayudó muchisimo para empezar ese ejemplo y gracias por los mantenedores del foro !!!

[jorgezamur]

Muchas gracias,  excelente post.  me ha ayudado mucho a dar mis primeros pasos en firebird. Abrazos Jorge.

[Dani123@]

Buen Día, Comunidad de delphi
La verdad que a mi no me salio la aplicación que Caral hizo podrían ayudarme adjunto print disculpen la ignorancia mio pero según como entendí mini aplicación de login proceso los datos que guardaste en Ibe Expert  adjunto print para que me entiendan mejor

Tambien si podrian recomendar otros sitios donde pueda bajar aplicaiones  o manuales buenos hechos claro que funcionan ya que encontre pero son cualquier cosa.

delphi

unit Unit2
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, IBCustomDataSet, IBQuery, StdCtrls;
 
type
  TFLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    IBQuery1: TIBQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FLogin: TFLogin;
  Cuenta : integer;
 
implementation
 
{$R *.dfm}
 
procedure TFLogin.FormCreate(Sender: TObject);
begin
Cuenta := 0;
end;
 
procedure TFLogin.Button1Click(Sender: TObject);
begin
   IBQuery1.Params.ParamByName('Cod').Value:= Edit1.Text;
   IBQuery1.Active:= True;
If IBQuery1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       Edit1.Text := '';
       Edit2.Text := '';
       IBQuery1.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If IBQuery1.FieldByName('CLAVE').Value= Edit2.Text then
        Begin
          FLogin.Show;
          IBQuery1.Active := False;
          FLogin.Visible:= False;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           Edit2.Text := '';
           IBQuery1.Active := False;
           If Cuenta = 3 then Close;
         end;
 
end;
procedure TFLogin.Button2Click(Sender: TObject);
begin
Close;
end;
end.ect);
begin
Close;
end;
end.

http://www.subirimag...3661590d47b0688       

[Caral]

Hola
Lo que dice el error es que no conoce a Codusuario, osea, no encuentra ese campo en la tabla o no esta declarado en la sentencia sql.
Saludos

[casi]

Tambien si podrian recomendar otros sitios donde pueda bajar aplicaiones  o manuales buenos hechos claro que funcionan ya que encontre pero son cualquier cosa.

Pues éste funciona y está bien hecho, así que si encuentras problemas es porque algo estás haciendo mal.
Saludos.

[Dani123@]

La verdad si entiendo que es ese el error lo que no se porque me sale siendo que declare  todo las sentencia  sentencia sql
favor si podes fijarte en el print y si podes decirme donde tendria que remirar ya que en Ibe guarde todo como tiene que ser
Le agradecería nuevamente su ayuda

Desde ya nuevamente gracias. 

http://www.subirimag...89c1955449fd20e


http://www.subirimag...97a9c5a31b62ab6


Ya que necesito aprender lo antes posible para el proyecto que tengo hacer..

[Caral]

Hola
Como te dijimos, es un error:
1- En la tabla tienes un campo que se llama CODUSUARIOS
2- en el sql tienes la sentencia como CODUSUARIO

Te muestro las fotos.
Saludos

Attached Files

•  3941_894aa344a8fbf944b6b1326831855a3105987cd1.jpg   48.58KB   5 downloads
•  3939_ee4b1f9322a83fa9acd2ee21c294bf80fcd4fb9a.jpg   127.49KB   5 downloads

[Delphius]

Invito a los que quieran formular preguntas relacionadas con dudas o dificultades con los tutoriales y manuales que las hicieran e un hilo propio en el foro más apropiado.
De ese modo se mantienen los tutoriales y manuales lo más limpios posibles y no se desvirtúen.

Muchas gracias,

[Mxidetre]

Me ha servido de mucho.

Muchas gracias.

[cristhian]

hola, me pareció muy bueno el tutorial, solo el detalle que los link de las imágenes están caídos. Saludos.