>*event timer
this.enabled = .f.
* Why do you need set commands in the timer event - they should be done once in form's Load 
>*SET SAFETY off
>*SET CENTURY on
>*SET DATE BRITISH
>*SET TALK OFF
>*SET STATUS off
>QA=0

>If Not Used('trans1')
>    USE trans1.dbf Alias trans1 Again In 0 Shared
>Endif
>
>SELECT trans1
with thisform.pageframe1.page1
>QA=.text4.value
>Grid1.visible = .f.
 Grid1.RecordSource = ''
>SELECT  TAlias1.time1,TAlias1.date1,TAlias1.roomno,TAlias1.place1,TAlias2.mobile,TAlias2.tel,TAlias2.empname, TAlias1.discerror,TAlias1.sno ;
>   FROM trans1 TAlias1, emp1 TAlias2 ;
>   WHERE  TAlias1.empno = TAlias2.empno   ;
>   AND TAlias1.fexerno=val(M.QA) AND mark1=0;
>   ORDER BY date1,sno ;
>   into  table TAlias1
>
>
>   .Grid1.RecordSource="TAlias1"
>endwith
with thisform.pageframe1.page1.grid1
  .column9.header1.caption="ÑÞã ÇáÚØÜá"
>  .column9.header1.fontsize=13
>  .column9.WIDTH=60
>  .column9.Alignment = 2
>  .column9.header1.fontbold=.t.
>  backcolor="255,0,128" &&??????????
>
 * make same changes here
>thisform.pageframe1.page1.grid1.column8.header1.caption="äæÚ ÇáÚØÜá"
>  thisform.pageframe1.page1.grid1.column8.header1.fontsize=13
>  thisform.pageframe1.page1.grid1.column8.WIDTH=200
>  thisform.pageframe1.page1.grid1.column8.Alignment = 2
>  thisform.pageframe1.page1.grid1.column8.header1.fontbold=.t.
>  backcolor="255,0,128"
>
>  thisform.pageframe1.page1.grid1.column7.header1.caption="ÇÓã ÇáãæÙÝ"
>  thisform.pageframe1.page1.grid1.column7.header1.fontsize=13
>  thisform.pageframe1.page1.grid1.column7.WIDTH=180
>  thisform.pageframe1.page1.grid1.column7.Alignment = 2
>  thisform.pageframe1.page1.grid1.column7.header1.fontbold=.t.
>  backcolor="128,128,255"
>
>thisform.pageframe1.page1.grid1.column6.header1.caption="åÇÊÝ ÇÑÖí"
>  thisform.pageframe1.page1.grid1.column6.header1.fontsize=13
>  thisform.pageframe1.page1.grid1.column6.WIDTH=70
>  thisform.pageframe1.page1.grid1.column6.Alignment = 2
>  thisform.pageframe1.page1.grid1.column6.header1.fontbold=.t.
>  backcolor="128,128,255"
>
>  thisform.pageframe1.page1.grid1.column5.header1.caption="åÇÊÝ Îáæí"
>  thisform.pageframe1.page1.grid1.column5.header1.fontsize=13
>  thisform.pageframe1.page1.grid1.column5.WIDTH=100
>  thisform.pageframe1.page1.grid1.column5.Alignment = 2
>  thisform.pageframe1.page1.grid1.column5.header1.fontbold=.t.
>  backcolor="128,128,255"
>
> thisform.pageframe1.page1.grid1.column4.header1.caption=" ãæÞÚ ÇáÚØá"
>  thisform.pageframe1.page1.grid1.column4.header1.fontsize=13
>  thisform.pageframe1.page1.grid1.column4.WIDTH=80
>  thisform.pageframe1.page1.grid1.column4.Alignment = 2
>  thisform.pageframe1.page1.grid1.column4.header1.fontbold=.t.
>  backcolor="128,128,255"
>
>thisform.pageframe1.page1.grid1.column3.header1.caption=" ÑÞã ÇáÛÑÝÉ"
>  thisform.pageframe1.page1.grid1.column3.header1.fontsize=13
>  thisform.pageframe1.page1.grid1.column3.WIDTH=70
>  thisform.pageframe1.page1.grid1.column3.Alignment = 2
>  thisform.pageframe1.page1.grid1.column3.header1.fontbold=.t.
>  backcolor="128,128,255"
> thisform.pageframe1.page1.grid1.column2.header1.caption=" ÊÇÑíÎ ÇáÚØá"
>  thisform.pageframe1.page1.grid1.column2.header1.fontsize=13
>  thisform.pageframe1.page1.grid1.column2.WIDTH=100
>  thisform.pageframe1.page1.grid1.column2.Alignment = 2
>  thisform.pageframe1.page1.grid1.column2.header1.fontbold=.t.
>  backcolor="255,128,255"
>
>thisform.pageframe1.page1.grid1.column1.header1.caption=" æÞÊ ÇáÊÈáíÛ"
>  thisform.pageframe1.page1.grid1.column1.header1.fontsize=13
>  thisform.pageframe1.page1.grid1.column1.WIDTH=80
>  thisform.pageframe1.page1.grid1.column1.Alignment = 2
>  thisform.pageframe1.page1.grid1.column1.header1.fontbold=.t.
>  backcolor="128,128,255"
>.Grid1.visible= not empty(m.QA)
>endwith
> GO top
>ENDIF
>this.enabled = .t. && activate timer back
>
>