ADOQuery1.Connection:=dm.ADOConLocCK;
  for i:=0 to 10 do
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Text:='select *from zdhc';
    ADOQuery1.Open;
    ADOQuery1.Insert;
    ADOQuery1.FieldByName('cj').AsString:='1';
    ADOQuery1.Post;
  end;
连接的是一个数据库,同样的程序在一台机器上运行每Open一次就增加一个数据库连接,而在另一台机器运行就正常查看连接语句为:select * from v$session where username='TYUSER'