my old are here i am convetring in sql but i have not get reslut where like filter

If thisform.sex.value=1 and thisform.admtd.value=1
     Select student
     Set Order To CODE
     Set Filter To code>=thisform.codefm.value and code<=thisform.codeto.value and Year(Date())-Year(dbirth)>=thisform.agefm.value and Year(Date())-Year(dbirth)<=thisform.ageto.value and sec>=thisform.secfm.value and sec<=thisform.secto.value and joind>=thisform.joindfm.value and joind<=thisform.joindto.value and lcode>=thisform.levelfm.value and lcode<=thisform.levelto.value and scode>=thisform.shiftfm.value and scode<=thisform.shiftto.value and sex=1 and admtd=1 .and.ldate>=thisform.ldatefm.value.and.ldate<=thisform.ldateto.value
     Goto Top

new codes

If thisform.sex.value=1 and thisform.admtd.value=1
SELECT Student.*;
 FROM ;
     student;
   where code>=thisform.codefm.value and code<=thisform.codeto.value and Year(Date())-Year(dbirth)>=thisform.agefm.value and Year(Date())-Year(dbirth)<=thisform.ageto.value and sec>=thisform.secfm.value and sec<=thisform.secto.value and joind>=thisform.joindfm.value and joind<=thisform.joindto.value and lcode>=thisform.levelfm.value and lcode<=thisform.levelto.value and scode>=thisform.shiftfm.value and scode<=thisform.shiftto.value and sex=1 and admtd=1 .and.ldate>=thisform.ldatefm.value.and.ldate<=thisform.ldateto.value;
   ORDER BY Student.code;
  INTO CURSOR SYS(2015)
endif