عود ميمونة لي لكل من يريد صنع برنامج ب delphi -يتفضل وطلبه مقبول - الصفحة 2

SOFYANART · 2013-10-25, 21:58

اقتباس:

المشاركة الأصلية كتبت بواسطة ffatimato

السلام عليكم
أخي اريد منك طريقة تجعل البرنامج المصنوع بدلفي ينفذ في اي جهاز حاسوب
شكرا مسبقا

استعمل برنامج تحزيم البرامج بواسطة Install Creator Pro

من هنا

talebamara · 2013-10-31, 22:28

انا هاوي برمجة بالدلفي مبتدي و اريد كيفية انشاء تقرير بواسطة rave من خلال ما يعرض بجدول الاب و الابن اي ماستر و سو ماستر

ffatimato · 2013-11-13, 15:00

السلام عليكم
شكرا جزيلا للأخ sofyanart على المساعد جزاك الله خيرا

farid34000 · 2013-12-30, 14:48

السلام عليكم أخي.
والله استحيت كثيرا وترددت كثيرا لكي أتقدم بطلبي هذا.
الطلب هو برنامج بلغة دلفي إن أمكن مفتوح المصدر، البرنامج خاص لمصلحة تصليح الأجهزة sav يتكون من:
01-
لقب الزبون
اسمه ،
عنوانه،
الهاتف،
تاريخ ورقم وصل دخول المنتوج للمصلحة، " ادخال المعلومات اجباري"
الرقم التسلسلي،
هل هو في الضمان أم خارج الضمان
ملاحظات حول الجهاز:
02- تاريخ التصليح ورقم وصل التصليح "اجباري بعد التصليح"
معلومات عن العطب والتصليح "اجباري"
إمكانية تحرير فاتورة في حالة أن الجهاز خارج الضمان
03- تاريخ الخروج مع رقم وصل الخروج، "اجباري بعد الانتهاء"

اضافة بار كود لقراءة الرقم التسلسلي سريعا وفي حالة عدم وجود بارك كود في الأجهزة يتم إدخالها يدويا كما هو موضح أعلاه.
إمكانية البحث : عن تجهيزات زبون معين "قد يتم استلام عدة أجهزة مختلفة لزبون واحد مع معرفة الأجهزة المصلحة والغير مصلحة وتاريخ الدخول وتاريخ الخروج "
إمكانية البحث عن تجهيزات لعدة زبائن
إمكانية البحث بالتاريخ "دخول أو خروج أو الاثنين معا"
إمكانية الطباعة للفاتورة ،التقارير اليومية أوالشهرية أو السنوية، البحث.
وإن كانت لدي ملاحظات أخرى سأفيدك بها إن شاء الله.
أتمنى منكم قبول طلبي راجيا منكم الإجابة والاستجابة.
مع قبول احتراماتي لسيادتكم.

عدنان100 · 2014-01-03, 13:01

شـكرا لـك أخي

bellamina21 · 2014-01-08, 20:29

aidez moi pour realiser les autres boutons è o6 m2

