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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة في اضافة save restore حاتمي 7 160 أمس, 12:39 AM
آخر رد: حاتمي
  سحب والافلات.Drag and Drop.مساعدة e-coder 7 97 22-04-19, 03:46 AM
آخر رد: elgokr
Rainbow (تم الحل )احتاج مساعدة حول خطأ system.accessviolationexception was unhandled dametucorazon 5 56 22-04-19, 12:47 AM
آخر رد: elgokr
  [VB.NET] مساعدة بخصوص برنامج مبيعات hodanet 4 97 20-04-19, 12:16 PM
آخر رد: elgokr
  [VB.NET] اريد دورة تصميم برنامج محاسبي من الصفر مع sql server mohamedhota 3 123 18-04-19, 07:52 PM
آخر رد: عبد العزيز البسكري
  مساعدة فى الويب بروزر Mohamed Magdy 3 74 13-04-19, 04:48 PM
آخر رد: trakktour
  [سؤال] اخواني انا صممت برنامج vb.net وربطة مع جدول بي sql server 2014 mohamedhota 5 72 12-04-19, 11:14 PM
آخر رد: elgokr
Exclamation [VB.NET] [تم الحل] مساعدة بمسألة رياضيه DK-x 8 423 03-04-19, 10:40 PM
آخر رد: DK-x
  مساعدة فى datagridview atef_020 17 276 02-04-19, 01:52 AM
آخر رد: elgokr
  مساعدة في DevExpress Rabeea Qbaha 5 103 01-04-19, 09:33 PM
آخر رد: elgokr

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


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