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;
如果不对,请大家指点一下对的方法。急

解决方案 »

  1.   

    这样一段,如果用的是ado连接的数据库,是不是这样的写以和上面的结果和功能一样;
    begin
    with datamodule1.adotgroup do
    begin
    close;
    sql.Clear;
    sql.Add('select * from [tgroup]');
    open;
    如果不对,请大家指点一下对的方法。急建议用ADOQUEREY,这样灵活一点,
      

  2.   

    这样一段,如果用的是ado连接的数据库,是不是这样的写以和上面的结果和功能一样;
    begin
    with datamodule1.adotgroup do
    begin
    close;
    sql.Clear;
    sql.Add('select * from [tgroup]');
    open;
    如果不对,请大家指点一下对的方法。急建议用ADOQUEREY,这样灵活一点,
      

  3.   

    我用的是adoquery,至于[tgroup]因为前面几个都用到了access的保留字,所以加了一个[]号,这个字不是,也可以不加直接tgroup就可,