iBase.ru Forum

Код: Выделить всё

  form1.base.Params.Clear;
  form1.base.LoginPrompt:=False;
  form1.base.DatabaseName:='server:e:\path\xxx.ib';
  form1.base.Params.Add('user_name='+Edit1.text);
  form1.base.Params.Add('password='+Edit2.text);
  form1.base.Params.Add('SQLRole=zakaz');
  form1.base.Params.Add('lc_ctype=none');
   k:=1;
  try  
 form1.base.connected:=true; //- {вот эта строка происходит всегда даже если пользователя или пароль указали неверно, в этом случае вываливается ошибка которая просто ставит в даун приложение}
  except  begin
  messagedlg('Не правильный ввод пароля',mtInformation,  [mbYes],0);
  k:=0;
  end;         
end;

Код: Выделить всё

  try
    Database.Connected := True;
    Result := True;
  except
    ShowMessage('не законнектились');
    Result := False;
  end;

Код: Выделить всё

 
try
 logfm:=Tlogfm.Create(application);
 logfm.Showmodal;
//и делай ты в этой форме что хочешь, хоть фишечки, хоть рюшечки
//проверяй правильность пароля, выставляй счетчик ошибок, ну что хошь, в общем, пока не скажешь там, что logfm.Modalresult:=......
finally
 logfm.release;
end;

Код: Выделить всё

try
  database.connected := True;
except
  messagedlg('чот не хотит коннектится, видать логин/пассвард не тот :(', mtError, [mbOk], 0);
end;