دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

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

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

مُساهمة  mah11 في 5/8/2013, 8:09 pm

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

هذه الطريقة يمكن للمستخدم ان يغييرها اذا أراد ذلك


افتح معالج قواعد البيانات التابع لدلفي (أو دلفي خمسة الفرنسي)

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 champTypeIndex
Mot_deA12




هذا الجدول يحتوي على حقل واحد هو :

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;    //  delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, Buttons;    //  delph.forumalgerie.net

type
 TForm1 = class(TForm)
   BitBtn1: TBitBtn;    //  delph.forumalgerie.net
   Label1: TLabel;    //  delph.forumalgerie.net
   procedure FormCreate(Sender: TObject);    //  delph.forumalgerie.net
   procedure BitBtn1Click(Sender: TObject);    //  delph.forumalgerie.net
 private
 public
 end;

var
 Form1: TForm1;    //  delph.forumalgerie.net

implementation

uses UPaswordd;    //  delph.forumalgerie.net

{$R *.DFM}    //  delph.forumalgerie.net

procedure TForm1.FormCreate(Sender: TObject);
begin

Form1.Position := poScreenCenter;    //  delph.forumalgerie.net
Form1.BorderStyle := bsDialog;    //  delph.forumalgerie.net
Form1.BorderWidth := 20;    //  delph.forumalgerie.net
Form1.Color := clBtnFace;    //  delph.forumalgerie.net
Form1.BiDiMode := bdRightToLeft;    //  delph.forumalgerie.net
Form1.Font.Charset := ARABIC_CHARSET;    //  delph.forumalgerie.net
Form1.Font.Size := 12;    //  delph.forumalgerie.net
Form1.Font.Color := clBlack;    //  delph.forumalgerie.net
Form1.Font.Style := [fsBold];    //  delph.forumalgerie.net
Form1.Caption := 'برنامج كلمة السر';    //  delph.forumalgerie.net
Form1.Label1.Font.Charset := ARABIC_CHARSET;    //  delph.forumalgerie.net
Form1.Label1.Font.Size := 12;    //  delph.forumalgerie.net
Form1.Label1      .font.Color := clRed;    //  delph.forumalgerie.net
Form1.Label1.Font.Style := [fsBold];    //  delph.forumalgerie.net
Form1.Label1.Caption := 'دخول الى البرنامج';    //  delph.forumalgerie.net

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


end;    //  delph.forumalgerie.net

procedure TForm1.BitBtn1Click(Sender: TObject);    //  delph.forumalgerie.net
begin
PasswordDlg.ShowModal;   //.Show
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]    //  delph.forumalgerie.net

end;    //  delph.forumalgerie.net

end.    //  delph.forumalgerie.net

--------------------------------------------
الوحدة الثانية
---------------------------------------------
الرمز:

unit UPaswordd;    //  delph.forumalgerie.net

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls,
 StdCtrls, Buttons, Db, DBTables;    //  delph.forumalgerie.net

type
 TPasswordDlg = class(TForm)    //  delph.forumalgerie.net
   Label1: TLabel;    //  delph.forumalgerie.net
   Password: TEdit;    //  delph.forumalgerie.net
   OKBtn: TButton;    //  delph.forumalgerie.net
   CancelBtn: TButton;    //  delph.forumalgerie.net
   Table1: TTable;    //  delph.forumalgerie.net
   Table1Mot_de: TStringField;
   procedure FormClose(Sender: TObject; var Action: TCloseAction);    //  delph.forumalgerie.net
   procedure OKBtnClick(Sender: TObject);    //  delph.forumalgerie.net
   procedure Table1BeforeOpen(DataSet: TDataSet);    //  delph.forumalgerie.net
 private
 public
 end;

var
 PasswordDlg: TPasswordDlg;    //  delph.forumalgerie.net

implementation

uses Dialogs, Unit2;    //  delph.forumalgerie.net

{$R *.DFM}    //  delph.forumalgerie.net

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

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

end;    //  delph.forumalgerie.net

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

end.    //  delph.forumalgerie.net

----------------------------------------

الوحدة الثالثة
-----------------------------------------
الرمز:

unit Unit2;    //  delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls,
 Forms, Dialogs, Menus;    //  delph.forumalgerie.net

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

var
 Form2: TForm2;   //  delph.forumalgerie.net

implementation

{$R *.DFM}   //  delph.forumalgerie.net

uses StdCtrls, Buttons, Unit3;   //  delph.forumalgerie.net

procedure TForm2.Botoun1Click(Sender: TObject);   //  delph.forumalgerie.net
begin
Form3.ShowModal;   //  delph.forumalgerie.net
end;   //  delph.forumalgerie.net

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

var
  Botoun1, Botoun2: TBitBtn;

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

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

procedure TForm2.FormDestroy(Sender: TObject);   //  delph.forumalgerie.net
begin
Botoun1.Free;   //  delph.forumalgerie.net
Botoun2.Free;   //  delph.forumalgerie.net
end;   //  delph.forumalgerie.net

end.   //  delph.forumalgerie.net
-----------------------------------------
ضع على الفورم 3
TEdit
ضع على الفورم 2
TBitBtn
------------------------------------------
الوحدة الرابعة
------------------------------------------

الرمز:

unit Unit3;   //  delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   //  delph.forumalgerie.net
 StdCtrls, Buttons, Db, Grids, DBGrids;   //  delph.forumalgerie.net

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

var
 Form3: TForm3;   //  delph.forumalgerie.net

implementation

uses UPaswordd;   //  delph.forumalgerie.net

{$R *.DFM}

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

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

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

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

BitBtn2.Kind := bkOk;   //  delph.forumalgerie.net
BitBtn2.ModalResult := mrOk;   //  delph.forumalgerie.net

end;   //  delph.forumalgerie.net

end.   //  delph.forumalgerie.net



منتدى دلفي تعليم
delph.forumalgerie.net



.

mah11
Admin

عدد المساهمات : 365
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

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

رد: وكيف يمكن المستخدم ان يغيرها اذا اراد

مُساهمة  sad13 في 8/1/2014, 9:02 pm

مشكـــــور على الموضـــــوع.................

sad13
مبرمج

عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014

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

رد: وكيف يمكن المستخدم ان يغيرها اذا اراد

مُساهمة  sdk11 في 13/6/2015, 9:14 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 109
تاريخ التسجيل : 19/09/2014

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

رد: وكيف يمكن المستخدم ان يغيرها اذا اراد

مُساهمة  alla في 14/6/2015, 11:06 am

بارك الله فيك أيضا

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

alla
مبرمج مجتهد

عدد المساهمات : 675
تاريخ التسجيل : 29/07/2013

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

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


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