考试系统，在考生考试过程中出现断线情况，在交卷的时候如何实现重新连接上啊？？？

[loader]

我的代码：
function TKSForm.ConnectToDataBase: boolean; //连接数据库 true: 成功；false：失败
begin
Result := true;
KSDataM.KSADOC.Connected := false;
if not KSDataM.KSADOC.Connected then
begin
try
KSDataM.KSADOC.Open;
KSDataM.KSADOC.Connected := true;
except
Application.MessageBox('数据库连接失败！', '提示', MB_ICONINFORMATION);
Result := false;
exit;
end;
end;
end;
我故意将数据库断开，然后连接上，上面函数也可以连接上，但是执行查询语句的时候还是提示数据库已经断开了