本人初学delphi,在学一本教材时每次运行时都会出现下面的错误,请多多指教!错误提示:
---------------------------
Debugger Exception Notification
---------------------------
Project StudentMIS.exe raised exception class EDatabaseError with message 'Unterminated string constant'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
其中窗体文件的一部分代码:
begin
Result:=true;
tblValid.Active:=false; //关闭记录集
tblValid.TableName:='Department'; //设置数据表名
tblValid.Filter:='DepartID='''+tblDepart['DepartID']+''; //设置过滤条件
tblValid.Filtered:=true; //允许过滤
tblValid.Active:=true; //打开记录集
if not tblValid.Eof then
begin //非空-编号不惟一
strMsg:=Format('院系编号"%s" 已经存在,请重新输入!'#13,[tblDepart['DepartID']]);
strMsg:=strMsg+Format(' 院系编号: %s'#13,[tblValid['DepartID']]);
strMsg:=strMsg+Format(' 院系名称: %s'#13,[tblValid['DepartName']]);
strMsg:=strMsg+Format(' 院系领导: %s'#13,[tblValid['DepartHead']]);
ShowMessage(strMsg);
dbeDepartID.SetFocus;
Result:=false;
end;
tblValid.Active:=false;
end;
工程文件的一部分代码:
function SQLConfigDataSource(hwndPart:Integer;
fRequest:LongInt;
lpszDriverString:string;
lpszAttributes:string
):LongBool;Stdcall;External 'ODBCCP32.DLL';
const
ODBC_ADD_DSN=1;
ODBC_CONFIG_DSN=2;
ODBC_REMOVE_DSN=3;
ODBC_ADD_SYS_DSN=4;
ODBC_CONFIG_SYS_DSN=5;
ODBC_REMOVE_SYS_DSN=6;
begin
Application.Initialize;
SQLConfigDataSource(0,ODBC_ADD_SYS_DSN,
'Microsoft Access Driver(*.mdb)',
'DSN=StudentMIS;DBQ='''
+ExtractFilePath(Application.ExeName)+'StudentMIS.MDB'';'
+'FIL=MS Access;MaxBufferSize=512;PageTimeout=5'+'Description=''学生管理系统''');
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmDepartment, frmDepartment);
Application.Run;
end.
本人闷了几天都不知道是什么原因,希望哪一位高手能够指点一下,先谢谢了。
请教一个调试中遇到的问题?