Версия 15:43, 2 сентября 2016

InputProperty - это функция, написанная на Delphi ( QrAddFn.pas )

InputProperty(TitleForm, DescFld [,TitlePage]... [,IsVisiblePanelBtn=True] [,IsModal=True] [,IsCenter:=True] [,IdHelp])

Ввод значений различных типов

DescFld - массив массивов описаний полей

Использование

@@ Строка 7: / Строка 7: @@
 DescFld - массив массивов описаний полей
-== Примеры использования ==
+= Использование =
-=== Функция InputDateAndTime ===
+[[INPUTDATEANDTIME]]
- parameters _title:='Введите дату и время', _time := 0
- public d,t
- if Type('_InputDateAndTime')='U'
-   d := Date()
- else
-   d := _InputDateAndTime[1]
-   t := _InputDateAndTime[2]
- endif
- t := _time
- local fld
- fld:=;
-   {;
-     {;
-       {'FldName','d'},{'FldType','D'},{'CommonTitle','1'},{'FldTitl','Дата'},{'FldLen',8},{'Default',d},;
-       {'PostBlk',"ValType(Assign)='D' and Year(Assign)>=2010 and Year(Assign)<=2025"};
-     },;
-     {;
-       {'FldName','t'},{'FldType','N'},{'CommonTitle','1'},{'FldTitl','Время'},{'FldLen',5},{'Default',t},{'FldDec',2}, ;
-       {'PostBlk','NewValue>=0 and NewValue<=23.59 and Frac(NewValue)<=0.59'};
-     };
-   }
- if !InputProperty(_title,fld)
-   result:=nil
-   return
- endif
- result := {d,t}
- if Type('_InputDateAndTime')='U'
-   Global _InputDateAndTime
- endif
- _InputDateAndTime := result