Авторизация

@Korulik · Регистрация: 29.12.2015

Author24 — интернет-сервис помощи студентам

Есть таблица с пользователями и паролями, форма для авторизации, как правильно будет при выборе определённого пользователя показывать запросом лишь то,что он должен видеть

@qwertehok · 11.05.2016, 12:30

совсем правильно?
или более менее?
или на уровне начинающего?

@Korulik · 11.05.2016, 13:09 **[ТС]**

Чтобы правильно работало)можно начать с уровня начинающего,пожалуйста

@qwertehok · 11.05.2016, 13:14

а вы уже определились как определить что он должен видеть, а что нет?
есть организации в которых и админ то не должен видеть всего

@Korulik · 11.05.2016, 13:21 **[ТС]**

да, у меня всё тут просто, есть 5 подразделений, и каждый может видеть лишь своё, при введении новой записи выбор подразделения идёт. Хотелось бы так, логин/пароль верный , например, для первого подразделения, значит запросом видимо отбор записей,которые относятся к первому подразделению

@qwertehok · 11.05.2016, 13:36

отлично
при вводе логина\пароля определяете подразделение
на открытие таблицы с подразделениями пишите запрос

Delphi

1 2	query.sql.text:='select * from T where podr='+inttostr(p); query.open;

где в переменной у вас подразделение
запрос отберет только нужное

@Korulik · 11.05.2016, 13:45 **[ТС]**

то есть, логин/пароль, и запрос на кнопку Вход, буду пробовать, спасибо

@Korulik · 12.05.2016, 14:51 **[ТС]**

не получается, не допоняла видимо.
Запускаю приложение, появляется форма авторизации, выполняю

Delphi

procedure TAvtoriz.BitBtn1Click(Sender: TObject);
var SQL: string;
begin
SQL:= 'Select * from sets WHERE res ='+ QuotedStr(DBLookupLogin.Text)+' and password ='+ QuotedStr(Edit_Password.Text);
DataM.SetsQuery.Close;
DataM.SetsQuery.SQL.Text:=SQL;
DataM.SetsQuery.Open;
 if not DataM.SetsQuery.IsEmpty then
begin
  Avtoriz.Hide;
  MainForm.Show;
  end
else
 begin
 MessageDlg('Неверный логин или пароль',mtError,[mbOK],0)
 end;
end;

При корректном входе появляется форма с гридом, куда просто подключён Query c запросом. Мне на появлении формы вешать запрос в зависимости от входа после авторизации?

Delphi

procedure TMainForm.FormCreate(Sender: TObject);
var SQL: string;
begin
  if  Avtoriz.DBLookupLogin.Text='ЛРЭС' then
  begin
  DataM.Query.Close;
  DataM.Query.SQL.Clear;
  SQL := 'select * from urf  where code_res=2';
  DataM.Query.SQL.Text := SQL;
  DataM.Query.Open;
  end;
end;

@qwertehok · 12.05.2016, 15:13

Сообщение от Korulik

Мне на появлении формы вешать запрос

как тебе удобно

заведи себе какой-то контейнер для переменных - например стринглист и пиши туда имя пользователя\пароль и другие данные, а все компоненты сразу очищай
это позволит тебе не думать о том где хранится то или иное значение.
например открылась форма 50 и тебе нужно проверить логин\пароль и ты лезешь на первую форму за данными.

@Korulik · 12.05.2016, 15:56 **[ТС]**

qwertehok, хорошо, об этом подумаю, но пока в таком виде не получается запрос переоткрыть именно мой

Добавлено через 31 минуту

Delphi

1	if Avtoriz.DBLookupLogin.Text='ЛРЭС' then

не воспринимает походу, без условия тупо меняет запрос

@qwertehok · 12.05.2016, 16:08

Сообщение от Korulik

не воспринимает походу, без условия тупо меняет запрос

ничего не понял

@Korulik · 12.05.2016, 16:18 **[ТС]**

Delphi

procedure TMainForm.FormCreate(Sender: TObject);
var SQL: string;
begin
  if  Avtoriz.DBLookupLogin.Text='ЛРЭС' then
  begin
  DataM.Query.Close;
  DataM.Query.SQL.Clear;
  SQL := 'select * from urf code_res=2';
  DataM.Query.SQL.Text := SQL;
  DataM.Query.Open;
  end;

вот так ничего не происходит,

Delphi

DataM.Query.Close;
  DataM.Query.SQL.Clear;
  SQL := 'select * from urf where code_res=2';
  DataM.Query.SQL.Text := SQL;
  DataM.Query.Open;
  end;

вот так запрос работает

@Korulik · 16.05.2016, 16:44 **[ТС]**

Если пишу уловие

Delphi

1	if Avtoriz.DBLookupLogin.Text='ЛРЭС' then

то ничего не происходит, если без условия

Delphi

  DataM.Query.Close;
  DataM.Query.SQL.Clear;
  SQL := 'select * from urf where code_res=2';
  DataM.Query.SQL.Text := SQL;
  DataM.Query.Open;
  end;

то показывает данные по запросу при авторизации

@qwertehok · 16.05.2016, 16:50

-когда я делаю вот так у меня тут хрустит
-а ты не делай
-как же я могу не делать, если хрустит
(с) смешарики

