INPUTPROPERTY — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «InputProperty - это функция, написанная на Delphi ( QrAddFn.pas ) InputProperty(TitleForm, DescFld [,TitlePage]... [,IsVisiblePanelBtn=True…») |
Hisava (обсуждение | вклад) м |
||
| Строка 4: | Строка 4: | ||
Ввод значений различных типов | Ввод значений различных типов | ||
| + | |||
DescFld - массив массивов описаний полей | DescFld - массив массивов описаний полей | ||
| + | |||
| + | == Примеры использования == | ||
| + | |||
| + | === Функция 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 | ||
Версия 09:57, 29 февраля 2016
InputProperty - это функция, написанная на Delphi ( QrAddFn.pas )
InputProperty(TitleForm, DescFld [,TitlePage]... [,IsVisiblePanelBtn=True] [,IsModal=True] [,IsCenter:=True] [,IdHelp])
Ввод значений различных типов
DescFld - массив массивов описаний полей
Примеры использования
Функция 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
