Есть фраза на обязательное поле: "Данное поле обязательно для заполнения" Вот его можно изменить, и добавить звуковой сигнал.
51 2020-10-30 07:24:19
Topic: Возможно изменить системные надписи программы? (1 replies, posted in Russian)
52 2020-10-29 16:36:08
Re: Подскажите как работать с MessageBox (5 replies, posted in Russian)
сп., вроде, заработало...
53 2020-10-29 07:11:55
Re: Подскажите как работать с MessageBox (5 replies, posted in Russian)
Не-е, там только параметры и свойства настройки... это все понятно... Мне надо понять, как правильно условие if прописать, чтоб обе кнопки выполняли действие... Уже как-то создавал тему, где непонятно было с тремя кнопками... Или идти по пути создании формы с кнопками...
54 2020-10-28 17:31:13
Topic: Подскажите как работать с MessageBox (5 replies, posted in Russian)
как его заставить обрабвтывать противоположное действие, т.е.
if IDNO = MessageBox
работает на отрицание при нажатии на "Нет", а вот "Да" как правильно прописать... Почему-то стандартное описание условие с else не работает.
55 2020-10-28 12:39:56
Re: Подскажите почему не работает удаление по выбранному... (2 replies, posted in Russian)
Сп.
56 2020-10-28 11:27:47
Topic: Подскажите почему не работает удаление по выбранному... (2 replies, posted in Russian)
Хочу удалить из таблицы записи по определенной записи
var
cId : string;
begin
cId:=SQLEXecute('SELECT id FROM request WHERE id='+frmMain.TableGrid1.sqlValue);
//очистка таблицы
SQLExecute('DELETE FROM detali WHERE id='+cId);
//Обновление таблицы
frmNote.TableGrid2.dbUpdate;
end;
Так же пытаюсь узнать номер и тоже не выходит...
if SQLExecute('SELECT COUNT(id) FROM detali WHERE id='+cId) = 0 then
дает всегда "0"
58 2020-10-27 07:09:46
Re: Подскажите пример суммы (6 replies, posted in Russian)
Отличный пример, сп. derek.
59 2020-10-26 18:59:24
Re: Подскажите пример суммы (6 replies, posted in Russian)
procedure Form1_Button4_OnClick (Sender: TObject; var Cancel: boolean);
var
i,cR : integer;
begin
cR := Form1.TableGrid1.RowCount - 1;
for i := 0 to cR do
begin
Form1.Edit1.Text := Form1.TableGrid1.Cell[0,i];
end;
end;
Так работать не хочет
60 2020-10-25 16:23:41
Topic: Подскажите пример суммы (6 replies, posted in Russian)
Требуется дернуть значения из таблицы (определенного столбца), по кнопке, и сумму поместить в текстовое поле.
61 2020-10-24 15:39:52
Re: Load icons for buttons from the database (4 replies, posted in FAQ)
А чем обусловлено, что картинка больше 24х24, не может быть, т.е. не отображается?
62 2020-10-23 07:47:43
Re: Прервать открытие формы в процедуре (1 replies, posted in Russian)
Ход правильный мыслей, но надо так...
procedure Form1_TableGrid1_OnDoubleClick (Sender: TObject; Action: string);
begin
if (... = 'Admin') then
begin
idZapr := Form1.TableGrid1.dbItemID;
idPlat :=SQLExecute ('SELECT id_plat FROM zapros WHERE zapros.id= '+inttostr(idZapr));
Form1.Button6.Click;
end else
end;
т.е. если учетка админ, то выполнить, обратно, знак <> (не равно)...
63 2020-10-21 12:19:13
Re: Load icons for buttons from the database (4 replies, posted in FAQ)
Из примера не понятно, как картинку загружать
вроде так
ImageList.AddPng(ExtractFilePath(Application.ExeName)+'images\new0.png');
У меня не получилось, либо ничего или черный квадрат.
Не понятно как быть с кнопками на других формах?
Приходится городить из-за виндового масштабирования...
64 2020-10-20 07:16:53
Re: Проблема с отображением программы (10 replies, posted in Russian)
А подскажите, как сделать чтоб стандартные значки кнопок масштабировались. Если внутри проги при 150, они масштабируются, а отдельно в проекте нет.
65 2020-10-20 07:13:03
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Заметил проблем, у меня форма проги создана при масштабе 100, но при переключении 125, она, форма, искажается, т.е.не происходит растягивание внутри проги, а вот при 150 все нормально.
66 2020-10-19 07:04:26
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Хотел сделать переход на вкладке ч/з кл. enter...
67 2020-10-17 20:55:07
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Масштабирование иконок кнопки.
68 2020-10-16 13:08:46
Re: Проблема с отображением программы (10 replies, posted in Russian)
т.е. какая-то переменная, по которой можно было бы сделать условие...
69 2020-10-16 10:19:36
Re: Проблема с отображением программы (10 replies, posted in Russian)
А есть привязка к масштабу системы, чтоб по нему менять интерфейс программы?
70 2020-09-16 08:04:12
Topic: Подскажите, как в sql запросе отцентровать содержимое (1 replies, posted in Russian)
Как в sql запросе отцентровать содержимое при появлении в таблице
есть это
SELECT
client.name
,client.tel
,client.text
,client.gText
,client.id
FROM
client
WHERE
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.name LIKE '{sqlEdit1}%' END) OR
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.tel LIKE '{sqlEdit1}%' END) OR
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.text LIKE '{sqlEdit1}%' END) OR
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.gText LIKE '{sqlEdit1}%' END)
и выходе
71 2020-08-21 14:03:27
Re: Действие по ENTER (2 replies, posted in Russian)
Возможно, если у вас есть кн.сохранить, то в свойствах, попробуйте выключить пункт default.
72 2020-08-21 11:42:41
Topic: Подскажите, как убрать выделение числа (0 replies, posted in Russian)
Подскажите, как убрать выделение числа на DateTimePicker, кроме сегодняшнего...
73 2020-08-08 19:46:33
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Вот еще почему-то при сравнение содержимого в текстовых полях ошибка...
1<10 верно
2<10 неверно
а вот
02<10 верно
Получается не по порядку числа идут...
74 2020-08-08 18:24:15
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Нужно в PageControl функция OnKeyPress.
75 2020-08-05 14:33:59
Re: Как сделать условие на 3 кнопки в MessageBox (3 replies, posted in Russian)
Короче через дополнительную форму сделал...