Текущий архив: 2002.11.11;
Скачать: CL | DM;

Вниз

кнопка не работает   Найти похожие ветки 

← →
Kislyak   (2002-10-21 09:41) [0]

Хелп!!! Кнопка нажимается а данные не появлются может кто подскажет что не так делаю текст ниже:

procedure TForm19.btnMTClick(Sender: TObject);
begin

Table9.Edit;

Table9.FieldByName("VAL").AsString:= DbEdit29.Text;
Table9.FieldByName("SUMM").AsFloat:= StrToFloat(DbEdit7.Text);
Table9.FieldByName("PL").AsString:= DbEdit8.Text;
Table9.FieldByName("NAME").AsString:= DbEdit10.Text;
Table9.FieldByName("RPL").AsString:= DbEdit18.Text;
Table9.FieldByName("CH").AsString:= DbEdit25.Text;
Table9.FieldByName("MBK").AsString:=DbEdit26.Text;
Table9.FieldByName("IPL").AsString:= DbEdit16.Text;
Table9.FieldByName("SPL").AsString:= DbEdit17.Text;
Table9.FieldByName("MPL").AsString:= DbEdit9.Text;
Table9.FieldByName("MPO").AsString:= DbEdit13.Text;
Table9.FieldByName("SPO").AsString:= DbEdit12.Text;
Table9.FieldByName("NPO").AsString:= DbEdit14.Text;
Table9.FieldByName("RPO").AsString:= DbEdit21.Text;
Table9.FieldByName("IPO").AsString:= DbEdit19.Text;
Table9.FieldByName("SPO").AsString:= DbEdit20.Text;
Table9.FieldByName("NUM").AsFloat:= StrToFloat(DbEdit3.Text);
Table9.FieldByName("DATE").AsDateTime:= Now;
Table9.FieldByName("VO").AsString:= DbEdit30.Text;
Table9.FieldByName("BCS").AsString:= DbEdit23.Text;;
Table9.FieldByName("KP").AsFloat:= StrToFloat(DbEdit22.Text);
Table9.FieldByName("ASN").AsString:= DbMemo1.Text;
Table9.Post;
Table9.Refresh;

end;

---

← →
ЮЮ ©   (2002-10-21 11:03) [1]

А где они должны появиться. Ты используешь DB-компоненты, которые ч/з DataSource связаны с набором данных. Надеюсь, это и есть Table9 :-). При корректировке в любом из этих полей НД сам переведётся в состояние dsEdit. Присваивать тоже ничнго не надо. Остается сделать

procedure TForm19.btnMTClick(Sender: TObject);
begin
Table9.Post;
end;

---

← →
Crok   (2002-10-22 07:51) [2]

ты наверное собрал данные из разных таблиц
Вместо Table9.Edit; Поставь Table9.Append;

---

← →
Nikolay M. ©   (2002-10-22 11:26) [3]

> Table9.Refresh;


Table9.Active := False;
Table9.Active := True;
?

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c