ayuda por favorguardar datos en un dbgrid
Publicado por Laura (14 intervenciones) el 21/07/2005 21:20:15
hola
estoy guardando datos en un debe dbgrid pero en el momento que pulso el boton de guardar aparentemente me coloca los datos pero en realidad no lo hace ayudenme por favor envio mi codigo
gracias
procedure TAlta.GuardarClick(Sender: TObject);
begin
Usuario_usuario:='';
NombreCompleto_usuario:='';
Descripcion_usuario:='';
Clave_usuario:='';
with Form1.Tabla1 do begin
append; // Ponemos la tabla en modo insertar...
FieldByName('Usuario').asstring := Usuario_usuario; // Ponemos el usuario
FieldByName('NombreCompleto').asstring := NombreCompleto_usuario; // Ponemos el nombre completo
FieldByName('Descripcion').asstring := Descripcion_usuario; // Ponemos su descripcion.
FieldByName('Clave').asstring := Clave_usuario; // Ponemos el contraseña.
post; // Guardamos los cambios.
end;
end;
end.
estoy guardando datos en un debe dbgrid pero en el momento que pulso el boton de guardar aparentemente me coloca los datos pero en realidad no lo hace ayudenme por favor envio mi codigo
gracias
procedure TAlta.GuardarClick(Sender: TObject);
begin
Usuario_usuario:='';
NombreCompleto_usuario:='';
Descripcion_usuario:='';
Clave_usuario:='';
with Form1.Tabla1 do begin
append; // Ponemos la tabla en modo insertar...
FieldByName('Usuario').asstring := Usuario_usuario; // Ponemos el usuario
FieldByName('NombreCompleto').asstring := NombreCompleto_usuario; // Ponemos el nombre completo
FieldByName('Descripcion').asstring := Descripcion_usuario; // Ponemos su descripcion.
FieldByName('Clave').asstring := Clave_usuario; // Ponemos el contraseña.
post; // Guardamos los cambios.
end;
end;
end.
Valora esta pregunta


0