تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في بناء برنامج تذكير بالمواعيد
#1
السلام عليكم ورحمه الله وبركاته
اخواني ابي اسوي برنامج للتذكير بمواعيد العقود او التامين بحيث يكون التالي
ادخال التاريخ البدء
ادخال تاريخ الانتهاء
البرنامج يعطيني كم يوم متبقي من خلال التواريخ المدخلة

من ثم يختار المستخدم اوقات التذكيرات :
يتم وضع تذكيرات على حسب التاريخ الذي يضعه المستخدم قبل فترة الانتهاء او قبل كم يوم من الانتهاء تطلع نافذه
باسفل الشاشه تذكيريه في حال البرنامج شغال
شاشة التذكير ممكن تكون حسب الايام لحين يتم التجديد
مع خاصية ارسال التذكير الى الايميل اتماتيكيا

اتمنى وضحت الفكرة

وشكرا لكم
الرد }}}}
تم الشكر بواسطة:
#2
ادري اني متاخر جدا لكن لعل احد يفيده المثال البسيط جدا


وهذا كلاس الفورم
PHP كود :
Public Class Form1
    Dim con 
As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")

 
  
  

    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        If con
.State ConnectionState.Open Then con.Close()
 
       Using cmd As New OleDb.OleDbCommand(""con)
 
           cmd.CommandText "insert into tb(tname,startd,endd) values(@tname,@startd,@endd)"
 
           cmd.Parameters.AddWithValue("@tname"tname.Text)
 
           cmd.Parameters.AddWithValue("@startd"CDate(startdt.Text).ToShortDateString)
 
           cmd.Parameters.AddWithValue("@endd"CDate(enddt.Text).ToShortDateString)
 
           Try
                If con
.State ConnectionState.Closed Then con.Open()
 
               cmd.ExecuteNonQuery()
 
               If con.State ConnectionState.Open Then con.Close()
 
               MsgBox("تم الحفظ"MsgBoxStyle.Information"")
 
           Catch ex As Exception
                If con
.State ConnectionState.Open Then con.Close()
 
               MsgBox(Err.DescriptionMsgBoxStyle.Critical"")
 
           End Try
 
           If con.State ConnectionState.Open Then con.Close()
 
       End Using
    End Sub

    Private Sub Button2_Click
(sender As System.ObjectAs System.EventArgsHandles Button2.Click
        dgv
.Rows.Clear()
 
       Using cm As New OleDb.OleDbCommand(""con)
 
           Dim i As Integer 0
            i 
Val(d.Text)




 
           cm.CommandText "select * from tb where endd=#" Date.Today.AddDays(i) & "#"

 
           Try
                If con
.State ConnectionState.Closed Then con.Open()
 
               Dim dt As New DataTable
                dt
.Load(cm.ExecuteReader)
 
               For r 0 To dt.Rows.Count 1
                    With dgv
                        
.ColumnCount 3
                        
.Columns(0).HeaderText "الاسم"
 
                       .Columns(1).HeaderText "البداية"
 
                       .Columns(2).HeaderText "النهاية"



 
                       .Columns(0).Width 150
                        
.Columns(1).Width 150
                        
.Columns(2).Width 150

                        
.Rows.Add(dt.Rows(r)(1).ToStringCDate(dt.Rows(r)(2)).ToShortDateStringCDate(dt.Rows(r)(3).ToString).ToShortDateString)
 
                   End With

                Next
            Catch ex 
As Exception
                If con
.State ConnectionState.Open Then con.Close()
 
               MsgBox(Err.DescriptionMsgBoxStyle.Critical"")

 
           End Try
 
       End Using
    End Sub
End 
Class 

طبعا هو مش تذكير بجد لكن ممكن بشوي تعديل يصير تذكير بجدSmile
كل عام والكل بخير


الملفات المرفقة
.zip   For_s3eed_Idea.zip (الحجم : 48.23 ك ب / التحميلات : 27)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: أسامة السالمي , أسامة السالمي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب مساعدة في اصلاح بعض الاخطاء trakktour 18 157 منذ 4 ساعة مضت
آخر رد: trakktour
  طلب مساعدة في اضافة save & restore trakktour 8 137 اليوم, 03:16 AM
آخر رد: trakktour
  [سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد brioule 1 53 25-02-17, 06:31 PM
آخر رد: khodor1985
  [سؤال] فكرة عمل برنامج تنبيهات abdulla2 1 86 20-02-17, 12:47 AM
آخر رد: EnormousSoft
  [كود] كود برنامج chat متعدد المستخدمين YazanOtoum 2 70 17-02-17, 11:54 PM
آخر رد: احمد مهران
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 147 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  تصميم برنامج امتحان الاوفيس والويندوز القيصر بيلا 0 62 12-02-17, 03:07 PM
آخر رد: القيصر بيلا
  طلب برنامج لزيادة دقة الصور احمد علي احمد سلمان 1 84 10-02-17, 05:33 PM
آخر رد: مساعدة
  اخفاء برنامج بعد استدعائه وتشغيله moshax 4 120 07-02-17, 09:53 PM
آخر رد: moshax
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 187 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم