Здравствуйте! Еще вопрос возник по авторизации! На всякий повторяю код моей авторизации
PHP код:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
id1,pass1: String;
id2,pass2: String;
begin
id1:='Администратор';
pass1:='5112009';
id2:='Продавец';
pass2:='';
//Администратор
if (Edit1.Text=id1) and (Edit2.Text=pass1) then
begin
Form2.N22.Visible:=False;
Form17.Constraints.MaxHeight:=533;
Form17.Constraints.MinHeight:=533;
Form17.Constraints.MaxWidth:=424;
Form17.Constraints.MinWidth:=424;
Form1.Visible:=False;
end
//Продавец
else if (Edit1.Text=id2) and (Edit2.Text=pass2) then
begin
Form2.N1.Visible:=False;
Form2.N2.Visible:=False;
Form2.N6.Visible:=False;
Form17.Constraints.MaxHeight:=370;
Form17.Constraints.MinHeight:=370;
Form17.Constraints.MaxWidth:=424;
Form17.Constraints.MinWidth:=424;
Form1.Visible:=false;
end
else
begin
if ((Edit1.Text=id1) and (Edit2.Text<>pass1))
or ((Edit1.Text=id2) and (Edit2.Text<>pass2)) then
Application.MessageBox('Введен не верный Логин или Пароль, попробуйте еще раз!','Ошибка');
end;
//Отчистка edit
if ((Edit1.Text=id1) and (Edit2.Text=pass1))
or ((Edit1.Text=id2) and (Edit2.Text=pass2)) then Form2.Visible:=True;
if ((Edit1.Text<>id1) or (Edit2.Text<>pass1))
or ((Edit1.Text<>id2) or (Edit2.Text<>pass2)) then
begin
edit1.Text:='';
edit2.Text:='';
end
else
if ((Edit1.Text=id1) and (Edit2.Text=pass1))
or ((Edit1.Text=id2) and (Edit2.Text=pass2)) then
begin
Edit1.Text:='';
Edit2.Text:='';
end;
end;
Вопрос: Мне надо сделать чтобы я мог сменить пороль Администратора и Продовца. Также логин и пороль должен записыватся в текстовый файл.
Пожалуйста! Знающим, напишите код!
Заранее спасибо!