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

If Memo1.Lines[0] <> '' {Проверяем на предмет пустого ввода} then

ADOQuery1.SQL.Add(Memo1.Text) {Назначаем свойству SQL текст Memo}

else

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 TForm4.N2Click(Sender: TObject);

begin

close();

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

ShowMessage('Anisimov Andriy');

end;

end.

unit Unit5;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TForm5 = class(TForm) Button1: TButton; Edit1: TEdit; procedure oK(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end;

var Form5: TForm5;