Changeset 7 for trunk/Forms/UMainForm.pas

Timestamp:

Dec 25, 2010, 9:53:55 PM (14 years ago)

Author:

george

Message:

• Updated: USqlDatabase library.
• Added: Dependency to TemplateGenerics package.
• Modified: Rest of czech strings translated to english.

File:

• trunk/Forms/UMainForm.pas (modified) (7 diffs)

trunk/Forms/UMainForm.pas

@@ -100 +100 @@
   MainForm: TMainForm;
 
+resourcestring
+  SItemNotFound = 'Item not found';
+  SObjectNotFound = 'Object not found';
+
+
 implementation
 
@@ -129 +134 @@
             Database.HostName := TextContent;
           if NodeName = 'schema' then
-            Database.Schema := TextContent;
+            Database.Database := TextContent;
           if NodeName = 'username' then
             Database.UserName := TextContent;
@@ -306 +311 @@
     TopItem.SelectedIndex := 0;
     try
-      DbRows := Database.Query('SELECT * FROM `ObjectGroup`');
+      DbRows := TDbRows.Create;
+      Database.Query(DbRows, 'SELECT * FROM `ObjectGroup`');
       for I := 0 to DbRows.Count - 1 do begin
         NewNode := AddChild(TopItem, DbRows[I].Values['Name']);
@@ -313 +319 @@
         NewNode.Data := Pointer(StrToInt(DbRows[I].Values['Id']));
         try
-          ObjectDbRows := Database.Query('SELECT * FROM `Object` WHERE `Group`=' + DbRows[I].Values['Id']);
+          ObjectDbRows := TDbRows.Create;
+          Database.Query(ObjectDbRows, 'SELECT * FROM `Object` WHERE `Group`=' + DbRows[I].Values['Id']);
           for O := 0 to ObjectDbRows.Count - 1 do begin
             NewObjectNode := AddChild(NewNode, ObjectDbRows[O].Values['Name']);
@@ -348 +355 @@
     Clear;
     try
-    DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(Integer(TreeView1.Selected.Data)));
+    DbRows := TDbRows.Create;
+    Database.Query(DbRows, 'SELECT * FROM `Object` WHERE `Id`=' + IntToStr(Integer(TreeView1.Selected.Data)));
     if DbRows.Count = 1 then begin
       SelectedObject := StrToInt(DbRows[0].Values['Id']);
@@ -354 +362 @@
       // Load column names
       try
-        Properties := Database.Query('SELECT * FROM `Property` WHERE `Object`=' +
+        Properties := TDbRows.Create;
+        Database.Query(Properties, 'SELECT * FROM `Property` WHERE `Object`=' +
           DbRows[0].Values['Id']);
         Columns.Clear;
@@ -371 +380 @@
       // Load items
       try
-      Values := Database.Query('SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' +
+      Values := TDbRows.Create;
+      Database.Query(Values, 'SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' +
         DbRows[0].Values['Table'] + '`');
       for I := 0 to Values.Count - 1 do begin