[ Closed ] Подскажите с скриптом... (Page 1 of 6)

1.

Form3.CheckBox1.State := cbGrayed;

2,3. Не располагайте скрипт ниже блока

begin

end.

все что идет после end. (именно с точкой в конце) будет проигнорировано.

Проект с примером:

Роман

1. Ошибка говорит о том, что в таблице БД Centre нет поля с названием memo
присутствует ли оно?

1

procedure Form1_ComboBox1_OnCloseUp (Sender: string);
begin
    if Form1.CheckBox1.Checked then
        Form1.Edit1.Text := Form1.ComboBox1.Text;
end;

2.

Form1.Edit1.Text := SQLExecute('SELECT fieldname FROM tablename WHERE id=2');

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

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

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

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

Будем пробывать.....

ещё скромный вопрос, даже ДВА  они выложены в рисунке (Рисунок прилагается)

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

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

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

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

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

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

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

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

Роман
1.  Создайте у формы событие OnShow, в котором можно с помощью скрипта нажать на кнопку поиска, пример:

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.Button1.Click;
end;

2-3. http://myvisualdatabase.com/forum/viewtopic.php?id=1063

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

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

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

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

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

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

Спасибо Вам!!!  Это именно то, что мне надо!

Имеется вопрос следующего характера...(методом тыка не получилось решить)
есть скрипт он красит ячейку...

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

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

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

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

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)

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

Работает.....Спасибочки!!!

Это второй скрипи...с тем же событием...
//красит ячейку в зависимости от содержимого...цыфра 3 колонка таблицы( id-не считается)
procedure Form3_TableGrid1_OnChange (Sender: string);
var
   i,c: integer;
begin
     c := Form3.TableGrid1.RowCount - 1;
     for i := 0 to c do
     begin
      // if Form3.TableGrid1.Cells[3,i] = 'Yes'  - красит зелным....если 'Да' красит красным
         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;

не могу их объединить их ...?