Add(MainForm,4339170,133,105)
{
Width=594
}
Add(Message,10921829,532,273)
{
Caption="ошибка запроса"
}
Add(DSC_Query,6700977,427,259)
{
DSManager="db"
link(onQuery,7474024:doValue,[(471,265)(471,209)])
link(onError,10921829:doMessage,[])
link(SQL,9282466:FString,[(433,251)(223,251)])
}
Add(FormatStr,9282466,217,210)
{
DataCount=1
Mask="select * from user where barcod="%1";"
Point(FString)
link(onFString,7579734:doEvent1,[])
link(Str1,5912561:Text,[])
}
Add(Message,9966644,630,420)
{
Caption="пусто"
}
Add(Edit,5912561,217,161)
{
Left=15
Top=10
Width=180
Text="123456789012"
}
Add(Button,15072984,154,210)
{
Left=385
Top=60
link(onClick,9282466:doString,[])
}
Add(Memory,7474024,490,203)
{
link(onData,10335422:doCase,[])
}
Add(Hub,7579734,294,210)
{
OutCount=3
link(onEvent1,7474024:doClear,[])
link(onEvent2,6700977:doQuery,[(347,223)(347,265)])
link(onEvent3,4349115:doTimer,[(332,230)(332,335)])
}
Add(Message,3980975,616,336)
{
Caption="данные то что надо"
}
Add(DoData,13905046,490,336)
{
link(onEventData,1261904:doCase,[])
link(Data,7474024:Value,[])
}
Add(Case,1261904,553,336)
{
link(onNextCase,3980975:doMessage,[])
link(onTrue,9966644:doMessage,[(607,349)(607,426)])
}
Add(Timer,4349115,392,329)
{
Enable=1
AutoStop=1
Point(onStop)
link(onStop,13905046:doData,[])
}
Add(Case,10335422,532,203)
{
link(onNextCase,4349115:doStop,[(588,209)(588,318)(380,318)(380,342)])
}
millanoxp, у тебя пример HiAsmelementsdelphiexampleDataBasedbMySQL.sha подключается к базе?



Поиск
Друзья
Администрация