new_diary.bak

别处找来的红虎日记源代码

IF file('diary.dbf') .or. file('diary.fpt')
   ans=messagebox("已存在文件 Diary.DBF 或 Diary.FPT，是否复盖？",4+48+256,"复盖文件警告！")
   if ans=7
      retu
   endif
Endif      
create table diary (date d,;
                    content m,;
                    createtime t,;
                    moditime t)
messagebox("已重新生成新的日记数据库 Diary.DBF 及 Diary.FPT ！",64,"红虎日记")