Вверх ↑
Ответов: 30
Рейтинг: 2
#1: 2009-09-20 19:10:53 ЛС | профиль | цитата
Пример таблицы для небольшой базы данных...
Не загружается код! Режет на 20-25 строке!!!


Add(MainForm,2953706,14,105)
{
Left=100
Top=100
Width=460
Height=460
Caption="ListBox как база данных и обработка StringTable"
link(onCreate,16700154:doEvent1,[])
}
Add(StringTable,5073620,434,301)
{
Left=15
Top=185
Width=405
Height=210
Columns=#8:Название|6:Ед.изм|10:Количество|4:Цена|9:Стоимость|
Grid=0
ColumnClick=1
}
Add(ArrayEnum,11159684,91,119)
{
link(onItem,971342:doSplit,[])
link(Array,6158621:Var2,[])
}
Add(Memory,9867380,91,175)
{
Default=Integer(0)
Point(Data)
link(onData,10319918:doEvent1,[(221,181)(221,132)])
}
Add(Edit,9430810,273,210)
{
Left=155
Top=145
Width=70
Height=21
Text=""
DataType=4
Point(doSetFocus)
link(Str,3880255:Value,[])
}
Add(ComboBox,15850584,182,126)
{
Left=15
Top=145
Width=130
Height=21
link(onClick,10319918:doEvent2,[])
}
Add(Button,15364708,42,266)
{
Left=235
Top=145
Width=60
Caption="Добавить"
link(onClick,7368544:doOperation,[])
}
Add(FormatStr,13151170,301,357)
{
DataCount=4
Mask="%2; %1; %3; %4"
Point(FString)
link(onFString,11077754:doEvent1,[])
link(Str1,1576501:Var3,[(307,254)])
link(Str2,4111713:Left,[])
link(Str3,14959253:Var2,[])
link(Str4,7994642:Result,[(328,330)(335,330)])
}
Add(StrPart,971342,133,119)
{
Char=";"
link(onPart,15850584:doAdd,[(173,132)(173,132)])
}
Add(GetDataEx,6158621,84,91)
{
link(Data,6127557:Array,[])
}
Add(ArrayRW,9497987,259,126)
{
link(onRead,4111713:doSplit,[])
link(Array,6158621:Var3,[(265,100)])
}
Add(ListBox,6127557,77,42)
{
Left=270
Top=50
Width=150
Visible=1
Strings=#17:Картина; шт "2000|18:Корзина; шт "120.3|15:Картонка; ru "2|
}
Add(Hub,2569792,210,308)
{
OutCount=5
link(onEvent1,7994642:doOperation,[(298,314)(298,258)])
link(onEvent2,617833:doOperation,[])
link(onEvent3,13151170:doString,[(292,328)(292,363)])
link(onEvent4,10268944:doString,[(285,335)(285,398)])
link(onEvent5,9504547:doEvent2,[(237,342)(237,230)])
}
Add(Hub,10319918,231,126)
{
InCount=2
OutCount=1
link(onEvent1,9497987:doRead,[])
}
Add(Message,11784536,189,266)
{
Message="Повторите ввод"
Caption="Ошибка кол-ва"
link(onMessage,9504547:doEvent1,[(230,272)(230,223)])
}
Add(Hub,16700154,63,119)
{
link(onEvent1,11159684:doEnum,[])
link(onEvent2,9867380:doClear,[(84,132)(84,188)])
}
Add(GetDataEx,1576501,266,245)
{
link(Data,9430810:Text,[])
}
Add(Math,7994642,329,252)
{
OpType=2
link(onResult,4977916:doOperation,[])
link(Op2,14959253:Var3,[(342,233)])
}
Add(If_else,5203811,147,266)
{
Type=3
Op2=Real(0)
link(onTrue,11784536:doMessage,[])
link(onFalse,2569792:doEvent1,[(184,279)(184,314)])
}
Add(Memory,3880255,273,168)
{
Default=String()
}
Add(Math,4977916,371,252)
{
link(onResult,11664498:doValue,[])
link(Op2,11664498:Value,[(384,242)(410,242)(410,289)(440,289)])
}
Add(FormatStr,10268944,336,392)
{
Mask=";;;Итого:; %1"
link(onFString,11077754:doEvent2,[(375,398)(375,370)])
link(Str1,4977916:Result,[(342,299)(377,299)])
}
Add(Hub,11077754,385,357)
{
InCount=2
OutCount=1
link(onEvent1,5073620:doAdd,[(424,363)(424,307)])
}
Add(Math,617833,357,315)
{
OpType=1
Op2=1
ResultType=0
Default=1
link(onResult,5073620:doDelete,[])
link(Op1,5073620:Count,[(363,306)(399,306)(399,349)(440,349)])
}
Add(Memory,11664498,434,252)
{
Default=Integer(0)
Point(Data)
}
Add(Button,13853038,343,189)
{
Left=355
Top=145
Width=65
Caption="Очистить"
link(onClick,8669506:doEvent1,[])
}
Add(Label,13854662,252,56)
{
Left=155
Top=125
Width=70
Caption="Количество"
}
Add(Label,14552742,210,56)
{
Left=15
Top=125
Width=95
Caption="Наименование"
}
Add(Image,6390079,119,56)
{
Left=20
Top=25
Width=60
Height=60
ViewStyle=1
Picture=[ZIPC204000078DA73F23DC4C200064E40AC01C41250CCC820C0C00CA41BA0F228A08681E10150521EC8FC5F4F0E6460B8574D1822ABB74C87C1B5A608363244569FCC439A7A52CD1F0EEA416104C220F5203E3A1E75CF60724F90170CAE3545B09121BAFA641E1084A887B1612C109B32F3F103900DE4960DA441008904012A]
}
Add(Image,15406640,161,56)
{
Left=100
Top=25
Width=60
Height=60
ViewStyle=1
Picture=[ZIPC204000078DA73F23DC4C200064E40AC01C41250CCC820C0C00CA41BA0F228A08681E10150521EC8FC5F3F1CE081D00391072271CA02E50E84228B2C08256422AA8A058108365F040CE25281CCE30B41D21982E0A3A9F785D0BC21A8AEE00D8189C05440600398C71B80A63A00049155C0D57B82481E1FDCFE85A84053EF41ACFA04308F1B8B7A985802AA7A57B09C0B16F52EC82A50D5FFAFE77240558DE063570F546183A4DA069B0A10747044B0392D6010970A741E3688A6DE96A07A5B549E82AD82252EB50A960AB6844D1C1A1000A08D1EB7]
}
Add(Hub,8669506,392,189)
{
link(onEvent1,11664498:doClear,[(424,195)(424,265)])
link(onEvent2,5073620:doClear,[(417,202)(417,314)])
}
Add(Math,7368544,105,266)
{
OpType=2
Op2=1
link(onResult,5203811:doCompare,[])
link(Op1,1576501:Var1,[(111,254)])
}
Add(Hub,9504547,245,217)
{
InCount=2
link(onEvent1,9430810:doText2,[])
link(onEvent2,9430810:doSetFocus,[])
}
Add(StrPart,4111713,308,126)
{
Char="""
Point(Left)
Point(Right)
}
Add(GetDataEx,14959253,308,224)
{
link(Data,4111713:Right,[])
}

карма: 0

0