[VB.NET] يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم

[VB.NET] يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم (/showthread.php?tid=22654)

الصفحات: 1 2 3

يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - khalilfox - 21-11-17

يا جماع انا اعمل على برنامج تسيير مخزون سلعة والبيع وأريد ان ينبهني البرنامج عن قرب انتهاء تاريخ السلعة مع العلم أني اعمل على قاعدة بيانات اكسس 2008 ويتم تسجيل تاريخ انتهاء في جدول material العمود datex
ارجو ان تساعدوني ......من فظلم ...ولكم جزييييل الشكر

RE: يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - محبه البرمجه - 28-11-17

Private Sub Form_Open(Cancel As Integer) On Error GoTo MyErr:

Dim MyFirst As Date
Dim MyInDate
Dim MyTableName As String
MyInDate = DFirst("[Date1]", "[T1]")
If Not IsNull(MyInDate) Then
MyFirst = MyInDate
Else
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO T1 ( Date1 ) SELECT Date();")
DoCmd.SetWarnings True
MyFirst = Date
End If

If MyFirst <= Date - 3 Then ' الوقت هنا تم تحديده بثلاثة ايام
MsgBox "مضى على تشغيل البرنامج 3 أيام وسيتم ايقاف البرنامج"
Call TableDelete
Else
If MyFirst > Date Then
MsgBox "تم التلاعب بتاريخ الجهاز وسيتم ايقاف تشغيل البرنامج"
Call TableDelete
End If
End If
Exit Sub

MyErr:
If Err.Number = 3078 Then
MsgBox " تم تعطيل البرنامج" & vbCrLf & vbCrLf & _
" مع السلامة " & vbCrLf & vbCrLf & _
" تعطيل", vbOKOnly + vbMsgBoxRight + vbExclamation
DoCmd.Quit
Else
MsgBox Err.Number & vbCrLf & Err.Description
End If

End Sub

RE: يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - khalilfox - 14-07-18

اخي اشكركر على ردك ...لاكن اريد كود من اجلانتهاء صلاحية ...او كود بحث في تاريخ ...وكود مقارنة بين تاريخ اليوم وتاريخ المواد ...واضهارها
datagridview ...... Angel

RE: يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - elgokr - 14-07-18

بخصوص كود بحث او باصح فلتر DataGridView

كل ما عليك عمل التالى

كود :

DataView dv;

dv = new DataView(ds.Tables[0], "type = 'business' ", "type Desc", DataViewRowState.CurrentRows);

dataGridView1.DataSource = dv;

حيث ان الجزء التالى

كود :

new DataView(؟؟؟)

فى الجزء بدلاً من ؟؟ كما لو انك تقوم بعمل استعلام فى قاعدة البيانات

حيث ان الجزء التالى

كود :

type = 'business

كما لو انك تقوم بتطبيك جزء WHERE فى كود الاستعلام بقاعدة البيانات

وبما انك تريد عمل بحث بالتاريخ كل ما علك كتابة

كود :

data = #01-01-2018#

وعلى هذا النحو

وهذا الجزء

كود :

type Desc

هو ترتيب العمود غير كلمة type الى اسم العمود لديك الذى يتم جلبه من قاعدة البيانات

وليس العمود الذى قمت بتسميته او تعريبه فى الفورم

تحياتى لك

وتمنياتى لك التوفيق

RE: يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - khalilfox - 03-08-18

لم أفهم الكود ....لو أنك تبسطو شو لاني مبتدأ في هذا ....وأحاو قدر الامكان التعلم .....
يا ريت تعمل فييديو أو مشروع بسيط لأفهم عليه ....وجزاك الله خيراااا

RE: يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - khalilfox - 07-08-18

(14-07-18, 07:23 AM)elgokr كتب :

اخي اشكرك كثيرا ....لكن لم أفهم .. لو تضع برنامج بسيط.......مع العلم اني استعمل vb.net 2010 وعندي قاعدة اكسس 2008 ....اتمنى ان ترد في قريب العاجل وشكرا Angel

RE: يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - mero5000 - 07-08-18

كود :

Private Function GetExpirtProduct(ByVal sType As String) As Integer

        Try

            Dim CON As New SqlClient.SqlConnection

            Dim COM As New SqlClient.SqlCommand

            Dim DR As SqlClient.SqlDataReader = Nothing

            Dim strsql1 As String = "SELECT * FROM material  WHERE ( ProductName ='" & sType & "') AND  ( datex = '" & Date.Today.AddDays(-30).ToString("MM/dd/yyyy") & "')"

            CON.ConnectionString = constring3

            CON.Open()

            COM.Connection = CON

            COM.CommandType = CommandType.Text

            COM.CommandText = strsql1

            COM.Parameters.Clear()

            Dim Result As Integer = COM.ExecuteScalar

            CON.Close()

            Return Result

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Function

هذا الفنكشن من مكتبتى القديمة للفيجول بيسك بيجيب الى قربت على الانتهاء عدل عليه زى ما تحب
لو تحب تحذف اسم المنتج براحتك

RE: يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - khalilfox - 07-08-18

خي اسف ....ولاكن لم افهم ارجو اني لم ازعجك كثيرا ...هل يمكنك ان تصنع مثال تطبيقي
ساعطيك ملف قاعدة البانات وانت اصنعلي مثال ...وشكرا ...وسامحني على ازعاجك يا غالي Heart

قاعدةبيانات من نوع اكسس ...باسورد دخول :

كود :

key:khalilfox

كود :

Imports System.IO

Imports System.Data.OleDb

Public Class FormMain

    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DB.mdb;JeC:\Users\LENOVO\Desktop\khalil\khalil\SalesSystem\ApplicationEvents.vbt OLEDB:Database Password=key:khalilfox"

    Dim Conn As New OleDbConnection(ConStr)

    Dim DataSetMaterials As New DataSet

    Dim SQLMaterials As String = "Select * from Materials"

RE: يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - mero5000 - 07-08-18

عندى بس برنامج وموقع هسلمهم واعمله لك يااخى خلال يومين

RE: يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم - khalilfox - 07-08-18

(07-08-18, 01:58 PM)mero5000 كتب : عندى بس برنامج وموقع هسلمهم واعمله لك يااخى خلال ش

شكرا اخي لردك ....اتمنى ان يكون في القريب العاجل ..... Heart