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

begin

showmessage('Введенный код уже зарегестрирован за городом '+dd.Query2.Fields[1].Text+#13+'Совпадение кодов недопустимо' );

edit1.SetFocus;

dd.Query2.Filtered:=false;

end else

begin

dd.DataSource2.DataSet:=dd.Table2;

dd.Table2.Append;

dd.Table2.Fields[0].AsFloat:=strtofloat(edit1.text);

dd.Table2.Fields[1].Text:=edit2.Text;

dd.Table2.Fields[2].AsFloat:=strtofloat(edit3.Text);

dd.Table2.Post;

dd.DataSource2.DataSet:=dd.Query2;

dd.Query2.Close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('Select * FROM Tarif ORDER BY tarkod');

dd.Query2.Filtered:=false;

dd.Query2.Open;

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit1.SetFocus;

end;

2.3. Изменение полей выбранной записи

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

Нажать «Изменить».

Программа:

procedure Ttared.Button1Click(Sender: TObject);

var i, n, j: integer;