Идет сравнение дат с сегодняшней, в случаи отрицательной разности выкидывает сообщение...
126 2020-04-18 12:07:15
Re: разница между двумя датами количество лет месяцев дней (7 replies, posted in Russian)
127 2020-04-17 08:03:10
Re: разница между двумя датами количество лет месяцев дней (7 replies, posted in Russian)
у меня в проекте разность реализована так
if ((Trunc(frmAddNote.DateTimePicker1.DateTime) - Trunc(Now)) <0) then ShowHint(frmAddNote.DateTimePicker1, 'Неверное значение даты') else
128 2020-04-17 07:14:23
Re: Локализация (20 replies, posted in Russian)
RasNikGal, нашел место, где надо лока... Если клацнуть правой клавишей на таблицу, на запущенном проекте, выскакивает англиЦкое меню...
129 2020-04-17 07:11:39
Re: Локализация (20 replies, posted in Russian)
Если хотите менять языки в интерфейсе, то тут надо писать условия с привязкой к определенному элементу, при выборе которого будет программа выбирать, те или иные названия столбцов...
130 2020-04-14 08:38:26
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Да, вот перевод бы на таблицу, когда по ней клацаешь правой клавишей... или как это меню выключить...
131 2020-04-14 07:14:06
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Вот еще идея... Может группирование элементов? Чтоб при переносе не перетаскивать каждый, а сразу все, и в структуре компонентов обозначать - группа1..2, с возможностью в выбранной группе выбрать элемент и добраться до его свойств... Вот.
132 2020-04-13 08:01:50
Re: Подскажите, насчет параметра Enable (16 replies, posted in Russian)
Справедливое замечание... Спасибо.
133 2020-04-11 11:11:57
Re: Подскажите, насчет параметра Enable (16 replies, posted in Russian)
Разобрался, через буфер... так не примагничевается, если поверх поместить...
134 2020-04-11 11:08:43
Re: Подскажите, насчет параметра Enable (16 replies, posted in Russian)
Интересная комбинация, спасибо. Дмитрий, а можно затащить уже существующий элемент на панель... или только новый нужно создавать?
135 2020-04-10 13:57:26
Re: Подскажите, насчет параметра Enable (16 replies, posted in Russian)
Слепил пример...
Нажимаем на поле слева, выбираем текст. Так вот, надо, чтоб текст был, внешне, одинаков... при сравнение с правым полем.
136 2020-04-09 11:02:47
Re: Подскажите, насчет параметра Enable (16 replies, posted in Russian)
Получается ни как не изменить цвет текстового поля при закрытом доступе к нему (Enabled := FALSE)
137 2020-04-08 19:11:55
Re: Подскажите, насчет параметра Enable (16 replies, posted in Russian)
Текстовое поле работает, как вывеска на combobox. Поэтому и затеял всю непонятку про отображение текстового поля....
138 2020-04-08 15:06:10
Re: Подскажите, насчет параметра Enable (16 replies, posted in Russian)
На самом поле сделано
frmNote.ComboBox5.DroppedDown := True;
при OnClick
Надо сделать "мертый" элемент, но чтоб был похож на "живой".
Просто у меня на форме есть и другие поля и чтоб, они не сливались... Вот...
139 2020-04-08 14:11:50
Re: Подскажите, насчет параметра Enable (16 replies, posted in Russian)
первозданный вид, это когда Enabled := False, т.е. с полем можно делать все что угодно, Когда Enabled := True, то происходит затемнение поля и шрифта в поле, Мне б при Enabled := True, сделать вид, как при False.
Как преимущества, отсутствие курсора, да же при нажатие на поле, и когда наводишь мышку, значок стрелки не меняется на римскую единицу...
Зачем это надо. До этого был combobox и все хорошо, до момента, когда надо было удалить значение из таблицы... Тут связь словаря сыграла злую шутку... принято решение копировать в текстовое поле и его хранить...
140 2020-04-08 11:26:31
Topic: Подскажите, насчет параметра Enable (16 replies, posted in Russian)
Подскажите, а можно вернуть первозданный вид текстового поля, но при условии Enable := True. Или выключить курсор и при наведении показывать стрелку мыши...
141 2020-04-05 12:12:20
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Думаю, что не мешало б в заголовке добавить путь открытой базы, а то, когда долго работаешь, и имеешь много бэкапов, можно запутаться - "а эту базу открыл"...
142 2020-03-31 16:13:38
Re: Разъясните по скрипту Tag (2 replies, posted in Russian)
Что-то не получается...
procedure frmNote_Button17_OnClick (Sender: TObject; var Cancel: boolean);
var
cId : string;
tNameMaster : string = IntToStr(frmNote.ComboBox5.DbItemID);
begin
cId:=SQLEXecute('SELECT id FROM request WHERE id='+frmMain.TableGrid1.sqlValue);
//Запомнить текст для дальнешего сравнения
frmNote.Memo2.TagString := frmNote.Memo2.Text;
frmNote.Edit16.TagString := frmNote.Edit16.Text;
frmNote.Edit17.TagString := frmNote.Edit17.Text;
//Проверка на заполнение полей
if (tNameMaster='-1') then ShowHint(frmNote.ComboBox5, 'Мастер не выбран') else
if (frmNote.Memo2.Text='') then ShowHint(frmNote.Memo2, 'Заполните поле') else
begin
//Сравнение на изменение текста
if (frmNote.Memo2.TagString <> frmNote.Memo2.Text) then SQLEXecute('UPDATE request SET repair="'+frmNote.Memo2.Text+'" WHERE id='+cId) else
if (frmNote.Edit14.Text='Выполнено') or (frmNote.Edit14.Text='Диагностика') then frmNote.Button18.Click else
begin
if (frmNote.Edit16.Text='') then ShowHint(frmNote.Edit16, 'Заполните поле') else
if (frmNote.Edit17.Text='') then ShowHint(frmNote.Edit17, 'Заполните поле') else
begin
//Сравнение на изменение текста
if (frmNote.Edit16.TagString <> frmNote.Edit16.Text) then SQLEXecute('UPDATE request SET price1="'+frmNote.Edit16.Text+'" WHERE id='+cId);
if (frmNote.Edit17.TagString <> frmNote.Edit17.Text) then
begin
SQLEXecute('UPDATE request SET price2="'+frmNote.Edit17.Text+'" WHERE id='+cId);
frmNote.Edit19.Text := frmNote.Edit17.Text;
end else
begin
frmNote.Button18.Click;
end;
end;
end;
end;
end;
143 2020-03-31 11:18:27
Topic: Разъясните по скрипту Tag (2 replies, posted in Russian)
frmNote.ComboBox5.Tag := frmNote.ComboBox5.dbItemID;
Если так можно сохранить предыдущие состояние id, а можно и текст так проверять на изменение...
frmNote.Memo1.Tag := frmNote.Memo1.Text;
Хочу сделать условие, чтоб уменьшить кол-во обновлений базы, если содержимое не менялось.
144 2020-03-30 08:19:38
Re: Подскажите, как в SQL Запросе отцентровать данные (2 replies, posted in Russian)
Через свойства таблицы, я настроил выравнивание, но, я также сделал поиск по содержимому с полным повторением строк в таблицы и вот там не сохранилось выравнивание. Только после обновления таблицы все встает на места... Поэтому думаю, что надо выравнивать непосредсвенно в SQL запросе...
Но работает... моя логика повержена...
145 2020-03-30 08:07:38
Re: А есть условие на открытую форму? (5 replies, posted in Russian)
Спасибо...
if (frmNote.CalledForm.Name = 'frmClient') then
146 2020-03-29 16:31:37
Re: А есть условие на открытую форму? (5 replies, posted in Russian)
Не много не понял о применении, мне надо сюда...
//if (frmNote.TagString:='frmClient') then
begin
//Подготовка формы для просмотра
frmNote.Edit7.Enabled := False;
frmNote.Edit8.Enabled := False;
frmNote.Edit9.Enabled := False;
frmNote.Edit10.Enabled := False;
end else
147 2020-03-29 14:35:08
Re: А есть условие на открытую форму? (5 replies, posted in Russian)
нашел такое, но не работает здесь
procedure TForm1.Button2Click(Sender: TObject);
begin
if Form2.Showing then
ShowMessage('Форма 2 oткрыта')
else
ShowMessage('Форма 2 закрыта')
end;
148 2020-03-29 14:29:43
Topic: А есть условие на открытую форму? (5 replies, posted in Russian)
Мне надо открыть просмотр записи из таблицы с отключенными кнопками и полями. А т.к. у меня на форму просмотра установленно действие при открытии, то думаю, если можно будет условием проверить из подкакой формы был открыт просмотр, то такие и настройки использовать...
if (frmClient.Show) then
150 2020-03-29 13:40:55
Re: Формат вывода записи (5 replies, posted in Russian)
Попробуйте использовать маску в свойствах поля.