|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.10.2013, 22:04 | #11 |
Пользователь
Регистрация: 29.10.2012
Сообщений: 64
|
Код:
пишет undeclared identifier:' lo partial key Последний раз редактировалось Stilet; 02.10.2013 в 09:39. |
01.10.2013, 22:57 | #12 |
Подтвердите свой е-майл
Регистрация: 29.08.2012
Сообщений: 4,011
|
Выбросить отсюда ADOTable пока не поздно. и не заниматься ни локейтами ни чем либо подобным.
|
02.10.2013, 07:27 | #13 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,886
|
|
02.10.2013, 16:06 | #14 |
Пользователь
Регистрация: 29.10.2012
Сообщений: 64
|
Все оказалось намного проще. Надо было поставить break в цикл с вводом логина и пароля.
Вот код: procedure TForm1.BitBtn1Click(Sender: TObject); var s,XZ:string; x,i,Prav:integer; Begin DM.ADOTable1.First; while not DM.ADOTable1.Eof do begin XZ:=DM.ADOTable1.fieldbyname('login ').AsString; s:=DM.ADOTable1.fieldbyname('pass') .AsString; if (Edit1.Text = xz) and (Edit2.Text = s) then begin Form2.Show; Form1.Hide;break; end; DM.ADOTable1.Next; end;end; begin Prav:=DM.ADOTable1.fieldbyname('pra va').Asinteger; if (prav=1) then begin form3.show; ShowMessage ('Äîáðî ïîæàëîâàòü!!!');end else begin ShowMessage ('Ñìåíèòü ïàðîëü íåëüçÿ!!!');form3.close;end; end; Спасибо большое всем кто помогал !!! |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разграничение прав доступа | xDyPx | PHP | 1 | 04.05.2013 23:13 |
Разграничение прав доступа в рамках одного листа. | Maverik2k | Microsoft Office Excel | 3 | 23.04.2013 12:00 |
Разграничение прав на области листа | Chelentano | Microsoft Office Excel | 11 | 07.02.2013 10:33 |
БД Access и разграничение прав доступа | chandrasecar | БД в Delphi | 0 | 22.05.2011 23:22 |
Разграничение прав доступа | Len@09 | БД в Delphi | 24 | 03.11.2009 15:39 |