jajaj ok roman aqui te pongo el codigo que utilizo para almacenar los 2 datos en una tabla llamada IBTgrupos_al..
[CODE delphi]
procedure Tcrear_grupo.alumnosDblClick(Sender: TObject);
var nombre_grupo:string;
begin
nombre_grupo:=crear_grupo.clave_grupo.Text; //Asigna el nombre del Grupo a la variable
if nombre_grupo<>'' then //Compara si el nombre del grupo fue proporcionado
begin
//pasa los parametros desde el DBGrid y almacena los datos
ModuloSID.IBQalm_grupos.Params[0].AsString:=nombre_grupo;
ModuloSID.IBQalm_grupos.Params[1].AsString:=alumnos.Fields[0].AsString;
ModuloSID.IBQalm_grupos.ExecSQL;
application.CreateForm(Tinfo_grupo, info_grupo); //Abre el mensage para indicar que el alumno ha sido almacenado en el grupo
info_grupo.label1.Caption:='El alumno con la Matricula ' + alumnos.Fields[0].AsString + ' ha sido inscrito en el Grupo ' + crear_grupo.clave_grupo.Text;
//Se limpia el registro que fue almacenado
alumnos.EditorMode:=true;
alumnos.Fields[0].AsString:='';
alumnos.Fields[1].AsString:='';
alumnos.Fields[2].AsString:='';
alumnos.Fields[3].AsString:='';
alumnos.Fields[4].AsString:='';
alumnos.Fields[5].AsVariant:='';
alumnos.Fields[6].AsString:='';
alumnos.Refresh; //se actualiza el DBGRid
end
else
begin
showMessage('Necesita indicar el nombre del Grupo');
ModuloSID.IBQsel_alum.Cancel;
end;
//Se cierra y abre la tabla para actualizar valores
ModuloSID.IBTgrupos_al.Close;
ModuloSID.IBTgrupos_al.Open;
ModuloSID.IBQalm_grupos.Close;
end;
[/code]
en donde nombre_grupo es la variable que almacena el nombre del grupo el cual va a hacer insertado en la tabla "IBTgrupos_al", "IBQalm_grupos" es el SQL que almacena los 2 valores en la tabla estos 2 valores los estoy pasando por parametros.... "MODULOSID" es el modulo de datos,
El error que me sale dice: "Not in EDIT MODE" pero no me dice que componente no esta en modo de edicion.. sera el DBgrid???'
|