我用SPCOMM做了一个串口应用程序,在SPCOMM的recievedata事件中一打开TADOQuery就报'未指定的错误',代码如下
procedure TFmTest.CommRecieveReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
strSql:string;
begin
if (not DMMain.QIDReturn.Active) then
begin
strSql:='SELECT a.* FROM T_QC_IDReturn a '+
'INNER JOIN T_QC_Device b ON a.F_Device=b.F_SN '+
'WHERE b.F_Dept='''+DeviceConfigInfo.Hospital+'''';
execQuery(DMMain.ConnMain,DMMain.QIDReturn,strSql);
end;
end;
以上代码放在按钮的click事件中就没任何问题
如有知道的朋友,还请帮忙,非常感谢
procedure TFmTest.CommRecieveReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
strSql:string;
begin
if (not DMMain.QIDReturn.Active) then
begin
strSql:='SELECT a.* FROM T_QC_IDReturn a '+
'INNER JOIN T_QC_Device b ON a.F_Device=b.F_SN '+
'WHERE b.F_Dept='''+DeviceConfigInfo.Hospital+'''';
execQuery(DMMain.ConnMain,DMMain.QIDReturn,strSql);
end;
end;
以上代码放在按钮的click事件中就没任何问题
如有知道的朋友,还请帮忙,非常感谢
解决方案 »
- 菜鸟问题DMMainDate.sctClient在delphi中编译不了
- 200分求解决问题,进来看地址,2个题全给分,解决完立即结贴~~~~~~~~~~~~~~``~~~~~~~~~`~~~~~~~~~~~~~~``
- TStringGrid如何只固定某一列
- adoquery用UPDATE更新后值为NULL,请指教!(急)
- 麦克风音量控制????
- 请问Delphi有没有象做网页中editer控件
- 如何确定treeview的所选项目
- SQL数据库中设计表字段名用中文可好?
- 在DELPHI中怎么编程自动拨号??包括UESE中的内容
- dbgrid控件如何用代码绑定数据库
- 谁开发过这样的程序:给一个带自定义标签的word模板,根据数据库中的数据替换标签生成新的文档?
- 用过regware4控件的请进来
比如第1个数据来了,开始执行代码,但未结束;
第2个数据又来了,又触发了事件
但not DMMain.QIDReturn.Active条件还是成立的,所以又执行代码,肯定就会出错了把他分离出来,或者改1下条件