ECO + Delphi 2005 [WinXP]
Eyfel © (2005-01-26 15:45:00)
Всем доброго времени суток.
Есть следующая проблема.
У меня есть код:
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:00) [1]
А Users - это что такое?
Наверх 
ЧАТ |
Орешник |
|
