function ftorm1.hassub(node:ttreenode):boolean;
begin
with table1 do
begin
table1.findnearest([copy(pstr(node.data)^,4,3+'000']);
result:=copy(fieldbyname('nodeid').AsString,1,3)=copy(pstr(node.Data)^,4,3);
end;
end;
以上关于:begin
with table1 do
begin
table1.findnearest([copy(pstr(node.data)^,4,3+'000']);
这样一段,如果用的是ado连接的数据库,是不是这样的写以和上面的结果和功能一样;
begin
with datamodule1.adotgroup do
begin
close;
sql.Clear;
sql.Add('select * from [tgroup]');
open;
如果不对,请大家指点一下对的方法。急
begin
with table1 do
begin
table1.findnearest([copy(pstr(node.data)^,4,3+'000']);
result:=copy(fieldbyname('nodeid').AsString,1,3)=copy(pstr(node.Data)^,4,3);
end;
end;
以上关于:begin
with table1 do
begin
table1.findnearest([copy(pstr(node.data)^,4,3+'000']);
这样一段,如果用的是ado连接的数据库,是不是这样的写以和上面的结果和功能一样;
begin
with datamodule1.adotgroup do
begin
close;
sql.Clear;
sql.Add('select * from [tgroup]');
open;
如果不对,请大家指点一下对的方法。急
解决方案 »
- dbgrid问题?
- 旧事重提 关于 d7 中的 servers 组件的用法
- 如果知道DBGRIDEH当前在编辑的网格的值,注意,是在编辑状态的值,DBGrid1.SelectedField.asstring 这样是错的,这样是提交后的值了,我
- 如何让动态创建的组件的属性跟已有的同类组件的属性一模一样?
- 急助!关于TDbgrid有关触发事件
- 如何建立一个access数据库。
- 关于DBgrid使用的两个问题(有点难度),在线等待给分。。。
- 如何判断记录中某个字段是否有相同值?
- 一个汉字编码问题,求教了
- 和delphi无关的问题?
- delphi中#8代表什么?
- 大家做过打字练习的东东吗?能够实时反映打字是否正确吗?
begin
with datamodule1.adotgroup do
begin
close;
sql.Clear;
sql.Add('select * from [tgroup]');
open;
如果不对,请大家指点一下对的方法。急建议用ADOQUEREY,这样灵活一点,
begin
with datamodule1.adotgroup do
begin
close;
sql.Clear;
sql.Add('select * from [tgroup]');
open;
如果不对,请大家指点一下对的方法。急建议用ADOQUEREY,这样灵活一点,