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

**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 champ	Type	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; // 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

.

sad13 8/1/2014, 9:02 pm

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

sdk11 13/6/2015, 9:14 am

بارك الله فيك

ali 14/6/2015, 11:06 am

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

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

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

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

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

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