| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

кнопка не работает [D5, D6, dBase, FoxPro]

Kislyak ©   (2002-10-21 09:41:00) 

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

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;

---

Nikolay M.   (2002-10-22 11:26:00) [1]

> Table9.Refresh;


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

---

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

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

---

ЮЮ   (2002-10-21 11:03:00) [3]

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

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

---

Наверх