51 respuestas en este tema

[egostar]

Hola

Intenta con esto,  vi algunos detalles que no estaban bien codificados.

delphi

procedure TForm1.Button1Click(Sender: TObject);
//NO necesitas poner VAR para cada variable
var
  user,pass,nombre,query: string;
  iuser : Integer;
begin
  if ComboBox1.Text = 'Usuario' then
     Application.MessageBox(pchar('' +#13#10+
                                  'Selecciona' +#13#10+
                                  'un usuario'),
                                  pchar(' Error '),0+16+0+4096)
  else
     if Edit1.Text = 'Contraseña' then
        Application.MessageBox(pchar(  ''+#13#10+
                               'Por favor ingresa'+#13#10+
                               '  Tu password'),
                               pchar(' Error '),0+32+0+4096)
     //Necesitas encerrar todo el bloque de código involucrado
     else begin
            user  := ComboBox1.Text ;
            pass  := Edit1.text      ;
            query := 'SELECT nombre,id_usuario FROM usuario '+
                     'WHERE usuario.usuario = '+
                     QuotedStr(user)+ ' and usuario.password = '+
                     QuotedStr(pass);
            AdoQuery1.SQL.Text:=query;
            AdoQuery1.Open; //En lugar de Active := True
            //NO necesitas recorrer el dataset con while not.....
            if ADOQuery.RecordCount > 0 then begin
               nombre := AdoQuery1.Fields[0].Text;
               Application.MessageBox(pchar(  ''+#13#10+
                                              ' Bienvenido '+#13#10+
                                               nombre),
                                               pchar('Grupo Empresarial Suma'),
                                               0+0+0);
            end;
            AdoQuery1.Close; //En lugar de Active := False
     end;
end;

Salud OS

[root]

Ok si tatalmente de acuerdo en esos detalles
ademas pss si me merezco un soplamocos por no estructurar bien

ahora la sig pregunta es como cargo el siguiente formulario ??

[Fenareth]

Dentro de la condición que valida la contraseña del usario y te permite ingresar coloca:

delphi

Form2.ShowModal; //Carga el segundo formulario desde el primero

[egostar]

Hola

Lo que vamos a hacer es comenzar con lo básico y desde el principio.

Adjunto un pequeño ejemplo que te servirá de base para continuar con lo demas.

El usuario es egostar y la contraseña es delphiaccess, dale un vistazo para que veas el funcionamiento y en base a eso podremos continuar.

Salud OS

Archivos adjuntos

•  405_.zip   177,43KB   2 descargas

[root]

Ok creo ya corregi todo lo que havia que corregir
PERO
ahora me dice que el query no regresa ningun valor
les paso el dato para que lo leean y me digan que cren que sea

delphi

           AdoQuery1.Close;
           AdoQuery1.sql.Clear ;
           oper := '"acceso al sistema"';
           query :=  'insert into control(iuser, evento, fecha) values ('
                      + iuser
                      +', '
                      + oper
                      +', now());';
           AdoQuery1.SQL.Text := query ;
           AdoQuery1.Open ;
           AdoQuery1.Close ;

[root]

Master egostar
ya revise el ejemplo
pero a ver por ejemplo no entendí­ del todo

lo que pasa es que tu desde el form2
llamas a otro form donde se hace la validación
si no se valida pelas mikey mouse termina
pero es desde el form2

si estoy bien o mejor dejo de inhalar aire comprimido 

[egostar]

Master egostar
ya revise el ejemplo
pero a ver por ejemplo no entendí­ del todo

lo que pasa es que tu desde el form2
llamas a otro form donde se hace la validación
si no se valida pelas mikey mouse termina
pero es desde el form2

si estoy bien o mejor dejo de inhalar aire comprimido 

Hola

La cuestion es así­:

Tenemos dos forms, Form1 que es (será) la principal y Form2 que es la ventana de Login.

Utilizamos el evento OnShow de la Forma Principal (Form1) para "lanzar" la ventana de Login.

delphi

procedure TForm1.FormShow(Sender: TObject);
begin
  // Evento que se ejecuta en el momento que se muestra la Forma Principal (Form1)
end;

Se muestra La ventana de Login donde generamos una función de tipo Booleana donde harémos la consulta de la base de datos para determinar si los datos capturados en los TEdit son correctos.

delphi

function TForm2.ValidaUsuario: Bool;
begin
  //Aqui metes el code de validacion que estas usando
  if usuario.text = 'egostar' then begin
     if password.text = 'delphiaccess' then begin
        result := true;
     end
     else begin
            result := false;
     end;
  end
  else begin
         result := false;
  end;
