Add(Message,4546415,154,140){
}
Add(ComboBox,386815,427,119)
{
 Left=5
 Top=60
 Width=130
 Height=21
 Text="Выбор семестра"
 DataType=1
 Point(Index)
}
Add(ComboBox,5472134,469,84)
{
 Left=5
 Top=35
 Width=295
 Height=21
 Text="ВЫБЕРИТЕ СПЕЦИАЛЬНОСТЬ"
 link(onClick,8527249:doGetString,[(503,97)(503,125)])
}
Add(DSC_Query,2286760,329,77)
{
 SQL="SELECT * FROM kod_spec"
 DSManager="ole_driver_1"
 link(onQuery,6117405:doSeparateMT,[])
 link(onError,5488964:doWork,[])
}
Add(DSC_Query,11383542,329,119)
{
 SQL="SELECT semestr FROM semestr"
 DSManager="ole_driver_1"
 link(onQuery,386815:doAdd,[])
 link(onError,16551569:doWork,[])
}
Add(ListBox,8621915,623,168)
{
 Left=10
 Top=105
 Width=290
 Height=185
 Point(onDblClick)
}
Add(Button,13182915,392,175)
{
 Left=140
 Top=60
 Width=160
 Caption="Список дисциплин"
 link(onClick,15511926:doEvent1,[])
}
Add(DSC_Query,12748335,546,182)
{
 DSManager="ole_driver_1"
 link(onQuery,8621915:doAdd,[(600,188)(600,174)])
 link(onError,2844919:doWork,[(600,202)(600,230)])
}
Add(FormatStr,9954367,497,182)
{
 Mask="SELECT nazv_discipliny FROM uchebplan WHERE (semestr=%1)AND(kod_specialnosti=%2)"
 Point(FString)
 link(onFString,12748335:doQuery,[])
 link(Str1,386815:String,[(503,169)(440,169)])
 link(Str2,8527249:String,[(510,168)(538,168)])
}
Add(Hub,15511926,441,175)
{
 link(onEvent1,8621915:doClear,[])
 link(onEvent2,9954367:doString,[])
}
Add(StrList,8527249,511,77)
{
 Point(doGetString)
 Point(String)
}
Add(MT_MultiData,6117405,413,77)
{
 link(onData1,8527249:doAdd,[])
 link(onData2,5472134:doAdd,[])
}
Add(LineBreakEx,16551569,378,133)
{
 Caption="Err"
}
Add(LineBreakEx,5488964,371,91)
{
 Caption="Err"
}
Add(LineBreakEx,2844919,623,224)
{
 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(Edit,6154554,133,77)
{
 Left=5
 Top=5
 Width=295
 Text=""
 link(onChange,9254242:doString,[])
}
Add(Dir,1074936,91,28)
{
}
Add(StrCat,16623492,91,77)
{
 Str2="testirov.mdb"
 link(onStrCat,6154554:doText,[])
 link(Str1,1074936:CurrentDir,[])
}
Add(FormatStr,9254242,175,77)
{
 DataCount=1
 Mask="Driver={Microsoft Access Driver (*.mdb)};
DriverID=25;
DBQ=%1;"
 Point(FString)
 link(onFString,14418542:doOpen,[])
}
Add(DS_ODBC,14418542,217,77)
{
 Name="ole_driver_1"
 Point(onError)
 link(onCreate,8649259:doEvent1,[])
 link(onError,10334579:doWork,[])
}
Add(Hub,8649259,301,77)
{
 link(onEvent1,2286760:doQuery,[])
 link(onEvent2,11383542:doQuery,[(325,90)(325,125)])
}
Add(LineBreakEx,10334579,259,84)
{
 Caption="Err"
}
 

 OldFile1:='c:\Оля\tester32\TEST.cfg';
 NewFile1:='c:\Оля\tester32\Специальности\'+spec.Text+'\'+semestr.Text+'\'+DBGrid1.SelectedField.Text+'\TEST.cfg';
 CopyFile(PChar(NewFile1), PChar(OldFile1), False);
 ShowMessage(SysErrorMessage(GetLastError));
 sorse :='c:\Оля\tester32\Специальности\'+spec.Text+'\'+semestr.Text+'\'+DBGrid1.SelectedField.Text+'\SUBJECTS\*.sbj';

NewFile1:='c:\Оля\tester32\Специальности\'+spec.Text+'\'+semestr.Text+'\'+DBGrid1.SelectedField.Text+'\TEST.cfg';

 CopyFile(PChar(NewFile1), PChar(OldFile1), False);

%1Специальности\%2\%3\%4\TEST.cfg