with fdm do
begin
ds3.DataSet :=q3;
with DBLookupComboBox2 do
begin
ListSource:=ds3;
ListField:='groupname';
KeyField:='groupcode';
end;
with Q3 do
begin
close;
sql.Clear;
sql.Add(' SELECT k_IdenGroup.GroupCode,'+
' k_IdenGroup.Groupname,'+
' k_IdenGroup.GAuthrity '+
' FROM k_IdenGroup ')
sql.Add(' where groupcode <> '''+'0'''); //系统显示无法找到对象,??????? 去掉该句话则正常???
open;
end;
Fgasmain.AddMenu(listbox3);
end;
end;
begin
ds3.DataSet :=q3;
with DBLookupComboBox2 do
begin
ListSource:=ds3;
ListField:='groupname';
KeyField:='groupcode';
end;
with Q3 do
begin
close;
sql.Clear;
sql.Add(' SELECT k_IdenGroup.GroupCode,'+
' k_IdenGroup.Groupname,'+
' k_IdenGroup.GAuthrity '+
' FROM k_IdenGroup ')
sql.Add(' where groupcode <> '''+'0'''); //系统显示无法找到对象,??????? 去掉该句话则正常???
open;
end;
Fgasmain.AddMenu(listbox3);
end;
end;
解决方案 »
- 按F9 不是编译 而是换行!!
- 怎么通过文本文件句柄,读取文件内容?
- 如何调用一个接口的函数?请给个简单例子?
- 请高手指点迷津-关于DELPHI调用WORD编程
- 在delphi中如何调用ie浏览器打开指定的文件。
- 我在form的某个区域画了一些线段,如何去除这些线段??
- 文件操作中,CopyFile可以实现文件的复制,但是还有问题??????请问该如何实现文件关闭后又打开来写入数据?
- 一个小小的问题,十分简单,奇怪,确没人答对!!!!!!!唉
- 一个数据库网络编程问题:一直不会,请大家进来帮我看看。
- 请问如何将一个数据表中的数据插入到另一个表中??
- 窗体里有三控件,并且是动态生成的,现在我要问:怎么知道我鼠标点击的是哪个控件?
- 请问...在 Panel 上画平铺背景图片!
begin
close;
sql.Clear;
sql.Add(' SELECT k_IdenGroup.GroupCode,'+
' k_IdenGroup.Groupname,'+
' k_IdenGroup.GAuthrity '+
' FROM k_IdenGroup ');{这里少了一个分号}
sql.Add(' where groupcode <> '''+'0'''); //系统显示无法找到对象,??????? 去掉该句话则正常???
open;
end;
没有 sql.Add(' where groupcode <> '''+'0'''); 系统调试是正常的!
' FROM k_IdenGroup ')改为
' FROM k_IdenGroup ');sql.Add(' where groupcode <> '''+'0''');
//groupcode为整形的话:sql.Add(' where groupcode <> 0');
//字符型sql.Add(' where groupcode <> ''0''');
改成
sql.Add(' where groupcode <> "0"(双引号) '(单引号));
sql.Add(' where groupcode <> '+''''+'0'+'''');全是单引号
后的;加上了吗?
//注意大小写,也许你的数据库安装时是大小写敏感的!
sql.Add(' SELECT k_IdenGroup.GroupCode as groupcode,'+
' k_IdenGroup.Groupname,'+
' k_IdenGroup.GAuthrity '+
' FROM k_IdenGroup ')
sql.Add(' where groupcode <> '''+'0''');