نظام عمل اميل للدخول على المشروع بى ايام محددة مثلآ ممكن تتم عملية الاميل بى قاعده بينات مثلا تسجيل الاميل الى قاعدة البينات لاكن كل اميل يتم تسجيلة يمك ان يستعمل فى المشروع لى 30 يوم فقط بعد 30 يوم يتوقف الاميل لا يمكن تسجيل الدخول الا المشروع بى هذه الامايل مرة اخرى الى عن طريق اعادة الاميل بى رقم خاص يتم استخدامة مرة واحد يتم ارجاعة الى الخدمة 30 يوم هل يمكن عمل هذا ارجو ان يكن الكلام واضح
السلام عليكم ، لى حد فهمي ، شأشرح لك طريقة بسيطة
المكان اللدي تسجل فيه الاميل (جدول ليوزر طبعا) اضف اليه حقلين على شكل تواريخ الاول تاريخ التسجيل و حقل لحفظ الحالة .
عند تسجيل الايميل ، سجل تاريخ التسجيل ، و الحالة : مسموح .
عند كل دخول للعميل بنفس الايميل لديك اختياران الاول هو مقارنة تاريخ اليوم مع تاريخ التسجيل ادا كان اصغر من 30 يوم فمسموح له الدخول و الا فمرفوض و عند ادن اضهر له شاشة خاصة بتغيير الكود .
الحالة الثانية عملها على شكل trigger او stored procedure داخل السيرفر حيث يتم ضبط المعلومات حسب البرمجة .
بعض الايحاءات البسيطة بواسطة الاسكل : DATEDIFF(datepart,startdate,enddate)
azizos كتب :السلام عليكم ، لى حد فهمي ، شأشرح لك طريقة بسيطة
المكان اللدي تسجل فيه الاميل (جدول ليوزر طبعا) اضف اليه حقلين على شكل تواريخ الاول تاريخ التسجيل و حقل لحفظ الحالة .
عند تسجيل الايميل ، سجل تاريخ التسجيل ، و الحالة : مسموح .
عند كل دخول للعميل بنفس الايميل لديك اختياران الاول هو مقارنة تاريخ اليوم مع تاريخ التسجيل ادا كان اصغر من 30 يوم فمسموح له الدخول و الا فمرفوض و عند ادن اضهر له شاشة خاصة بتغيير الكود .
الحالة الثانية عملها على شكل trigger او stored procedure داخل السيرفر حيث يتم ضبط المعلومات حسب البرمجة .
بعض الايحاءات البسيطة بواسطة الاسكل : DATEDIFF(datepart,startdate,enddate)
شكرآ اخى للاجابة جزاك الله خير ممكن طلب
هو الحل الاول لاكن كيف يتم تطبيقة انا محتاجة ضرورى هل يمكنك ان تساعدنى اخى ؟
شكرآ .
إقتباس : Dim Date_enreg As Date = "12/05/2012"
If DateDiff(DateInterval.Day, Date_enreg, Today()) > 30 Then
'هنا يمكنك استدعاء الفورم لتغيير كلمة السر او الكود المرغوب فيه
End If
حاول استدعاء هدا الكود مباشرة بعد دخول العميل .