Private Sub ขอมลบคลากรToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ขอมลบคลากรToolStripMenuItem.Click
Me.Hide()
ตั้งค่าเบื้องต้นระบบ_ข้อมูลบุคลากร.Show()
End Sub
Private Sub ขอมลลกคาToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ขอมลลกคาToolStripMenuItem.Click
Me.Hide()
ตั้งค่าเบื้องต้นระบบ_ข้อมูลลูกค้า.Show()
End Sub
Private Sub ขอมลอปกรณToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ขอมลอปกรณToolStripMenuItem.Click
Me.Hide()
ตั้งค่าเบื้องต้นระบบ_ข้อมูลอุปกรณ์.Show()
End Sub
Private Sub อตราเงนเดอนToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles อตราเงนเดอนToolStripMenuItem.Click
Me.Hide()
ตั้งค่าเบื้องต้นระบบ_อัตราเงินเดือน.Show()
End Sub
Private Sub อตราคาบรการToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles อตราคาบรการToolStripMenuItem.Click
Me.Hide()
ตั้งค่าเบื้องต้นระบบ_อัตราค่าบริการ.Show()
End Sub
Private Sub การเบกใชอปกรณToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles การเบกใชอปกรณToolStripMenuItem.Click
Me.Hide()
การเบิกใช้อุปกรณ์.Show()
End Sub
Private Sub การรบรถToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles การรบรถToolStripMenuItem.Click
Me.Hide()
การให้บริการรับรถคืนรถ_การรับรถ.Show()
End Sub
Private Sub การคนรถToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles การคนรถToolStripMenuItem1.Click
Me.Hide()
การให้บริการรับรถคืนรถ_การคืนรถ.Show()
End Sub
Private Sub รปแบบเอกสารToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles รปแบบเอกสารToolStripMenuItem.Click
Me.Hide()
พิมพ์รายงานรูปแบบเอกสาร.Show()
End Sub
Private Sub รปแบบกราฟToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles รปแบบกราฟToolStripMenuItem.Click
Me.Hide()
พิมพ์รายงานรูปแบบกราฟ.Show()
End Sub
Private Sub ออกจากระบบToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ออกจากระบบToolStripMenuItem.Click
Me.Hide()
ระบบบริหารจัดการร้านคาร์แคร์.Show()
End Sub
Public Sub loadfile()
Dim sqlQuery As String
sqlQuery = "select n_date as วันที่,per_no as รหัสบุคลากร,n_time as เวลาเข้างาน,n_absent as สาเหตุการขาดงาน from note"
Dim sqlAdapter As New MySqlDataAdapter
Dim sqlCmd As New MySqlCommand
Dim sqlTable As New DataTable
'Dim i As Integer
With sqlCmd
.CommandText = sqlQuery
.Connection = con
End With
With sqlAdapter
.SelectCommand = sqlCmd
.Fill(sqlTable)
End With
DataGridView1.DataSource = sqlTable
End Sub
Private Sub บันทึกการทำงาน_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If con.State = ConnectionState.Closed Then
con.Open()
End If
loadfile()
con.Close()
End Sub
Private Sub เพิ่ม_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles เพิ่ม.Click
Dim Query As String
Query = "INSERT INTO note"
Dim con As MySqlConnection = New MySqlConnection("Data Source=localhost;Database=carcare;User ID=root;Password=root")
Dim sql As MySqlCommand = New MySqlCommand(Query, con)
Dim cmd As MySqlCommand = New MySqlCommand(Query, con)
Dim i As Integer = cmd.ExecuteNonQuery()
'If (i > 0) Then
'lblMsg.Text = "Record is Successfully Inserted"
'Else
'lblMsg.Text = "Record is not Inserted"
'End If
con.Close()
loadfile()
End Sub
Private Sub ลบ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ลบ.Click
Dim Query As String
con.Open()
Dim xx As Integer
xx = DataGridView1.CurrentRow.Index
'MsgBox(DataGridView1.Item(0, xx).Value)
Dim zz As String
zz = DataGridView1.Item(0, xx).Value.ToString
Query = "Delete FROM note WHERE n_date =" + zz
Dim cmd As MySqlCommand = New MySqlCommand(Query, con)
MsgBox(Query)
Dim i As Integer = cmd.ExecuteNonQuery()
'If (i > 0) Then
' lblMsg.Text = "Record is Successfully Deleted"
'Else
' lblMsg.Text = "Record is not Deleted"
'End If
con.Close()
loadfile()
End Sub
Private Sub แก้ไข_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles แก้ไข.Click
Dim Query As String
con.Open()
Query = "UPDATE note SET per_no ='" + TextBox2.Text + "'"
Query = Query + ",n_time = '" + TextBox1.Text + "'"
Query = Query + ",n_absent = '" + ComboBox1.Text + "'"
Query = Query + " WHERE n_date = '" + DateTimePicker1.Text + "'"
Dim cmd As MySqlCommand = New MySqlCommand(Query, con)
MsgBox(Query)
Dim i As Integer = cmd.ExecuteNonQuery()
'If (i > 0) Then
'lblMsg.Text = "Record is Successfully Updated"
' lblMsg.Text = "Record is not Updated"
'End If
con.Close()
loadfile()
End Sub
Private Sub ค้นหา_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ค้นหา.Click
Dim sqlQuery As String = "SELECT * FROM note WHERE n_date = '" & DateTimePicker2.Text & "' "
MsgBox(sqlQuery)
Dim sqlAdapter As New MySqlDataAdapter
Dim sqlCmd As New MySqlCommand
Dim sqlTable As New DataTable
'Dim i As Integer
With sqlCmd
.CommandText = sqlQuery
.Connection = con
End With
With sqlAdapter
.SelectCommand = sqlCmd
.Fill(sqlTable)
End With
DataGridView1.DataSource = sqlTable
End Sub
Private Sub ยกเลิก_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ยกเลิก.Click
DateTimePicker1.Text = ""
TextBox2.Text = ""
TextBox1.Text = ""
ComboBox1.Text = ""
End Sub
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Dim i As Integer
i = DataGridView1.CurrentRow.Index
DateTimePicker1.Text = DataGridView1.Item(0, i).Value
TextBox2.Text = DataGridView1.Item(1, i).Value
TextBox1.Text = DataGridView1.Item(2, i).Value
ComboBox1.Text = DataGridView1.Item(3, i).Value
End Sub
End Class
Load balance : Server 02
