محمد حسن2

كان لى تصور آخر وهو أن يفتح النموذج المحلي للموظف تلقائيا بعد رسالة تفيد بوجود انقطاع في الإنترنت لكن أعتقد أن فكرتك أفضل فوجود كلمة سر تشعر المستخدم بإحكام البرنامج لو عندك متسع من الوقت للتطبيق على هذه النسخة أكن شاكرا لك ChkInOut_InterNet.rar

إذا لا سبيل إلا بالاعتماد على وقت الإنترنت ، وفي حالة انقطاعه تظهر رسالة بأن يكون التوقيع عن طريق المسئول فكيف يكون ذلك ؟

المشكلة سيدي أن يكون المتلاعب هو أول الحاضرين اسنخدمت هذا الأمر عند فتح الفورم أول مرة (طبعا جعلت قاعدة البيانات تفتح تلقائيا مع الويندوز) وبهذا نعرف الوقت الحقيقي الذي تم فيه فتح الكمبيوتر Private Sub Form_Open(Cancel As Integer) CurrentDb.Execute "INSERT INTO SaveOpenTimeTbl(Field_Now,Date_Now)values ('" & txtDate & "','" & txtDate1 & "')" End Sub لكن بالطبع هذا ليس حلا عمليا ، لأنه لن يسمح للتلاعب فقط للموظف الأول (وسيحتاج من يقارن بين تسجيل الفتح وتسجيل الحضور للموظف الأول أيضا) وأيضا يستطيع الموظف الأخير أن يزيد في وقت انصرافه عن الوقت الحقيقي كل هذه ثغرات نبحث لها عن حل

فكرت في هذا الأمر وبحثت فيه مرارا وتكرارا لكن دون جدوى قلت مرة نجعل قاعدة البيانات تفتح تلقائيا مع الويندوز عن طريق Shell:startup وبهذا يتم تسجيل الوقت الأول للفتح ، لكن وجدت أنه يستطيع المتلاعب أن يفتح الجهاز ويغير الساعة ويقوم بعمل restart للجهاز ويسجل في الوقت الذى يريده

زادك الله علما وفهما وبارك فيك قمت بالتجربة وهذا هو عين المطلوب بالنسبة لموضوع البطء فهو بسيط لا يكاد المستخدم يشعر به تبقي المشكلة فعلا إذا تم انقطاع الإنترنت لأى سبب كان ملحوظة أخري لم أعرف لها سببا جربته على جهازين متصلين بالإنترنت عمل على أحدهما ولم يعمل على الآخر (ظهرت رسالة خطأ كأن الجهاز غير متصل بالإنترنت) ؟!!

حاولت مرارا وتكرارا لكن بدون فائدة ، ومرجع ذلك لقلة خبرتي فإنا هاو ولست محترفا فإن كان عندكم وقت فدلنى مشكورا

جهد مشكور استاذنا شكر الله لك لكن عندى سؤال هل ممكن جعل توقيت البرنامج الإفتراضي هو توقيت الإنترنت ؟ بجيث نضمن عدم التلاعب في توقيت الحضور والإنصراف