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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة هامة جدا ashfgsm 18 281 أمس, 05:39 PM
آخر رد: WAEL ABED
  [مشروع] طلب برمجة برنامج يحول صفحات الويب الي فيديو elokely 0 18 16-10-17, 11:22 PM
آخر رد: elokely
  [VB.NET] سؤال عن برمجة برنامج Badi054 6 90 15-10-17, 04:43 PM
آخر رد: سعود
  برنامج محاسبة على الاندرويد محمود صالح 3 84 14-10-17, 02:00 AM
آخر رد: Amir_alzubidy
  مساعده بفكره بناء جدول بيانات ( اداره رواتب الموظفين) Rabeea Qbaha 4 120 09-10-17, 12:22 AM
آخر رد: Amir_alzubidy
  [VB.NET] مساعدة بخصوص mysql MOSTAFA.KAMEL 0 47 06-10-17, 07:30 AM
آخر رد: MOSTAFA.KAMEL
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 0 55 04-10-17, 11:34 PM
آخر رد: ahmed kamal
Wink [سؤال] كيفية تحريك اداة TrackBar عند تصميم برنامج ميديا بلاير malzwy2003 0 62 01-10-17, 11:04 PM
آخر رد: malzwy2003
  مساعدة في حفظ ماهو مكتوب في textbox اوتوماتيكي trakktour 1 85 01-10-17, 10:30 PM
آخر رد: Amir_alzubidy
  مساعدة في الكود hikmat 0 42 27-09-17, 10:08 AM
آخر رد: hikmat

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


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