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

end;

var

Form2: TForm2;

implementation

uses Unit7, Unit8, Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

Var

i:integer;

begin

table1.Append;

if form7.showmodal=mrOk then

begin

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

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

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

table1.edit;

if form8.showmodal=mrOk then

begin

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

else

table1.Post; end

else