end;
 
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  if ValidaUsuario then
     ModalResult := mrOK //Si es correcto regresamos el ModalResult OK
  else ModalResult := mrCancel; //Si NO es correcto regresamos el ModalResult Cancel
end;

Si los datos son correctos, mostramos la Forma Principal (Form1). En caso contrario, cerramos la aplicación.

delphi

procedure TForm1.FormShow(Sender: TObject);
begin
  Form2.ShowModal;
  if Form2.ModalResult = mrOK then begin
     ShowMessage('Bienvenido usuario: ' + Form2.usuario.Text);
  end
  else begin
         ShowMessage('Password o Usuario invalido!');
         Close;
  end;
end;

Espero haber sido claro

Salud OS

[root]

sip ya capte como esta el pexx

lo que si note es que si quiero llamar a un segundo form
tengo que declararlo en

delphi

implementation
uses unit2 ;

y asi ya puedo abrir el segundo form
otra cosa que tambien descubri es que
si quiero hacer un insert en la base de datos
no devo de hacerlo desde el
AdoQuery

sino desde un

AdoCommand

ya que el AdoQuery siempre espera una respuesta y por ejemplo el

delphi

             CommandText := 'insert into control(iuser, evento, fecha) values ('
                      + iuser
                      +', '
                      + oper
                      +', now());';

no me da una respuesta por parte de la base de datos

ahora otra pregunta que tengo es

por cuestiones de limpieza.
ya saben memoria ciclos de CPU etc etc
es conveniente
a) solo hacer invisible el form
b) destruirlo ??

en el caso "a" seria solamente declarar el form 1 en el form 2
y luego decirlo
form1.visible := false
en el caso "b" como seria ??

GRACIAS

NOTA :
no soy tonto nomas lento


jajajjajaja

[enecumene]

La mejor opción es liberar el form para así­ poder llamarlo de nuevo, en el evento onClose del Form colocas esto:

delphi

Action := caFree;

De ese modo se libera de la memoria.

Saludos.

[egostar]

Por partes amigo enecumene,

Necesitas enseñarle como crear el formulario en tiempo de ejecución y ya despues liberarlo de memoria

Salud OS

[enecumene]

Por partes amigo enecumene,

Necesitas enseñarle como crear el formulario en tiempo de ejecución y ya despues liberarlo de memoria

Salud OS

Pues por la pregunta supuse que él ya aprendió cómo llamar o crear un formulario en tiempo de ejecución.  :$

Saludos.

[root]

sip

digo a ver esa parte no la entendi
formulario es formulario y la parte de crearlo en tiempo de ejecucion ??? hay fue donde no entendi

por que los formularios
Segun yo

se crean desde el explorador de objetos, y se llaman desde el codigo.
si creara el formulario desde el codigo
tendria que crear toooodos los objetos en el ( a mano ) y pues la programacion orientada a objetos no tendria mucho caso no ??

o si ando herrado
Recuerden que a la juventud no se le reprime se le orienta, y soy novato.

[egostar]

Hola

Los formularios los creas en tiempo de diseño, sin embargo y para ahorrar memoria, puedes indicarle que los formularoios se van a crear (mostrar) en tiempo de ejecución, en el ejemplo que te puse, lo abres y en Project, Options, Forms, vas a ver las formas 1 y 2 dentro de la opción Auto-Create Forms esto crea todos los Formularios en el momento que ejecutas la aplicación, para crearlos dinamicamente, pasa Form2 a la derecha Available Forms.

Y para crearlo en tiempo de ejecución habrá que agregar esto:

delphi

  Form2 := TForm2.Create(nil); //Creamos el Formulario
  Form2.ShowModal;
  if Form2.ModalResult = mrOK then begin
     ShowMessage('Bienvenido usuario: ' + Form2.usuario.Text);
  end
  else begin
         ShowMessage('Password o Usuario invalido!');
         Close;
  end;
  Form2.Free; //Liberamos el formulario de memoria

Salud OS

[root]

a ver
otra mega pregunta que me surgio

si declaro una variable y la trato de llenar con un el resultado de un Query pero el resultado es numerico
lo puedo recuperar como siempre ?
varible := AdoQuery1.Fields[0].Text ;
por que en la base de datos el dato es FLOAT
Me marca error
dice incompatlble types string and Extendend

[egostar]

a ver
otra mega pregunta que me surgio

