| # | Line 76 | Line 76 | uses | |
|---|---|---|
| 76 | {$ELSE} | |
| 77 | baseunix, unix, | |
| 78 | {$ENDIF} | |
| 79 | < | SysUtils, Classes, Forms, Controls, IBHeader, |
| 79 | > | SysUtils, Classes, IBHeader, |
| 80 | IBErrorCodes, IBExternals, DB, IB, IBDatabase, IBUtils, IBXConst; | |
| 81 | ||
| 82 | const | |
| # | Line 2159 | Line 2159 | begin | |
| 2159 | FSQLRecord := TIBXSQLDA.Create(self,daOutput); | |
| 2160 | FSQLType := SQLUnknown; | |
| 2161 | FParamCheck := True; | |
| 2162 | < | FCursor := Name + RandomString(8); |
| 2162 | > | FCursor := HexStr(self); //Name + RandomString(8); |
| 2163 | if AOwner is TIBDatabase then | |
| 2164 | Database := TIBDatabase(AOwner) | |
| 2165 | else | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |