Распознавание зашедшего в программу

@ben1sy · Регистрация: 30.05.2013

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

Уважаемые обитатели форума, делаю прогу для диспетчера, препод не может помочь с решением проблемы, помогите пожалуйста!

Собственно суть:
У программы сделана регистрация диспетчеров, но кто именно зашел не показывает (хотелось чтобы ФИО диспетчера выводилось на главной форме в caption) и в форме "открыть путевой лист(FormOpen)" в edit'е диспетчер;
В этой же форме есть DBlookComboBox с номером задания, чтобы при выборе определенного номера, в строку с этим номером в столбец "состояние задание" добавлялся текст 'Выполняется', в форму задания(FormZadania).

@Waddonator · 30.05.2013, 15:32

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

хотелось чтобы ФИО диспетчера выводилось на главной форме в captionи в форме "открыть путевой лист(FormOpen)" в edit'е диспетчер

Удобнее изменить проверку введенных логина и пароля:

SQL

1	SELECT [ФИОдиспетчера] FROM [Users] WHERE [UserName]=:param1 AND [UserPass]=:param2

где param1 и param2 введенные пользователем логин и пароль. Если все правильно - то в выборке будет одна запись (ну если логины и пароли не посторяются), если пусто - то пользователь ввел неправильные данные.
И не нужно бегать по всей базе и сравнивать.

А далее из любой части программы можно получить значение этого [ФИОдиспетчера]. Например, перед открытием FormGeneral:

Delphi

...
FormGeneral.Caption:=ADODataSetUserTable.FieldValues['ФИОдиспетчера'];
FormOpen.EditDisp.Text:=ADODataSetUserTable.FieldValues['ФИОдиспетчера'];
FormGeneral.Show;
...

@ben1sy · 30.05.2013, 16:19 **[ТС]**

Значение [ФИОдиспетчера] рабатают и в caption и edit показывает, но я не могу сделать проверку пароля, то есть при любом Логине можно зайти без пароля.

вот код

procedure TFormAutor.BitBtnEnterClick(Sender: TObject);

var
param1,param2:string;

begin
param1:=DBLookupComboBox1.Text;
param2:=EditPassword.Text;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT [ФИОдиспетчера] FROM [Users] WHERE [UserName]=:param1 AND [UserPass]=:param2');
ADOQuery1.Open;

if ADODataSetUserTable.Recordset.RecordCount > 0 then
begin
ShowMessage('Вы вошли');
FormGeneral.Show;
end
else ShowMessage('Неправильно введены Логин и Пароль');

FormGeneral.Caption:=ADODataSetUserTable.FieldValues['ФИОдиспетчера'];
FormOpen.EditDisp.Text:=ADODataSetUserTable.FieldValues['ФИОдиспетчера'];
FormGeneral.Show;

end;

@Waddonator · 30.05.2013, 16:35

ben1sy, вы значения не присвоили параметрам перед тем, как делаете Open:

Delphi

...
ADOQuery1.Parameters.ParamByName('param1').Value:=EditLogin.Text; //В той версии, что вы сбрасывали нет DBLookUpComboBox
ADOQuery1.Parameters.ParamByName('param2').Value:=EditPassword.Text;
ADOQuery1.Open;
...

а объявление переменных и присвоение им значений - это не нужно:

Delphi

var
param1,param2:string;
//и
param1:=DBLookupComboBox1.Text;
param2:=EditPassword.Text;

@ben1sy · 30.05.2013, 17:05 **[ТС]**

Сделал как ты сказал

Delphi

procedure TFormAutor.BitBtnEnterClick(Sender: TObject);
begin
ADOQuery1.Parameters.ParamByName('param1').Value:=DBLookupComboBox1.Text;
ADOQuery1.Parameters.ParamByName('param2').Value:=EditPassword.Text;
ADOQuery1.Open;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT [ÔÈÎäèñïåò÷åðà] FROM [Users] WHERE [UserName]=:param1 AND [UserPass]=:param2');
ADOQuery1.Open;
 
if ADODataSetUserTable.Recordset.RecordCount > 0 then
begin
ShowMessage('Âû âîøëè');
FormGeneral.Show;
end
else ShowMessage('Íåïðàâèëüíî ââåäåíû Login Pass. Ïîæàëóéñòà, ïðîéäèòå ðåãèñòðàöèþ');
 
FormGeneral.Caption:=ADODataSetUserTable.FieldValues['ÔÈÎäèñïåò÷åðà'];
FormOpen.EditDisp.Text:=ADODataSetUserTable.FieldValues['ÔÈÎäèñïåò÷åðà'];
FormGeneral.Show;
 
end;

но результат не изменился(((

@Waddonator · 30.05.2013, 17:08

DataSetUser

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

Сделал как ты сказал

нет.

Delphi

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT [ФИОдиспетчера] FROM [Users] WHERE [UserName]=:param1 AND [UserPass]=:param2');
ADOQuery1.Parameters.ParamByName('param1').Value:=DBLookupComboBox1.Text;
ADOQuery1.Parameters.ParamByName('param2').Value:=EditPassword.Text;
ADOQuery1.Open;

А дальше?

Delphi

if ADOQuery1.Recordset.RecordCount > 0 then
begin
   ShowMessage(Вы вошли');
   FormGeneral.Caption:=ADOQuery1.FieldValues['ФИОдиспетчера'];
   FormOpen.EditDisp.Text:=ADOQuery1.FieldValues['ФИОдиспетчера'];
   FormGeneral.Show;
end
else ShowMessage('Неправильно введены Логин и Пароль');

@ben1sy · 30.05.2013, 18:04 **[ТС]**

Большое спасибо, теперь работает!!

@ben1sy 0 / 0 / 0 Регистрация: 30.05.2013 Сообщений: 15
	30.05.2013, 16:19 [ТС]	3
	Значение [ФИОдиспетчера] рабатают и в caption и edit показывает, но я не могу сделать проверку пароля, то есть при любом Логине можно зайти без пароля. вот код procedure TFormAutor.BitBtnEnterClick(Sender: TObject); var param1,param2:string; begin param1:=DBLookupComboBox1.Text; param2:=EditPassword.Text; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT [ФИОдиспетчера] FROM [Users] WHERE [UserName]=:param1 AND [UserPass]=:param2'); ADOQuery1.Open; if ADODataSetUserTable.Recordset.RecordCount > 0 then begin ShowMessage('Вы вошли'); FormGeneral.Show; end else ShowMessage('Неправильно введены Логин и Пароль'); FormGeneral.Caption:=ADODataSetUserTable.FieldValues['ФИОдиспетчера']; FormOpen.EditDisp.Text:=ADODataSetUserTable.FieldValues['ФИОдиспетчера']; FormGeneral.Show; end; 0

@ben1sy 0 / 0 / 0 Регистрация: 30.05.2013 Сообщений: 15
	30.05.2013, 18:04 [ТС]	7
	Большое спасибо, теперь работает!! 0