Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2008-06-23 13:59:14 ЛС | профиль | цитата
nesco, есть схема :


Add(MainForm,16638351,21,14)
{
Left=20
Top=105
Width=623
Height=363
link(onCreate,96678:doEvent1,[])
}
Add(SQLite_DB,8598513,140,28)
{
FileName="avtoservis.db"
link(onOpen,1796533:doValue,[])
}
Add(GlobalVar,1796533,189,28)
{
Name="dbHandle"
}
Add(Hub,96678,77,28)
{
link(onEvent1,8598513:doOpen,[])
link(onEvent2,13925343:doWork1,[(125,41)(125,76)])
}
Add(GlobalVar,6299670,189,49)
{
Name="IDklient"
}
Add(ChildGroupBox,13925343,140,70)
{
@Hint=#13:Выбор клиента|
link(onEvent1,9230561:doEvent1,[])
link(onEvent2,11914802:doEvent,[(199,83)(199,125)])
link(onEvent3,9601380:doWork1,[(181,90)(181,110)(128,110)(128,125)])
}
BEGIN_SDK
Pos(64,0)
Add(EditMulti,16380003,-43,21)
{
EventCount=3
WorkCount=1
Width=461
Height=207
link(doWork1,8961639:doEvent1,[(-22,27)(-22,90)])
}
Add(GroupBox,2683215,-1,154)
{
Left=5
Top=5
Width=605
Font=[MS Sans Serif,8,1,16711680,1]
Caption="ВЫБОР КЛИЕНТА"
}
Add(ComboBox,6318176,202,119)
{
Left=5
Top=20
Width=595
Height=21
Color=11271934
Font=[Fixedsys,10,0,0,204]
Text=""
DataType=1
ReadOnly=0
Point(doAdd)
Point(onClick)
Point(doClear)
Point(Index)
Point(onMouseDown)
Point(String)
Point(doSelect)
link(onClick,7063384:doWork2,[])
link(onMouseDown,10657391:doEvent,[(239,132)(239,167)])
}
Add(SQLite_Query,13880287,69,63)
{
@Hint=#22:Читаем список клиентов|
SQL="Select * from klient order by f,i,o,adres"
link(onQuery,5766732:doValue,[])
link(onError,16380003:onEvent1,[(253,83)(253,27)])
link(dbHandle,1421821:Var,[])
}
Add(MT_MultiMem,5766732,118,63)
{
Count=7
link(onData,14334224:doString,[(181,69)(181,107)(106,107)(106,125)])
}
Add(FormatStr,14334224,118,119)
{
DataCount=7
Mask="%1.%2 %3 %4 %5 %6 %7"
link(onFString,6318176:doAdd,[])
link(Str1,5766732:Value1,[])
link(Str2,5766732:Value2,[])
link(Str3,5766732:Value3,[])
link(Str4,5766732:Value4,[])
link(Str5,5766732:Value5,[])
link(Str6,5766732:Value6,[])
link(Str7,5766732:Value7,[])
}
Add(StrPart,5881254,300,119)
{
Char="."
Point(Left)
link(onSplit,13523444:doCreate,[(348,125)(348,41)])
link(onPart,8472392:doValue,[])
link(Str,6318176:String,[(306,107)(246,107)(246,161)(215,161)])
}
Add(Hub,8961639,6,84)
{
OutCount=3
link(onEvent1,13880287:doQuery,[(50,90)(50,69)])
link(onEvent2,2663249:doData,[(50,97)(50,167)])
link(onEvent3,7063384:doWork1,[(283,104)])
}
Add(DoData,2663249,125,161)
{
Data=Integer(0)
link(onEventData,6318176:doSelect,[(179,167)(179,139)])
}
Add(HubEx,7063384,279,112)
{
link(onEvent,5881254:doSplit,[])
}
Add(GlobalVar,1421821,69,28)
{
Name="dbHandle"
}
Add(GlobalVar,8472392,349,126)
{
Name="IDklient"
}
Add(IndexToChanel,10657391,279,161)
{
link(onEvent2,11042838:doPopupHere,[])
}
Add(PopupMenu,11042838,328,161)
{
Menu=#12:Новый клиент|20:Редактировать данные|
link(onClick,16380003:onEvent2,[(382,167)(382,34)])
}
Add(Events,13523444,363,35)
{
link(onCreate,16380003:onEvent3,[])
}
END_SDK
Add(ChildGroupBox,9601380,140,119)
{
@Hint=#35:Вывод списка автомобилей в таблицу|
link(onEvent1,9230561:doEvent2,[(194,125)(194,83)])
}
BEGIN_SDK
Add(EditMulti,11942235,21,21)
{
EventCount=2
WorkCount=1
Width=412
Height=221
link(doWork1,14052121:doEvent1,[(73,27)(73,41)])
}
Add(GroupBox,4538031,35,42)
{
Left=5
Top=65
Width=400
Height=212
Font=[MS Sans Serif,8,1,16711680,1]
Caption="СПИСОК АВТОМОБИЛЕЙ"
}
Add(FormatStr,12359393,35,140)
{
DataCount=1
Mask="select transport.id AS "Рег.№",marka AS МАРКА,gos_nomer AS "ГОС.НОМЕР",Vdata AS "ГОД ВЫПУСКА" from transport,model where (model.id=transport.id_marka) and (transport.id_klient=%1)"
link(onFString,6779814:doQuery,[])
link(Str1,6299670:Var,[])
}
Add(StringTable,2317802,224,140)
{
Left=5
Top=20
Width=385
Height=160
Grid=0
ClearAll=0
Point(doAdd)
Point(doAddColumn)
Point(doClear)
Point(onMouseDown)
Point(Select)
Point(Count)
Point(onClick)
link(onMouseDown,8189675:doEvent,[])
}
Add(SQLite_Query,6779814,84,140)
{
link(onQuery,7923535:doStr,[(145,146)(145,118)])
link(onColumns,16605905:doEnum,[])
link(onError,11942235:onEvent1,[(203,160)(203,27)])
link(dbHandle,1796533:Var,[])
}
Add(MT_Enum,16605905,161,147)
{
link(onItem,2317802:doAddColumn,[])
}
Add(MT_String,7923535,161,112)
{
link(onResult,2317802:doAdd,[(209,118)(209,146)])
}
Add(IndexToChanel,8189675,266,140)
{
link(onEvent2,15119340:doPopupHere,[])
}
Add(PopupMenu,15119340,350,140)
{
Menu=#8:Добавить|13:Редактировать|7:Удалить|
Point(onSelectStr)
link(onClick,11942235:onEvent2,[(408,146)(408,34)])
}
Add(Hub,14052121,126,35)
{
OutCount=3
link(onEvent1,2317802:doClear,[(216,41)(216,160)])
link(onEvent2,12359393:doString,[(168,48)(168,82)(30,82)(30,146)])
link(onEvent3,2729211:doConvert,[(191,55)(191,202)])
}
Add(Label,6887054,322,196)
{
Left=5
Top=185
Width=295
Font=[MS Sans Serif,8,0,16711935,1]
Caption=""
AutoSize=1
Alignment=2
Point(Text)
}
Add(GlobalVar,1796533,84,105)
{
Name="dbHandle"
}
Add(GlobalVar,6299670,35,91)
{
Name="IDklient"
}
Add(Convertor,2729211,231,196)
{
Mode=16
Word_1="единица"
Word_2="единицы"
Word_5="единиц"
link(onResult,6445257:doStrCat,[])
link(Data,2317802:Count,[])
}
Add(StrCat,6445257,273,196)
{
Str2=" техники."
link(onStrCat,6887054:doText,[])
}
Add(Button,7438163,147,196)
{
Left=350
Top=185
Width=40
Caption="Test"
}
END_SDK
Add(Message,7833109,259,70)
{
}
Add(Hub,9230561,217,70)
{
InCount=5
OutCount=1
link(onEvent1,7833109:doMessage,[])
}
Add(ChildFormEx,11914802,217,119)
{
@Hint=#30:Редактирование данных клиента |28:и регистрация нового клиента|
}
BEGIN_SDK
Add(EditMultiEx,12737114,21,21)
{
WorkCount=#78:doEvent=Вызов формы редактирования данных клиента и регистрация нового клиента|
Width=377
Height=291
link(doEvent,6856883:doEvent1,[(25,27)(25,34)])
}
Add(MainForm,4531214,329,28)
{
Left=35
Top=10
Height=500
Visible=1
Point(doVisible)
}
Add(IndexToChanel,3100956,77,28)
{
link(onEvent1,5487355:doEvent1,[])
link(onEvent2,6821739:doEvent1,[(121,41)(121,76)])
}
Add(Hub,6856883,28,28)
{
link(onEvent1,3100956:doEvent,[])
link(onEvent2,6732940:doWork3,[(149,41)(149,48)])
}
Add(Hub,6821739,133,70)
{
link(onEvent1,6732940:doWork2,[(181,76)(181,41)])
}
Add(Hub,5487355,133,28)
{
link(onEvent1,6732940:doWork1,[])
}
Add(MultiElement,6732940,238,28)
{
link(onEvent1,4531214:doCaption,[])
link(onEvent2,4531214:doVisible,[(285,41)(285,62)])
}
BEGIN_SDK
Add(EditMulti,9443219,21,21)
{
EventCount=2
WorkCount=4
Width=146
Height=123
link(doWork1,13395361:doData,[])
link(doWork2,9006134:doData,[(73,34)(73,69)])
link(doWork3,7209912:doWork2,[(53,41)(53,111)])
link(doWork4,7209912:doWork1,[(41,48)(41,104)])
}
Add(ChanelToIndex,7209912,84,98)
{
link(onIndex,9443219:onEvent2,[(146,104)(146,34)])
}
Add(DoData,9006134,84,63)
{
Data=String(РЕДАКТИРОВАНИЕ ДАННЫХ КЛИЕНТА)
link(onEventData,9283327:doWork3,[(137,69)])
}
Add(DoData,13395361,84,21)
{
Data=String(РЕГИСТРАЦИЯ НОВОГО КЛИЕНТА)
link(onEventData,9283327:doWork2,[])
}
Add(HubEx,9283327,133,14)
{
link(onEvent,9443219:onEvent1,[])
}
END_SDK
END_SDK

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0