прошу прощения, пропустил then при написании сообщения. В программе я его испаользую
Во избежание дальнейших недоразумений привожу весь код процедуры и задаю вопрос вдогонку. Почему-то компилятор не обращает внимания на try-except. При Попытке соединиться с базой с пустыми параметрами выдается стандартное сообщение об ошибке глобального обработчика исключений. Также раскомментирование строки с EDatabaseError вызывает ошибку 'Undeclared Identifier' для EDatabaseError, что совершенно сбивает меня с толку.
Цитата:
procedure TFormConnection.BitBtn1Click(Sender: TObject);
begin
DataModule1.MSSQLConnection.Params.Values['HostName']:= EditServName.Text;
DataModule1.MSSQLConnection.Params.Values['DataBase']:= EditDatabaseNAme.Text;
DataModule1.MSSQLConnection.Params.Values['User_Name']:= EditUserName.Text;
DataModule1.MSSQLConnection.Params.Values['Password']:= EditPassword.Text;
try
DataModule1.MSSQLConnection.Connected:=True;
except
// on EDatabaseError do begin
MessageDlg('Соединение не установлено!',mtError,[mbOK],0);
// end;
end;
FormConnection.Close;
// if DataModule1.MSSQLConnection.ConnectionState = csStateOpen then begin
// end;
end;
|