Форум » GUI » Передача данных с формы ??? » Ответить
Передача данных с формы ???
Andrey: Всем работающим привет ! И не работающим тоже. Показал Сергей мне тут недавно как передавать данные в другую функцию без параметров. Мне он давно советовал использовать, но всё некогда было разбираться. Я думаю другим этот метод тоже будет интересен. Удобно очень. Поясню как это выглядит по коду. [pre2] SET OOP ON Function ... LOCAL oBrw, cFileIni, cBasePath cFileIni := .... cBasePath := ... DEFINE WINDOW Form_Card ..... ; .... (This.Object):Cargo := oKeyData() // создает объект без переменных (условно пустой) используем ниже по коду (This.Object):Cargo:cAlias := Alias() // на окне запомнили, текущую базу (This.Object):Cargo:cFileIni := cFileIni // на окне запомнили, ini-конфиг (This.Object):Cargo:cBasePath := cBasePath // на окне запомнили, путь и имя базы ..... END WINDOW RETURN // ------ в этом же модуле FUNCTION myCardBtn() // <- нет параметров LOCAL oCargo := This.Cargo LOCAL cFileIni := oCargo:cFileIni // какой ini-конфиг LOCAL cAlias := oCargo:cAlias // какая текущая база LOCAL cBasePath := oCargo:cBasePath // какой путь и имя базы .... RETURN Nil // ------ в другом модуле, другой .prg FUNCTION myExternReport() // <- нет параметров LOCAL oCargo := GetProperty("Form_Card", "Cargo") LOCAL cFileIni := oCargo:cFileIni // какой ini-конфиг LOCAL cAlias := oCargo:cAlias // какая текущая база LOCAL cBasePath := oCargo:cBasePath // какой путь и имя базы .... RETURN Nil [/pre2] Как видите - не нужно передавать кучу параметров в функции, что часто приходиться делать. Кодить стало проще, кодить стало веселей ! Сергей, как этот метод передачи правильно называется ? И объем данных какой можно передавать ? Допустим целиком объект TSB можно передать и как это будет выглядеть ? Более подробно как это можно использовать смотрите в примере Tsb_dbf_array, который передал Григорию.
Ответов - 21, стр:
1 2 All
Andrey: SergKis пишет: Хочешь писать одинаково, используй конкретное имя окна, без использования This. - раз трудности, Понял ! БОЛЬШОЕ СПАСИБО за понятные разъяснения !
полная версия страницы