-
الإعلانات
-
تسجيل عضوية جديدة في المنتدى 01/31/2016
السلام عليكم ورحمة الله وبركاته عزيزي العضو الجديد : حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة ) فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK) وقم بتفعيل إشتراككم من هناك
-

diali
اعضاء جدد-
عدد المشاركات
17 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
-1 مقبولعن diali
-
الرتبة
عضو جديد
- تاريخ الميلاد 08/26/1964
معلومات الملف الشخصي
- الجنس ذكر
- الدولة : الجزائر
-
السلام عليكم السؤال ما زال مطروحا هل من مجيب؟
-
diali بدأ بمتابعة كيف يمكنني تحديد عدد الأشخاص في QuicKreport
-
السلام عليكم لقد واجهتني مشكلة في طباعة ورقة بـ: QuicKreport، حيث أردت أن أطبع الأشخاص الموجودين في قاعدة البيانات وعددهم أكثر من 50 شخص، حيث يكون في كل ورقة 20 شخص فقط، ولكل شخص مبلغ من المال، و في آخر كل صفحة يكون مجموع مبلغ المال و يترتب على ذلك ترحيل مجموع مبلغ المال الورقة الأولى للورقة الثانية وهكذا بالنسبة لباقي الورقات الأخرى.
-
جرب هذا الكود المعدل والبسيط جدا procedure TForm1.Button1Click(Sender: TObject); var datefrom, dateto : TDateTime; Jour,Totaldays : integer; begin datefrom := DateTimePicker1.Date; //EncodeDate(2010, 2, 1); // feb =28 dateto := DateTimePicker2.Date; //EncodeDate(2010, 3, 1); // March = 31 jour:=1; Totaldays := DaysBetween(datefrom,dateto+jour);// just some hacks if Totaldays=28 then Totaldays:=30 else if Totaldays=31 then Totaldays:=30 ;// if dateto < datefrom then begin showmessage('فترة التاريخ غير صالحة'); exit; end; ShowMessage(format('Total days = %d',[Totaldays])); end;
-
يا أخي عندما تريد إظهار الفورم لاتستعمل خاصية ....Form1.show بل أستعمل .....Form1.ShowModal
-
السلام عليكم يا أخي أرشد إلى التالي: أولا قم بتغيير الخيارات الإقليمية و أجعل الأعداد تظهر كالتالي : 1.122.115,00 وفي الكود سورس لكي تجعل العدد يظهر لك مثل هذا : 2.588,00 قم بالتالي: edit1.Text:=floattostrf(montant,ffnumber,18,2); montant هو متغير فأنت حر في إختياره والسلام.
- 3 ردود
-
-1
-
ماهو الكود او الدالة المناسبة لاظهار رقمين بعد الفاصلة فقط
diali رد على hgerdaine85's موضوع في لغة Delphi
السلام عليكم ورحمة الله وبركاته جرب الكود التالي: var a,b,c:real; begin a:= strtofloat(edit1.text); b:= strtofloat(edit2.text); c:=a/b; edit3.text:=floattostrf(c,ffnumber,18,2); end; -
السلام عليكم مثل ما قاله أخي عبد العزيز و هناك طريقة أخرى var mon1,mon2,resul:real; begin mon1:= StrToFloat(dbedit1.text); mon2:= StrToFloat(dbedit2.text); begin resul:=mon1+mon2; dbedit3.text:=floattostrf(resul,ffnumber,18,2); end; end;procedure TForm1.Button1Click(Sender: TObject);
-
دالة حساب نسبة إقتطاع الضمان الإجتماعي من الأجر بالجزائر
diali رد على saiddsa3980's موضوع في لغة Delphi
السلام عليكم و رحمة الله و براكاته إليك يا أخي هذه المحاولة: begin; result:=trunc(v); if(result mod 10)<5 then result:=result-(result mod 10) else result:=result+10-(result mod 10); end; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var mont :real; begin mont:=strtofloat(edit1.text); edit2.Text:=floattostrf(arrendi(mont),ffnumber,18,2); end;FUNCTION arrendi(v:real):integer; -
السلام عليكم ولكن الطريقة التي ذكرت سابقا تعمل جيدا، خاصة عندما نبحث عن الجزء من الكلمة مع الكود التالي: table1.open; Table1.Filter:='Nom='+ quotedstr(edit1.text+'*'); Table5.Filtered:= true;
-
السلام عليكم ورحمة الله و بركاته أريد معرفة الطريقة الصحيحة التي تستعمل في البحث، علما أنني أستعمل الطريقة التالية : Table1.open; Table1.filter:='Code='+Edit1.Text; Table1.filtered:=True; if Table5.Eof then begin Showmessage('Code Non Trouvé); Edit1.SetFocus; end else begin Edit2.Text:=Table1.Fieldvalues['Nom']; Table1.filter:=''; Table5.filtered:=false; end;
-
حاولت ألا أرفع جميع الفورمات إلى الذاكرة مع بداية البرنامج ولكن عندما أقوم بإظهار نافذة من النوافذ عن طريق ShowModal تظهر لي رسالة خطأ.
-
السلام عليكم قمت بعمل برنامج بدلفيي 5 يحتوي تقريبا على 20 فورم ولكن عند تنفيذ البرنامج يأخذ وقت كبير ماذا أفعل لحل هذه المشكلة?
-
في الدلفي 5 مثلا إستعمل : QuickReport
-
يا أخي هل ممكن إفادتنا بهذا البرنامج