Search options (Page 8 of 8)

Доброго времени суток Дмитрий!   версия 2.1
Подскажите...всего одна таблица...
Можно ли заставить работать ComboBox в этой же  таблицы для поиска,
1)  без создавания  дополнительной таблицы(связь)?
2)  если да, то как?

                                С Уважением и Благодарностью Роман!!!

Доброго дня!
Из двух объединённых скриптов не работал тот который красил шрифт
         if StrToFloat(s) < 0
         then Form3.TableGrid1.Cell[10,i].TextColor := clRed;
добавил это ещё к нему:
         if StrToFloat(s) < 0
         then Form3.TableGrid1.Cell[10,i].TextColor := clGreen;
         if StrToFloat(s) < 0
         then Form3.TableGrid1.Cell[10,i].TextColor := clRed;
Всё вместе ЗАРАБОТАЛО!!!

procedure Form3_TableGrid1_OnChange (Sender: string);
var i,c: integer;
    s: string;
begin c := Form3.TableGrid1.RowCount - 1;                     
      for i := 0 to c do
begin
         s := Form3.TableGrid1.Cells[10,i];
         if ValidInt(s) then
  
         if StrToFloat(s) < 0
         then Form3.TableGrid1.Cell[10,i].TextColor := clGreen;//зелёный

         if StrToFloat(s) < 0
         then Form3.TableGrid1.Cell[10,i].TextColor := clRed;//красный

      
         if Form3.TableGrid1.Cells[3,i] = 'Real'
         then Form3.TableGrid1.Cell[3,i].Color := clSilver
         else Form3.TableGrid1.Cell[3,i].Color := clYellow;
   end;
 end;

Если правильно дайте знать?
                                                   С Уважением и Благодарностью Роман!!!

Спасибочки...

Ура!!!!!!!!!!!!!!!!!! Заработало!!!!!!!!!!!!!!!!!!!!!!
Вставлял скрипт в проект...без перевода.....с русскими дописками
типа(процедура Form1_GridEmployees_OnChange (Отправитель: строка)....и т.д.
а потом доделовал переводчиком......аж самому смешно стало, после того как
нажал кнопочку "показать оригинал"  и вуаля...код приобрёл нужный вид...
Прошу прощения у читателей форума и у Дмитрия за повторный вопрос выше стоящим посте....
Всем нам "чудо-программистам"  приходиться начинать с нуля.

Дмитрию Огромное Спасибо за программу и многократное Спасибо за поддержку!!!!!!!!!!!!!!!!!!!!!!!!!!!!
(в дельфи я б делал свой проект лет сто............)

                                                                                     С Уважением и Благодарностью Роман!!!

не могу понять...
procedure Form1_GridEmployees_OnChange (Sender: string);
var
   i,c: integer;
   s: string;
begin
     c := Form1.GridEmployees.RowCount - 1;
     for i := 0 to c do
     begin
         s := Form1.GridEmployees.Cells[5,i];

            if StrToInt(s) < 0 then Form1.GridEmployees.Cell[5,i].TextColor := clRed

     end;
end;
меняет шрифт только когда в таблице указанно целое число!
Вопрос: хотелось бы и при веществ.числе
               что надо изменить в скрипте?
                             
                                                 С Уважением и Благодарностью Роман!!!

Добрый день Дмитрий!
пытаюсь вставить скрипт...
//красит шрифт числа(отриц.) в TableGrid1
procedure Form3_TableGrid1_OnChange (Sender: string);

var
   i,c: integer;
   s: string;
begin
     c := Form3.TableGrid1.RowCount - 1;
     for i := 0 to c do
     begin
         s := Form3.TableGrid1.Cells[10,i];

            if StrToInt(s) <= 0 then Form3.TableGrid1.Cell[10,i].TextColor := clRed

     end;
end;
программка ругается...у меня на   Form3 уже стоит для TableGrid1 в событии(Form3_TableGrid1_OnChange)-красит ячейку...
Вопрос: как ещё добавит для  //красит шрифт числа(отриц.) в TableGrid1 события : Form3_TableGrid1_OnChange

                                                                                                                      С Уважением и Благодарностью Роман!!!

ух-ты...Работает!!! Спасибо!!!

procedure Form1_GridEmployees_OnChange (Sender: string);
var
   i,c: integer;
   s: string;
begin
     c := Form1.GridEmployees.RowCount - 1;
     for i := 0 to c do
     begin
         s := Form1.GridEmployees.Cells[4,i];
         if ValidInt(s) then
            if StrToInt(s) >= 0 then Form1.GridEmployees.Cell[4,i].Color := clGreen
                else Form1.GridEmployees.Cell[4,i].Color := clRed;
     end;
end;

Вопрос: что надо изменить , чтоб не красила ячейку, а изменила цвет только цифры в красный если (число <0)

                                                                                                                   С Уважением и Благодарностью Роман!!!

Доброго времени суток Дмитрий!   версия 2.1

Попробую упростить вопрос...

есть две таблицы магазин и склад:

у таблицы магазин есть два поля "название магазина" и "приход"(тип поля-веществ. число)
P/S названий магазинов может быть много и у каждого свой приход.

у таблицы склад есть три поля "название магазина", "товар" и "цена" 
P/S поле "название магазина" будет совпадать с полем "название магазина" в таблицы магазин
    в поле "товар" делаем запись наименование товара(наименований товаров много)
    в поле "цена" делаем запись сколько стоит товар

Вопрос:    Подскажите скрипт который,
                   подсчитает общую сумму из поле "цена" 
                   только с одинаковым ИМЕНЕМ в поле "название магазина" из таблицы склад
           
                  и подставит итог этой общей суммы
                  автоматически в таблицу магазин в поле "приход" с таким же ИМЕНЕМ.
                                                 
Если это возможно  на наглядном проекте...
                                       
                                                                                     С Уважением и Благодарностью Роман!!!

Доброго времени суток Дмитрий!   версия 2.1

подскажите скрипт:

1. при открытии формы, сразу обновлялся TableGrid1...
   (т.е. открываем форму и чтоб увидеть значения в TableGrid1 надо нажать на кнопку поиск...
    возможен вариант при открытии формы, кнопочка Button с назначением поиск сама нажималась
    TableGrid1 автоматически выводил информацию с критериями назначаемые для условия поиска...)

2. если в вычисляемом поле появляется значение меньше нуля, то клеточка где #(Auto Increment) 
   окрасится в красный цвет в TableGrid1.

3.  если в вычисляемом поле появляется значение меньше нуля, то эта цифра будет иметь
    красный цвет в TableGrid1.

если возможно с наглядным проектом...думаю для других будет тоже интересно...

                                                 С Уважением и Благодарностью Роман!!!

Доброго времени суток!

есть скрипт...он работает, когда только назначаешь на Button показать запись.....
а надо чтоб работал  при назначении новая запись...(версия 2.1)

procedure Form4_Edit1_OnChange (Sender: string);
begin
Form9.Edit2.Text := Form4.Edit1.Text;
end;

вопрос: Подскажите, где ошибка?

Доброго дня Дмитрий!

Проект с примером мемо, именно то, что мне надо!!!
Но у меня "гения программиста" выдаёт такую ошибку,при клике на строчку:

Error message
no such column: memo
Script:
SQLExecute
Display the SQL query for debuqqing?

SELECT memo FROM Centre WHERE id=2
пол ночи колдовства - результата не дало...

1. не подскажите в чём моя ошибка?
2. помогите с примером...(рис. прилагается)