Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DatabaseDataSet.Product' table. You can move, or remove it, as needed.
Me.ProductTableAdapter.Fill(Me.DatabaseDataSet.Product)
'TODO: This line of code loads data into the 'DatabaseDataSet.Product' table. You can move, or remove it, as needed.
Me.ProductTableAdapter.Fill(Me.DatabaseDataSet.Product)
Private Sub Form5_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
If Me.WindowState = FormWindowState.Maximized Then
ProductDataGridView.Size = New Size(1024, 665)
ProductDataGridView.Location = New Point(0, 25)
ElseIf Me.WindowState = FormWindowState.Normal Then
ProductDataGridView.Size = New Size(800, 527)
ProductDataGridView.Location = New Point(0, 25)
End If
End Sub
Private Sub Form5_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form6.RichTextBox1.Text = (Form6.RichTextBox1.Text & "[" & (TimeOfDay) & "]" & "ใช้คำสั่งรีโหลด" + vbCr + vbLf)
Me.Close()
SplashScreen2.Show()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Text = "เพิ่มและแก้ไขรายการสินค้า" & " Version " & Application.ProductVersion & " " & "ขณะนี้เวลา : " & TimeOfDay
End Sub
Private Sub ProductBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductBindingNavigatorSaveItem.Click
Me.Validate()
Me.ProductBindingSource.EndEdit()
[font=Verdana]Me.TableAdapterManager.UpdateAll(Me.DatabaseDataSet)[/font]
Load balance : Server 00
