الرئيسية    المنتدى     أرشيف المقالات     المكتبة     رفع الصور    إتصل بنا
عروة نت - المنتدى - كل المشاركات
   كل المشاركات (medreg)


(1) 2 3 »


medreg
رد: طلب مساعدة في برنامج حساب السن
#1
عضو نشط
مشترك منذ:
2007/9/4 10:59
الردود: 24
غير متصل الآن
السلام عليكم اخي
اولاً انا لست خبير في البرمجة لكن مبتدئ واقل منك لأنني لم ادرس البرمجة قط وبفضل المنتديات العربية استطعت اخذ بعض المعلومات عن البرمجة ولا زلت ابحث
ومشكلتك حسب ما ظهر لي هي في السطر الذي يحمل
عبارة
NowYear:=NowYear-1;



procedure TForm1.Button1Click(Sender: TObject);
var
  NowYear, NowMonth, NowDay: Word;
  Year, Month, Day: Word;
  YearsOld,monthold,dayold: Word;
begin
  if Edit1.Text<>'' then
      begin
        DecodeDate(Now, NowYear, NowMonth, NowDay);
        DecodeDate(StrToDateTime(Edit1.Text), Year, Month, Day);
        if Nowyear = Year then YearsOld :=0;
          if (nowday > day) or (nowday = day) then
               dayold :=nowday - day
          else nowday := nowday + 30;
            dayold :=nowday -day;
          //  NowMonth :=NowMonth -1;
      end;
    if (NowMonth > Month) or (NowMonth = Month) then
      begin
        monthold :=NowMonth - Month;
        end
       else
        NowMonth :=NowMonth +12;
        monthold :=NowMonth-month;
        NowYear :=NowYear;

     if  (NowYear = Year) then YearsOld:=0 else
     YearsOld := NowYear - Year;


   Label2.Caption:=IntToStr(YearsOld)+' years old';
   label3.Caption :=inttostr(monthold);
   label4.Caption :=inttostr(dayold);
end;

end.
بدلا من كتابة
NowYear:=NowYear- 1;
أكتب
NowYear:=NowYear;
انشاء الله اكون قد اصبت
وبالتوفيقإقتباس :

ياسر محمد علي كتب:
قمت بعمل برنامج بسيط لحساب عمر الانسان اعتماد علي تاريخ الميلاد
و تم تجربة البرنامج وتمت النتيجة صحيحة و لكن عند ادخال تاريخ ميلاد في نفس العام كا يظهر عدد السنوات خطأ
مثال
25/10/1970 يعطي نتيجة صحيحة
25/6/2010 يعطي نتيجة خطأ و مرفق البرنامح و هو غير منظم الشكل فعزرا
فمن لدية الحل يخبرني و يصحح البرنامج

أرسلت بتاريخ: 8/6 13:15
خيارات المشاركة وتحويلها إلى تطبيقات أخرى خيارات


medreg
ماهي افضل طريقة لربط 3جداول مع بعض
#2
عضو نشط
مشترك منذ:
2007/9/4 10:59
الردود: 24
غير متصل الآن
السلام عليكم ورحمة الله تعالى وبركاته
لدي مشكلة في ربط 3 جداول مع بعض علما انني استعمل قاعدة البيانات Absolute Database و نسخة الدلفي7
لدي الجدول الأول pers.db والحقل المفتاح هو PS_CD من نوع SMALLINT واسم الجدول AbsTable1
والجدول الثاني Poste.Db والحقل المفتاح هو PT_CD من نوع string واسم الجدول AbsTable2
والجدول الثالث Rubrique.db والحقل المفتاح هو RB_CD من نوع string واسم الجدول AbsTable3
المطلوب هو ربط abstable2 بـ Abstable3
بمعنى احتاج لمعطيات Abstable3 في كل سجلات AbdTable2 تلقائيا ومن خلال الضغط على زر بحيث استطيع ان اغير المعطيات من دون ان يؤثر عليها في الجدول AbsTable3
وربط abstable1 بـ AbsTable2
بمعنى احتاج الى معطيات ABstable2 في كل سجلات AbsTable1 بما فيها المعطيات التي وردت له من AbsTable3 حسب التغييرات التي طرأت عليها في AbsTable2

