Add(Message,4546415,154,140)
{
}
Add(ComboBox,386815,392,133)
{
Left=5
Top=60
Width=130
Height=21
Text="Выбор семестра"
DataType=1
Point(Index)
}
Add(ComboBox,5472134,434,84)
{
Left=5
Top=35
Width=295
Height=21
Text="ВЫБЕРИТЕ СПЕЦИАЛЬНОСТЬ"
link(onClick,8527249:doGetString,[(475,97)(475,125)])
}
Add(DSC_Query,2286760,308,77)
{
SQL="SELECT * FROM kod_spec"
DSManager="ole_driver_1"
link(onQuery,6117405:doSeparateMT,[])
link(onError,5488964:doWork,[])
}
Add(DSC_Query,11383542,308,133)
{
SQL="SELECT semestr FROM semestr"
DSManager="ole_driver_1"
link(onQuery,386815:doAdd,[])
link(onError,16551569:doWork,[])
}
Add(ListBox,8621915,595,189)
{
Left=10
Top=105
Width=290
Height=185
Point(onDblClick)
Point(String)
link(onDblClick,2617980:doString,[(639,209)(639,244)(422,244)(422,279)])
}
Add(Button,13182915,357,196)
{
Left=140
Top=60
Width=160
Caption="Список дисциплин"
link(onClick,15511926:doEvent1,[])
}
Add(DSC_Query,12748335,511,203)
{
DSManager="ole_driver_1"
link(onQuery,8621915:doAdd,[(562,209)(562,195)])
link(onError,2844919:doWork,[])
}
Add(FormatStr,9954367,462,203)
{
Mask="SELECT nazv_discipliny FROM uchebplan WHERE (semestr=%1)AND(kod_specialnosti=%2)"
Point(FString)
link(onFString,12748335:doQuery,[])
link(Str1,4571684:Var3,[(468,191)])
link(Str2,8527249:String,[(475,166)(510,166)])
}
Add(Hub,15511926,399,196)
{
link(onEvent1,8621915:doClear,[])
link(onEvent2,9954367:doString,[])
}
Add(StrList,8527249,483,77)
{
Point(doGetString)
Point(String)
}
Add(MT_MultiData,6117405,392,77)
{
link(onData1,8527249:doAdd,[])
link(onData2,5472134:doAdd,[])
}
Add(LineBreakEx,16551569,350,147)
{
Caption="Err"
}
Add(LineBreakEx,5488964,350,91)
{
Caption="Err"
}
Add(LineBreakEx,2844919,553,217)
{
Caption="Err"
}
Add(LineBreakEx,7787128,91,140)
{
Caption="Err"
Type=1
link(OnEvent,4546415:doMessage,[])
}
Add(MainForm,2168072,35,63)
{
Left=20
Top=105
Width=327
Height=338
Caption="ТЕСТИРОВАНИЕ"
Position=1
link(onCreate,16623492:doStrCat,[])
}
Add(StrCat,16623492,91,77)
{
Str2="testirov.mdb"
link(onStrCat,9254242:doString,[])
link(Str1,10635900:Var2,[])
}
Add(FormatStr,9254242,133,77)
{
DataCount=1
Mask="Driver={Microsoft Access Driver (*.mdb)};\r\nDriverID=25;\r\nDBQ=%1;"
Point(FString)
link(onFString,14418542:doOpen,[])
}
Add(DS_ODBC,14418542,182,77)
{
Name="ole_driver_1"
Point(onError)
link(onCreate,8649259:doEvent1,[])
link(onError,10334579:doWork,[])
}
Add(Hub,8649259,273,77)
{
link(onEvent1,2286760:doQuery,[])
link(onEvent2,11383542:doQuery,[(297,90)(297,139)])
}
Add(LineBreakEx,10334579,231,84)
{
Caption="Err"
}
Add(Memory,13750998,91,21)
{
Default=String(c:\оля\)
}
Add(FileTools,12914608,483,266)
{
link(onEnd,1324292:doExec,[])
}
Add(WinExec,1324292,546,266)
{
FileName="c:\оля\user\tester32.exe"
}
Add(FormatStr,2617980,434,273)
{
DataCount=4
Mask="'%1\tester32\Специальности\\%2+\\%3\%4\\TEST.cfg"
link(onFString,12914608:doCopy,[])
link(Str1,10635900:Var3,[(440,61)])
link(Str2,5472134:String,[])
link(Str3,4571684:Var2,[])
link(Str4,8621915:String,[(461,253)(622,253)])
}
Add(GetDataEx,4571684,448,186)
{
Angle=3
link(Data,386815:String,[(405,191)])
}
Add(GetDataEx,10635900,91,56)
{
link(Data,13750998:Value,[])
}
Tad ткни носом туда, где надо исправить и как. мне так проще будет понять что я делаю не так