Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

 with ValidateQuery do

 begin

  Params[0].AsString := Request.QueryFields.Values['UserName'];

  Params[1].AsString := Request.QueryFields.Values['Password'];

  try

  Open;

  if RecordCount>0 then

   begin

   UserStatus := FieldByName('UserCategory').AsInteger;

   Response.Content := CommonLook+'
Tv єёях°эю чрЁхушёЄЁшЁютрэv';

   if UserStatus>0 then

    Response.Content := Response.Content + '
TvсхЁшЄх ЄютрЁэє¦ уЁєяяє ш ттхфшЄх чрърч
'+CreateGroupList(0,0,1)

   else

    begin

     Response.Content := Response.Content + '
T ърўхёЄтх рфьшэшёЄЁрЄюЁр'

     +'
TЄЁрэшЎр рфьшэшёЄЁрЄюЁр';

    end;

  end

  else

    Response.Content := CommonLook+'Tр°ш фрээvх юЄёєЄёЄтє¦Є т срчх. +сЁрЄшЄхё№ ъ эрь яю рфЁхёє xxx@yyy.zzz';

  finally

   Close;

  end;

Рекомендуем скачать другие рефераты по теме: шпоры по социологии, бесплатные ответы.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки