دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  alla في 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.


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

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

alla
مبرمج مجتهد

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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