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

**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

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

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

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

.

sad13 8/1/2014, 9:00 pm

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

sdk11 13/6/2015, 9:13 am

بارك الله فيك

ali 14/6/2015, 11:38 am

وفيـــك بركة

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

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

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

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

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