TDataWorld - Exemples

Interface de TDataWorld

Exemples de TDataWorld

Initialise deux table, en crée une troisième à partir d'une jointure, et extrait cette dernière dans une nouvelle grille

var dw = TDataWorld.Create;

var dg = TDataGrid.Create;

dg.AddColumn('name', cssText);
dg.AddColumn('age', cssNumeric);

dg.Append;
dg.RowCommaText:='albert,5';
dg.Append;
dg.RowCommaText:='joey,6';
dg.Append;
dg.RowCommaText:='george,5';

dw.AddTableFromDataGrid('names', dg, 'age');

dg.ClearColumns;
dg.ClearData;

dg.AddColumn('num', cssNumeric);
dg.AddColumn('txt', cssText);

dg.Append;
dg.RowCommaText:='5,five';
dg.Append;
dg.RowCommaText:='6,six';
dg.Append;
dg.RowCommaText:='7,seven';

dw.AddTableFromDataGrid('nums', dg, 'num');

dw.AddTableFromSQL('result', 'select name, txt from names, nums where names.age=nums.num', '');

var dg2 = dw.CreateDataGridFromSQL('select * from result');

while not dg2.EOF do begin
PrintLn(dg2.RowCommaText);
dg2.Next;
end;

// retournera le resulta suivant:
//
// albert,five
// joey,six
// george,five