Курсовая работа: Информационно-аналитическая система "MTTS"

begin

//dd.Query2.RecNo:=dd.Table2.RecNo;

dd.DataSource2.DataSet:=dd.Table2;

dd.Table2.Edit;

dd.Table2.Fields[0].AsFloat:=strtofloat(kod.Text); //strtofloat(label4.Caption);

dd.Table2.Fields[1].Text:=gorod.Text; //label5.Caption;

//dd.Table2.Fields[2].AsCurrency:=strtofloat(dbedit3.Text)*1;

dd.Table2.Post;

//// ИЗМЕНЕНИЕ В ПЕРЕГОВОРАХ

begin

label4.Caption:=kod.Text;

label5.Caption:=gorod.Text;

for i:=1 to dd.Table3.RecordCount do

begin

dd.Table3.Edit;

//dd.Table3.RecNo:=i;

dd.Table3.Fields[6].AsFloat:=strtofloat(label4.Caption);

dd.Table3.Fields[1].Text:=label5.Caption;

dd.Table3.Post;

//dd.Table3.Filter:='pertel='+dbedit1.Text;

//dd.Table3.Filtered:=true;

dd.Table3.Next;

end;

end;

dd.Table3.First;

end.

2.4. Удаление записи из таблицы

Нажав на кнопку «Удаление» на самой основной форме, открывается форма, где выбирается из раскрывающегося списка абонент, который нужно удалить:

Нажать «Удалить».