Прошу помощи! (Page 1 of 2)

Здравствуйте.

Приложите пожалуйста ваш проект (zip файл без exe и dll), постараюсь помочь.

Сорри. frmContracts - TableGrid1, *2,*3...  соответсвенно в 3 вкладках.
Можете подсказать , что не так:
procedure frmContracts_TableGrid1_OnChange (Sender: string);
    var
        i,c: integer;
    begin
        frmContracts.TableGrid1.BeginUpdate;
        c := frmContracts.TableGrid1.RowCount - 1;
        for i := 0 to c do
    begin
       if (frmContracts.TableGrid1.Cells[7,i]) = (frmContracts.TableGrid1.Cells[11,i]) then frmContracts.TableGrid1.Cell[11,i].Color := clLime;
       if (frmContracts.TableGrid1.Cells[7,i]) < (frmContracts.TableGrid1.Cells[11,i]) then frmContracts.TableGrid1.Cell[11,i].Color := clYellow;
       if (frmContracts.TableGrid1.Cells[7,i]) > (frmContracts.TableGrid1.Cells[11,i]) then frmContracts.TableGrid1.Cell[11,i].Color := clRed;
    end;
        frmContracts.TableGrid1.EndUpdate;
end;

последнее условие не срабатывает.

с ув. Андрей

Дмитрий, спасибо огромное. Буду разбираться.

пример:

procedure Form1_edKodStation_OnChange (Sender: string);
begin
    Form1.edNameStation.Text := SQLExecute('SELECT nameStation FROM tablename WHERE KodStation = '+Form1.edKodStancii.sqlValue );
end;

Возможно не совсем понял, но чтобы показать все записи, можно просто нажать кнопку Поиск при пустом Edit1, т.е. если нет критериев для поиска.

Дмитрий, извините, что беспокою в выходной день.
Столкнулся со странной ошибкой:

List index out of bounds (1) при следующих процедурах:
Подскажите пожалуйста, что делаю не так

//Закрашивание по условию
procedure frmContracts_TableGrid1_OnChange (Sender: string; Action: string);
    var
        i,c: integer;
    begin
        frmContracts.TableGrid1.BeginUpdate;
        c := frmContracts.TableGrid1.RowCount - 1;
        for i := 0 to c do
            begin
               if    frmContracts.TableGrid1.Cells[18,i] = 'Да' then frmContracts.TableGrid1.Cell[2,i].TextColor := clRed;
               if    frmContracts.TableGrid1.Cells[18,i] = 'Yes' then frmContracts.TableGrid1.Cell[2,i].TextColor := clRed;
               if    frmContracts.TableGrid1.Cells[14,i] = '' then frmContracts.TableGrid1.Cell[14,i].Color := clWhite
               else if    StrToFloat(frmContracts.TableGrid1.Cells[14,i]) = 0 then frmContracts.TableGrid1.Cell[14,i].Color := $008238
               else if    StrToFloat(frmContracts.TableGrid1.Cells[14,i]) = 0 then frmContracts.TableGrid1.Cell[14,i].Color := $008238
               else if    StrToFloat(frmContracts.TableGrid1.Cells[14,i]) < 0 then frmContracts.TableGrid1.Cell[14,i].Color := clRed;
               if    frmContracts.TableGrid1.Cells[7,1] = ' ' then frmContracts.TableGrid1.Cell[7,1].Color := clWhite
               else if    frmContracts.TableGrid1.Cell[7,i].AsFloat > frmContracts.TableGrid1.Cell[11,i].AsFloat then frmContracts.TableGrid1.Cell[11,i].Color := $008238
               else if    frmContracts.TableGrid1.Cell[7,i].AsFloat < frmContracts.TableGrid1.Cell[11,i].AsFloat then frmContracts.TableGrid1.Cell[11,i].Color := clRed;
            end;
       frmContracts.TableGrid1.EndUpdate;
            end;

Ошибка возникает при фильтрации... если строка только одна.

andrey.yugay

 if    frmContracts.TableGrid1.Cells[7,1] = ' ' then frmContracts.TableGrid1.Cell[7,1].Color := clWhite

скорей всего в этой строке вместо 1 должно быть i

Дмитри. вы Бог!)
спасибо огромное, а то уже глаза в кучу

При выполнении данного SQL запроса, появляется вот такая ошибка. Началось с версии 3.3

select
SoispDog.num_dog,
strftime('%d.%m.%Y',SoispDog.date_dog),
soispdog.shifr_dog,
SoispDog.name_dog,
vedisp.numstage,                       
vedisp.namestage,
vedisp.ONTD,
strftime('%d.%m.%Y',vedisp.startstage),
strftime('%d.%m.%Y',vedisp.endstage)as dateend,
vedisp.trud,
vedisp.cashstage,
vedisp.NDS,
vedisp.vidcash,
Glisp.nameGi,
Soisp.nameisp,
vedisp.Zakl_OC,
vedisp.Zakl_TFC,
vedisp.udost,
(case when vedisp.otmstage=1 then 'да' else 'нет' end),
soispdog.id,               
soispdog.id_GLisp,
soispdog.id_soisp

from vedisp, soispdog, Glisp, soisp

where vedisp.id_soispdog=soispdog.id and soispdog.id_soisp=soisp.id and soispdog.id_Glisp=GLisp.id
and strftime('%m.%Y',vedisp.endstage)= strftime('%m.%Y',{DateTimePicker1}) and vedisp.otmstage='0'
order by dateend

Дмитрий, доброго времени суток.
Подскажите как можно реализовать.

на форме есть две кнопки - показать запись.
1) показывает на текущей форме
2) открывает новую форму для редактирования.

как можно сделать, что бы под одним пользователем работала 1 кнопка, а 2 под другими?
при открытии основной формы, есть разграничение прав, но если поставить запрет на все кнопки в режиме чтения, все равно срабатывает 2 и открывает форму.
может есть вариант, настроить Action на кнопку? т.е. прописать при определении прав.
пример ( за корректность не ручаюсь, т.к. опыта не было)

frmContracts.Button1Edit1. * Action = "None";
frmContracts.Button2Edit2. * Action = "None";

Заранее благодарю за вашу помощь.
Программу как и обещал будем брать, нужны будут ваши контакты, что бы отдел закупок связался с вами

с Ув. Андрей

Здравствуйте.

Так можно удалить действие для кнопки

Form1.Button1.dbActionType := adbNone;  

andrey.yugay

1. Автозаврешение слов есть только в ComboBox, для этого установите его свойство Style = csDropDown
Затем поместите на форму компонент Edit, а для компонента ComboBox создайте событие

procedure Form2_ComboBox1_OnChange (Sender: string);
begin
    Form2.Edit1.Text :=  Form2.ComboBox1.Text;
end;

procedure Form2_OnShow (Sender: string; Action: string);
begin
    Form2.ComboBox1.Text := Form2.Edit1.Text;
end;

таким образом информация из CombBox будет дублироваться в Edit, компонент Edit сделайте невидимым, но данные в базу данных сохраняйте именно с компонента Edit

проект с примером приложил к сообщению

2. Нажмите правой кнопкой мыши в окне скриптов и поставьте галочку "Code folding"

3. support@drive-software.com
страница покупки
http://myvisualdatabase.com/purchase_ru.html