Супер! Благодарю!
1 2023-04-20 12:17:24
Re: Замена одного символа другим при вводе с клавиатуры. (13 replies, posted in Russian)
2 2023-04-18 15:28:46
Re: Замена одного символа другим при вводе с клавиатуры. (13 replies, posted in Russian)
Опять же, чтоб не плодить темы. Не нашел пока способ вычистить ячейку при редактировании в TableGrid (поле деньги) до ввода. Этот "0" по умолчанию портит жизнь при оперативном вводе.
Может кто-то сталкивался?
3 2023-04-18 15:25:08
Re: OnAfterEdit, OnEditAccept в TableGrid (4 replies, posted in Russian)
Вы задачу вашу хотите решить или разобраться в тонкостях работы событий редактирования таблицы? Сформулируйте точней, какой вам нужен результат.
Наверное я не правильно понял. Помощь нужна мне в решении следующей проблемы:
Мне нужно получить сразу же вводимый в ячейку результат. Сейчас, при "OnEditAccept" я получаю предыдущий результат. При "OnAfterEdit" вообще никакого.
Буду благодарен за помощь!
4 2023-04-17 08:31:36
Re: OnAfterEdit, OnEditAccept в TableGrid (4 replies, posted in Russian)
Вы задачу вашу хотите решить или разобраться в тонкостях работы событий редактирования таблицы? Сформулируйте точней, какой вам нужен результат.
Решить задачу, постепенно вникая в тонкости работы событий. )
5 2023-04-17 06:03:55
Re: Запрос в таблицу с полем деньги. (2 replies, posted in Russian)
Прошу прощения. Надо высыпаться. Рабочий вариант:
SQLExecute('SELECT count(id) FROM day WHERE results < "0,00" and date= '+sDate))
6 2023-04-17 05:46:45
Topic: Запрос в таблицу с полем деньги. (2 replies, posted in Russian)
Не удается получить правильный результат запросами (поле "Деньги"):
SQLExecute('SELECT count(id) FROM day WHERE results < 0 and date= '+sDate))
Этот вариант вообще работать не хочет:
SQLExecute('SELECT count(id) FROM day WHERE results < '''0,00''' and date= '+sDate))
Пробовал засунуть "0,00" в переменную:
SQLExecute('SELECT count(id) FROM day WHERE results < '''+sNul+''' and date= '+sDate))
Возвращает все записи без условия.
Запрос в SQLiteStudio возвращает правильно:
SELECT count(id) FROM day WHERE results < '0,00' and date='2023-04-14'
Кто-нибудь сталкивался?
7 2023-04-15 06:42:50
Topic: OnAfterEdit, OnEditAccept в TableGrid (4 replies, posted in Russian)
Не могу вникнуть, что не так делаю.
В данном случае:
procedure Form1_TableGrid1_OnEditAccept (Sender: TObject; ACol, ARow: Integer; Value: String; var Accept: Boolean);
begin
if ACol = 0 then Form1.Label1.Caption := Form1.TableGrid1.Cells[0, Form1.TableGrid1.SelectedRow];
end;
Получаю предыдущее, а не текущее значение.
В данном:
procedure Form1_TableGrid2_OnAfterEdit (Sender: TObject; ACol, ARow: Integer; Value: String);
begin
if ACol = 0 then Form1.Label2.Caption := Form1.TableGrid1.Cells[0, Form1.TableGrid1.SelectedRow];
end;
Вообще ничего не получаю.
Где не углядел?
8 2023-04-14 19:37:39
Re: Замена одного символа другим при вводе с клавиатуры. (13 replies, posted in Russian)
Для всей формы и ячеек
Спасибо, но это сильно жесткое решение. )) Однако, работает.
9 2023-04-14 15:52:12
Re: Замена одного символа другим при вводе с клавиатуры. (13 replies, posted in Russian)
Вы точно используете поле деньги?
Точно. В том-то и дело. Если вводить в текстовое поле в форме - проблемы не возникает как с ".", так и с ",". Ставится сама. Проблема при редактирование ячейки в TableGrid.
p.s. Со мной можно "ты".
10 2023-04-14 15:27:29
Re: Замена одного символа другим при вводе с клавиатуры. (13 replies, posted in Russian)
события
// вводимую точку меняет на запятую
Спасибо! Я пробовал аналогичный вариант. Он работает для текстового поля, но не для поля "Деньги".
11 2023-04-14 06:36:55
Re: Замена одного символа другим при вводе с клавиатуры. (13 replies, posted in Russian)
Мне же нужно в процессе перехватывать символ. Вошел в ячейку, при попытке ввести "500,2" на английской раскладке я получу "5002".
12 2023-04-14 04:15:37
Topic: Замена одного символа другим при вводе с клавиатуры. (13 replies, posted in Russian)
При редактировании в TableGrid в числовом поле разделителем должна являться запятая. При работе на нумпаде нужно заморачиваться раскладкой клавиатуры. В связи с чем вопрос: Можно ли как-то "перехватывать" точку и менять ее на запятую при работе в данных полях?
И, чтоб темы не плодить. Если числовое поле пока пустое, при входе в ячейку появляется "0". Есть ли возможность получать пустую ячейку? Или же сразу выделить все содержимое ячейки?
13 2020-07-07 09:30:07
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Если речь идет о расположении таблиц на вкладке "Таблицы базы данных", то вы можете отредактировать текстовый файл tables.ini , переставив разделы в нужном порядке следования.
Вполне себе вариант. Спасибо!
14 2020-07-06 14:02:23
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Конечно, не в первую очередь, но хотелось бы иметь возможность менять местами визуальное представление таблиц. Доросло кол-во до 62 и их положение сэкономило бы время поиска.
15 2019-04-19 12:30:26
Re: Пакетная замена значений в вычисляемом поле? (4 replies, posted in Russian)
Мдааа. Я мог бы быть и повнимательней.
Спасибо! С меня сто грамм и пончик!
16 2019-04-19 12:08:26
Re: backup (2 replies, posted in Russian)
У меня лично обычный *.bat по расписанию пускается с содержимым:
mysqldump -uПОЛЬЗОВАТЕЛЬ -pПАРОЛЬ БАЗА | bzip2 > ПУТЬ\backup_%date:~-10%.sql.bz2
17 2019-04-19 12:02:13
Re: Пакетная замена значений в вычисляемом поле? (4 replies, posted in Russian)
Спасибо за оперативный ответ! Как бы работает, но не работает. Результат:
Rows matched: 226 Changed: 0 Warnings: 0
18 2019-04-19 11:23:06
Topic: Пакетная замена значений в вычисляемом поле? (4 replies, posted in Russian)
MySQL. Необходимо "перевезти" все файлы, сохраненные методом "CopyTo" в другое место. Нашел решение сменить пути запросом:
UPDATE docs SET file_filename = REPLACE(file_filename, '\\server\D\Files\Docs\', '\\server1\Files\Docs\');
однако запрос при встрече "\" "кончается".
Подскажите, пожалуйста, кто сталкивался? Как пути пакетно поменять?
20 2019-01-31 12:09:09
Re: HTTPGet и UTF-8 (14 replies, posted in Russian)
При:
s := SQLExecute('SELECT messsms FROM sending WHERE id = '+IntToStr(idN));
sms := HTTPEncode(s);
HTTPGet('https://sms.ru/sms/send?api_id='+SMS_API+'&to='+tel+'&msg='+sms+'&json=1');
приходит сообщение нормально.
При:
s := SQLExecute('SELECT messsms FROM sending WHERE id = '+IntToStr(idN));
sms := HTTPEncode(s);
slParam := TStringList.Create;
slParam.Add('api_id='+SMS_API);
slParam.Add('text='+sms);
slParam.Add('to='+tel);
slParam.Add('json=1');
HTTPPost('http://sms.ru/sms/send', slParam);
иероглифы.
SMS.ru рекомендуют, при большом кол-ве адресатов телефоны отправлять методом POST. Конечно, работает вариант:
HTTPPost('http://sms.ru/sms/send?text='+msms, slParam);
Но, красоты ради...
21 2019-01-31 08:08:00
Re: HTTPGet и UTF-8 (14 replies, posted in Russian)
Не хочется плодить темы. А как поправить кодировку при HTTPPost?
22 2018-12-25 06:03:37
Re: Помощь в изменении примера "Gantt TreeView booking" (5 replies, posted in Russian)
Супер! Спасибо огромное!
Из примера изначального "Booking" решил добавить "Hint" к записи. Удалось, однако не удается поставить пробелы между значениями полей.Запрос в чистом виде работает верно:
SELECT id, date, time, timeEnd, id_users1, (SELECT CONCAT (surname, ' ', name, ' (', tel,')') FROM clients WHERE clients.id = mc.id_clients) AS client FROM mc WHERE date = '2018-12-25'
В проекте - ни в какую. Подсобите, пожалуйста.
23 2018-12-17 14:28:39
Re: Помощь в изменении примера "Gantt TreeView booking" (5 replies, posted in Russian)
Raspr wrote:знаний не хватает, чтоб в скрипте разобраться.
И не надо. Констекстное меню не пробовали открыть в дереве? Там есть "Delete Record" и "Add top record".
Так ведь нужно сделать?:
Не совсем. Точнее - совсем не. Там где номера комнат - будет список врачей. Там где даты - часы (кратно 30ти минутам). Т.е. в этом примере я хотел сделать проживание по часам и только с 9 до 20.
24 2018-12-13 13:53:51
Topic: Помощь в изменении примера "Gantt TreeView booking" (5 replies, posted in Russian)
Сколько лет, сколько зим... Здравствуйте!
В связи с выходом новой версии MVD очень захотелось расписание приема врачей у себя из табличного вида к TreeView привести. Поковырялся, но знаний не хватает, чтоб в скрипте разобраться. Не будет ли у кого-нибудь времени пример "переложить" на часы? С кратностью в 30 минут и с 9 до 20?
25 2018-05-25 05:40:06
Topic: Контроль запуска копии (1 replies, posted in Russian)
Со скрытием в трей нарисовывается потребность не допускать запуск копии программы. Можно ли как-то это реализовать не доходя до подключения к БД?