学校让做一个时钟与台历的实验，这个台里怎么搞啊...指导一下...

thisform.olecontroll.year=year(date())
thisform.olecontrol1.month=month(date())
thisform.olecontrol1.day=day(date())
thisform.cx2
    aa= thisform.olecontrol1.year
　　bb= thisform.olecontrol1.month
　　cc= thisform.olecontrol1.day
    use bl
　　pack
　　set dele on
　　go top
　　if recc()〈〉0
　　 do while .not. eof()
　　 if 年=aa .and. 月=bb .and. 日=cc
　　 loca for 年=aa .and. 月=bb .and. 日=cc
　　 exit
　　 endif
　　 skip 1
　　enddo
　　endif
　　thisform.refresh



这个哪有问题，系统提示无法识别

建了吧..
是这样，建立了一个olecontrol1
然后我想加一个edit1作为记事本，可以根据日期进行备忘，有一个记事按钮，一个清除记事按钮，这怎么弄啊。。。大概提示下，用什么命令或者加什么控件啥的...