Imports System.Data.SqlClient
Public Class Form1
Dim CON As New SqlConnection("Data Source=LAPNONO;Initial Catalog=jobss;Integrated Security=True")
'----------Public Sub Insert ----------
Public Sub InsertTime_Job(ByVal Name As String, ByVal DateNow As String, ByVal NameDey As String, ByVal TimeOn As String, ByVal Code As String)
Dim cmd As SqlCommand
Cmd = New SqlCommand("InsertTime_Job", con)
cmd.CommandType = CommandType.StoredProcedure
Dim Parma(4) As SqlParameter
Parma(0) = New SqlParameter("@Name", SqlDbType.NVarChar, 50) With {.Value = Name}
Parma(1) = New SqlParameter("@DateNow", SqlDbType.NVarChar, 50) With {.Value = DateNow}
Parma(2) = New SqlParameter("@NameDey", SqlDbType.NVarChar, 50) With {.Value = NameDey}
Parma(3) = New SqlParameter("@TimeOn", SqlDbType.NVarChar, 50) With {.Value = TimeOn}
Parma(4) = New SqlParameter("@Code", SqlDbType.NVarChar, 50) With {.Value = Code}
Cmd.Parameters.AddRange(Parma)
Con.Open()
cmd.ExecuteNonQuery()
Con.close()
MessageBox.Show("تمت إضافة البيانات بنجاح", "إضافة جديد", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Public Function GetFiled(ByVal ReturnFiled As String, ByVal Tbl As String, ByVal CondFiled As String, ByVal Id As String) As String
Dim serch As String = ""
serch = "Select " & ReturnFiled & " From " & Tbl & " Where " & CondFiled & " Like '" & Id & "' "
Dim Cmd As New SqlCommand(serch, CON)
Dim ReturnResult As String = ""
CON.Open()
Dim red As SqlDataReader = Cmd.ExecuteReader
While red.Read
If red.HasRows Then
If Not (red(ReturnFiled) Is Nothing) Or red(ReturnFiled).ToString.Length > 0 Then
ReturnResult = red(ReturnFiled).ToString
Else
ReturnResult = 0
End If
End If
End While
red.Close()
Cmd.Dispose()
CON.Close()
Return ReturnResult
End Function
Sub SHDATA(ByVal X As String)
Dim sql = "select * from User_Emp where Code='" & (X) & "'"
Dim cmd As New SqlCommand(sql, CON)
CON.Open()
Dim C As Integer = cmd.ExecuteScalar
CON.Close()
If C = 0 Then
MessageBox.Show("لم يتم العثور على سجل ")
Exit Sub
Else
INSERT(txttime.Text)
End If
End Sub
'----------Public Sub Update ----------
Public Sub UpdateTime_Job(ByVal TimeOut1 As String, ByVal Id As Integer)
Dim cmd As SqlCommand
cmd = New SqlCommand("UpdateTime_Job", CON)
cmd.CommandType = CommandType.StoredProcedure
Dim Parma(1) As SqlParameter
Parma(0) = New SqlParameter("@TimeOut1", SqlDbType.NVarChar, 50) With {.Value = TimeOut1}
Parma(1) = New SqlParameter("@ID", SqlDbType.Int) With {.Value = Id}
cmd.Parameters.AddRange(Parma)
CON.Open()
cmd.ExecuteNonQuery()
CON.Close()
MessageBox.Show("تم تعديل البيانات بنجاح", "تعديل ", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Sub INSERT(ByVal Y As String)
Dim sql1 = "select TOP 1 ID, TimeOut1 FROM Time_Job WHERE (DateNow ='" & txtdate.Text & "' And CODE='" & TXTCODE.Text & "') ORDER BY ID Desc"
Dim da As New SqlClient.SqlDataAdapter(sql1, CON)
Dim ds As New DataSet
da.Fill(ds)
Dim DT1 = ds.Tables(0)
If DT1.Rows.Count <= 0 Then
txtName.Text = GetFiled("Name", "User_Emp", "Code", TXTCODE.Text)
InsertTime_Job(txtName.Text, txtdate.Text, txtday.Text, txttime.Text, TXTCODE.Text)
MsgBox("تم تسجيل الدخول بنجاح")
Else
If DT1(0)(1).ToString = "" Then
UpdateTime_Job(txttime.Text, DT1(0)(0))
MsgBox("تم تسجيل الخروج")
Else
txtName.Text = GetFiled("Name", "User_Emp", "Code", TXTCODE.Text)
InsertTime_Job(txtName.Text, txtdate.Text, txtday.Text, txttime.Text, TXTCODE.Text)
MsgBox("تم تسجيل الدخول بنجاح")
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SHDATA(TXTCODE.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtdate.Text = Format(Today, "yyyy/MM/dd")
txtday.Text = Date.Today.ToString("dddd")
End Sub
Private Sub TimerSS_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerSS.Tick
txttime.Text = Date.Now.ToString("hh:mm:ss tt")
End Sub
End Class