реально косяк в проге с условиями на 3 кнопки
Прописываешь каждый раз
MessageBox('...')работает, но каждый раз окно открывает
А так всегда работает по сценарию 2х кнопок MessageBox...
76 2020-08-05 13:32:35
Re: Как сделать условие на 3 кнопки в MessageBox (3 replies, posted in Russian)
77 2020-08-05 08:20:01
Re: Как сделать условие на 3 кнопки в MessageBox (3 replies, posted in Russian)
Наверно, касяк в проге, если убрать на NO действие, и работает NO и CANCEL... Нужен мощный совет...
78 2020-08-04 10:29:12
Topic: Как сделать условие на 3 кнопки в MessageBox (3 replies, posted in Russian)
if IDYES = MessageBox('Распечатать заявку: ' +frmNew.edIdYear.Text,'Подтверждение',MB_YESNOCANCEL+MB_ICONQUESTION) then
begin
//Печать. при наличии кл.Сохранить, сохранение производится автоматически
frmNew.Button1.Click;
end else
if IDNO then
begin
//Только сохранение
frmNew.Button2.Click;
end else
if IDCANCEL then
begin
end;Сейчас, CANCEL у меня делает то же, что и пункт NO (создает новую запись). А еще можно клавиши переименовать?
79 2020-07-27 14:47:43
Re: Выгрузка данных в XML (2 replies, posted in Russian)
Подскажите, а как вызвать диалоговое окно для выбора куда сохранить...
80 2020-07-26 10:26:40
Re: Как правильно отнять даты в запросе (5 replies, posted in Russian)
Такой вариант ко к раз для записи в текствое поле, так у меня есть... А вот как записать в базу значение DataTimePicker1, что оно, значение, было ДАТА... Это действие хорошо получается в свойствах кнопки сохранить, а как это выражается в скрипте - не понятно...
81 2020-07-26 09:36:13
Re: Как правильно отнять даты в запросе (5 replies, posted in Russian)
Понятно, что меняя значение потеряется. Поэтому у меня был выбор делать поля только ДАТА, где не понятно, как сохранять значение DataTimePicker или Все поля ТЕКСТ, где все проще и извесно...
Сделал так
Trunc(now) - Trunc(StrToDate(SQLexecute('SELECT data FROM req WHERE id='82 2020-07-26 08:58:15
Re: Замедляет ли базу объявление переменных... (3 replies, posted in Russian)
До 3D еще рости рости 
А вот в в скрипте часто использую
cId:=SQLEXecute('SELECT id FROM request WHERE id='+frmMain.TableGrid1.sqlValue); Вот каждый раз базе приходится создавать переменную и делать выборку. Это можно или не нужно выносить "за скобку"...
83 2020-07-25 12:41:55
Topic: Как правильно отнять даты в запросе (5 replies, posted in Russian)
Есть конструкция
SQLexecute('SELECT (julianday("now") - julianday(dataR) ...)Она хорошо работает если dataR в базе имеет "тип поля" ДАТА
Но вот незадача, в процессе работы базы, мне надо до закидывать новые значения реального времени, как сделать не понял... т.к. это делает кнопка сохранить, а как в скрипте это выполнить непонятно...
Перевел "тип поля" в ТЕКСТ, и julianday ругается на разность представления значения...
84 2020-07-25 08:59:48
Topic: Замедляет ли базу объявление переменных... (3 replies, posted in Russian)
Подскажите, в скрипте часто используются одинаковые переменные. Существует практика, где одна и та же переменная вынесена в глобальную и скрипт заработал бы "плавнее"... В машинном коде макрос бы сэкономил объем памяти...
85 2020-07-22 07:35:08
Re: Создание дублированной таблицы, проблемки... (9 replies, posted in Russian)
Победа... принцип: из цикла дубликатов выдергиваем id главной таблицы, затем подставляем в ShowRecord и вуаля...
86 2020-07-21 11:32:59
Re: Создание дублированной таблицы, проблемки... (9 replies, posted in Russian)
Что-то получается поправить, а что-то нет... т.к. у меня в окне просмотра не зависимая таблица, то когда вызывается просмотр, то в таблицу сливаются все значения. И не хочется править основу. Может есть скрипт вызова из основной таблицы ссылкой из дубликата... Приложил фото, что 000, то это по стандарту, а можно как на фото 001?
87 2020-07-21 07:11:08
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Наверно, из графики надо добавить в прогу картинки клавишь в серых тонах. Т.е. есть у меня кнопки только с рисунком, и когда управляешь параметром Enable, то клавиша вроде посерела, а картинка на ней по-прежнему "сочная".... . И может быть непонятно...
88 2020-07-17 09:13:46
Re: Создание дублированной таблицы, проблемки... (9 replies, posted in Russian)
Увы нет. Решил тогда добавить в базу дополнительные поля с сохранением содержимого... и уже оттуда дергать значения...
89 2020-07-16 15:39:07
Re: Создание дублированной таблицы, проблемки... (9 replies, posted in Russian)
Этот вариант был первый...
90 2020-07-16 12:17:09
Re: Создание дублированной таблицы, проблемки... (9 replies, posted in Russian)
Осталась проблема, как вызвать значения из таблицы, к которой привязан словарь...
rId:=SQLEXecute('SELECT id FROM request WHERE id='+list[i]);
cId:=SQLEXecute('SELECT id FROM client WHERE id='+list[i]);
gr := SQLexecute('SELECT setGroup FROM groupN LEFT OUTER JOIN client ON groupN.id=client.id_groupN WHERE client.id='+list[i]);Вот так, выдергивается у меня значение setGroup из таблицы client принадлежащей request. В таблице дубликате все отображается, но если просмотреть эту запись, то таблицы client, request выдают нужный (выбранный) id записи, а вот из таблицы groupN не выдергивается значение...
91 2020-07-16 12:05:54
Re: Создание дублированной таблицы, проблемки... (9 replies, posted in Russian)
Сделал так. Раз в базе формируется из двух независимых частей номер, то
nmY := SQLexecute('SELECT year FROM request WHERE id='+list[i]);
nmId := SQLexecute('SELECT ident FROM request WHERE id='+list[i]);
SQLExecute('INSERT INTO reminders(r_num)VALUES("'+nmY+'-'+Format('%.3d',[StrToInt(nmId)])+'"')');на выходе 20-001, как и надо.
92 2020-07-16 11:47:43
Re: Создание дублированной таблицы, проблемки... (9 replies, posted in Russian)
Вроде понятно... это не ID, а разница. Надо или переделывать в базе ячейку без тире или как-то прописать с формат...
93 2020-07-16 10:26:12
Topic: Создание дублированной таблицы, проблемки... (9 replies, posted in Russian)
У меня как в основной есть вставка нестандартного счетчика
frmNew.edIdYear.Text := frmNew.edYear.Text + '-' + Format('%.3d', [id]);И настроено, чтоб в базе сохранялось поле edIdYear в ячейку year-ident. А значит в дубле таблицы, должно отображаться содержимое поля, но у меня отображается id...
Вызываю в дубль скриптом
rId:=SQLEXecute('SELECT id FROM request WHERE id='+list[i]);
nm := SQLexecute('SELECT year-ident FROM request WHERE id='+list[i]);Как можно поправить...
94 2020-07-13 11:28:12
Re: Подскажите, а можно как-то обновить главную форму (3 replies, posted in Russian)
Через "батон" работает, значит еще не разобралмя с инструментом "чекбокс". Спасибо
95 2020-07-13 10:17:57
Topic: Подскажите, а можно как-то обновить главную форму (3 replies, posted in Russian)
У меня в проге выключены элементы
frmFon.mniFile.Visible := False;
frmFon.mniOptions.Visible := False;
frmFon.mniAbout.Visible := False;
Хочу запилить условие через чек бокс, чтоб можно было зажигать...
Конечно, можно вначале проги сделать еще менюшку выбора роли... но пока не хочется так...
96 2020-07-11 09:07:46
Re: Помогите создать таблицу "напоминаний" (48 replies, posted in Russian)
Вот что нашел... почему-то, когда есть клавиша с настройкой "Посмотреть форму", все работает через эту клавишу. А при использование скрипта "Форма.Show" - нет. Получается как-то id не выбирается... или косяк в проге?
97 2020-07-10 11:48:02
Re: Помогите создать таблицу "напоминаний" (48 replies, posted in Russian)
попробовал разные подстановки... и, мне кажется, по какой-то причине не создается новая таблица... Да и при холодном пуске, т.е. вкл прогу и сразу повзаимодействовал... то id выдается записи, а наполнения нет, только при повторном появляется, и записи проверяются с конца...
98 2020-07-10 09:17:30
Re: Помогите создать таблицу "напоминаний" (48 replies, posted in Russian)
Закомментировал, и все равно не работает... 
99 2020-07-10 07:25:49
Re: Помогите создать таблицу "напоминаний" (48 replies, posted in Russian)
Блин, что-то сломалось и не в какую юлианское сравнение не работает... посмотрите опытным глазом...
100 2020-07-08 16:10:30
Re: Помогите создать таблицу "напоминаний" (48 replies, posted in Russian)
Всем спасибо за участие.