26

(4 replies, posted in Russian)

Здраствуйте. Как синхронизировать фильтрацию данных которые выводятся в FastReport  с GRID по кнопке отчет (SQL). Спасибо.

27

(9 replies, posted in Russian)

Как узнать размер загружаемого рисунка, а то при сжатии его нарушается центровка увеличителя?

28

(9 replies, posted in Russian)

А где взять описание этого функционала

29

(9 replies, posted in Russian)

Работает плохо, на левом экране появилась сетка из пикселей и центровки изображений нет

30

(9 replies, posted in Russian)

запросил новый ключ

31

(9 replies, posted in Russian)

При запуске ругается на CopyRect Неизвестный идентификатор

32

(9 replies, posted in Russian)

Здраствуйте, в этой системе можно реализовать эффект увеличительного стекла для увеличения части рисунка? И как проверить наличие файла перед под грузкой его в компонент Рисунок. Спасибо.

33

(4 replies, posted in Russian)

Здраствуйте, по советуйте как лучше вывести все изображения (картинки) из папки в окно используя кнопки навигации.

Как открыть окно редактирования записи БД в модальном окне для id из переменной?

35

(4 replies, posted in Russian)

еще бы знать как их увеличить.

36

(3 replies, posted in Russian)

НЕмного не так, у меня есть фиксированный GRID (x,y). Каждая ячейка в нем ссылка на запись из другой таблицы. И по клику на ячейки (а не строки!!!) должна открываться форма показывающая значение.

37

(3 replies, posted in Russian)

Как выбрать ячейку в GRID, и по ней открыть запись из другой таблицы?

38

(4 replies, posted in Russian)

Здравствуйте, как в GRID отобразить рисунок сохраненный в базе в определенных размерах?

39

(9 replies, posted in Russian)

не совсем, мне нужно вывести в GRID записи (без повторений), id которых находятся в переменной Poisk: TDataSet;

так же как и 1С. Все работает.

В эмуляторе Винды только.)

42

(9 replies, posted in Russian)

Возможен также вариант программной подмены выбора строки GRID. Как это сделать не очень понимаю:

procedure Form1_TableGrid1_OnClick (Sender: string);

в процедуре

\

procedure Form1_TableGrid2_OnClick (Sender: string);
begin
          Form1_TableGrid1_OnClick (SQLExecute('SELECT id_KP FROMNomenklatura WHERE id ='+IntToStr(Form1.TableGrid2.dbItemID)));

43

(9 replies, posted in Russian)

Постараюсь внести ясность:У меня есть таблица КП в которой данные по комерческим предложениям. В таблице Nomenklatura ссылка на КП и данные по наполнению каждого КП. При поиске который Вы мне помогли реализовать формируетя GRID по Номенклатуре, а мне нужно по КП куда будут входить только id те которые получены в Вашем запросе как id_KP. Поэтому снова возник SQLQuery который формирует набор данных по которому нужно отфильтровать основную таблицу.

44

(9 replies, posted in Russian)

строка:
    //Form1.TableGrid5.dbListFieldsNames :='delete_col,#,name2,name3,name4';
ничего не удаляет!!! в моем примере она имеет сл. вид:
    Form1.TableGrid3.dbListFieldsNames :='delete_col,#,kolvo,NDS,cena,summa,id_Eizm,pp';

45

(9 replies, posted in Russian)

Спасибо, но этим выборо теперь нужно как-то воспользоваться:

procedure Form1_Button9_OnClick (Sender: string; var Cancel: boolean);
var
   Poisk: TDataSet;
begin
     SQLQuery('SELECT id_KP FROM Nomenklatura WHERE (CASE WHEN "'+Form1.Edit1.Text+'" <> "" THEN Nomenklatura.name LIKE "%'+Form1.Edit1.Text+'%"  ELSE 1=1 END)', Poisk);
     while not Poisk.Eof do
           begin
                ?????????????????????
                Poisk.Next;
           end;

Теперь в  Poisk: TDataSet у меня id записей из таблицы которые нужно показать в GRID.

46

(9 replies, posted in Russian)

Пытаюсь по данным фрагмента в редактируемом поле заполнить таблицу значениями, в которых этот фрагмент присутствует.

Пока безрезультатно(. Посоветуйте куда копать.

 // Поиск по вхождению
SQLQuery('SELECT *  FROM Nomenklatura WHERE  (case when '+Form1.Edit2.Text+'='''' then 1=1 else Nomenklatura.name LIKE "%'+Form1.Edit2.Text+'%" end)', Form1.TableGrid5); 

47

(15 replies, posted in Russian)

Добрый день. Помогите исправить код. Хочу в таблицу передать все поля по вхождению фрагмента из поля Edit.

// Поиск по вхождению
SQLQuery('SELECT *  FROM Nomenklatura WHERE  (case when '+Admin_BB.Edit2.Text+'='''' then 1=1 else Nomenklatura.name LIKE "%'+Admin_BB.Edit2.Text+'%" end)',  Admin_BB.TableGrid5);

оч нужна функция  ident_current(), планируете ее реализовать?

if Action='NewRecord' then idKP:=Last_Insert_id('KP'); не дает нужный результат!!! Что делать?

и как применить эту функцию Last_Insert_id(''); У меня не получается. Попробывал так:
idKP:=SQLExecute('SELECT Last_Insert_id() FROM KP');
Выдает ошибку.

По кнопке не вариант т.к. нужно произвести действия до записи!!!