Работа с DBGrid

← →
MCFire (2002-03-28 10:58) [0]

Народ!!!Помогите!!! Короче вот такая проблема:
У меня в DataSet есть два поля цена в долларах(PR_D) и цена в гривнах(PR_G) и есть некоторый курс по которому идёт пересчёт например 5.35 . Мне нужно если я меняю в DBGrid цену в долларах то она пересчитывала автоматически цену в гривнах и наоборот если я меняю цену в гривнах она персчитывала цену в длр. Если я добавляю соответсвующие коды в событие OnChange этих полей то происходит зацикливание и получается они меняют друг друга...
Помогите если сможете.....

← →
Alexandr © (2002-03-28 11:08) [1]

ну так убери зацикливание флагом

← →
MCFire (2002-03-28 11:23) [2]

->Alexandr
В смысле использовать какую нибудь булеанскую переменную?

← →
Lusha © (2002-03-28 11:25) [3]

Перевожу... :)
Заведите логическую переменную и производите изменение смежного поля только при соответствующем значении переменной. Текст обработчика на OnChange при этом будет выглядеть приблизительно так:

if LockKey then Exit;
try
LockKey := True;

// Ваш код

finally
LockKey := False;
end;

где, LockKey та самая переменная...

Удачи

← →
panov © (2002-03-28 11:40) [4]

>MCFire (28.03.02 10:58)
Используй не OnChange, а DBGrid.OnColExit

Вот примерный код:

procedure TForm1.DBGrid1ColExit(Sender: TObject); begin if ((UpperCase(DBGrid1.SelectedField.FieldName) ="A1") and ((DBGrid1.DataSource.DataSet.State=dsEdit) or (DBGrid1.DataSource.DataSet.State=dsInsert))) then begin DBGrid1.DataSource.DataSet.FieldByName("a2").Value := DBGrid1.DataSource.DataSet.FieldByName("a1").Value*5; end; end;

← →
Johnmen © (2002-03-28 12:03) [5]

>panov © : Не будет работать, если перемещаться по гриду в вертикальном направлении не меняя текущей колонки, но изменяя значение поля...

← →
panov © (2002-03-28 12:25) [6]

>Johnmen © (28.03.02 12:03)
Согласен-)
Тогда еще вариант:

... type TForm1 = class(TForm) Table1: TTable; DataSource1: TDataSource; DBGrid1: TDBGrid; procedure FieldValidate(Sender: TField); ... ... procedure TForm1.FieldValidate(Sender: TField); begin if ((DBGrid1.DataSource.DataSet.State=dsEdit) or (DBGrid1.DataSource.DataSet.State=dsInsert)) then begin DBGrid1.DataSource.DataSet.FieldByName("a2").Value := DBGrid1.DataSource.DataSet.FieldByName("a1").Value*5; end; end; procedure TForm1.FormCreate(Sender: TObject); begin DBGrid1.DataSource.DataSet.FieldByName("a1").OnValidate :=FieldValidate; end;

В таком виде будет работать всегда-)

← →
Lusha © (2002-03-28 12:30) [7]

>panov
А Вы внимательно читали, в чем, собственно, проблема?

Да. Но человеку надо, чтобы при изменении одного поля менялось значение друго и НАОБОРОТ. А Вы ему предлагаете по сути те же грабли на которые он уже и наступил.

>panov © (28.03.02 12:34)
Тогда прошу прощения.
Про наоборот упустил из виду.

В этом случае приведенный код несложно модифицировать тоже.

procedure TForm1.FieldValidate(Sender: TField);
begin
if UpperCase(TField(Sender).FieldName) ="A1" then
begin
DBGrid1.DataSource.DataSet.FieldByName("a2").OnValidate := nil;
end
else DBGrid1.DataSource.DataSet.FieldByName("a1").OnValidate := nil;

if ((DBGrid1.DataSource.DataSet.State=dsEdit) or
(DBGrid1.DataSource.DataSet.State=dsInsert)) then
begin
if UpperCase(TField(Sender).FieldName) ="A1" then
DBGrid1.DataSource.DataSet.FieldByName("a2").Value :=
DBGrid1.DataSource.DataSet.FieldByName("a1").Value*5
else
DBGrid1.DataSource.DataSet.FieldByName("a1").Value :=
DBGrid1.DataSource.DataSet.FieldByName("a2").Value/5;
end;
DBGrid1.DataSource.DataSet.FieldByName("a1").OnValidate :=FieldValidate;
DBGrid1.DataSource.DataSet.FieldByName("a2").OnValidate :=FieldValidate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.FieldByName("a1").OnValidate :=FieldValidate;
DBGrid1.DataSource.DataSet.FieldByName("a2").OnValidate :=FieldValidate;
end;

Хотя, возможно, это и сложнее, нежели в Lusha © (28.03.02 11:25)
-)

Работа с DBGrid Найти похожие ветки