| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1118 人关注过本帖
标题:请教一个调试中遇到的问题?
只看楼主 加入收藏
zhengdliang
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2006-4-8
收藏
 问题点数:0 回复次数:2 
请教一个调试中遇到的问题?

本人初学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.

本人闷了几天都不知道是什么原因,希望哪一位高手能够指点一下,先谢谢了。

搜索更多相关主题的帖子: 调试 
2006-04-18 16:30
论坛元老
Rank: 1
等 级:新手上路
帖 子:812
专家分:0
注 册:2008-3-31
收藏
得分:0 
不错,值得学习
2008-04-02 15:54
makebest
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:658
专家分:962
注 册:2005-3-17
收藏
得分:0 
貌似这里不行,其他地方行不行就不知道了:
tblValid.Filter:='DepartID='''+tblDepart['DepartID']+''; //设置过滤条件
tblValid.Filter:='DepartID='''+tblDepart['DepartID']+''''; //设置过滤条件
2008-04-02 20:26
快速回复:请教一个调试中遇到的问题?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021898 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved