منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  التسجيلالتسجيل  دخولدخول  

شاطر | 
 

 كلمة مرور مشاريع دلفي

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ben taib allaa



عدد المساهمات : 64
نقاط : 182
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مُساهمةموضوع: كلمة مرور مشاريع دلفي   الأربعاء أبريل 29, 2015 7:01 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 de passe principal :
انقر على ...
Ok

----------------------------
انقر على ...
Enregistrer sous...
حفظ الملف باسم
(Mot1)
مع البرنامج أي في نفس المجلد

اغلاق المعالج

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

انشيء مشروع جديد باسمه و احفظه مع ملف قاعدة البيانات أي في نفس المجلد ثم

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

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

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


ضع على الفورم هذه العناصر

Label1
BitBtn1

-------------------------
الوحدة الاولى
------------------------


الكود:


unit UTest;//  delph.forumalgerie.net

interface

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

type
TForm1 = class(TForm)//  delph.forumalgerie.net
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;//  delph.forumalgerie.net

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

implementation

uses UPaswordd;//  delph.forumalgerie.net

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

procedure TForm1.FormCreate(Sender: TObject);//  delph.forumalgerie.net
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
:=
'
برنامج كلمة السر
'
;

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
:=
'
دخول الى البرنامج
'
;

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


end;//  delph.forumalgerie.net

procedure TForm1.BitBtn1Click(Sender: TObject);//  delph.forumalgerie.net
begin
PasswordDlg.ShowModal; //.Show;//  delph.forumalgerie.net
http://Form1.Hide;//  delph.forumalgerie.net

end;//  delph.forumalgerie.net

end.//  delph.forumalgerie.net



-----------------------------------------------
الوحدة الثانية
-----------------------------------------------


الكود:


unit UPaswordd;//  delph.forumalgerie.net

interface

uses Windows, SysUtils, Classes, Graphics, Forms, //  delph.forumalgerie.net
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;//  delph.forumalgerie.net
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;//  delph.forumalgerie.net


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

implementation

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

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

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

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
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
(
'
كلمة السر غير صحيحة
'
)
;
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,//  delph.forumalgerie.net
Forms, Dialogs, Menus;//  delph.forumalgerie.net


type
TForm2 = class(TForm)//  delph.forumalgerie.net
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
public
end;//  delph.forumalgerie.net


var
Form2: TForm2;

implementation

{$R *.DFM}

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

procedure TForm2.FormCreate(Sender: TObject);//  delph.forumalgerie.net
begin
Botoun1 := TBitBtn.Create(self);//  delph.forumalgerie.net
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
:=
'
تغيير كلمة السر
'
;
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
:=
'خروج من البرنامج
'
;
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, //  delph.forumalgerie.net
Forms, Dialogs, StdCtrls, Buttons, Db, Grids, DBGrids;//  delph.forumalgerie.net

type
TForm3 = class(TForm)
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
public
end;//  delph.forumalgerie.net


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

implementation

uses UPaswordd;//  delph.forumalgerie.net

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

procedure TForm3.BitBtn1Click(Sender: TObject);//  delph.forumalgerie.net
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
(
'
كلمة السر غير صحيحة
'
)
;
Edit1.Text := '';
end;//  delph.forumalgerie.net

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
('
الكلمتان غير متسوايتان
');
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
:=
'تغيير كلمة السر';
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


عدل سابقا من قبل ben taib allaa في الأربعاء أبريل 29, 2015 7:21 am عدل 1 مرات (السبب : تم تغيير العنوان من كلمة مرور لمشاريع دلفي إلى كلمة مرور مشاريع دلفي)
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
 
كلمة مرور مشاريع دلفي
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: