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

uses Unit2, Unit3, Unit5, Unit6, Unit9, Unit10, Unit11, Unit12;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.Button3Click(Sender: TObject);

Var i:integer;

Begin

table1.Append;

if form5.showmodal=mrOk then

begin

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

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

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

Table1.Cancel;

end

else

table1.Post;

end

else

Table1.Cancel;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin