Search options (Page 1 of 4)

то что надо. спасибо!

ругается: THEN expected

мне нужно чтобы при открытии формы в точно определённый день выскакивало сообщение

Уже отвечал на подобное. Повторюсь.

Этой процедурой можете задавать и разрядность и кол-во знаков после запятой.

procedure frmPlatez_TableGrid1_OnChange (Sender: TObject);
begin
    if frmPlatez.TableGrid1.Columns[3] is TNxNumberColumn then
        begin
              TNxNumberColumn(frmPlatez.TableGrid1.Columns[3]).FormatMask:='#,##0.00';             //это сама колонка
              TNxNumberColumn(frmPlatez.TableGrid1.Columns[3]).Footer.FormatMask:='#,##0.00';  //а это для подвала
        end;
end;

Создал таблицу и настроил поля TreeView. Теперь можно и скриптом заполнять.
Или если в проекте используете TableGrid (с настроенными полями) до перехода на форму с TreeView или на этой же форме, то поля TreeView можно не настраивать.
Скриптом сможете заполнить столько полей сколько настроили в TreeView или сколько максимально используется в любом TableGrid.
Почему так? Я не скажу. Не разбираюсь в этом. Может кто другой подскажет.

Предполагаю что если на форме большое кол-во элементов то её сразу нужно разворачивать на максимальный размер экрана.
AutoSize не используем. AutoScroll ставим галочку. Вроде работает.
procedure Form1_OnResize (Sender: TObject);
begin
   Form1.Width := Screen.Width;
   Form1.Height := Screen.Height;
end;

Combobox сохраняет запись во внешнем ключе.
Поэтому если вы сгруппируете однотипные по определённому полю записи то во внешний ключ ничего не запишется.
Поэтому, как научили меня на форуме говорить, нужно слепить костыль)))))

procedure Form1_ComboBox1_OnDropDown (Sender: TObject);
begin
Form1.ComboBox1.dbSQLExecute ('SELECT vhod_numer FROM Zapros GROUP BY vhod_numer ');
end;

Создаёте компонент Edit1 который и будет участвовать в поиске.

procedure Form1_ComboBox1_OnCloseUp (Sender: TObject);
begin
Form1.Edit1.Text := Form1.ComboBox1.Text;
end;

SELECT 
PU.id,     
TipP.Tip, 
PU.Nomer,
XarPU.Faz
         
FROM   
PU

LEFT OUTER JOIN TipP ON TipP.id=PU.id_TipP LEFT OUTER JOIN XarPU ON XarPU.id=TipP.id_XarPU
                                                                                     
WHERE

(CASE WHEN {ComboBox1} <> -1 THEN PU.id_TipP = {ComboBox1} ELSE 1=1 END)

на форме frmAddPloskiyList уберите компоненты для привязки листа к развёрткам,
а создайте кнопу Новая запись и уже при переходе на новую форму выбирайте развёртки и сохраняйте записи в AppRazvertki.

уточню: мне нужно определить есть ли в базе Zayavka записи где IspolnitelName="Горловецкий" и PostavsikName is null.
IspolnitelName и PostavsikName беру из справочников.
Я думал что если при создании новой записи в Combobox ничего не выбираешь то поле остаётся пустым.
Но условие PostavsikName is null при выборке не работает (не воспринимается).
Если в выборке использовать конкретное значение (PostavsikName="Атомпром"), как выше в процедуре, то всё работает.

sibprogsistem спасибо!
разобрался, работает!
Единственное с чем не справился: не могу в условии фильтра использовать пустые поля заполняемые через Combobox.
PostavsikName is NULL игнорирует. Воспринимает только конкретные значения(((
____________________________________________________________________________
procedure Pusk_OnMouseEnter (Sender: TObject);
begin
      if SQLExecute('SELECT count(Zayvka.id) FROM Zayvka JOIN Ispolnitel ON Zayvka.id_Ispolnitel=Ispolnitel.id JOIN Postavsik ON
                               Zayvka.id_Postavsik=Postavsik.id WHERE IspolnitelName="Горловецкий" AND PostavsikName="Атомпром"')='0'
      then
        begin
          Pusk.Edit1.Text := '';
        end
      else
        begin
          Pusk.Edit1.Text := 'есть заявки на согласовании';
        end;
      UpdateDatabase('Zayvka');
end;