إذا كيف لي ان اعمل هذا وجزاكم الله عنا كل خير

أرسلت بتاريخ: 7/31 10:42
خيارات المشاركة وتحويلها إلى تطبيقات أخرى خيارات


medreg
المساعدة في كود للبحث بثلاث حقول
#3
عضو نشط
مشترك منذ:
2007/9/4 10:59
الردود: 24
غير متصل الآن
السلام عليكم ورحمة الله تعالى وبركاته
أخي المحترم إني أطمع بمساعدتك على أت تمنحني كود للبحث في قواعد البيانات
طيقتين لمعملية البحث
يوجد بالمرفق أختيارين لطريقة البحث

الطريقة الأولى البحث تكون بثلاث حقول مع بعض أي أريد أن ابحث في السجلات على كل سجل يحتوي عل قيم الثلاث حقول
والطريقة الثانية البحث يكون بإسم الزبون
وهذا مثال على ذلك
قادة البيانات تحتوي على 9 حقول وهي:
الرقم : NU نوع Smalt
الإسم: Prenom نوع String
الحالة : Situation نوع Boolean
الباب: ِchapitre نوع String
الفصل: Groupe نوع String
الصنف: Classe نوع String
المبلغ : Montant نوع Float
تاريخ التسديد DT_Pym نوع Date

إذا في هذا المثال نفرض أن :
الحقل Chapitre يحمل قيمة 01
الحقل Groupe يحمل قيمة 02
الحقل Classe يحمل قيمة 01
المطلوب من البحث أن يبحث على كل التسجيلات التي تحمل هذه القيم وإظهارها
واليكم هذا المرفق لإجراء الكود عليه ووفقكم الله

إرفاق ملف:

zip RECHERCHE.zip الحجم: 11.27 KB; مرات التنزيل: 86

أرسلت بتاريخ: 2009/4/11 22:01
خيارات المشاركة وتحويلها إلى تطبيقات أخرى خيارات


medreg
مشكلة مع حقل من نوع Time
#4
عضو نشط
مشترك منذ:
2007/9/4 10:59
الردود: 24
غير متصل الآن
السلام عليكم
كيف يمكنني إظهار محتوى الحقل في QuickRep فارغاً
بالنسبة للتاريخ فهو عندما يكون الحقل فارغ يظهر في QRLabel1
31/12/1899
فوضعت له الكود الذي يحمل اللون الأحمر حتى يظهر مكانه فارغ في QRLabel1
ونجحت العملية
وبالنسبة للساعة فحاولت بكل الطرق التي خطرت لي على بالي ولم اجد لها حل
فماذا يجب علي فعله لحقل الساعة حتى لا يطهر في QRLabel2 بهذا الشكل 00:00
أنظر إلى الكود

procedure TForm10.DetailBand2BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
  var d1,h1:TDateTime;
begin
  with DM_1 do begin
    Table1.First;
    while not Table1.Eof do begin
    if (Table1NU.Value=1) then h1:=Table1DT_DEP.Value;
    if (Table1NU.value=1) then d1:=Table1HR_DEP.Value

لظهور QRLabel1
المتعلقة بحقل التاريخ فارغة في حالة ما إذا كان الحقل فارغ وكانت النتيجة ناجحة
وبدلا من أن يخرج لي (31/12/1899) يظهر الفراغ

QRLabel1.Caption:=formatDateTime('yyyy/mm/dd',h1);
   if h1=00 then QRLabel1.Caption:='';

لظهور QRLabel2
المتعلقة بحقل الساعة فارغة بدلاً من ان تظهر لي بشكل 00:00
لقد نجحت العملية لكن المشكلة في حالة ما إذا كان الحقل غير فارغ ويحمل قيمة 00:00
في هذه الحالة يظهر QRLabel2 فارغ ومن المفروض في هذه الحالة لا بد من ظهور القيمة 00:00
وضعت هذا الكود