كود PHP:


			
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    EditChiffres: TEdit;
    ButtonEfface: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    ButtonVirgule: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    ButtonResultat: TButton;
    ButtonDiv: TButton;
    ButtonMulti: TButton;
    ButtonMoins: TButton;
    ButtonPlus: TButton;
    Button1: TButton;
    Button9: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    procedure ButtonEffaceClick(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure ButtonVirguleClick(Sender: TObject);
    procedure ButtonPlusClick(Sender: TObject);
    procedure ButtonMoinsClick(Sender: TObject);
    procedure ButtonMultiClick(Sender: TObject);
    procedure ButtonDivClick(Sender: TObject);
    procedure ButtonResultatClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  Operande1: Real;
  Operation:string;
  m1:real;
  m2:real;
implementation

{$R *.DFM}

procedure TForm1.ButtonEffaceClick(Sender: TObject);
begin
 EditChiffres.Text:='';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  EditChiffres.Text:=EditChiffres.Text+'1'
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  EditChiffres.Text:=EditChiffres.Text+'2'
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
  EditChiffres.Text:=EditChiffres.Text+'3'
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  EditChiffres.Text:=EditChiffres.Text+'4'
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  EditChiffres.Text:=EditChiffres.Text+'5'
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
  EditChiffres.Text:=EditChiffres.Text+'6'
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 EditChiffres.Text:=EditChiffres.Text+'7'
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  EditChiffres.Text:=EditChiffres.Text+'8'
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  EditChiffres.Text:=EditChiffres.Text+'9'
end;

procedure TForm1.ButtonVirguleClick(Sender: TObject);
begin
  EditChiffres.Text:=EditChiffres.Text+','
end;

procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
 Operande1:=StrToFloat(EditChiffres.Text);
  Operation:='+';
  EditChiffres.Text:='';
end;

procedure TForm1.ButtonMoinsClick(Sender: TObject);
begin
  Operande1:=StrToFloat(EditChiffres.Text);
  Operation:='-';
  EditChiffres.Text:='';
end;

procedure TForm1.ButtonMultiClick(Sender: TObject);
begin
  Operande1:=StrToFloat(EditChiffres.Text);
  Operation:='*';
  EditChiffres.Text:='';
end;

procedure TForm1.ButtonDivClick(Sender: TObject);
begin
 Operande1:=StrToFloat(EditChiffres.Text);
  Operation:='/';
  EditChiffres.Text:='';
end;

procedure TForm1.ButtonResultatClick(Sender: TObject);
var
 Operande2:real;
begin
Operande2:=StrToFloat(EditChiffres.Text);
  if Operation='+' then
   m1:=(Operande1+Operande2);
    EditChiffres.Text:=FloatToStr(m1);
  if Operation='-' then
  m1:=(Operande1-Operande2);
   EditChiffres.Text:=FloatToStr(m1);
  if Operation='*' then
  m1:=(Operande1*Operande2);
  EditChiffres.Text:=FloatToStr(m1);
  if Operation='/' then
  m1:=(Operande1/Operande2);
   EditChiffres.Text:=FloatToStr(m1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 EditChiffres.Text:=FloatToStr(m1);
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
m2:=m1;
EditChiffres.Text:=FloatToStr(m2)
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
m1:=0;
m2:=0 ;
EditChiffres.Text:=''
end;

end.

merzoug2020 · 2014-04-18, 16:56

لدي مشكلة مع الكائن animate الموجود في win32 في دالفي 7

merzoug2020 · 2014-04-18, 19:37

اقتباس:

المشاركة الأصلية كتبت بواسطة bellamina21

aidez moi pour realiser les autres boutons è o6 m2

كود PHP:


			
unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;



type

  TForm1 = class(TForm)

    EditChiffres: TEdit;

    ButtonEfface: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    ButtonVirgule: TButton;

    Button10: TButton;

    Button11: TButton;

    Button12: TButton;

    ButtonResultat: TButton;

    ButtonDiv: TButton;

    ButtonMulti: TButton;

    ButtonMoins: TButton;

    ButtonPlus: TButton;

    Button1: TButton;

    Button9: TButton;

    Button13: TButton;

    Button14: TButton;

    Button15: TButton;

    Button16: TButton;

    Button17: TButton;

    procedure ButtonEffaceClick(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button12Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button11Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure ButtonVirguleClick(Sender: TObject);

    procedure ButtonPlusClick(Sender: TObject);

    procedure ButtonMoinsClick(Sender: TObject);

    procedure ButtonMultiClick(Sender: TObject);

    procedure ButtonDivClick(Sender: TObject);

    procedure ButtonResultatClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button14Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button13Click(Sender: TObject);

  private

    { Déclarations privées }

  public

    { Déclarations publiques }

  end;



var

  Form1: TForm1;

  Operande1: Real;

  Operation:string;

  m1:real;

  m2:real;

implementation



{$R *.DFM}



procedure TForm1.ButtonEffaceClick(Sender: TObject);

begin

 EditChiffres.Text:='';

end;



procedure TForm1.Button4Click(Sender: TObject);

begin

  EditChiffres.Text:=EditChiffres.Text+'1'

end;



procedure TForm1.Button8Click(Sender: TObject);

begin

  EditChiffres.Text:=EditChiffres.Text+'2'

end;



procedure TForm1.Button12Click(Sender: TObject);

begin

  EditChiffres.Text:=EditChiffres.Text+'3'

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

  EditChiffres.Text:=EditChiffres.Text+'4'

end;



procedure TForm1.Button7Click(Sender: TObject);

begin

  EditChiffres.Text:=EditChiffres.Text+'5'

end;



procedure TForm1.Button11Click(Sender: TObject);

begin

  EditChiffres.Text:=EditChiffres.Text+'6'

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

 EditChiffres.Text:=EditChiffres.Text+'7'

end;



procedure TForm1.Button6Click(Sender: TObject);

begin

  EditChiffres.Text:=EditChiffres.Text+'8'

end;



procedure TForm1.Button10Click(Sender: TObject);

begin

  EditChiffres.Text:=EditChiffres.Text+'9'

end;



procedure TForm1.ButtonVirguleClick(Sender: TObject);

begin

  EditChiffres.Text:=EditChiffres.Text+','

end;



procedure TForm1.ButtonPlusClick(Sender: TObject);

begin

 Operande1:=StrToFloat(EditChiffres.Text);

  Operation:='+';

  EditChiffres.Text:='';

end;



procedure TForm1.ButtonMoinsClick(Sender: TObject);

begin

  Operande1:=StrToFloat(EditChiffres.Text);

  Operation:='-';

  EditChiffres.Text:='';

end;



procedure TForm1.ButtonMultiClick(Sender: TObject);

begin

  Operande1:=StrToFloat(EditChiffres.Text);

  Operation:='*';

  EditChiffres.Text:='';

end;



procedure TForm1.ButtonDivClick(Sender: TObject);

begin

 Operande1:=StrToFloat(EditChiffres.Text);

  Operation:='/';

  EditChiffres.Text:='';

end;



procedure TForm1.ButtonResultatClick(Sender: TObject);

var

 Operande2:real;

begin

Operande2:=StrToFloat(EditChiffres.Text);

  if Operation='+' then

   m1:=(Operande1+Operande2);

    EditChiffres.Text:=FloatToStr(m1);

  if Operation='-' then

  m1:=(Operande1-Operande2);

   EditChiffres.Text:=FloatToStr(m1);

  if Operation='*' then

  m1:=(Operande1*Operande2);

  EditChiffres.Text:=FloatToStr(m1);

  if Operation='/' then

  m1:=(Operande1/Operande2);

   EditChiffres.Text:=FloatToStr(m1);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

 EditChiffres.Text:=FloatToStr(m1);

end;



procedure TForm1.Button14Click(Sender: TObject);

begin

close;

end;



procedure TForm1.Button9Click(Sender: TObject);

begin

m2:=m1;

EditChiffres.Text:=FloatToStr(m2)

end;



procedure TForm1.Button13Click(Sender: TObject);

begin

m1:=0;

m2:=0 ;

EditChiffres.Text:=''

end;



end.

أخي يخصك أن تعرف ch:string; في جهة public لكي لا تضيع القيمة التي موجودة في EditChiffres.Tex

merzoug2020 · 2014-04-18, 19:41

اقتباس:

المشاركة الأصلية كتبت بواسطة farid34000

السلام عليكم أخي.
والله استحيت كثيرا وترددت كثيرا لكي أتقدم بطلبي هذا.
الطلب هو برنامج بلغة دلفي إن أمكن مفتوح المصدر، البرنامج خاص لمصلحة تصليح الأجهزة sav يتكون من:
01-
لقب الزبون
اسمه ،
عنوانه،
الهاتف،
تاريخ ورقم وصل دخول المنتوج للمصلحة، " ادخال المعلومات اجباري"
الرقم التسلسلي،
هل هو في الضمان أم خارج الضمان
ملاحظات حول الجهاز:
02- تاريخ التصليح ورقم وصل التصليح "اجباري بعد التصليح"
معلومات عن العطب والتصليح "اجباري"
إمكانية تحرير فاتورة في حالة أن الجهاز خارج الضمان
03- تاريخ الخروج مع رقم وصل الخروج، "اجباري بعد الانتهاء"

اضافة بار كود لقراءة الرقم التسلسلي سريعا وفي حالة عدم وجود بارك كود في الأجهزة يتم إدخالها يدويا كما هو موضح أعلاه.
إمكانية البحث : عن تجهيزات زبون معين "قد يتم استلام عدة أجهزة مختلفة لزبون واحد مع معرفة الأجهزة المصلحة والغير مصلحة وتاريخ الدخول وتاريخ الخروج "
إمكانية البحث عن تجهيزات لعدة زبائن
إمكانية البحث بالتاريخ "دخول أو خروج أو الاثنين معا"
إمكانية الطباعة للفاتورة ،التقارير اليومية أوالشهرية أو السنوية، البحث.
وإن كانت لدي ملاحظات أخرى سأفيدك بها إن شاء الله.
أتمنى منكم قبول طلبي راجيا منكم الإجابة والاستجابة.
مع قبول احتراماتي لسيادتكم.

إذا أردة أخي أعمل لك برنامج حسب ماتريد ولكن يجب أن نتفاهم إذا أردة ناديني على سكيبُ: merzoug2020