![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
|||
|
|||
|
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???' |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|