Alamcenar Result de storedProc desde otra unidad
Buenas a todos.
Por favor ayudeme En un DataModule tengo el procedimiento almacenado Y en otra unidad quiero almacenar en una variable el resultado del mismo este es el codigo que tengo function ValidarUsuario(cuenta_:string):string; var contrasenaStored:String; begin try with dmOtros.spRecuperarContrasena do begin ParamByName('cuenta_').AsString:=cuenta_; Prepare; ExecProc; end contrasenaStored:=dmOtros.spRecuperarContrasena.Parambyname ('Result').AsString;//como almaceno el resultado en esta unidad end; end; PLEASE HELP ME!! |
creo que no estoy entendiendo, asi como lo estas haciendo deberia estar pasando de una unidad a otra, podrias explicar un poco mejor lo que pretendes?
|
almacenando datos en otra unidad
miren Tengo estas dos unidades
Código Delphi [-] unit Unit11; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables,Unit2; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; usuario:TUsuario; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin usuario.poner(Edit1.Text); end; end. y esta Código Delphi [-] unit Unit2; interface uses Classes,Dialogs; type TUsuario=class private cuenta:String; public procedure Poner(cuenta_:string); end; implementation procedure Tusuario.Poner(cuenta_ : string); begin cuenta:=cuenta_; ShowMessage(cuenta); end; End. Por QUE no puedo almacenar desde unit11 a unit2 en la variable cuenta por favor corrijanme por que no puedo almacenar en CUENTA |
creando objetos
bien parece q haci se aprende ... Investigue un rato y bueno revisando mi codigo -.-?! :confused:http://www.clubdelphi.com/foros/imag...s/confused.gif :confused: ENCONTRE LA SOLUCION solo falta crear el objero usuario:=TUsuario.create; saludos
|
La franja horaria es GMT +2. Ahora son las 16:16:26. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi