Changeset 142 for devel/web/USqlDatabase.pas

Timestamp:

Jan 22, 2009, 9:20:15 AM (15 years ago)

Author:

george

Message:

• Přidáno: Jednotka pro správu finančních dokladů.

File:

• devel/web/USqlDatabase.pas (modified) (7 diffs)

devel/web/USqlDatabase.pas

@@ -153 +153 @@
   I: Integer;
   Value: string;
+  DbRows: TDbRows;
 begin
   Table := ATable;
@@ -166 +167 @@
   System.Delete(DbNames, 1, 1);
   System.Delete(DbValues, 1, 1);
-  Query('INSERT INTO `' + Table + '` (' + DbNames + ') VALUES (' + DbValues + ')');
+  DbRows := Query('INSERT INTO `' + Table + '` (' + DbNames + ') VALUES (' + DbValues + ')');
+  DbRows.Free;
 end;
 
@@ -219 +221 @@
   Value: string;
   I: Integer;
+  DbRows: TDbRows;
 begin
   Table := ATable;
@@ -232 +235 @@
   System.Delete(DbNames, 1, 1);
   System.Delete(DbValues, 1, 1);
-  Query('REPLACE INTO `' + Table + '` (' + DbNames + ') VALUES (' + DbValues + ')');
+  DbRows := Query('REPLACE INTO `' + Table + '` (' + DbNames + ') VALUES (' + DbValues + ')');
+  DbRows.Free;
 end;
 
@@ -246 +250 @@
   Value: string;
   I: Integer;
+  DbRows: TDbRows;
 begin
   Table := ATable;
@@ -256 +261 @@
   end;
   System.Delete(DbValues, 1, 1);
-  Query('UPDATE `' + Table + '` SET (' + DbValues + ') WHERE ' + Condition);
+  DbRows := Query('UPDATE `' + Table + '` SET (' + DbValues + ') WHERE ' + Condition);
+  DBRows.Free;
 end;
 
@@ -302 +308 @@
 
 procedure TSqlDatabase.Delete(ATable: string; Condition: string = '1');
+var
+  DbRows: TDbRows;
 begin
   Table := ATable;
-  Query('DELETE FROM `' + Table + '` WHERE ' + Condition);
+  DbRows := Query('DELETE FROM `' + Table + '` WHERE ' + Condition);
+  DbRows.Free;
 end;