if Application.MessageBox(PChar('确实要注销 ‘'+trim(DM.ADOQuery_ClassBalance.FieldByName('CLASSNO').Value)+'’ 吗?'),
'提示信息', MB_IconInformation + MB_YesNo) = IDNO then
exit;
MessageBox(handle,'账户有余额,不能注销!','操作提示',MB_OK + MB_ICONINFORMATION);
MessageBox(handle,PChar('未找到教材编号为:'+Edit_bookid.text+'的教材!'),'操作提示',MB_OK + MB_ICONINFORMATION);
MessageBox(handle,#13+'当前任务已经在自动排课'+#13+#13+'你的请求不能执行!','操作提示',MB_OK + MB_ICONINFORMATION);