new_alarm.prg

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

IF file('alarm.dbf') .or. file('alarm.fpt')
   ans=messagebox("已存在提醒文件 Alarm.DBF 或 Alarm.FPT，是否复盖？",4+48+256,"复盖文件警告！")
   if ans=7
      retu
   endif
Endif  
create table alarm (id n(10),;
                    title c(20),;
                    RunTime t,;
                    Calltime t,;
                    Alwayscall c(4),;
                    style n(2),;
                    wavefile m,;
                    circletime n(8),;
                    setuptime t,;
                    memo m,;
                    process l,;
                    confirm t )
messagebox("已重新生成新的提醒数据库 Alarm.DBF 及 Alarm.FPT！",64,"红虎日记")