вопрос то в чем?

@Korulik · 16.05.2016, 17:14 **[ТС]**

как правильно написать условие - РАБОЧЕЕ, чтобы при выборе

Delphi

1	if Avtoriz.DBLookupLogin.Text='ЛРЭС' then

работал запрос

Delphi

DataM.Query.Close;
  DataM.Query.SQL.Clear;
  SQL := 'select * from urf where code_res=2';
  DataM.Query.SQL.Text := SQL;
  DataM.Query.Open;
  end;

@qwertehok · 16.05.2016, 17:17

проверь что у тебя в Avtoriz.DBLookupLogin.Text
используй ShowMessage(Avtoriz.DBLookupLogin.Text);

@Korulik · 17.05.2016, 09:50 **[ТС]**

в Avtoriz.DBLookupLogin.Text там список выпадающий, столбец с таблицы, логины

@qwertehok · 17.05.2016, 10:01

повесь Showmessage на кнопку и проверяй

у тебя же условие не проходит, значит что-то там не так. вот и выясняй

@Korulik · 17.05.2016, 10:48 **[ТС]**

qwertehok, да, спасибо, выяснила уже)

@Korulik 0 / 0 / 1 Регистрация: 29.12.2015 Сообщений: 131
	17.05.2016, 10:48 [ТС]	19
	qwertehok, да, спасибо, выяснила уже) 0

@Korulik 0 / 0 / 1 Регистрация: 29.12.2015 Сообщений: 131
		1
	Авторизация 11.05.2016, 12:29. Показов 1063. Ответов 18 Метки нет (Все метки) Есть таблица с пользователями и паролями, форма для авторизации, как правильно будет при выборе определённого пользователя показывать запросом лишь то,что он должен видеть 0

@qwertehok 5489 / 4404 / 1076 Регистрация: 29.08.2013 Сообщений: 27,594 Записей в блоге: 3
	11.05.2016, 12:30	2
	совсем правильно? или более менее? или на уровне начинающего? 0

@Korulik 0 / 0 / 1 Регистрация: 29.12.2015 Сообщений: 131
	11.05.2016, 13:09 [ТС]	3
	Чтобы правильно работало)можно начать с уровня начинающего,пожалуйста 0

@qwertehok 5489 / 4404 / 1076 Регистрация: 29.08.2013 Сообщений: 27,594 Записей в блоге: 3
	11.05.2016, 13:14	4
	а вы уже определились как определить что он должен видеть, а что нет? есть организации в которых и админ то не должен видеть всего 0

@Korulik 0 / 0 / 1 Регистрация: 29.12.2015 Сообщений: 131
	11.05.2016, 13:21 [ТС]	5
	да, у меня всё тут просто, есть 5 подразделений, и каждый может видеть лишь своё, при введении новой записи выбор подразделения идёт. Хотелось бы так, логин/пароль верный , например, для первого подразделения, значит запросом видимо отбор записей,которые относятся к первому подразделению 0

@Korulik 0 / 0 / 1 Регистрация: 29.12.2015 Сообщений: 131
	11.05.2016, 13:45 [ТС]	7
	то есть, логин/пароль, и запрос на кнопку Вход, буду пробовать, спасибо 0

@qwertehok 5489 / 4404 / 1076 Регистрация: 29.08.2013 Сообщений: 27,594 Записей в блоге: 3
	12.05.2016, 15:13	9
	Сообщение от Korulik Мне на появлении формы вешать запрос как тебе удобно заведи себе какой-то контейнер для переменных - например стринглист и пиши туда имя пользователя\пароль и другие данные, а все компоненты сразу очищай это позволит тебе не думать о том где хранится то или иное значение. например открылась форма 50 и тебе нужно проверить логин\пароль и ты лезешь на первую форму за данными. 0

@qwertehok 5489 / 4404 / 1076 Регистрация: 29.08.2013 Сообщений: 27,594 Записей в блоге: 3
	12.05.2016, 16:08	11
	Сообщение от Korulik не воспринимает походу, без условия тупо меняет запрос ничего не понял 0

@qwertehok 5489 / 4404 / 1076 Регистрация: 29.08.2013 Сообщений: 27,594 Записей в блоге: 3
	16.05.2016, 16:50	14
	-когда я делаю вот так у меня тут хрустит -а ты не делай -как же я могу не делать, если хрустит (с) смешарики вопрос то в чем? 0

@qwertehok 5489 / 4404 / 1076 Регистрация: 29.08.2013 Сообщений: 27,594 Записей в блоге: 3
	16.05.2016, 17:17	16
	проверь что у тебя в Avtoriz.DBLookupLogin.Text используй ShowMessage(Avtoriz.DBLookupLogin.Text); 0

@Korulik 0 / 0 / 1 Регистрация: 29.12.2015 Сообщений: 131
	17.05.2016, 09:50 [ТС]	17
	в Avtoriz.DBLookupLogin.Text там список выпадающий, столбец с таблицы, логины 0

@qwertehok 5489 / 4404 / 1076 Регистрация: 29.08.2013 Сообщений: 27,594 Записей в блоге: 3
	17.05.2016, 10:01	18
	повесь Showmessage на кнопку и проверяй у тебя же условие не проходит, значит что-то там не так. вот и выясняй 1