Make(delphi) Add(TabControl,4884063,735,182) { Top=30 Width=735 Height=660 Tabs=#1:1|1:2|1:3|1:4|1:5|1:6|1:7| Bitmaps=[] } Add(TabControl,12473670,336,301) { Left=10 Top=120 Width=435 Height=350 Tabs=#15:Физическое лицо|16:Юридическое лицо| Bitmaps=[] HotTrack=0 link(onChange,6645420:doEvent,[]) } Add(InfoTip,2779976,322,266) { Info=#1:*|9:Физ. лицо| Font=[MS Sans Serif,8,1,16711680,1] Frame=3 Width=176 Height=95 } Add(ChildGroupBox,7119996,448,294) { } BEGIN_SDK Pos(0,15) Add(EditMulti,8115897,21,6) { WorkCount=2 Width=860 Height=662 link(doWork1,15894993:doWork2,[(37,12)(37,96)]) link(doWork2,6544284:doBringToFront,[(423,19)(423,26)]) } Add(GroupBox,6544284,840,13) { Left=15 Top=155 Width=424 Height=178 Font=[MS Sans Serif,8,1,8388608,1] Caption="Физическое лицо" Point(doVisible) Point(doBringToFront) Point(onDblClick) } Add(Hub,12174927,70,90) { OutCount=5 link(onEvent1,12470231:doClear,[]) link(onEvent2,4703078:doClear,[]) link(onEvent3,1224110:doWork,[(124,110)(124,113)]) link(onEvent4,11253226:doEnum,[(119,117)(119,159)]) link(onEvent5,12721186:doData,[(111,124)(111,159)]) } Add(StrList,4703078,259,90) { Point(doInsert) } Add(VBJScript,1224110,147,107) { @Hint=#16:Чтение DBF файла| WorkPoints=#6:doWork| EventPoints=#11:onAddColumn|7:onEvent| VarPoints=#5:Count| DataPoints=#2:D1| Language=1 Script=#4://js|69:/*******************************************************************/|65:/* Имя: AVTOMOVE */|69:/* Язык: JScript */|69:/* Описание: Просмотр записей таблицы без использования DSN */|69:/*******************************************************************/|0:|33://Объявляем глобальные переменные|3:var|43: WshShell, //Экземпляр объекта WshShell|44: RS, //Экземпляр объекта Recordset|50: SSource, //Строка с текстом SQL-запроса к БД|53: SConnect, //Строка с параметрами соединения с БД|66: SOut, //Строка, в которой сохраняется выходная информация|67: SDefaultDir, //Путь к каталогу, в котором находится таблица Phone|40: Count, //Количество записей в БД|7: s, i;|0:|27:function doWork(Data,Index)|1:{|25://Создаем объект WshShell|46:WshShell = new ActiveXObject("WScript.Shell");|71://Определяем путь к текущему каталогу, в котором хранится таблица Phone|19:SDefaultDir=sys.D1;|38://Формируем SQL-запрос к таблице Phone|33:SSource = "SELECT * FROM FIZLIC";|48://Формируем строку с параметрами соединения с БД|24://(указываем нужный DSN)|75:SConnect="Driver={Microsoft dBase Driver (*.dbf)};DefaultDir="+SDefaultDir;|26://Создаем объект Recordset|42:RS = new ActiveXObject("ADODB.Recordset");|27://Задаём статический курсор|18:RS.CursorType = 3;|44://Открываем набор записей-результата запроса|26:RS.Open(SSource,SConnect);|36://Определяем количество записей в БД|23:Count = RS.RecordCount;|27://Определяем имена полей БД|35:for (i=0; i