33.prg

家庭收支管理系统

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