[6666]

сделал пароль:

Код:

Procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
 
begin
if edit3.Text='123' then
begin
form2.SpeedButton4.Enabled:=true;
form2.SpeedButton5.Enabled:=true;
Form2.SpeedButton7.Enabled:=true;
Form2.SpeedButton8.Enabled:=true;
Form2.SpeedButton1.Enabled:=false;
 Form2.SpeedButton9.Enabled:=true;
   Form2.SpeedButton10.Enabled:=true;
 
   Form2.SpeedButton12.Enabled:=true;
   SpeedButton2.Visible:=true;
   SpeedButton1.Visible:=false;
end
else Label6.Caption:='Не верно указано имя пользователя или пароль';
exit;
 begin
 begin
if edit2.Text='admin' then
begin
polzovatel:=Edit2.Text;
//form1.StatusBar1.Panels.Items[2].Text:='Преподаватель:  '+edit2.Text+' ;
form2.SpeedButton4.Enabled:=true;
form2.SpeedButton5.Enabled:=true;
Form2.SpeedButton7.Enabled:=true;
Form2.SpeedButton8.Enabled:=true;
Form2.SpeedButton1.Enabled:=false;
 Form2.SpeedButton9.Enabled:=true;
 Form2.SpeedButton10.Enabled:=true;
 Form2.SpeedButton12.Enabled:=true;
 
 Form2.SpeedButton12.Enabled:=false;
 Edit2.Text:='';
 Button1.Enabled:=false;
end
else Label6.Caption:='Не верно указано имя пользователя или пароль';
exit;
  end;
 
  close;
 
end;

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

[Pilot_Red]

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

сделал пароль:



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

Ааааа...........пфффффффффффффффффффффф ..........фывдлоькнптдлжыьарябждшпьрихдлпаьтчждвым лпбьждияпальрмздвшсзптнщеакплизщамхидызшотечвзщрас лкопхзщшвыотризящвуошкп8хрчз

[6666]

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

Ааааа...........пфффффффффффффффффффффф ..........фывдлоькнптдлжыьарябждшпьрихдлпаьтчждвым лпбьждияпальрмздвшсзптнщеакплизщамхидызшотечвзщрас лкопхзщшвыотризящвуошкп8хрчз

это вообще к чему щас было?

[Pilot_Red]

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

это вообще к чему щас было?

просто я хотел уточнить задание, и у меня замкнуло в мозгу что-то
попытка № 2
Вы говорите сделали пароль- какой пароль, где он...?
В чем проблема в коде?
В общем не понятно что нужно сделать, вообще!!!!!

[6666]

пароль на разблокирование кнопок. пароль в цитате т.е. процедура. на форме 2 edita первый пароль в данном случае "123" и имя в данном случае "admin". возникла проблема не могу понять как сделать смену пароля, чтобы "123" поменять. не могли бы подсказать процедуру?

[Pilot_Red]

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

пароль на разблокирование кнопок. пароль в цитате т.е. процедура. на форме 2 edita первый пароль в данном случае "123" и имя в данном случае "admin". возникла проблема не могу понять как сделать смену пароля, чтобы "123" поменять. не могли бы подсказать процедуру?

ну... сначала нужно выяснить одну вещь.
Новый пароль будет действовать после следующего запуска программы?
Если да, то его нужно где-то хранить. В реестре, в файле.