if !dbused("家庭理财管理系统")   
      open database 家庭理财管理系统  
endif
use 家庭个人经费开支表
 sele 家庭个人经费开支表
go top
locate for allt(家庭个人经费开支表.年份)=allt(thisform.text1.value)
if found()
 do case 
 case empty(thisform.text2.value)
      if found(thisform.combo1.value=0)
         do case
         case empty(thisform.tex3.value)
              sele*from 家庭个人经费开支表 where 家庭个人经费开支表.年份=thisform.text1.value order by 家庭个人经费开支表.支出日期
         otherwise
              sele*from 家庭个人经费开支表 where 家庭个人经费开支表.年份=thisform.text1.value and 家庭个人经费开支表.用户名=thisform.text3.value order by 家庭个人经费开支表.支出日期
         endcase
      else
          do case
         case empty(thisform.tex3.value)
              sele*from 家庭个人经费开支表 where 家庭个人经费开支表.年份=thisform.text1.value and 家庭个人经费开支表.支出项目=thisform.combo1.value order by 家庭个人经费开支表.支出日期
         otherwise
              sele*from 家庭个人经费开支表 where 家庭个人经费开支表.年份=thisform.text1.value and 家庭个人经费开支表.用户名=thisform.text3.value and 家庭个人经费开支表.支出项目=thisform.combo1.value order by 家庭个人经费开支表.支出日期
         endcase
      endif
 otherwise
      if found(thisform.combo1.value=0)
         do case
         case empty(thisform.tex3.value)
              sele*from 家庭个人经费开支表 where 家庭个人经费开支表.年份=thisform.text1.value and 家庭个人经费开支表.月份=thisform.text2.value order by 家庭个人经费开支表.支出日期
         otherwise
              sele*from 家庭个人经费开支表 where 家庭个人经费开支表.年份=thisform.text1.value and 家庭个人经费开支表.用户名=thisform.text3.value and 家庭个人经费开支表.月份=thisform.text2.value order by 家庭个人开支经费表.支出日期
         endcase
      else
      do case
         case empty(thisform.tex3.value)
              sele*from 家庭个人经费开支表 where 家庭个人经费开支表.年份=thisform.text1.value and 家庭个人经费开支表.月份=thisform.text2.value and 家庭个人经费开支表.支出项目=thisform.combo1.value order by 家庭个人开支经费表.支出日期
         otherwise
              sele*from 家庭个人经费开支表 where 家庭个人经费开支表.年份=thisform.text1.value and 家庭个人经费开支表.用户名=thisform.text3.value and 家庭个人经费开支表.支出项目=thisform.combo1.value and 家庭个人经费开支表.月份=thisform.text2.value order by 家庭个人经费支出表.支出日期
         endcase
      endif 
 endcase  
else
 k=messagebox ("无此年数据")
 if k=1
    thisform.text1.value=""
    thisform.text1.setfocus
 endif
endif        
close database