33.prg

来自「家庭收支管理系统」· PRG 代码 · 共 15 行

set talk off
close all
cMessageTitle = '提示！'
cMessageText = '确认要退出？'
nDialogType = 4+64+512
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
do case 
      case nAnswer=6
      clear event
        quit
         endcase
   do case 
        case nAnswer =7
        endcase