Вверх ↑
Ответов: 26
Рейтинг: 2
#1: 2010-05-17 18:11:54 ЛС | профиль | цитата
хочу попросить о помощи еще раз
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"
}
я заменил бд на одбц теперь текст выдается правильно.
теперь нужно сделать еще кое что
суть такова: после дабл клика по выбранной дисциплине должна произойти перезапись файлов в папке Оля ester32subjects
как было проверенно опытным путем они берутся из папки Оля ester32специальности
(программа после выбора дисциплины копирует файлы из одной папки и заменяет ими файлы в другой) после чего происходит запуск winexec по адресу
Оля ester32USER ester32.exe
в общем должно получиться примерно как в ОляИсходникиproject1.exe

архив заливается в файлообменник под именем Оля.рар http://www.hiasm.com/forum_serv.php?q=56&id=1414
очень прошу помочь осуществить эту програмку (сам не могу понять как поменять файл в папке на другой выбранный из списка)
------------ Дoбавленo в 18.11:

карма: 0

0