_oleCalendar类位于Home()+'FFC'目录下的_datetime.vcx类库里,拖入到窗口中,右击,点“生成器”,在窗口中的“Field name to bind calendar”处填写要将Calendar绑定的数据库字段名,这样使用时选择好时间,会自动地更新该字段。
例:
数据库名称为table1,里面有一个logdate来与calendar绑定,如果该字段为空,Calendar初始化的时候会提示错误,所以在此之前先插入一条记录。
INSERT INTO table1 VALUES(DATE()) &&新增一个当天日期记录
frmCalendar = CREATEOBJECT('Form') &&创建一个表单
frmCalendar.newobject('oleCalendar','_oleCalendar','c:\foxpro\ffc\_datetime.vcx') &&表单中新加入一个calendar对象
WITH frmCalendar.oleCalendar
.date_column = 'table1.logdate' &&指定与Calendar绑定的字段
.refreshDisplay() &&使用date_column中的日期来更新calendar的显示
.backcolor = thisform.BackColor
.visible = .T.
.Height = 130
.width = 307
ENDWITH
WITH frmCalendar
.autocenter = .T.
.Borderstyle = 2
.Maxbutton = .F.
.MinButton = .F.
.Height = 130
.width = 307
ENDWITH
frmCalendar.show(1)
thisform.Refresh()