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

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

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