كيف تضع كلمة مرور الى مشروعك

اذهب الى الأسفل

كيف تضع كلمة مرور الى مشروعك

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

وضع كلمة السر في المشروع

بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله

كيف تضع كلمة مرور الى مشروعك

وضع كلمة السر في المشروع بالدلفي خمسة


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

unit Unit1;  //  delph.forumalgerie.net

interface

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

type
TForm1 = class(TForm)  //  delph.forumalgerie.net
Edit1: TEdit;  //  delph.forumalgerie.net
Button1: TButton;  //  delph.forumalgerie.net
Label1: TLabel;  //  delph.forumalgerie.net
procedure FormCreate(Sender: TObject);  //  delph.forumalgerie.net
procedure Button1Click(Sender: TObject);  //  delph.forumalgerie.net
procedure Edit1KeyPress(Sender: TObject; var Key: Char);  //  delph.forumalgerie.net
private
public

end;  //  delph.forumalgerie.net

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

implementation

uses Unit2;  //  delph.forumalgerie.net

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

procedure TForm1.FormCreate(Sender: TObject);  //  delph.forumalgerie.net
begin
Label1.Caption := 'أدخل كلمة المرور';
Edit1.Text := '';  //  delph.forumalgerie.net
Button1.Caption := 'موافق';
Form1.Caption := 'كلمة المرور';
end;  //  delph.forumalgerie.net

procedure TForm1.Button1Click(Sender: TObject);  //  delph.forumalgerie.net
begin
if Edit1.Text = '1954' then
begin
Form2.Show; // or Form1.ShowModal
Form1.Hide;  //  delph.forumalgerie.net
end
else ShowMessage('كلمة المرور خاطئة');
Edit1.Text := '';  //  delph.forumalgerie.net
end;  //  delph.forumalgerie.net

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  //  delph.forumalgerie.net
begin
if key = #13 then Button1Click(Sender);  //  delph.forumalgerie.net
end;

end.  //  delph.forumalgerie.net
---------------------------
الوحدة الثانية
---------------------------
الكود:

unit Unit2;  //  delph.forumalgerie.net

interface

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

type
TForm2 = class(TForm)  //  delph.forumalgerie.net
Button1: TButton;  //  delph.forumalgerie.net
Label1: TLabel;  //  delph.forumalgerie.net
procedure FormClose(Sender: TObject; var Action: TCloseAction);  //  delph.forumalgerie.net
procedure Button1Click(Sender: TObject);  //  delph.forumalgerie.net
procedure FormCreate(Sender: TObject);  //  delph.forumalgerie.net
private
public

end;  //  delph.forumalgerie.net

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

implementation

uses Unit1;  //  delph.forumalgerie.net

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

procedure TForm2.FormClose(Sender: TObject; var Action
: TCloseAction);  //  delph.forumalgerie.net
begin
// اظهار النموذج الاول
Form1.Show;  //  delph.forumalgerie.net
end;  //  delph.forumalgerie.net

procedure TForm2.Button1Click(Sender: TObject);  //  delph.forumalgerie.net
begin
// خروج من البرنامج
Application.Terminate;  //  delph.forumalgerie.net
end;

procedure TForm2.FormCreate(Sender: TObject);  //  delph.forumalgerie.net
begin
// اغلاق البرنامج
Button1.Caption := 'خروج من البرنامج';
Form2.Caption := 'واجهة المشروع';
Label1.Caption := 'هذا مشروعي مرحبا بكم';
end;  //  delph.forumalgerie.net

end.  //  delph.forumalgerie.net


تابع الموضوع على الرابط التالي

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

وهو كتكملة للموضوع هذا


.



mah11
Admin

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

http://delph.forumalgerie.net

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

رد: كيف تضع كلمة مرور الى مشروعك

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

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

sad13
مبرمج

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

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

رد: كيف تضع كلمة مرور الى مشروعك

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

بارك الله فيك

sdk11
مبرمج مجتهد

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

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

رد: كيف تضع كلمة مرور الى مشروعك

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

وفيـــك بركة

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

alla
مبرمج مجتهد

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

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

الرجوع الى أعلى الصفحة


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