SELECT;
 TAlias1.time1,;
 TAlias1.date1,;
 TAlias1.roomno,;
 TAlias1.place1,;
 TAlias1.empno,;
 TAlias2.mobile,;
 TAlias2.tel,;
 TAlias2.empname,;
 TAlias1.discerror,;
 TAlias1.sno;
 FROM trans1 TAlias1, emp1 TAlias2 ;
 WHERE  TAlias1.empno = TAlias2.empno;
     INTO CURSOR crsMyCursor READWRITE
 SELECT crsMyCursor

 IF !EOF()&&&
   skip
 
   THISFORM.TEXT3.Value=crsMyCursor.empname
   THISFORM.TEXT1.Value=crsMyCursor.SNO
   THISFORM.TEXT2.Value=crsMyCursor.EMPNO
   THISFORM.TEXT10.Value=crsMyCursor.discerror
   THISFORM.TEXT13.Value=crsMyCursor.time1
   THISFORM.TEXT12.Value=crsMyCursor.date1
   THISFORM.TEXT16.Value=crsMyCursor.roomno
   THISFORM.TEXT15.Value=crsMyCursor.place1
ELSE
   MESSAGEBOX("End Off File")
endif