自定义日历控件的源代码实现与示例

先下载一个日历控件，自己画一个也可以。   
  数据窗口doubleclick参考以下代码：   
    
  //一下代码判断是否为日期型的数据   
  if   row=0   then   return   
  //取得点击列的数据类型   
  string   ls_type,ls_return   
  if   string(dwo.name)   =   "datawindow"   then   return   
  if   right(trim(string(dwo.name)),2)   =   "_t"   or   isnull(dwo.name)   or   trim(string(dwo.name))   =   ""   or   left(trim(string(dwo.name)),4)   =   "obj_"   then   return   
  ls_type   =   upper(dwo.ColType)   
    
  if   left(ls_type,4)   =   "DATE"   then//如果是DATE或DateTime数据类型，则进入。   
    
  if   this.Describe(string(dwo.name)   +   ".TabSequence")   =   "0"   then   return   
    
  str_rl   lstr_1   
  DateTime   ldt_dt   
  mousepos   mouseloc   
    
  GetCursorPos(mouseloc)   
  lstr_1.ai_x   =   PixelsToUnits(mouseloc.xpos,XPixelsToUnits!)   
  lstr_1.ai_y   =   PixelsToUnits(mouseloc.ypos,YPixelsToUnits!)   
  ldt_dt   =   gf_get_sysdate()   
    
  if   ls_type='DATE'   THEN//如果是Date类型   
  If   IsNull(this.getitemdate(row,string(dwo.name)))   Then//如果该字段是空值，则取当前时间   
  lstr_1.ad_date   =   Date(ldt_dt)   
  Else   
  lstr_1.ad_date   =   date(this.getitemdate(row,string(dwo.name)))//如有值，则取当前值   
  End   If