QRLabel2.Caption:=formatDateTime('HH:MM',d1);
  if d1=00 then QRLabel2.Caption:='';

 Table1.Next;
    End;
  End;
End;

أرسلت بتاريخ: 2009/2/25 10:46
خيارات المشاركة وتحويلها إلى تطبيقات أخرى خيارات


medreg
رد: طلب كود لإرغام QRLabel لإظهار مبلغ
#5
عضو نشط
مشترك منذ:
2007/9/4 10:59
الردود: 24
غير متصل الآن
لقد وجدت الحل وجزاكم الله عنا كل خير
اليكم الكود

procedure TForm1.Button1Click(Sender: TObject);
var t1:real;
begin
t1:=0; 
table1.first;
while not table1.eof do begin
table1.edit;
t1:=t1+Table1..FieldByName('MT_AR').AsFloat;
table1.post;
table1.next;
    QRLabel1.Caption:=formatfloat('### ### ##0.00',t1);    if t1<=0.00 then QRLabel.Caption:='';
end;
end;
إقتباس :

medreg كتب:
السلام عليكم
ارجو منكم ان تساعدونني في إظهار مبلغ ما على QRLabel على هذا الشكل
999.999.999,00
علما بأن المبلغ هو عبارة عن حقل موجود بقاعدة بيانات برادوكس واسمه مثلا MT_HT
وأريد إستعمال QRLabel بدلا من QRDBText حتى لا أكثر من الحقول في قاعدة البيانات
المهم هو كيف يمكنني أن أجعل نتيجة table1.fieldbyname('MT_HT').asfloat تظهر في QRLabel بدلاً من QRDBText
بهذا الشكل


