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

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

شاطر | 
 

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

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



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

مُساهمةموضوع: وضع كلمة السر في المشروع   الأربعاء أبريل 29, 2015 6:03 am

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

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

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

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

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


الكود:

unit Unit1; //  delphi

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,  //  delphi
Controls, Forms, Dialogs, StdCtrls; //  delphi

type
TForm1 = class(TForm)
Edit1: TEdit; //  delphi
Button1: TButton; //  delphi
Label1: TLabel; //  delphi
procedure FormCreate(Sender: TObject); //  delphi
procedure Button1Click(Sender: TObject); //  delphi
procedure Edit1KeyPress(Sender: TObject; var Key: Char); //  delphi
private
{ Déclarations privées } //  delphi
public
{ Déclarations publiques } //  delphi
end;

var
Form1: TForm1; //  delphi

implementation

uses Unit2; //  delphi

{$R *.DFM} //  delphi

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

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

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

end.  //  delph.forumalgerie.net


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


الكود:

unit Unit2;  //  delph.forumalgerie.net

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, //  delphi
 Controls, Forms, Dialogs, StdCtrls; //  delphi

type
TForm2 = class(TForm)  //  delph.forumalgerie.net
Button1: TButton; //  delphi
Label1: TLabel; //  delphi
procedure FormClose(Sender: TObject; var Action: TCloseAction); //  delphi
procedure Button1Click(Sender: TObject); //  delphi
procedure FormCreate(Sender: TObject); //  delphi
private
{ Déclarations privées } //  delphi
public
{ Déclarations publiques } //  delphi
end; //  delph.forumalgerie.net

var
Form2: TForm2; //  delphi

implementation

uses Unit1; //  delphi

{$R *.DFM} //  delphi

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

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

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

end. //  delph.forumalgerie.net

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

لمزيد من المعلومات المنتدى
delph.forumalgerie.net

.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
 
وضع كلمة السر في المشروع
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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