PROCEDURE LogT*;
      VAR j, i: INTEGER; t1, t2: SqlDB.Table; money: Money;
         temp1, temp2: ARRAY 50 OF CHAR; sum, ttt: REAL; user: User; rec: Rec;
         table: StdTables.Table;
         p: Controls.Prop;
   BEGIN
      IF db = NIL THEN Start() END;
      IF db # NIL THEN
         db.Exec("USE [DCentre_Discount]");
         Query(db, "SELECT * FROM Cards", t1);
         IF t1.rows > 0 THEN
            db.Exec("USE [DCentre]");
            NEW(p);
            p.link := ""; p.label := ""; p.guard := ""; p.notifier := "";
            p.level := 0; p.opt[Controls.sorted] := TRUE;
            
            table.SetSize(t1.rows, 2);
            FOR i := 0 TO t1.rows - 1 DO
               t1.Read(i, user);
               Strings.IntToString(user.ID_Man, temp1);
               Query(db, "SELECT  ID_Man, Card_Number, SurName, Name, Secname, BirthDay, Phone  FROM Man WHERE ID_Man = " + temp1$, t2);
               IF t2.rows > 0 THEN
                  table.SetItem(i, 0, rec.Card_Number$);
                  table.SetItem(i, 1, rec.SurName$)
               END
            END;
            Views.OpenAux(StdTables.dir.NewControl(p), "Test")
         END
      END
   END LogT;

MODULE MyModule;

VAR t1*: StdTables.Table;
<...>
p.link:='MyModule.t1';

MODULE MyTest;
   IMPORT Controls, StdTables, Views, Strings;
   VAR
      t1*: StdTables.Table; p: Controls.Prop;
   PROCEDURE Do*;
      VAR i, j: INTEGER; temp: ARRAY 20 OF CHAR;
   BEGIN
      NEW(p);
      p.link := "MyTest.t1"; p.label := ""; p.guard := ""; p.notifier := "";
      p.level := 0; p.opt[Controls.sorted] := TRUE;
      t1.SetSize(100, 2);
      t1.SetLabel(0, "i");
      t1.SetLabel(1, "i*i");
      FOR i := 0 TO 99 DO
         Strings.IntToString(i, temp);
         t1.SetItem(i, 0, temp$);
         Strings.IntToString(i*i, temp);
         t1.SetItem(i, 1, temp$);
      END;
      Views.OpenAux(StdTables.dir.NewControl(p), "Test table")
   END Do;

END MyTest.Do