Dragon X قام بنشر سبتمبر 16, 2004 قام بنشر سبتمبر 16, 2004 بسم الله الرحمن الرحيم أولا: أنا عضو جديد معاكم ثانياَ: واجهتني مشكله في برمجة زر أمر لبرنامج الراتب الشهري حيث وضعت الكود للنموذج التالي فوضعت الكود التالي في زر أمر "الرواتب" Dim AX, SX, DX SX = salary AX = salary \ 31 MsgBox AX If s1s = False Then DX = SX - AX ElseIf s2s = False Then DX = SX - AX ElseIf s3s = False Then DX = SX - AX ElseIf s4s = False Then DX = SX - AX ElseIf s5s = False Then DX = SX - AX ElseIf s6s = False Then DX = SX - AX ElseIf s7s = False Then DX = SX - AX ElseIf s8s = False Then DX = SX - AX ElseIf s9s = False Then DX = SX - AX ElseIf s10s = False Then DX = SX - AX ElseIf s11s = False Then DX = SX - AX ElseIf s12s = False Then DX = SX - AX ElseIf s13s = False Then DX = SX - AX ElseIf s14s = False Then DX = SX - AX ElseIf s15s = False Then DX = SX - AX ElseIf s16s = False Then DX = SX - AX ElseIf s17s = False Then DX = SX - AX ElseIf s18s = False Then DX = SX - AX ElseIf s19s = False Then DX = SX - AX ElseIf s20s = False Then DX = SX - AX ElseIf s21s = False Then DX = SX - AX ElseIf s22s = False Then DX = SX - AX ElseIf s23s = False Then DX = SX - AX ElseIf s24s = False Then DX = SX - AX ElseIf s25s = False Then DX = SX - AX ElseIf s26s = False Then DX = SX - AX ElseIf s27s = False Then DX = SX - AX ElseIf s28s = False Then DX = SX - AX ElseIf s29s = False Then DX = SX - AX ElseIf s30s = False Then DX = SX - AX ElseIf s31s = False Then DX = SX - AX Else DX = salary End If MsgBox DX total = DX حيث ان s1s to s31s هم ازرار أختيار في الحقيقه جابت لي الضغط :@ :@ الله يعطيكم العافية مساعدة :$
سهل احمد العريشي قام بنشر سبتمبر 17, 2004 قام بنشر سبتمبر 17, 2004 نيابة عن المنتدى وأعضائه جميعا اقول لك اهلا وسهلا بك اخا وعزيزا على قلوبنا وسلا متك من الضغط توجه الى الرابط التالي علك تجد ما تريد وتقبل شكري وتقديري اخيك سهل احمد ( ابو نعيم ) http://www.arabteam2000-forum.com/index.php?showtopic=45883
Dragon X قام بنشر سبتمبر 17, 2004 الكاتب قام بنشر سبتمبر 17, 2004 بسم الله الرحمن الرحيم اشكرك عزيز على الترحيبكم في الحقيقة موضوع ممتاز واستفدة منه وكن كم تعرف كل منا له طريقته في البرمجة ولن ابدا من جديد ما بدأت به لذا اذا في الامكان هذا هو الملف يمكن الاطلاع عليه وابداء الرئ او النتقاد الهادف وأنظر الى الصيغة البرمجية الطويلة له. هتا
سهل احمد العريشي قام بنشر سبتمبر 17, 2004 قام بنشر سبتمبر 17, 2004 عذرا ولكن الرابط لا يعمل اخيك سهل احمد ( ابو نعيم )
عبدالله سليمان قام بنشر سبتمبر 17, 2004 قام بنشر سبتمبر 17, 2004 (معدل) الأخ / Dragon X طبعاً لن يعمل الكود بشكل صحيح لأنه مع تحقق أي شرط في البداية سيخرج من العبارة الشرطية . على كل بإمكانك استخدام العبارة الشرطية بهذا الشكل : If s1s = False Then DX = SX - AX If s2s = False Then DX = SX - AX تم تعديل سبتمبر 17, 2004 بواسطه عبدالله سليمان
Dragon X قام بنشر سبتمبر 17, 2004 الكاتب قام بنشر سبتمبر 17, 2004 اولا شكر للأخ سهل احمد العريشي: الوصلة مفيده ولكن لا تنطبق على البرنامج لأن البرنامج يحسب أجر الموظف اليومي وشكر للاخ عبدالله سليمان: لقد عملت ما كتبته يا عبدالله ولكن الكود لم يعمل في الحقيقة لم أجد طريقة لأحمل الملف في الوقت الحالي لذا دعوني أشرح فكرة الكود الذي أمامكم أولا: هل تظهر الصورة اللتي وضعتها؟ في النموذج يوجد اسم الموضف أو رقمه بالاحرى - الراتب الأساسي - مجموعة من ازرار الاختيار من 1 - 31 يوم في حالة أن الموضف غاب يوم يتم مسح الصح من زر أختيار ويقوم الكود (السابق) بحساب الراتب اليومي للموظف ويجمع الرواتب 1 - 31 ولكن بطرح اليوم الذي لم يحضره أخوكم
Dragon X قام بنشر سبتمبر 18, 2004 الكاتب قام بنشر سبتمبر 18, 2004 أين تعقيباتكم أخواني هل هناك طريق لأضافة الملف في المنتدى
سهل احمد العريشي قام بنشر سبتمبر 18, 2004 قام بنشر سبتمبر 18, 2004 ارسل الملف لي jizaan@hotmail.com اخيك سهل احمد ( ابو نعيم )
سهل احمد العريشي قام بنشر سبتمبر 19, 2004 قام بنشر سبتمبر 19, 2004 هذا هو المثال لمن يريد المساعده من الأخوان اخيكم سهل احمد ( ابو نعيم ) Copyofdb2.zip
عبدالله سليمان قام بنشر سبتمبر 19, 2004 قام بنشر سبتمبر 19, 2004 ومع أني لم أحاول فهم البرنامج فتجد في المرفقات المثال بعد تعديل الكود والذي اعتقد أنه بالامكان اختصاره كثيراً عبر اسناد مربعات الخيار إلى متحول ثم إنشاء حلقة بعدد المربعات . حاولت عمل ذلك ولم أستطع . وبالتوفيق . Copy of db2.rar
Dragon X قام بنشر سبتمبر 20, 2004 الكاتب قام بنشر سبتمبر 20, 2004 اخى عبدالله سليمان اي اصدار تستخدم لم يفتح الملف عندي في النموذج يوجد اسم الموضف أو رقمه بالاحرى - الراتب الأساسي - مجموعة من ازرار الاختيار من 1 - 31 يوم في حالة أن الموضف غاب يوم يتم مسح الصح من زر أختيار ويقوم الكود (السابق) بحساب الراتب اليومي للموظف ويجمع الرواتب 1 - 31 ولكن بطرح اليوم الذي لم يحضره
عبدالله سليمان قام بنشر سبتمبر 21, 2004 قام بنشر سبتمبر 21, 2004 الاصدار الذي استخدمه هو Access 2002 في الكود خطأ ، وهو تقسيم الراتب على 31 يوماً وبعض الأشهر أقل من ذلك . ثم الأفضل جعل القيمة الأفتراضية لزر الخيار 1 إيضا استخدمت ( \ ) للقسمة وهي تعيد ناتج القسمة بدون كسور ، لهذا يجب استخدام ( / ) بدلاً عنها . شكلك تبي تاكل رواتب الموظفين :d وتجد بالمرفقات قاعدة البيانات بعد تعديلها وتحويلها إلى Access 97 وبالتوفيق . Copy of db2_97.zip
سهل احمد العريشي قام بنشر سبتمبر 21, 2004 قام بنشر سبتمبر 21, 2004 اخي العزيز عبدالله شكرا لك توصلك مع الموضوع أما بخصوص ما ذكرته ( شكلك تبي تاكل رواتب الموظفين ) فأعتقد يوم مو مشكله من موظف يعني يومية الموظف 120 * عدد الموظفين 780 مثلا = 93600 ريال شهريا مبلغ جدا بسيط ---------طبعا الأمر عباره عن دعابه واخينا العزيز Dragon X نحسبه من الأفاضل والله حسبه ولكن لماذا لا يكون الراتب له جدول منفصل بمعنى افضل يسمى سلم الرواتب ومنه يدرج راتب كل موظف هذا رأي وتقبلو تحياتي اخيكم سهل احمد ( ابو نعيم )
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.