[UREÑA]

hola amigos!! lo que quiero hacer es lo siguiente:

tengo una tabla de materias, cada materia tiene su id que consta de 3 caracteres ejemplo. 001
tengo otra tabla que se llama Alu-Mat en la cual tengo un campo que se llama cursadas en cual se agrega el id de la materia que se curso ejemplo: 001002003 conforme se cursa una materia se le agregan 3 digitos que son el id de la materia al campo de cursadas

bueno lo que yo quiero es comparar el campo de cursadas con un id de la materia seleccionada en un combo y que me muestre el id del alumno(matricula) que no ha cursado esa materia

este es el codigo que tengo

espero haberme explicado gracias

Código SQL [-]
begin

  frm_DataModule.qry_AluMat_APM.Close;
  frm_DataModule.qry_AluMat_APM.SQL.Clear;
  frm_DataModule.qry_AluMat_APM.SQL.Add('SELECT ALUMNO.MATRICULA, ALU_MAT.CURSADAS FROM (ALUMNO INNER JOIN CALIFICACION ON ALUMNO.MATRICULA = CALIFICACION.MATRICULA) INNER JOIN ALU_MAT ON ALUMNO.MATRICULA = ALU_MAT.MATRICULA ');
  frm_DataModule.qry_AluMat_APM.SQL.Add('WHERE (((ALUMNO.AREA_ACADEMICA)='+VarToStr(combo_AA.keyvalue)+') AND ((CALIFICACION.ID_PERIODO) = '+QuotedStr(VarToStr(combo_Periodo.keyvalue))+'))');
  frm_DataModule.qry_AluMat_APM.SQL.Text;
  frm_DataModule.qry_AluMat_APM.Open;

  if frm_DataModule.qry_AluMat_APM.RecordCount <> 0 then
    begin
      incrementa := 0;
      while not (frm_DataModule.qry_AluMat_APM.eof) do
       begin
        cadena := frm_DataModule.qry_AluMat_APM.Fields[1].AsString;
        compara := Length(trim(cadena ));
        y := 1;
        incrementa := 0;
          for x := 0 to compara do
          begin
            cuatro := copy( cadena,y, 3 );
            y := y + 3;
            incrementa := incrementa +1;

            if cuatro = VarToStr(combo_Materia.KeyValue) then
            begin
              inc(z);
            end;

            if ((incrementa - 1 = compara) and (z = 1)) then
            begin
            ListBox1.Items.Add(frm_DataModule.qry_AluMat_APM.Fields[0].AsString);
            frm_DataModule.qry_AluMat_APM.next ;
            end ;
          end; //for end

       end; //while end

    end ;

end;