Пытаюсь вывести Текст и следом после текста таблицу(результат SQL запроса) По отдельности все получается в одно мест не получается.
Код:
MODULE TestSQL1;
IMPORT Dialog, Views,TextMappers, TextModels, TextControllers, SqlDB,
TextViews, SqlControls, StdLog, StdTables;
VAR
dlg*: RECORD
id*,
password*,
database*,
driver*: ARRAY 255 OF CHAR;
statement*: ARRAY 1024 OF CHAR
END;
table*: SqlDB.Table; (* anchor for database *)
vt: Views.View;
PROCEDURE CheckResult (tab: SqlDB.Table; par: ANYPTR);
BEGIN
vt := SqlControls.dir.NewTableOn(tab);
(*Views.OpenAux(vt, "#Sql:Result")*)
END CheckResult;
PROCEDURE ExecuteThis (statement: ARRAY OF CHAR);
VAR
res: INTEGER;
db: SqlDB.
Database;
rows,cols,row,col : INTEGER;
BEGIN
SqlDB.OpenDatabase(dlg.driver, dlg.id, dlg.password, dlg.database,SqlDB.async, SqlDB.showErrors, db, res);
table := db.NewTable()
table.Exec(statement);
table.Call(CheckResult, NIL);
StdLog.Int(table.rows);
END ExecuteThis;
PROCEDURE Do*;
VAR
t:TextModels.Model;
f:TextMappers.Formatter;
v:TextViews.View;
BEGIN
dlg.id :="";
dlg.password :="";
dlg.database :="Volna";
dlg.driver :="SqlOdbc";
t:=TextModels.dir.New();
f.ConnectTo(t);
f.WriteString("ШАПКА");
f.WriteLn;
v:=TextViews.dir.New(t);
ExecuteThis("select top 10 product,type from rvwVersions");
f.WriteView(vt);
Views.OpenView(v);
END Do;
END TestSQL1.
Если раскоментировть
(*Views.OpenAux(vt, "#Sql:Result")*)
и закоментироват
f.WriteView(vt);
то я получаю 1 окно куда выводиться "ШАПКА"
и второе куда выводиться результат запроса в виде таблице.
Подскажите как эт дело мне объединить.