Дипломная работа: Автоматизированная система учета по подключению Интернет-сети в РУП "Белтелеком"

procedure TForm9.Button1Click(Sender: TObject);

begin

table1.edit;

if form13.showmodal=mrOk then

begin

if form13.DBEdit1.text='' then Table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm9.Button2Click(Sender: TObject);

Var

i:integer;

begin

table1.Append;

if form15.showmodal=mrOk then

begin

table1.FieldByName('FIO').AsString:=form15.DBEdit1.text;

if form15.DBEdit1.text=''then table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm9.Button3Click(Sender: TObject);

begin

form1.show;

form9.Close;