
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Application->MessageBox(L"送出成功",L"提示",MB_OK);
//Application->MessageBoxW(L"送出成功",L"提示",MB_OK);
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if( Application->MessageBox(L"送出後成績不可以再修改,是否确認送出?",L"提示",MB_YESNO)==IDNO )
{
return;
}
}