get_alarm.prg

来自「别处找来的红虎日记源代码」· PRG 代码 · 共 40 行

if !file('alarm.dbf').or.!file('alarm.fpt')
  set message to "读取提醒错误！"
  ??chr(7)
  retu
endif  

use alarm in 0
sele alarm
repl all process with .f. for style>10 .and. style<20
count to max_alarm for process=.f. 
if max_alarm=0
  set message to "没有提醒内容！"
  use
  retu
endif

dime alarm_msg(max_alarm,10)
nAlarm=1
go top
do while .not.eof()
   if process=.f.
      alarm_msg(nAlarm,1)=id
      alarm_msg(nAlarm,2)=title
      alarm_msg(nAlarm,3)=RunTime
      alarm_msg(nAlarm,4)=CallTime
      alarm_msg(nAlarm,5)=Style
      alarm_msg(nAlarm,6)=WaveFile
      alarm_msg(nAlarm,7)=CircleTime
      alarm_msg(nAlarm,8)=Memo
      alarm_msg(nAlarm,9)=.f.
      alarm_msg(nAlarm,10)=AlwaysCall
      nalarm=nalarm+1         
   endif
     skip
enddo
use

set message to "读取提醒信息完毕！"
??chr(7)