Разобрался.Название папки на русском языке ставил.Поставил на латинице,все заработало.Спасибо
27 2020-12-01 04:45:41
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
Под сотню попыток,но ругается постоянно. Пробовали несколько инсталляторов
28 2020-11-29 10:19:49
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
Вывели все как есть,но ругается
29 2020-11-29 09:05:12
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
Так понимаем и инсталлятор создать невозможно.Постоянно ругается на то что не может сделать запись в setting.ini Не видит базу данных. Пробовали собрать в InnoSetup
30 2020-11-28 16:10:16
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
Спасибо. Не помогло. Закажем в Delphi на фрилансе. Своих навыков не хватает.Еще раз спасибо.Удачи.
31 2020-11-28 06:02:34
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
То что значение ВЫПОЛНЯЕТСЯ берется из словаря - это может играть роль?
32 2020-11-28 04:20:22
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
Если убрать
(frmGeneral.tblPostavkiSearchObchaya.Cells[9,i] = ' Выполняется ')
то строка изменяет цвет,но условие при значении поля ' Выполняется ' не срабатывает.
Ну,не программист я...
33 2020-11-28 04:17:59
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
Что я делаю не так. Естественно сообщение не появляется
if (frmGeneral.tblPostavkiSearchObchaya.Cells[9,i] = ' Выполняется ') and (StrToDate(frmGeneral.tblPostavkiSearchObchaya.Cells[6,i])- Date <=30) or (StrToDate(frmGeneral.tblPostavkiSearchObchaya.Cells[6,i])- Date >=0) then
begin
ShowMessage('');
end;
Лишнее удалил
34 2020-11-27 11:14:37
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
procedure frmGeneral_tblPostavkiSearchObchaya_OnChange (Sender: TObject);
var
i, Ii, cR, cC, k, l: integer;
sID: string;
begin
cR := frmGeneral.tblPostavkiSearchObchaya.RowCount - 1;
cC := frmGeneral.tblPostavkiSearchObchaya.Columns.Count -1;
frmGeneral.tblPostavkiSearchObchaya.BeginUpdate;
for i := 0 to cR do
begin
begin
if (frmGeneral.tblPostavkiSearchObchaya.Cells[9,i] = ' Выполняется ') and (StrToDate(frmGeneral.tblPostavkiSearchObchaya.Cells[6,i])- Date <=30) or (StrToDate(frmGeneral.tblPostavkiSearchObchaya.Cells[6,i])- Date >=0) then
begin
for Ii:=0 to Cc do frmGeneral.tblPostavkiSearchObchaya.Cell[Ii,i].Color := $00DDDDFF;
end;
if (Date - StrToDate(frmGeneral.tblPostavkiSearchObchaya.Cells[6,i]) >0) then
begin
for Ii:=0 to Cc do frmGeneral.tblPostavkiSearchObchaya.Cell[Ii,i].Color := clWhite;
end;
end;
end;
end;
Не работает
35 2020-11-27 08:57:09
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
Смотрите есть поле end_date с ID= 6 в tblPostavkiSearcheObchaya Это дата последнего дня выполнения поставки. Хотелось-бы чтобы за 3 дня до наступления даты строка окрашивалась в красный цвет при условии,что поле с ID=10 имело значение ВЫПОЛНЯЕТСЯ Но при условии что поле с ID=10 имело любое другое значение поле не окрашивалось. Спасибо
36 2020-11-27 08:17:09
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
procedure frmGeneral_tblPostavkiSearchObchaya_OnChange (Sender: TObject);
var
i, Ii, cR, cC,k, l: integer;
sID: string;
begin
cR := frmGeneral.tblPostavkiSearchObchaya.RowCount - 1;
cC := frmGeneral.tblPostavkiSearchObchaya.Columns.Count -1;
frmGeneral.tblPostavkiSearchObchaya.BeginUpdate;
for i := 0 to cR do
begin
if (StrToDateTime(frmGeneral.tblPostavkiSearchObchaya.Cells[4,i])- Date <=30) and (StrToDateTime(frmGeneral.TableGrid2.Cells[4,i])- Date >=0) then
begin
for Ii:=0 to Cc do frmGeneral.tblPostavkiSearchObchaya.Cell[Ii,i].Color := $006F6FFF;
end;
if (Date - StrToDateTime(frmGeneral.tblPostavkiSearchObchaya.Cells[4,i]) >0) then
begin
for Ii:=0 to Cc do frmGeneral.tblPostavkiSearchObchaya.Cell[Ii,i].Color := clSilver;
end
end;
frmGeneral.tblPostavkiSearchObchaya.EndUpdate;
end;
38 2020-11-26 10:10:37
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
ОК!!!!!!!!! Спасибо.
39 2020-11-26 10:08:58
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
Поля first_data end_data status_weel
40 2020-11-26 10:06:55
Re: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
Cell[0,0] ?????
41 2020-11-26 09:15:12
Topic: Изменение цвета ячейки по условию. (26 replies, posted in Russian)
Здравствуйте.
Собрали небольшую программу по учету поставщиков и поставок.
Есть поля НАЧАЛО СРОКА ПОСТАВКИ и КОНЕЦ СРОКА ПОСТАВКИ Типы полей ДАТА. Есть условие В РАБОТЕ и ЗАВЕРШЕНО. Выставляется в ручную.Т..Е. заполняю форму выставляя сроки начала и окончания и в поле СТАТУС ПОСТАВКИ выставляю ВЫПОЛНЯЕТСЯ.
Хотелось бы реализовать так чтобы при выполнении условия СТАТУС ПОСТАВКИ - В РАБОТЕ и при проверке даты окончания за 3-4 дня ячейка окрашивалась в красный цвет как предупреждение о возможной просрочке сроков поставки,но при выставлении СТАТУС ПОСТАВКИ -ЗАВЕРШЕННО поле получало зеленый цвет или же просто получало стандартный цвет. Спасибо
43 2020-10-05 07:16:48
Re: Своя форма авторизации (5 replies, posted in Russian)
А вот к примеру как можно сменить иконку программы на свою?
45 2020-10-05 06:02:43
Topic: Своя форма авторизации (5 replies, posted in Russian)
Здравствуйте.
Сделали прогрмку. Все работает,но не совсем нравиться деффолтная форма авторизации.
Подскажите как можно сделать свою форму авторизации с разграничением прав пользователей. Роли всего 2
49 2020-09-28 09:00:14
Topic: Убрать форму подключения (4 replies, posted in Russian)
Здравствуйте.
Сделали программку. Но сильно мешает при каждом запуске программы появляется форма подключения к базе данных.Подскажите как сделать,чтобы подключение устанавливалось без это формы.Спасибо