(###,###,##0.00)

كما ارجوا ان يكون كود يستعمل لعدد من مكونات QRLabel دفعة واحدة حتى لا اضع كود لكل واحدة
وأيضا ما هو الكود المستعمل في حالة ما إذا كان QRLabel اي بدون قيمة بمعنى
إذا كان الحقل MT_HT فارغ فلا بد من QRLabel تبقى بيضاء اي خالية من أي شيء
أرجو أن أكون قد وفقت ي طرح السؤال أو الطلب

أرسلت بتاريخ: 2008/11/21 10:46
خيارات المشاركة وتحويلها إلى تطبيقات أخرى خيارات


medreg
طلب كود لإرغام QRLabel لإظهار مبلغ
#6
عضو نشط
مشترك منذ:
2007/9/4 10:59
الردود: 24
غير متصل الآن
السلام عليكم
ارجو منكم ان تساعدونني في إظهار مبلغ ما على QRLabel على هذا الشكل
999.999.999,00
علما بأن المبلغ هو عبارة عن حقل موجود بقاعدة بيانات برادوكس واسمه مثلا MT_HT
وأريد إستعمال QRLabel بدلا من QRDBText حتى لا أكثر من الحقول في قاعدة البيانات
المهم هو كيف يمكنني أن أجعل نتيجة table1.fieldbyname('MT_HT').asfloat تظهر في QRLabel بدلاً من QRDBText
بهذا الشكل


(###,###,##0.00)

كما ارجوا ان يكون كود يستعمل لعدد من مكونات QRLabel دفعة واحدة حتى لا اضع كود لكل واحدة
وأيضا ما هو الكود المستعمل في حالة ما إذا كان QRLabel اي بدون قيمة بمعنى
إذا كان الحقل MT_HT فارغ فلا بد من QRLabel تبقى بيضاء اي خالية من أي شيء
أرجو أن أكون قد وفقت ي طرح السؤال أو الطلب

أرسلت بتاريخ: 2008/11/20 12:45
خيارات المشاركة وتحويلها إلى تطبيقات أخرى خيارات


medreg
رد: كيف يمكنني جلب معطيات من مشروع آخر
#7
عضو نشط
مشترك منذ:
2007/9/4 10:59
الردود: 24
غير متصل الآن
السلام عليكم ورحمة الله تعالى وبركاته
أردت فقط إضافة ملف اكسيل لتوضيح الموضوع أكثر

إرفاق ملف:

rar DETAIL.rar الحجم: 3.30 KB; مرات التنزيل: 201

أرسلت بتاريخ: 2008/5/8 22:31
خيارات المشاركة وتحويلها إلى تطبيقات أخرى خيارات


medreg
كيف يمكنني جلب معطيات من مشروع آخر
#8
عضو نشط
مشترك منذ:
2007/9/4 10:59
الردود: 24
غير متصل الآن
استعمل الدلفي7 وقاعدة البيانات paradox
لدي ثلاث مشاريع
لكل مشروع يعمل وحده إلا أن لكل مشروع من المشاريع الثلاثة علاقة بالآخر
مثلاً
المشروع الأول إسمه KAPS.PRG
المشروع الثاني إسمه KAPS1.PRG
المشروع الثالث إسمه KAPS2.PRG

المشروع الثاني له علاقة بالمشروع الأول
المشروع الثالث له علاقة بالمشروع الأول والثاني

السؤال كيف يمكنني ربط المشروع الثاني بالمشروع الأول
وكيف اربط المشروع الثالث بالمشروعين الأول والثاني
للتوضيح أكثر
احتاج لبعض المعطيات في المشروع الثاني ولا بد من جلبها من المشروع الأول وهذا من خلال الضغط على زر في المشروع الثاني يحمل عبارة (جلب المعطيات من المشروع الأول)

ونفس الشيء بالنسبة للمشروع الثالث
احتاج لبعض المعطيات في المشروع الثالث ولا بد لجلبها من المشروع الأول وبعضها من المشروع الثاني

وشكرً جزيلاً
أرجو إن كان هنا إستفسار أرجو ارساله على البريد الإلكتروني medreg2008@yahoo.fr

أرسلت بتاريخ: 2008/5/8 14:41
خيارات المشاركة وتحويلها إلى تطبيقات أخرى خيارات


medreg
طلب تصحيح خلل في هذا الموضوع
#9
عضو نشط
مشترك منذ:
2007/9/4 10:59
الردود: 24
غير متصل الآن
السلام عليكم ارجو أن تصلحوا لي هذا الخطأ
حساب الوجبات والمبيتات
وجبة الغذاء تبدأ من الساعة 11:01 وتنتهي على الساعة 14:00
وجبة العشاء تبدأ من الساعة 18:00 وتنتهي على الساعة 21:00
المبيت يبدأ من الساعة 00:00 وتنتهي على الساعة 05:00
========================================
توضيح
وجبة الغذاء
إذا كان الذهاب من الساعة 05:01 وساعة الأياب هي الساعة 11:00 في هذه الحالة لا يستفيد المعني من وجبة الغذاء
إذا كان الذهاب من الساعة 05:01 وساعة الأياب هي الساعة 11:01 في هذه الحالة يستفيد المعني من وجبة الغذاء

إذا كان الذهاب من الساعة 05:01 والأياب على الساعة 14:00 في هذه الحالة يستفيد المعني من وجبة الغذاء
إذا كان الذهاب من الساعة 05:01 والأياب على الساعة 14:01 في هذه الحالة لا يستفيد المعني من وجبة الغذاء

وجبة العشاء
إذا كان الذهاب من الساعة 14:01 وساعة الأياب هي الساعة 18:00 في هذه الحالة لا يستفيد المعني من وجبة العشاء
إذا كان الذهاب من الساعة 14:01 وساعة الأياب هي الساعة 18:01 في هذه الحالة يستفيد المعني من وجبة العشاء

إذا كان الذهاب من الساعة 18.01 والأياب على الساعة 21:00 في هذه الحالة يستفيد المعني من وجبة العشاء
إذا كان الذهاب من الساعة 18:01 والأياب على الساعة 21:01 في هذه الحالة لا يستفيد المعني من وجبة العشاء

إذا كان الذهاب من الساعة 05:01 والأياب على الساعة 18:00 في هذه الحالة يستفيد المعني من وجبة الغذاء فقط
إذا كان الذهاب من الساعة 05:01 والأياب على الساعة 18:01 في هذه الحالة يستفيد المعني من وجبة الغذاء و وجبة العشاء

المبيت
إذا كان الذهاب من الساعة 05:01 وساعة الأياب هي الساعة 00:00 في هذه الحالة لا يستفيد المعني من المبيت لكن يستفيد من وجبة الغذاء ووجبة العشاء فقط
إذا كان الذهاب من الساعة 05:01 وساعة الأياب هي الساعة 00:01 في هذه الحالة يستفيد المعني من وجبة الغذاء ووجبة العشاء والمبيت أيضًا

إذا كان الذهاب من الساعة 21:00 والأياب على الساعة 11:00 في هذه الحالة يستفيد المعني من وجبة العشاء والمبيت فقط
إذا كان الذهاب من الساعة 21:01 والأياب على الساعة 11:00 في هذه الحالة يستفيد المعني من المبيت فقط

نأخذ مثال
احد الموظفين انتقل في مهمة

المثال الأول
تاريخ بداية المهمة هو يوم 07/01/2008 على الساعة 05:01
وتاريخ عودته أي الأياب هو يوم 09/01/2008 على الساعة 11:00 في هذه الحالة يكون الموظف حصل على
وجبة غذاء = 02
وجبة عشاء = 02
المبيت = 02
---------------------------------------------
المثال الثاني
تاريخ بداية المهمة هو يوم 07/01/2008 على الساعة 05:01
وتاريخ عودته أي الأياب هو يوم 09/01/2008 على الساعة 11:01 في هذه الحالة يكون الموظف حصل على
وجبة غذاء = 03
وجبة عشاء = 02
المبيت = 02
---------------------------------------------
المثال الثالث
تاريخ بداية المهمة هو يوم 07/01/2008 على الساعة 14:01
وتاريخ عودته أي الأياب هو يوم 09/01/2008 على الساعة 11:00 في هذه الحالة يكون الموظف حصل على
وجبة غذاء = 01
وجبة عشاء = 02
المبيت = 02
----------------------------------------------
المثال الرابع
تاريخ بداية المهمة هو يوم 07/01/2008 على الساعة 14:01
وتاريخ عودته أي الأياب هو يوم 09/01/2008 على الساعة 11:01 في هذه الحالة يكون الموظف حصل على
وجبة غذاء = 02
وجبة عشاء = 02
المبيت = 02

لقد وضعت هذا الكود الموجود بالمثال المرفق ولم أفلح ارجو الإطلاع عليه وتصحيح الخلل وإعادته من فضلكم
وجزاكم الله عنا كل خير

إرفاق ملف:

rar DATE_HEURE.rar الحجم: 15.91 KB; مرات التنزيل: 135

أرسلت بتاريخ: 2008/5/6 6:22
خيارات المشاركة وتحويلها إلى تطبيقات أخرى خيارات


medreg
رد: مشكلة في عملية الحساب
#10
عضو نشط
مشترك منذ:
2007/9/4 10:59
الردود: 24
غير متصل الآن
شكرًا جزيلاً على هذه المساعدات
عذرًا على اطالتي للرد

لقد شغلت في امور ما والتي انستني الشكر على ردكم الجميل والمفيد في نفس الوقت

وعذرً مرة أخرى ومشكورين على المساعدات بردودكم على مواضيعنا

وجزاكم الله عنا كل خير متنمنيين لكم التوفيق بإذن الله

أرسلت بتاريخ: 2008/5/2 23:09
خيارات المشاركة وتحويلها إلى تطبيقات أخرى خيارات



(1) 2 3 »






عروة عيسى
2005-2007

Powered by XOOPS