![]() |
|
#1
|
||||
|
||||
![]() Есть материнская и дочерняя форма, Дочерняя форма - окно авторизации т.е. пока не введешь логин\пароль(который сравнивается из таблицы) материнская не активна. у пользователей есть 2 уровня доступа по логическому полю Тру(видно все)\Фалсе(видно только разрешенное) дак вот при авторизации когда вводишь логин пароль в форму 1ое условие помеченное тут красным он проходит все авторизуется все ок, если вводишь во вторую часть текста со значением фалс выдает ошибку "Access violation at address XXX in module 'YYY'. read of address ZZZ." если поменять местами значение в дбедит2 с тру на фалс будет все тоже проходить т.е ошибка не в коде а опять в каком то обнулении\создании >_<
чтож за прооблемы то >_< Код:
if (dbedit1.text='') or (edit2.Text='') or (dbedit2.text='') then MessageBox(form9.Handle,'Введите ПРАВИЛЬНОЕ имя пользователя и пароль.','Ошибка!!!',Mb_ICONINFORMATION) else begin if (dbedit1.text<>'') or (dbedit3.Text<>'') or (dbedit2.Text<>'') then if dbedit2.text='True' then begin MainForm.Enabled:=True; end; if dbedit2.text='False' then begin MainForm.n2.Enabled:=false; MainForm.Enabled:=True; Код:
if (dbedit1.text='') or (edit2.Text='') or (dbedit2.text='') then MessageBox(form9.Handle,'Введите ПРАВИЛЬНОЕ имя пользователя и пароль.','Ошибка!!!',Mb_ICONINFORMATION) else begin if (dbedit1.text<>'') or (dbedit3.Text<>'') or (dbedit2.Text<>'') then if dbedit2.text='True' then begin MainForm.Enabled:=True; end; не спрашивайте у меня, ЗДЕСЬ СПРАШИВАЮ Я!!! Последний раз редактировалось RusSTEEL, 30.03.2011 в 09:54. |