كيف يمكن المستخدم ان يغيركلمة المرور اذا اراد ؟

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيف يمكن المستخدم ان يغيركلمة المرور اذا اراد ؟

مُساهمة  alla23 في السبت أكتوبر 22, 2016 10:42 am

كيف يمكن المستخدم ان يغيركلمة المرور اذا اراد ؟

هذه الطريقة يمكن للمستخدم ان يغييرها اذا أراد ذلك
--------------------------------------------------------------------
افتح معالج قواعد البيانات التابع لدلفي (أو دلفي خمسة الفرنسي)
Module Base de données
اتجه الى ...
Fichier\Nouveau\Table...
من النافذة ...
Création de table
ثم الى ...
Paradox 7
ثم موافق
OK
من النافذة
----------------------------------------------
Création de table Paradox 7 : ( Sane titre )
 وصف الحقول
Description des champs:
نوعية الحقول
---------------------------------------
 | Nom de champ | Type | Taille | Index |
---------------------------------------
 | Mot_de | A | 12 | |
---------------------------------------
هذا الجدول يحتوي على حقل واحد هو :
Mot_de
نوعه حرفي أي سلسلة حرفية ورقمية و حجمه 12 . تستطيع الزيادة أو نقصان في الحجم
---------------------------------------
خصائص الجدول
Propriiétés de table :
تحديد كلمة السر
Mot de passe
انقر على ...
Définir ...

----------------------------
كتابة كلمة السر : 19541962
Mot depasse principal :
اعادة كتابة كلمة السر : 19541962
Vérifier le mot depasse principal :
انقر على ...
Ok
----------------------------
انقر على ...
Enregistrer sous...
حفظ الملف باسم (Mot1) مع البرنامج أي في نفس المجلد
اغلاق المعالج

--------------------------------------------
النموذج او الفورم
PasswordDlg
ضع عليه
Table1
وانقر على تابل نقرتين
ظهور المربع التالي
PasswordDlg.Table1
انقر باليمنى واختر من القائمة تالي
Ajouter tous les champs
واغلقه

----------------------------------------
انشيء مشروع جديد باسمه و احفظه مع ملف قاعدة البيانات أي في نفس المجلد ثم
أشر الى
Fichier\Nouveau
ظهور مربع الحوار هذا
Nouveaux éléments
من مربع الحوار حدد تبويب هذا
Dialogues
من مربع الحوار حدد هذا
Dialogue Mot de passe
انقر الزر موافق
OK

ضع على الفورم هذه العناصر
Label1
BitBtn1
----------------------------------
الوحدة الاولى
------------------------
unit UTest;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, Buttons;

type
 TForm1 = class(TForm)
 BitBtn1: TBitBtn;
 Label1: TLabel;
 procedure FormCreate(Sender: TObject);
 procedure BitBtn1Click(Sender: TObject);
 private
 { Déclarations privées }
 public
 { Déclarations publiques }
 end;

var
 Form1: TForm1;

implementation

uses UPaswordd;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin

 Form1.Position := poScreenCenter;
 Form1.BorderStyle := bsDialog;
 Form1.BorderWidth := 20;
 Form1.Color := clBtnFace;
 Form1.BiDiMode := bdRightToLeft;
 Form1.Font.Charset := ARABIC_CHARSET;
 Form1.Font.Size := 12;
 Form1.Font.Color := clBlack;
 Form1.Font.Style := [fsBold];
 Form1.Caption := 'برنامج كلمة السر';

 Form1.Label1.Font.Charset := ARABIC_CHARSET;
 Form1.Label1.Font.Size := 12;
 Form1.Label1 .font.Color := clRed;
 Form1.Label1.Font.Style := [fsBold];
 Form1.Label1.Caption := 'دخول الى البرنامج';

 Form1.BitBtn1.Kind := bkOk;
 Form1.BitBtn1.ModalResult := mrOk;
 Form1.BitBtn1.Caption := 'دخول';


end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 PasswordDlg.ShowModal; //.Show;


end;

end.


--------------------------------------------------------
 الوحدة الثانية
--------------------------------------------------------
unit UPaswordd;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls,
 StdCtrls, Buttons, Db, DBTables;

type
 TPasswordDlg = class(TForm)
 Label1: TLabel;
 Password: TEdit;
 OKBtn: TButton;
 CancelBtn: TButton;
 Table1: TTable;
 Table1Mot_de: TStringField;
 procedure FormClose(Sender: TObject; var Action: TCloseAction);
 procedure OKBtnClick(Sender: TObject);
 procedure Table1BeforeOpen(DataSet: TDataSet);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 PasswordDlg: TPasswordDlg;

implementation

uses Dialogs, Unit2;

{$R *.DFM}

procedure TPasswordDlg.FormClose(Sender: TObject;
 var Action: TCloseAction);
