[iraqieyes]

Public Class Form1

Private Sub Sheet1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Sheet1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.TestDataSet)

End Sub


Private Sub Sheet1BindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sheet1BindingNavigatorSaveItem.Click
Me.Validate()
Me.Sheet1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.TestDataSet)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'TestDataSet.Sheet1' table. You can move, or remove it, as needed.
Me.Sheet1TableAdapter.Fill(Me.TestDataSet.Sheet1)

End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ExpiredateDateTimePicker.Format = DateTimePickerFormat.Short
Label1.Text = TimeOfDay


End Sub

Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
ExpiredateDateTimePicker.Text = Today
6:
End Sub

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click


End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
daily.Show()

End Sub



Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If ExpiredateDateTimePicker.Value = Today Then
ExpiredateDateTimePicker.CalendarTitleBackColor = Color.Red
End If
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Timer2.Enabled = False
End Sub


Private Sub FillBy2ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Me.Sheet1TableAdapter.FillBy2(Me.TestDataSet.Sheet1)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.Sheet1BindingSource.Filter = "barcode ='" & TextBox1.Text & "'"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Sheet1BindingSource.Filter = "supliercode ='" & TextBox1.Text & "'"
Me.Sheet1BindingSource.Filter = "itemname ='" & TextBox1.Text & "'"
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Refresh()

End Sub

Private Sub BarcodeTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles BarcodeTextBox.KeyPress
If Char.IsControl(e.KeyChar) = False Then
If Char.IsDigit(e.KeyChar) Then
Else
MsgBox("عذراً الرجاء ادخال الباركود الصحيح ")
e.Handled = True

End If
End If
End Sub

Private Sub BarcodeTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarcodeTextBox.TextChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
min.Show()

End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Dim f As Form = sender
If f.WindowState = FormWindowState.Minimized Then
Me.Hide()
NotifyIcon1.Visible = True

End If
End Sub

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
Me.Show()
Me.WindowState = FormWindowState.Normal
NotifyIcon1.Visible = False
End Sub
Private Sub الخروجToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles الخروجToolStripMenuItem.Click
Me.Close()
End Sub

Private Sub ضهورالبرنامجToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ضهورالبرنامجToolStripMenuItem.Click
Me.WindowState = FormWindowState.Maximized
NotifyIcon1.Visible = False
Me.Show()

End Sub

Private Sub Timer3_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick



End Sub
End Class


هذا كود البرنامج

اخي ارغب بالتنبيه للجدول expiredate قبل التاريخ ب 30 يوم مثلا
فقط
ارجو المساعدة اخوان