كيف تعمل مشروع بدلفي
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
كيف تعمل مشروع بدلفي
بسم الله الرحمن الرحيم
الصلاة والسلام رسول الله
كيف تعمل مشروع بدلفي
اليك الكود سورس
===================
===================
===================
===================
===================
===================
===================
===================
===================
===================
===================
===================
===================
===================
===================
===================
===================
===================
الصلاة والسلام رسول الله
كيف تعمل مشروع بدلفي
اليك الكود سورس
===================
===================
===================
- الكود:
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
مواضيع مماثلة
» كيفية استعمال شرط بدلفي
» تغيير لغة بدلفي
» انشاء ملف نصي بدلفي
» برمجة حاسبة بدلفي
» كيف تنشأ دالة بدلفي
» تغيير لغة بدلفي
» انشاء ملف نصي بدلفي
» برمجة حاسبة بدلفي
» كيف تنشأ دالة بدلفي
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى