Foros Club Delphi - Problema con DBEDIT Y DBGRD

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)

- - Problema con DBEDIT Y DBGRD (https://www.clubdelphi.com/foros/showthread.php?t=68500)

Problema con DBEDIT Y DBGRD

Hola soy nuevo en ek foro asi lo primero no se si este tema esta bien aqui xD, pero si lo esta quisiera platicarles sobre mi problema:
-tengo unas variables globales que declare en cierta unidadglobal
-ahora soy capaz de ver el resultado de x operaciones con esas varibles globales en un formulario que esta en otra unidad, las veo con unos TLABELS,EDITS .... bueno
-lo que quiero hacer es usar eso que veo en mis tlabels en insertarlos en una tabla de una base de datos entonces use DBEDITS O DBTEXT QUE RELACIONe con el campo tal con mi datasource de la tabla tal conectado a la base de datos tal todo eso si funciona bien, el detalle esta que ya que logro ver los resultados en mis dbedits pues mi grid de abajo no los muestra es decir como que no se actualiza.

(en otros forms si puede meter los datos y ver los reflejados en mi grid,pero en esos los datos los metia a los dbedits al dedazo, pero en este caso los estoy cargando)
saludos espero ke me puedan ayudar

Para todo esto cabe resaltar que los datos los cargo a los dbedit en un procedimento cuando mi form esta activo creo que me falta indicar algo dentro del procedimiento que le avise al grid que los datos que aparecen ya en los dbedits ya se deben guardar, por que si doy click en algun dbedit, se borra el contenido de todos mi dbedits que cargue, pero mi dbgrid en ese momento comienza a guardar lo que escriba

Según se desprende, parece que te queda de ejecutar un "Post", sobre la tabla para que se guarden los datos.

Prueba con un botón y pon:

Código Delphi [-]Table1.Post;
Table1.FlusBuffers;
(Paradox

Table1.Post;
y Commit ó CommitRetaining para FireBird, etc.

Un Saludo.

Cita:

Empezado por marcoszorrilla (Mensaje 367518)

Según se desprende, parece que te queda de ejecutar un "Post", sobre la tabla para que se guarden los datos.

Prueba con un botón y pon:
Código Delphi

Código Delphi [-]Table1.Post; Table1.FlusBuffers; (Paradox  Table1.Post;

y Commit ó CommitRetaining para FireBird, etc.

Un Saludo.

Hola disculpa xD pero soy principiante este es el codigo de la unit donde tengo problema podrias indicar donde insertaria mi codigo , ya tengo un procedimiento que responde a un boton pero pues , no puedo insertar el codigo utilizando el nombre de mi tabla:

Código Delphi [-]unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit2,DB,StdCtrls,ExtCtrls,Unit8, Mask, DBCtrls, Grids, DBGrids;
type
  TForm5 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    dshistorial: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBNavigator1: TDBNavigator;
    DBCheckBox1: TDBCheckBox;

    Button1: TButton;

    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
   


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  guarda_clave_historial:integer;
  guarda_clave_cliente:integer;
  guarda_clave_plan:integer;
  guarda_clave_promocion:integer;
  guarda_estado:boolean;
  guarda_fecha_cobro:tdate;

implementation



{$R *.dfm}



///nota recordar que se va hacer un menu asi que el form active
//no serivra usar en boton de cargar




procedure TForm5.FormActivate(Sender: TObject);
begin

      guarda_clave_historial:=Unit8.clave_historial;
      guarda_clave_cliente:=Unit8.clave_cliente;
      guarda_clave_plan:=Unit8.clave_plan;
      guarda_estado:=Unit8.estado;
      guarda_fecha_cobro:=Unit8.fecha_cobro;
      guarda_clave_promocion:=Unit8.clave_promocion;

end;
procedure TForm5.Button1Click(Sender: TObject);
begin
      DBEdit1.Text:=inttostr(guarda_clave_historial);
      DBEdit2.Text:=inttostr(guarda_clave_cliente);
      DBEdit3.Text:=datetostr(guarda_fecha_cobro);
      DBCheckBox1.Checked:=guarda_estado;
end;

end.

donde mi unit 2 es donde tengo mi tibdatabase, mis transaction y mis tibtable y mi unit 8 donde tengo las variables globales que comente en mi primer post,saludos y disculpa es que soy algo nuevo en esto

Hola

Código Delphi [-]procedure TForm5.Button1Click(Sender: TObject);
begin
// aqui tienes que poner un insert a tu tabla
DBEdit1.Text:=inttostr(guarda_clave_historial);
DBEdit2.Text:=inttostr(guarda_clave_cliente);
DBEdit3.Text:=datetostr(guarda_fecha_cobro);
// aqui tienes que poner un post a tu tabla
DBCheckBox1.Checked:=guarda_estado;
end;

Saludos

Cita:

Empezado por Caral (Mensaje 367624)

Hola

Código Delphi [-]procedure TForm5.Button1Click(Sender: TObject);
 begin 
// aqui tienes que poner un insert a tu tabla
 DBEdit1.Text:=inttostr(guarda_clave_historial);
 DBEdit2.Text:=inttostr(guarda_clave_cliente);
 DBEdit3.Text:=datetostr(guarda_fecha_cobro);
 // aqui tienes que poner un post a tu tabla
 DBCheckBox1.Checked:=guarda_estado; end;

Saludos

Perfecto arregle mi codigo por ke tenia otra manera de hacerlo pero al final xD tenia el mismo problema, pero con lo del Post se me arreglo Muchas Grax