Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];

Вниз

ECO + Delphi 2005   Найти похожие ветки 

← →
Eyfel   (2005-01-26 15:45) [0]

Всем доброго времени суток.
Есть следующая проблема.

У меня есть код:

 login := txtLogin.Text;
 password := txtPassword.Text;

 usersList := ehUsers.GetList();
 usersCount := usersList.Count;
 flag:=0;
 for i:=0 to usersCount do begin
   user:=Users(usersList.Item[0]);
   if (user.login.Equals(login)) then begin
     if (user.password.Equals(password)) then begin
       flag:=2;
       break;
     end
     else begin
       flag:=1;
     end;
   end
   else begin
     flag:=0;
   end;
 end;

 case flag of
   0: begin
       //Отсутствует пользвоатель с таким логином
       MessageBox.Show("В базе данных отсутсвует пользователь: "+login,
                       "Ошибка входа в систему",
                       MessageBoxButtons.OK,
                       MessageBoxIcon.Error);
      end;
   1: begin
       //Неправельно введен пароль
       MessageBox.Show("Вы неправельно ввели пароль",
                       "Ошибка входа в систему",
                       MessageBoxButtons.OK,
                       MessageBoxIcon.Error);
      end;
   2: begin
       //Все хорошо
       Close();
      end;
 end;


Все бы ничего, но проблема в том, что

user:=Users(usersList.Item[0]);


какбы не старалси всегда вератет nil =( то есть не могет найти такого....
хотя usersCount := usersList.Count; вертает 1
Users — это представление в ECO таблици
Users = class(System.Object, ILoopBack)

---

← →
Vaitek ©   (2005-01-26 16:48) [1]

А Users - это что такое?

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.034 c