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

implementation

uses Unit8, Unit4, Unit14, Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

Var

i:integer;

begin

table1.Append;

if form4.showmodal=mrOk then

begin

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

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

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

table1.edit;

if form14.showmodal=mrOk then

begin

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

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm3.Button3Click(Sender: TObject);