تقييم الموضوع :
  • 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 ك ب / التحميلات : 111)
الرد }}}
تم الشكر بواسطة: أسامة السالمي , أسامة السالمي



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


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