دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
دلفي تعليم

تعلم دلفي بالامثلة، ويوجد اكواد سورس كثيرة من أجل تعلم دلفي

  • الرئيسية
  • صفحة منتدى دلفي
  • أحدث الصور
  • التسجيل
  • دخول
مرحبا بــالزوار الكــرام يشرفني أن أتقدم إلى السادة الكرام زوار هذا المنتدى أن يتفضلوا بتسجيل معنا وبطرح انتقاداتهم ونصائحهم واني سوف أتقبل كل نقد أو نصيحة بصدر رحب مع تمنياتي للجميع بكل نجاح والتقدم والازدهار والتوفيق ونحن نسعى في تقديم هذه المواضيع بكل اخلاص وغايتنا هي نيل رضاكم وحرصا منا على بلوغ أعلى مستوى في هذه اللغة -دلفي وغيرها - وتعتبر لغات البرمجة هي الوسيلة التي تمكننا من تخاطب مع حواسيبنا فإني أنصحك بها أيها الزائر فبها وبالعلوم الاخرى بلغت الامم أعلى درجات التقدم الازدهار وان تعلم اي لغة يكون في البداية صعب لكن مع قليل من الصبر والمثابرة يصبح تعلمها ممتعا ومفيدا في آن واحد و نصيحتي أن تستعملها في خدمة البشرية جمعاء وفي الاخير تقبلوا مني فائق التقدير والاحترام
منتدى دلفي تعليم يرحب بكم ويتمنى لكم قضاء وقت ممتع مع هذه المواضيع الشييقة والتي سأعرض من خلالها مواضيع حول دلفي وهي عبارة أمثلة متعددة ومتنوعة أي كل موضوع سحتوي على مثال توضيحي يفسر ذلك الموضوع مرحبا بكم أيها الزوار الكرام زوار منتدى دلفي تعليم ويسعدنا تكرمكم بتسجيل في المنتدى

كيف تعمل مشروع بدلفي

دلفي تعليم :: منتديات البرمجة :: دلفي

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

كيف تعمل مشروع بدلفي Empty كيف تعمل مشروع بدلفي

مُساهمة  ali 26/10/2016, 10:34 am

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

كيف تعمل مشروع بدلفي

اليك الكود سورس


===================
===================
===================

الكود:
unit untpro01;{delph.forumalgerie.net}

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;{delph.forumalgerie.net}
    BitBtn2: TBitBtn;{delph.forumalgerie.net}
    Label1: TLabel;{delph.forumalgerie.net}
    procedure BitBtn1Click(Sender: TObject);{delph.forumalgerie.net}
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;{delph.forumalgerie.net}

var
  Form1: TForm1;{delph.forumalgerie.net}

implementation

uses untMotpass;{delph.forumalgerie.net}

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);{delph.forumalgerie.net}
begin
 PasswordDlg.ShowModal;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}

end.




===================
===================
===================

الكود:
unit untCangeMotdepasse;{delph.forumalgerie.net}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, DB, StdCtrls, Mask, Buttons;{delph.forumalgerie.net}

type
  TCangeMotdepasse = class(TForm)
    Label1: TLabel;{delph.forumalgerie.net}
    DBEdit1: TDBEdit;{delph.forumalgerie.net}
    DataSource1: TDataSource;{delph.forumalgerie.net}
    DBNavigator1: TDBNavigator;{delph.forumalgerie.net}
    Panel1: TPanel;{delph.forumalgerie.net}
    BitBtn1: TBitBtn;{delph.forumalgerie.net}
    Panel2: TPanel;{delph.forumalgerie.net}
    Edit1: TEdit;{delph.forumalgerie.net}
    BitBtn2: TBitBtn;{delph.forumalgerie.net}
    Label2: TLabel;{delph.forumalgerie.net}
    procedure FormShow(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn2Click(Sender: TObject);{delph.forumalgerie.net}
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;{delph.forumalgerie.net}

var
  CangeMotdepasse: TCangeMotdepasse;{delph.forumalgerie.net}

implementation

uses untDataModule;{delph.forumalgerie.net}

{$R *.dfm}

procedure TCangeMotdepasse.FormShow(Sender: TObject);{delph.forumalgerie.net}
begin
DataModule1.Table6.Open;{delph.forumalgerie.net}
panel2.Visible := true;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}

