Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MySQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=21)
-   -   Pasar una variable entre forms (https://www.clubdelphi.com/foros/showthread.php?t=79513)

ttotto 12-07-2012 23:29:00

Pasar una variable entre forms
 
Hola amables amigos

tengo 2 formas , en la primera tengo un dbgrid con un simpledataset y un datasource

ya me conecte y hago mi consulta y de ahi quiero actualizar un dato , el metodo es el

siguiente :

cuando en le dbgrid pongo el foco en algun registro , con un boton pasarme a la forma 2

y de ahi agisnar los valores de mis campos a unos edit y una vez que modifique algunos

datos con un boton mandar mi update a mi tabla , el problema es que no puedo pasar el

valor de la variable de la forma 1 a la forma 2 para que pueda ya estando el forma 2

mande llamar con una consulta el dato y poder mostrarlo en los edit's

pongo mi codigo

forma 1
Código Delphi [-]
  


procedure TForm1.FormCreate(Sender: TObject);
begin
  SimpleDataSet1.Connection:=Form1.SQLConnection1;
  SimpleDataSet1.DataSet.CommandText:='Select * from  posiciones';
  SimpleDataSet1.Active:=True;
  SimpleDataSet1.Refresh;
  SimpleDataSet1.Open;
end;


con esto abro mi forma 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  fdos:TForm;

begin
  fdos:=TForm2.Create(Self);
  fdos.ShowModal;
  fdos.Free;
  //numero:=SimpleDataSet1.FieldByName('pos01').AsString;
  end;



forma 2

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  depto:string;
begin
   SQLQuery1.SQL.Clear;
   SQLQuery1.Close;
   SQLQuery1.SQL.Add('delete from departamento where depto01=:depto');
   SQLQuery1.Params.ParamByName('depto').Value:=Edit1.Text;
   SQLQuery1.ExecSQL;


gracias anticipadas por su respuesta y ayuda

Casimiro Notevi 12-07-2012 23:31:37

Por favor, recuerda poner títulos descriptivos a tus preguntas.
En este caso, "Hacer un insert" no tiene absolutamente nada que ver con lo que preguntas :confused:
Gracias.

ttotto 13-07-2012 00:07:35

borrar datos mysql
 
si una disculpa , me equivoque que hago dime que puedo hacer

Casimiro Notevi 13-07-2012 00:34:53

No te preocupes, tenlo en cuenta para la próxima vez :)

Ya lo modifico yo.

Casimiro Notevi 13-07-2012 00:36:42

Si se ponen títulos descriptivos... fíjate lo que ocurre... al final de la página, abajo del todo, aparecen otros hilos/temas que tienen títulos parecidos y puedes encontrar la solución :)

AzidRain 16-07-2012 21:57:03

Bastaría con colocar SimpleDataSet1 en un datamodule y ligar los Datasources de Form1 y Form2 a ese dataset. Al ser el mismo dataset, lo que hagas en un form se refleja en el otro. Aunque viendo que utilizas un "select * from" me parece que no tiene ningún caso llamar a una form adicional para hacer la edición.

El esquema que utilizas es correcto, sin embargo es mejor que el select que muestra la lista de registros para elegir cual se quiere editar solo contengan los menos campos posibles de manera que sea más rápida. Ya al editar el registro entonces si hacemos un "select *" pero trayéndonos únicamente el registro que necesitamos.


La franja horaria es GMT +2. Ahora son las 03:47:32.

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