Цитата:
|
Сообщение от Scorpuha
собственно есть форма с накиданными на нее dbedit, database, table1, datasourse, dbgrid1 и кнопка button. Вроде все связано. таблицы созданы. хотелось бы что бы при нажатии кнопки данные переносились в таблицу и отображались в dbgrid1. но вот незадача при нажатии кнопки выдает ошибку как на картинке. дополнительно поставил dbnavigator, с его помощью все работает.
вот код на кнопку.
Код:
procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.DBGrid1.DataSource.DataSet.Append;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Shortname').AsString:=DBEdit1.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Longname').AsString:=DBEdit2.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Izmer').AsString:=DBEdit3.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Price').AsString:=DBEdit4.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('Manufacture').AsString:=DBEdit5.Text;
Form2.DBGrid1.DataSource.DataSet.FieldByName('GOST').AsString:=DBEdit6.Text;
Form2.DBGrid1.DataSource.DataSet.Post;
end; |
Конечно будет ошибка ! Потому что вы пользуетесь
DBEdit это компоненту есть свойство .... DataSource и DataField и потом на кнопке пишите
Код:
if Dm.qrProduct.Modified then
DM.qrProduct.Post;
Вы пользуетесь
DBEdit ! Если бил простои Edit то да .