begin
 // Form1.
end;

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
 Table1.DatabaseName := '';
 Table1.TableName := 'Mot1.db';
 Table1.Open;
 Table1.First;
 if Password.Text = Table1Mot_de.Value then
 begin
 Form2.Show;
 PasswordDlg.Hide;
 end else
 ShowMessage('كلمة السر غير صحيحة');
 Password.Text := '';

end;

procedure TPasswordDlg.Table1BeforeOpen(DataSet: TDataSet);
begin
 Session.AddPassword('19541962');
end;

end.

--------------------------------------------------------------
الوحدة الثالثة
--------------------------------------------------------------
unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls,
 Forms, Dialogs, Menus;

type
 TForm2 = class(TForm)
 procedure FormClose(Sender: TObject; var Action: TCloseAction);
 procedure FormCreate(Sender: TObject);
 procedure FormDestroy(Sender: TObject);
 procedure Botoun1Click(Sender: TObject);
 private
 { Déclarations privées }
 public
 { Déclarations publiques }
 end;

var
 Form2: TForm2;

implementation

{$R *.DFM}

uses StdCtrls, Buttons, Unit3;

procedure TForm2.Botoun1Click(Sender: TObject);
begin
 Form3.ShowModal;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Application.Terminate;
end;

var
 Botoun1, Botoun2: TBitBtn;

procedure TForm2.FormCreate(Sender: TObject);
begin
 Botoun1 := TBitBtn.Create(self);
 Botoun1.Parent := Form2;
 Botoun1.Left := 50;
 Botoun1.Top := 100;
 Botoun1.Height := 35;
 Botoun1.Width := 140;
 Botoun1.Kind := bkOk;
 Botoun1.ModalResult := mrOk;
 Botoun1.Font.Style := [fsBold];
 Botoun1.Cursor := crHandPoint;
 Botoun1.Caption := 'تغيير كلمة السر';
 Botoun1.OnClick := Botoun1Click;

 Botoun2 := TBitBtn.Create(self);
 Botoun2.Parent := Form2;
 Botoun2.Left := 200;
 Botoun2.Top := 100;
 Botoun2.Height := 35;
 Botoun2.Width := 140;
 Botoun2.Kind := bkClose;
 Botoun2.ModalResult := mrNone;
 Botoun2.Font.Style := [fsBold];
 Botoun2.Cursor := crHandPoint;
 Botoun2.Caption := 'خروج من البرنامج';
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
 Botoun1.Free;
 Botoun2.Free;
end;

end.
-----------------------------------------------------------------
ضع على الفورم 3
TEdit
ضع على الفورم 2
TBitBtn
-----------------------------------------------------------------
الوحدة الرابعة
 ----------------------------------------------------------------
unit Unit3;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, Buttons, Db, Grids, DBGrids;

type
 TForm3 = class(TForm)
 Edit1: TEdit;
 Edit2: TEdit;
 Edit3: TEdit;
 BitBtn1: TBitBtn;
 BitBtn2: TBitBtn;
 procedure BitBtn1Click(Sender: TObject);
 procedure BitBtn2Click(Sender: TObject);
 procedure FormShow(Sender: TObject);
 procedure FormCreate(Sender: TObject);
 private
 { Déclarations privées }
 public
 { Déclarations publiques }
 end;

var
 Form3: TForm3;

implementation

uses UPaswordd;

{$R *.DFM}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
 PasswordDlg.Table1.Open;
 PasswordDlg.Table1.first;
 if Edit1.Text = PasswordDlg.Table1Mot_de.Value then
 begin
 Edit1.Visible := false;
 Edit2.Visible := true;
 Edit3.Visible := true;
 BitBtn1.Visible := false;
 BitBtn2.Visible := true;
 end else
 ShowMessage('كلمة السر غير صحيحة');
 Edit1.Text := '';
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
 with PasswordDlg do
 begin
 if Edit3.Text = Edit2.Text then
 begin
 Table1.First;
 if Table1Mot_de.Value <> '' then Table1.Delete;
 Table1.First;
 Table1.Append;
 Table1Mot_de.Value := Edit2.Text;
 Table1.Post;
 end else
 ShowMessage('الكلمتان غير متسوايتان');
 end;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
 Edit1.Visible := true;
 Edit2.Visible := false;
 Edit3.Visible := false;
 BitBtn1.Visible := true;
 BitBtn2.Visible := false;
 Edit1.Text := '';
 Edit2.Text := '';
 Edit3.Text := '';
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
 Form3.Caption := 'تغيير كلمة السر';
 BitBtn1.Kind := bkOk;
 BitBtn1.ModalResult := mrNone;

 BitBtn2.Kind := bkOk;
 BitBtn2.ModalResult := mrOk;

end;

end.

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى