Problema con DBEDIT Y DBGRD

[carlos v.p.l.]

Empezado por marcoszorrilla

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