Контрольная работа: Інформаційна система будівельної організації

begin

messageDlg('Введіть sql запрос', mtError, [mbOK], 0);

exit;

end;

try {перехватчик ошибок}

ADOQuery1.Open; {Выполняем запрос и открываем набор данных}

except {секция обработки ошибок}

On e : EDatabaseError do {e - новый дескриптор ошибки}

messageDlg(e.message,mtError,[mbOK],0); {показываем свойство message объекта e}

end;{окончание обработки ошибки}

Memo1.ReadOnly:=false;

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

Memo1.Clear;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

if SaveDialog1.Execute then

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Memo1.Lines.SaveToFile(OpenDialog1.FileName)

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

Memo1.ReadOnly:=true;

openDialog1.Filter:='Текстові файли|*.txt';