procedureTFGJ.bsSkinSpeedButton3Click(Se.. 精选答案
procedure TFGJ.bsSkinSpeedButton3Click(Sender: TObject); var tmpquery2:tadoquery; tmpfile:string; tmptable:tadotable; begin if application.MessageBox( '导入答案将会清空以前的考生答案，确定是否继续？ ', '提醒 ',MB_OKCANCEL or MB_ICONWARNING)=mrok then begin IF BSopen.Execute then try try begin tmpfile:=bsopen.FileName; tmpta
