get_alarm.bak

自写的仓库管理系统,之前在工厂打工时写的

**
** GET_AL~1.FXP

**
 USE IN 0 alarm
 SELE alarm
 REPL process WITH .F. ALL FOR style>10 .AND. style<20
 COUN FOR process=.F. TO max_alarm
 IF max_alarm=0
      SET MESSAGE TO "没有提醒内容！"
      USE
      RETU
 ENDI
 DIME alarm_msg(max_alarm, 10)
 nalarm = 1
 GOTO 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
      ENDI
      SKIP
 ENDD
 USE
 SET MESSAGE TO "读取提醒信息完毕！"
 ?? CHR(7)
ENDPROC
*