Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Problema con DBEdits (https://www.clubdelphi.com/foros/showthread.php?t=47354)

enecumene 25-08-2007 02:47:20

Problema con DBEdits
 
Hola de nuevo, tengo este problema aqui el codigo:

Código Delphi [-]
procedure TFConsTra.DBGrid1DblClick(Sender: TObject);
var
User: string;
begin
   FTramiteMod:=TFTramiteMod.Create(self);
   FTramiteMod.TbRubro.Open;
   FTramiteMod.TbRespon.Open;
   FTramiteMod.TbStatus.Open;
   FTramiteMod.PageControl1.TabIndex:=0;
   User:=incio.StatusBar1.Panels[0].Text;
   FTramiteMod.DBEdit65.Clear;
   FTramiteMod.DBEdit65.Text:=User; <--AQUI
   DateSeparator := '-';
   ShortDateFormat := 'yyyy/m/d';
   FTramiteMod.DBEdit66.text:=DateToStr(Date); <--AQUI
   FTramiteMod.dbfechaent.text:=DateToStr(Date); <--AQUI
   FTramiteMod.Show;
end;


donde señalé indica que unos DBEdits de otro form contendra esa información, hasta ahora bien, sucede que esos textos que aparecen en el otro form al poner el mouse encima un click o hacer un cambio en un combo, los datos que deberia aparecer mencionado mas arriba se borran y se pone la que esta en la base de datos, como puedo evitar que se quiten al hacer algun movimiento con el mouse o hacer un cambio en un combo?? no se si me explique..

Saludos...

Hugo 25-08-2007 12:01:13

Si lo que quieres hacer es mostrar unos valores por defecto para una serie de controles DBEdit, lo que tienes que hacer es darle esos valores al campo del dataset asociado, esto es:
Código Delphi [-]
Tabla1Campo1.Value := Valor
Esto hará que su DbEdit asociado muestre el valor correcto.

Si por el contrario, estos valores no los quieres en una tabla, debes usar TEdit en lugar de TDBEdit.

Saludos.

enecumene 25-08-2007 16:51:40

Muchas Gracias Hugo eso era lo que queria, de nuevo te lo agradezco..


La franja horaria es GMT +2. Ahora son las 06:06:52.

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