if(MessageDlg("要删除当前记录码?",mtConfirmation,TMsgButtons()<<mbYes<<mbNo,0)==mrYes)
{
ADOTable1->Delete();
}
//如果是C++ builder XE版
if(MessageDlg("你还有"+String(WZt)+"未完成,是否确定要提交测试?",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes)
{
ADOTable1->Delete();
}