si declaro una variable y la trato de llenar con un el resultado de un Query pero el resultado es numerico
lo puedo recuperar como siempre ?
varible := AdoQuery1.Fields[0].Text ;
por que en la base de datos el dato es FLOAT
Me marca error
dice incompatlble types string and Extendend

Lo que tienes que hacer es lo siguiente:

delphi

Var
  VariableFloat: Real;
 
begin
   VariableFloat := AdoQuery1.Fields[0].Value; //Opcion 1
   VariableFloat := AdoQuery1.Fields[0].AsFloat; //Opcion 2
end;

Salud OS

[root]

ok
pero entonces

ahora surge la sig duda no puedo usar el VALOR del query
en un siguiente query
mira

delphi

  public
    { Public declarations }
    var idcuenta:real;

delphi

procedure TForm2.Button1Click(Sender: TObject);
var trabajador :string ;
begin
if
  Edit1.Text <> '' then
  trabajador := Edit1.Text ;
  AdoQuery1.sql.text := 'select cuenta.folio, cuenta.id_cuenta from cuenta where cuenta.ifolio=' + trabajador + ' order by cuenta.folio' ;
  AdoQuery1.Open;
  While not AdoQuery1.Eof do
  begin
  ComboBox1.Items.add(AdoQuery1.Fields[0].text);
  AdoQuery1.Next  ;
  idcuenta := AdoQuery1.Fields[1].value ;
  AdoQuery1.Close
 
  END;
END;

delphi

procedure TForm2.ComboBox1Select(Sender: TObject);
var saldo : Real   ;
begin
AdoQuery1.SQL.Text := 'Select cuenta.folio, cuenta.no_credito, cuenta.nombre, cuenta.comercio, status.status  from cuenta Inner Join status On cuenta.id_status=status.id_status where cuenta.id_cuenta = ' +  idcuenta  ;
AdoQuery1.Open;
if ADOQuery1.RecordCount > 0 then begin  ;
  label9.Caption:= AdoQuery1.Fields[0].Text;
  label10.Caption:= AdoQuery1.Fields[1].Text ;
  label11.Caption:= AdoQuery1.Fields[2].Text ;
  label12.caption:=Adoquery1.Fields[3].text;
  label13.caption:=AdoQuery1.Fields[4].Text ;
  AdoQuery1.Close ;
  AdoQuery1.Open ;
  Adoquery1.SQL.Text:= 'SELECT saldo.saldo FROM saldo Where saldo.id_cuenta =  '+ idcuenta;
  saldo:= AdoQuery1.Fields[0].Value;
  AdoQuery1.Close ;
  label14.Caption:= saldo ;
 
end;
end;

ahora me dice que
[DCC Error] Unit2.pas(77): E2010 Incompatible types: 'string' and 'Real'
tengo que convertirlo de nuevo a STR para poder usarlo en un query ??
o estoy bateando de foul ???

[egostar]

Lo que pasa es que tienes que hacer el CASTING del dato, puedes hacer esto:

delphi

  while not AdoQuery1.Eof do begin
    ComboBox1.Items.add(AdoQuery1.Fields[0].AsString); //no uses AdoQuery1.Fields[0].Text
    AdoQuery1.Next ;
    idcuenta := AdoQuery1.Fields[1].value; //¿Esto que es lo que hace?, siempre traerá el último valor leí­do.....  
  end; 
  AdoQuery1.Close; //Esta instrucción debe estar al final del while, de otra forma cierras la consulta y te da error.

Salud OS

[root]

no osea los datos del ComboBox1 si los toma bien me deja seleccionarlos
pero donde marca el error es en la linea

delphi

Adoquery1.SQL.Text:= 'SELECT saldo.saldo FROM saldo Where saldo.id_cuenta =  '+ idcuenta;

Segun mis bastos conocimientos de ingles
me dice que no puedo ocupar "idcuenta" por que esta declarada como "REAL"
Entonces tengo que convertir "idcuenta" con valor real a valor string

digo no hay algo asi como StrToInt pero que sea real to string

[enecumene]

Prueba con FloatToString.

Saludos.

[root]

bueno ya la rutina quedo
pues si no del todo bien quedo satisfactoria
ahora tengo otro problemita
por alguna extraña y maligna razon el procedimiento lo puse en la propiedad de on select

entonces ahora agregue un boton que limpia los datos del combo box y de el caption de el edit y demas
pero ahora cuando quiero nuevamente repetir la rutina
para otro busqueda no la hace

por que ??