处理
database
的onlogin事件begin
   loginParams.Values['User Name']:=户口;
   loginParams.Values['password']:=口令;
end;