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

if form6.showmodal=mrOk then

begin

if ((Form6.DBEdit1.Text='')or(Form6.DBEdit2.Text='')or(Form6.DBEdit3.Text='')or(Form6.DBEdit4.Text='')) then begin

messagedlg ('Полянезаполнены!'+#13 +'Введитепожалуйстаданные!',mtinformation,[mbok],0);Table1.Cancel;

end

else

form1.Table1.Post;

end

else Table1.Cancel;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form10.show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Winhelp(Form1.Handle,'help1.hlp',Help_context,1);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

form11.show;