procedure TCangeMotdepasse.BitBtn2Click(Sender: TObject);{delph.forumalgerie.net}
begin
   if Edit1.Text = DataModule1.Table6Mot.Text then
   begin
    panel2.Visible := false;{delph.forumalgerie.net}
    Edit1.Text := '';{delph.forumalgerie.net}
   end else
   begin
    ShowMessage('Mot de pass incourrict');{delph.forumalgerie.net}
    panel2.Visible := true;{delph.forumalgerie.net}
    Edit1.Text := '';{delph.forumalgerie.net}
   end;{delph.forumalgerie.net}
  
end;{delph.forumalgerie.net}

end.


===================
===================
===================

الكود:
unit untDataModule;{delph.forumalgerie.net}

interface

uses
  SysUtils, Classes, DB, DBTables;{delph.forumalgerie.net}

type
  TDataModule1 = class(TDataModule)
    Table1: TTable;{delph.forumalgerie.net}
    Table1Mot: TStringField;{delph.forumalgerie.net}
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;{delph.forumalgerie.net}

var
  DataModule1: TDataModule1;{delph.forumalgerie.net}

implementation

{$R *.dfm}

end.


===================
===================
===================

الكود:
unit untHome;{delph.forumalgerie.net}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;{delph.forumalgerie.net}

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;{delph.forumalgerie.net}
    file1: TMenuItem;{delph.forumalgerie.net}
    N1: TMenuItem;{delph.forumalgerie.net}
    Exit1: TMenuItem;{delph.forumalgerie.net}
    Outils1: TMenuItem;{delph.forumalgerie.net}
    ChangeMotedepasse1: TMenuItem;{delph.forumalgerie.net}
    Gestiondestock1: TMenuItem;{delph.forumalgerie.net}
    procedure FormClose(Sender: TObject;{delph.forumalgerie.net} var Action: TCloseAction);{delph.forumalgerie.net}
    procedure Exit1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure ChangeMotedepasse1Click(Sender: TObject);{delph.forumalgerie.net}
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;{delph.forumalgerie.net}

var
  Form2: TForm2;{delph.forumalgerie.net}

implementation

uses
   untCangeMotdepasse;{delph.forumalgerie.net}

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject;{delph.forumalgerie.net} var Action: TCloseAction);{delph.forumalgerie.net}
begin
 Application.Terminate;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}

procedure TForm2.Exit1Click(Sender: TObject);{delph.forumalgerie.net}
begin
close;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}

procedure TForm2.ChangeMotedepasse1Click(Sender: TObject);{delph.forumalgerie.net}
begin
 CangeMotdepasse.ShowModal;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}

end.


===================
===================
===================

الكود:
unit untMotpass;{delph.forumalgerie.net}

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, dialogs;{delph.forumalgerie.net}

type
  TPasswordDlg = class(TForm)
    Label1: TLabel;{delph.forumalgerie.net}
    Password: TEdit;{delph.forumalgerie.net}
    OKBtn: TButton;{delph.forumalgerie.net}
    CancelBtn: TButton;{delph.forumalgerie.net}
    procedure OKBtnClick(Sender: TObject);{delph.forumalgerie.net}
  private
    { déclarations privées }
  public
    { déclarations publiques }
  end;{delph.forumalgerie.net}

var
  PasswordDlg: TPasswordDlg;{delph.forumalgerie.net}

implementation

uses untHome, untpro01, untDataModule;{delph.forumalgerie.net}

{$R *.dfm}

procedure TPasswordDlg.OKBtnClick(Sender: TObject);{delph.forumalgerie.net}
begin
 with DataModule1.Table6 do
 begin
 open;{delph.forumalgerie.net} first;{delph.forumalgerie.net}
 if Password.Text = fieldbyname('Mot').AsString then
 begin
   form2.Show;{delph.forumalgerie.net}
   PasswordDlg.Hide;{delph.forumalgerie.net}
   Form1.hide;{delph.forumalgerie.net}
 end
 else
   ShowMessage('Mot de pass incourrict');{delph.forumalgerie.net}
 Password.Text := '';{delph.forumalgerie.net}
 close;{delph.forumalgerie.net}
 end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}

end.


===================
===================
===================

ali
مبرمج مجتهد

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

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

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

- مواضيع مماثلة

دلفي تعليم :: منتديات البرمجة :: دلفي

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