MyGrid — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Примеры) |
||
| (не показаны 2 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | MyGrid - это функция | + | [[MyGrid]] - это функция |
| + | Позволяет высветить произвольную таблицу на экране | ||
| + | [[MyGrid]]( <Tbl>, <DescTbl>, <DescFld>, <DescHK> [,iRefr=False] [,isCloseTbl=False] [,modal=False] [,PrepCT=True] [,FormType=TFormBrowse] [,IsVisPublic=False] [,IsCloseConnectQuery=False] [,IsPrvs=False] [,IsWaitEndProcess=False] [,RefreshInterval=0] ) | ||
| − | + | [[MyGrid]]( 1.Таблица, 2.Описание таблицы, 3.Поля таблицы, 4.Клавиши таблицы ) | |
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
DescTbl,DescFld,DescHK - массивы массивов ( первый - двумерный, второй и третий - трехмерные ) | DescTbl,DescFld,DescHK - массивы массивов ( первый - двумерный, второй и третий - трехмерные ) | ||
| Строка 30: | Строка 28: | ||
= Использование = | = Использование = | ||
| − | |||
[[Создание временной таблицы, ее наполнение, высветка таблицы и выбор записей из этой таблицы с помощью 50 строк кода]] | [[Создание временной таблицы, ее наполнение, высветка таблицы и выбор записей из этой таблицы с помощью 50 строк кода]] | ||
| − | |||
= Примеры = | = Примеры = | ||
| Строка 40: | Строка 36: | ||
{ { 'Fldname', '_1' }, { 'FldTitl', 'Код' }, { 'PreBlk', false } }, ; | { { 'Fldname', '_1' }, { 'FldTitl', 'Код' }, { 'PreBlk', false } }, ; | ||
{ { 'Fldname', '_2' }, { 'FldTitl', 'Наименование' }, { 'PreBlk', false }, { 'Picture', '(c|40)' } }, ; | { { 'Fldname', '_2' }, { 'FldTitl', 'Наименование' }, { 'PreBlk', false }, { 'Picture', '(c|40)' } }, ; | ||
| − | { { 'Fldname', '_3' }, { 'FldTitl', 'Количество' }, { 'AfterUpd', 'iif( Ascane( SelRows(), RecNo() ) = 0, DoAKeyF1()), "NOREST"' }, { 'Picture', '!999999999.9' } }, ; | + | { { 'Fldname', '_3' }, { 'FldTitl', 'Количество' }, { 'AfterUpd', 'iif( Ascane( [[SelRows]](), RecNo() ) = 0, DoAKeyF1()), "NOREST"' }, { 'Picture', '!999999999.9' } }, ; |
{ { 'Fldname', '_5' }, { 'FldTitl', 'ед.изм.' }, { 'PreBlk', false } }, ; | { { 'Fldname', '_5' }, { 'FldTitl', 'ед.изм.' }, { 'PreBlk', false } }, ; | ||
{ { 'Fldname', '_6' }, { 'FldTitl', 'Цена' }, { 'PreBlk', false }, { 'Picture', '!9999999.99' } }, ; | { { 'Fldname', '_6' }, { 'FldTitl', 'Цена' }, { 'PreBlk', false }, { 'Picture', '!9999999.99' } }, ; | ||
| Строка 51: | Строка 47: | ||
{ { 'KeyName', 'ENTER' }, { 'TEXT', 'ENTER' }, { 'BLK', 'GridEdit( true )' } } ; | { { 'KeyName', 'ENTER' }, { 'TEXT', 'ENTER' }, { 'BLK', 'GridEdit( true )' } } ; | ||
} | } | ||
| − | aa := MyGrid( _, tbl, fld, key, ~Modal := true ) | + | aa := [[MyGrid]]( _, tbl, fld, key, ~Modal := true ) |
| − | MyGrid( OpenKlsf( '[[R09]]' ) ) | + | [[MyGrid]]( OpenKlsf( '[[R09]]' ) ) |
[[Файл:18-12-2015_10-56-35.png]] | [[Файл:18-12-2015_10-56-35.png]] | ||
| − | MyGrid( OpenFData( 'REPS1215', 'REPS', false, OpdataPath, 'REPS' ) ) | + | [[MyGrid]]( OpenFData( 'REPS1215', 'REPS', false, OpdataPath, 'REPS' ) ) |
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Текущая версия на 11:13, 15 июня 2017
MyGrid - это функция
Позволяет высветить произвольную таблицу на экране
MyGrid( <Tbl>, <DescTbl>, <DescFld>, <DescHK> [,iRefr=False] [,isCloseTbl=False] [,modal=False] [,PrepCT=True] [,FormType=TFormBrowse] [,IsVisPublic=False] [,IsCloseConnectQuery=False] [,IsPrvs=False] [,IsWaitEndProcess=False] [,RefreshInterval=0] )
MyGrid( 1.Таблица, 2.Описание таблицы, 3.Поля таблицы, 4.Клавиши таблицы )
DescTbl,DescFld,DescHK - массивы массивов ( первый - двумерный, второй и третий - трехмерные )
isRefr - спр-к или бд
isCloseTbl - закрыть бд при закрытии формы
PrepCT - допустимость выч.полей
FormType - тип формы
modal - модальный режим
IsVisPublic - True видимость "внешних" Public переменных
IsCloseConnectQuery - True уничтожение соединения Tbl
IsPrvs - True описание таблицы Prvs
IsWaitEndProcess - false ожидать заверщения процесса
RefreshInterval - если > 0 включается автомтический Refresh таблицы по таймеру (в мсек)
Использование
Примеры
str_res := [ GrpRecord( ' { _1, _2, _3, _4, _5, _6, _7, _8, _9, _10, _11 } ' ) ]
tbl := { { 'Title', 'Заявка' }, { 'ShowType', 2 }, { 'ResultExpr', str_res } }
fld := { ;
{ { 'Fldname', '_1' }, { 'FldTitl', 'Код' }, { 'PreBlk', false } }, ;
{ { 'Fldname', '_2' }, { 'FldTitl', 'Наименование' }, { 'PreBlk', false }, { 'Picture', '(c|40)' } }, ;
{ { 'Fldname', '_3' }, { 'FldTitl', 'Количество' }, { 'AfterUpd', 'iif( Ascane( SelRows(), RecNo() ) = 0, DoAKeyF1()), "NOREST"' }, { 'Picture', '!999999999.9' } }, ;
{ { 'Fldname', '_5' }, { 'FldTitl', 'ед.изм.' }, { 'PreBlk', false } }, ;
{ { 'Fldname', '_6' }, { 'FldTitl', 'Цена' }, { 'PreBlk', false }, { 'Picture', '!9999999.99' } }, ;
{ { 'Fldname', '_8' }, { 'FldTitl', 'Поставщик' }, { 'PreBlk', false } }, ;
{ { 'Fldname', '_10' }, { 'FldTitl', 'Склад' }, { 'PreBlk', false } } ;
}
key := { ;
{ { 'KeyName', 'F6' } }, ;
{ { 'KeyName', 'F7' }, { 'TEXT', 'Заказ' }, { 'BLK', 'CloseForm( GetForm(), false ), SetProperty( "ModalResult", 1, GetForm() )' } }, ;
{ { 'KeyName', 'ENTER' }, { 'TEXT', 'ENTER' }, { 'BLK', 'GridEdit( true )' } } ;
}
aa := MyGrid( _, tbl, fld, key, ~Modal := true )
MyGrid( OpenKlsf( 'R09' ) )
MyGrid( OpenFData( 'REPS1215', 'REPS', false, OpdataPath, 'REPS' ) )
