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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارسال ايميل في vb.net مساعدة nabilelk 1 27 منذ 4 ساعة مضت
آخر رد: ابراهيم النعيمي
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 56 07-12-16, 12:20 AM
آخر رد: amgad525
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 42 1,332 06-12-16, 08:09 PM
آخر رد: tryold
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 95 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 5 100 04-12-16, 12:37 AM
آخر رد: ali.alfoly
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 46 03-12-16, 06:59 PM
آخر رد: sal.softip
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 56 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 64 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 303 25-11-16, 11:57 AM
آخر رد: العزابي

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


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