Ver Mensaje Individual
  #5  
Antiguo 04-04-2008
MOCOSO07 MOCOSO07 is offline
Miembro
 
Registrado: feb 2008
Posts: 67
Reputación: 17
MOCOSO07 Va por buen camino
Wink

hola amigos ya pude crear el componente que queria

ahora quiero saber si hay forma de eliminarlo??

este es el codigo que use para crearlo

Código Delphi [-]
  frm_DataModule.qry_revMaterias.Close;
  frm_DataModule.qry_revMaterias.SQL.Clear;
  frm_DataModule.qry_revMaterias.SQL.Add('Select Nombre_materia, id_materia');
  frm_DataModule.qry_revMaterias.SQL.Add('FROM MATERIA');
  frm_DataModule.qry_revMaterias.SQL.add('WHERE PLAN_ESTUDIOS = '+QuotedStr(cmb_plan.Text)+' AND  NUCLEO_FORMACION = "TRONCO COMUN" or clave_AA = '+QuotedStr(VarToStr(combo_AA.KeyValue))+' order by id_materia');
  frm_DataModule.qry_revMaterias.SQL.Text;
  frm_DataModule.qry_revMaterias.Open;
  frm_DataModule.qry_revMaterias.FetchAll;

  altura  := 281;
  altura1 := 281;
  bandera := 1;
 while not frm_DataModule.qry_revMaterias.Eof do
 begin
    if altura < 634 then
    begin
    Tpanel.Create(Self);
    etiqueta := tlabel.Create(Self);
    etiqueta.Parent := Self;
    etiqueta.Width := 99 ;
    etiqueta.Left := 24 ;
    etiqueta.Top := altura ;
    etiqueta.Caption := frm_DataModule.qry_revMaterias.Fields[0].AsString;

    edit := tedit.Create(Self);
    edit.Parent := Self;
    edit.Width := 99 ;
    edit.Left := 250 ;
    edit.Top := altura ;
    edit.Width := 24;
    edit.Height := 15;
    edit.Name := 'e' + frm_DataModule.qry_revMaterias.Fields[1].AsString;
    edit.Text := '';
    altura := altura + 16;
    end
    else
    begin

    etiqueta := Tlabel.Create(Self);
    etiqueta.Parent := Self;
    etiqueta.Width := 99 ;
    etiqueta.Left := 304 ;
    etiqueta.Top := altura1 ;
    etiqueta.Caption := frm_DataModule.qry_revMaterias.Fields[0].AsString;

    edit := tedit.Create(Self);
    edit.Parent := Self;
    edit.Width := 99 ;
    edit.Left := 580 ;
    edit.Top := altura1 ;
    edit.Width := 24;
    edit.Height := 15;
    edit.Name := 'e' + frm_DataModule.qry_revMaterias.Fields[1].AsString;
    edit.Text := '';

    altura1 := altura1 + 16;
    end;
    frm_DataModule.qry_revMaterias.Next;
 end;
 end;


bueno lo queria hacer era una consulta q dependiendo del plan de estudios el nucleo de formacion y el area me mandara la lista de materias que el alumno iba a cursar que es el codigo anterior

quiero saber como eliminar por que...

necesito saber como borrarlos para volver a cargar nuevamente componentes en determinado caso que el usuario quiera hacer una consulta con otro plan u otra area

espero y me haya explicado, como anteriormente dije estoy usando delphi 5
gracias por su atencion
Responder Con Cita