------------ Дoбавленo в 16.38:
Chipset писал(а):
НЕОБХОДИМО что бы перед выводом новой группы таблица очищалась. Вроде так (если я всё правильно понял).
Add(MainForm,2953706,21,105)
{
Width=508
Height=729
link(onCreate,361538:doOpen,[])
}
Add(SQLite_DB,361538,105,119)
{
FileName="test.s3db"
link(onOpen,15046006:doWork1,[])
}
Add(ChildGroupBox,15046006,182,119)
{
link(onEvent1,3977853:doWork1,[])
}
BEGIN_SDK
Add(EditMulti,13220622,21,21)
{
EventCount=2
WorkCount=2
VarCount=2
Width=678
Height=389
link(doWork1,11311027:doQuery,[(91,27)(91,83)])
}
Add(GroupBox,14075530,35,154)
{
Left=14
Top=15
Width=480
Height=405
Color=-16777197
Font=[MS Sans Serif,12,0,16711680,1]
Caption="Материалы"
}
Add(Edit,12690185,126,140)
{
Left=195
Top=380
Width=175
Text=""
}
Add(Label,4098558,98,308)
{
Left=15
Top=330
Width=459
Height=20
Color=-16777197
Font=[MS Sans Serif,12,1,0,1]
WinStyle=1
Caption="Поиск"
}
Add(Label,15978634,55,279)
{
Left=6
Top=350
Width=189
Height=20
Color=-16777197
Font=[MS Sans Serif,12,1,0,1]
WinStyle=1
Caption="Наименование ресурса:
"
}
Add(Edit,15143962,262,32)
{
Left=195
Top=350
Width=265
Text=""
link(onChange,9549963:doMT_FindText,[(318,38)(318,90)])
}
Add(Label,4793360,97,354)
{
Left=6
Top=380
Width=100
Height=20
Color=-16777197
Font=[MS Sans Serif,12,1,0,1]
WinStyle=1
Caption="Код ресурса:"
}
Add(Button,8829586,252,175)
{
Left=390
Top=380
Caption="Очистить"
}
Add(SQLite_DB,361538,77,112)
{
FileName="Data.s3db"
}
Add(SQLite_Query,11311027,203,77)
{
SQL="SELECT * FROM matbaz"
link(onQuery,9549963:doMT_Add,[])
}
Add(StringTableMT,9549963,357,42)
{
Left=5
Top=15
Width=470
Height=315
Color=-16777202
Columns=#6:Код=80|16:Наименование=290|12:Отпускная=80|
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(onColumnClick)
Point(ColumnArray)
Point(doMT_FindText)
Point(onMT_FindText)
Point(doSelect)
Point(doMT_FindNext)
Point(Index)
Point(onSelect)
Point(SubItem)
Point(PHandle)
Point(Cell)
link(onClick,10598803:doSplit,[(421,48)(421,119)(350,119)(350,139)])
link(onMT_FindText,9549963:doSelect,[(401,62)(401,80)(345,80)(345,97)])
}
Add(Button,2480071,266,126)
{
Left=405
Top=350
Caption="Поиск"
link(onClick,9549963:doMT_FindNext,[(314,132)(314,104)])
}
Add(StyleXP,4108677,42,378)
{
}
Add(MultiStrData,10598803,364,133)
{
link(Str,9549963:Select,[])
link(onPart1,13220622:onEvent1,[(551,139)(551,27)])
}
END_SDK
Add(ChildGroupBox,3977853,245,119)
{
link(Data1,361538:dbHandle,[(251,107)(291,107)(291,158)(111,158)])
}
BEGIN_SDK
Add(EditMulti,12042882,21,21)
{
WorkCount=1
DataCount=1
Width=818
Height=445
link(doWork1,2766172:doEvent1,[(91,27)(91,48)])
}
Add(GroupBox,11548075,42,203)
{
Left=15
Top=432
Width=480
Height=253
Color=-16777197
Caption="Ресурсы"
}
Add(Button,12303318,91,203)
{
Left=110
Top=225
Width=60
Caption="Удалить"
}
Add(StringTableMT,1896132,385,35)
{
Left=5
Top=15
Width=470
Height=205
Color=-16777202
Name="Ресурсы"
Columns=#6:Код=70|16:Наименование=396|
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(onColumnClick)
Point(ColumnArray)
Point(doMT_FindText)
Point(onMT_FindText)
Point(doSelect)
Point(doMT_FindNext)
Point(Index)
}
Add(SQLite_Query,11311027,308,70)
{
link(onQuery,1896132:doMT_Add,[])
link(dbHandle,12042882:Data1,[(314,37)(27,37)])
}
Add(Edit,6071194,154,203)
{
Left=205
Top=230
Width=250
Text=""
}
Add(Hub,2766172,168,42)
{
InCount=2
OutCount=3
link(onEvent1,1896132:doClear,[])
link(onEvent2,16531246:doString,[(214,55)(214,76)])
link(onEvent3,4012110:doCompare,[(204,62)(204,146)])
}
Add(FormatStr,16531246,245,70)
{
Mask="select kodres from matpredst where matpredst.kodpredst="%1""
link(onFString,11311027:doQuery,[])
}
Add(If_else,4012110,385,140)
{
Op2=Integer(0)
link(onTrue,1896132:doAdd,[(429,146)(429,27)(373,27)(373,41)])
link(Op1,1896132:Count,[])
}
END_SDK