Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2013-10-25 21:27:27 ЛС | профиль | цитата
code_32147.txt
Можно ещё упростить - сразу получить нужную строку для HTML.

Add(SQLite_Query,6616688,392,259)
{
SQL="SELECT "<tr><th>"||id||"</th><th>"||name||"</th><th>"||phone||"</th> </tr>" FROM user ;"
}
и подать её прямо на StrList.doAdd. Т.е. схема будет выглядеть так:
db2html.gif

------------ Дoбавленo в 21.27:
Хотя и так будет прекрасно работать.

Add(MainForm,12152022,259,196)
{
Width=1331
Height=552
link(onCreate,6944657:doOpen,[])
}
Add(FormatStr,8553151,455,336)
{
Mask="HTTP/1.1 200 OK\r\nContent-Length: %1\r\nContent-Type: text/html\r\nConnection: close\r\n\r\n%2\r\n"
link(onFString,2515440:doAdd,[])
link(Str2,16205428:Var3,[(468,310)])
}
Add(SQLite_DB,6944657,343,210)
{
FileName="..\ELEMENTS\delphi\ELEMENTS.DB"
}
Add(Length,6323585,406,336)
{
link(onLength,8553151:doString,[])
link(Str,16205428:Var2,[])
}
Add(Button,2675595,259,266)
{
Left=185
Top=480
link(onClick,13145285:doEvent1,[])
}
Add(Hub,13145285,308,266)
{
OutCount=3
link(onEvent1,6616688:doQuery,[])
link(onEvent2,6323585:doLength,[(334,279)(334,342)])
link(onEvent3,1481204:doClear,[(385,286)(385,279)])
}
Add(SQLite_Query,6616688,343,266)
{
SQL="SELECT '<table border="1"> <colgroup span="1" style="color:red"></colgroup><colgroup span="2">';\r\nSELECT "<tr><th>"||id||"</th><th>"||name||"</th><th>"||info||"</th> </tr>" FROM elements;\r\nSELECT "</table>";"
link(onQuery,1481204:doStrCatDlm,[])
link(dbHandle,6944657:dbHandle,[])
}
Add(Memo,2515440,518,336)
{
Left=30
Top=15
Width=525
Height=435
ScrollBars=2
}
Add(GetDataEx,16205428,406,305)
{
link(Data,1481204:Result,[])
}
Add(StrCatDelim,1481204,406,266)
{
Delimiter="\r\n"
Point(doClear)
link(Str1,16205428:Var1,[(412,254)(394,254)(394,310)])
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 2code_32147.txt [2KB] [323], db2html.gif [9.5KB] [560]