MyGrid — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Примеры)
 
(не показаны 3 промежуточные версии этого же участника)
Строка 1: Строка 1:
Функция позволяет высветить произвольную таблицу на экране
+
[[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(<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.Клавиши таблицы )
 
+
MyGrid( 1.Таблица, 2.Описание таблицы, 3.Поля таблицы, 4.Клавиши таблицы )
+
  
 
DescTbl,DescFld,DescHK - массивы массивов ( первый - двумерный, второй и третий - трехмерные )
 
DescTbl,DescFld,DescHK - массивы массивов ( первый - двумерный, второй и третий - трехмерные )
Строка 28: Строка 28:
  
 
= Использование =
 
= Использование =
 
 
[[Создание временной таблицы, ее наполнение, высветка таблицы и выбор записей из этой таблицы с помощью 50 строк кода]]
 
[[Создание временной таблицы, ее наполнение, высветка таблицы и выбор записей из этой таблицы с помощью 50 строк кода]]
 
 
= Примеры =
 
= Примеры =
  
Строка 38: Строка 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' } }, ;
Строка 49: Строка 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 таблицы по таймеру (в мсек)

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

Создание временной таблицы, ее наполнение, высветка таблицы и выбор записей из этой таблицы с помощью 50 строк кода

Примеры

 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' ) )

18-12-2015 10-56-35.png


MyGrid( OpenFData( 'REPS1215', 'REPS', false, OpdataPath, 'REPS' ) )

Смотрите также

Полезные функции

Функции Delphi