Tad писал(а):
А можно HTML создавать и "напрямую" запросом к таблице в БДzhorik5 писал(а):
а вот это кстати интересно!
Где-то так
Add(MainForm,2953706,238,140)
{
Width=579
Height=469
link(onCreate,951801:doOpen,[])
}
Add(WebBrowser,3468261,364,224)
{
Left=85
Top=10
Width=470
Height=415
Point(doFromText)
}
Add(Button,8840981,245,252)
{
Left=15
Top=10
Caption="Отчет"
link(onClick,5178164:doQuery,[])
}
Add(DS_SQLite,951801,301,154)
{
Name="baaaseee"
FileName=":memory:"
link(onOpen,683309:doExec,[])
}
Add(DSC_Query,5178164,301,252)
{
SQL="SELECT '<html><head><title>Отчет</title></head><body><h2 align="center">Ценник</h2>\r\n <table align="center" border="1" width="90%"><tr>\r\n <td align="center" style="color: Maroon"><b>Товар</b></td>\r\n <td align="center" style="color: Maroon"><b>Ед. изм.</b></td>\r\n <td align="center" style="color: Maroon"><b>Цена</b></td></tr>'||\r\n group_concat('<tr><td>'||tovar||'</td><td>'||unit||'</td><td align="right">'||cena||'</td></tr>',' ')||\r\n '<tr style="background-color: Aqua;"><td>Всего наименований</td><td> </td><td align="right">'||Count(tovar)||'</td></tr></table></body></html>'\r\n FROM price"
DSManager="baaaseee"
link(onQuery,3468261:doFromText,[])
}
Add(DSC_Exec,683309,357,154)
{
SQL="BEGIN TRANSACTION;\r\nCREATE TABLE IF NOT EXISTS price(id INTEGER PRIMARY KEY AUTOINCREMENT NULL, tovar TEXT NULL, unit TEXT NULL, cena FLOAT NULL);\r\nINSERT INTO price(tovar, unit, cena) VALUES('ситро','бут.',20);\r\nINSERT INTO price(tovar, unit, cena) VALUES('колбаса','кг.',2.25);\r\nINSERT INTO price(tovar, unit, cena) VALUES('огурец соленый','шт.',150);\r\nINSERT INTO price(tovar, unit, cena) VALUES('водка (неплохая)','бут.',100);\r\nINSERT INTO price(tovar, unit, cena) VALUES('водка (хорошая)','бут.',123);\r\nINSERT INTO price(tovar, unit, cena) VALUES('водка (очень хорошая)','бут.',150);\r\nINSERT INTO price(tovar, unit, cena) VALUES('хлеб','буханка',50);\r\nCOMMIT;"
DSManager="baaaseee"
}
Поиск
Друзья
Администрация