Понадобилось вывести таблицу, вроде из стандартных подсистем для этого есть StdTables. Но не удалось найти пример использования и в документации достаточно сухо. Есть подсистема Grid, но хотелось бы обойтись стандартными средствами, благо таблица не сложная.
Поделитесь примером, пожалуйста!
Или, что я делаю не так? Открывается серый кварат...
Код:
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;