[mohamedalqadi]

(30-03-20, 11:48 PM)عبد العزيز البسكري كتب :

أرجو المعذرة أنّي قدّمت المساعدة حسب مفهومي الخاص

سأعتبر ما طرحته أعلاه .. آخر مشاركة لي أقدّمها لشخص ثانٍ

أن أفكّر و أتكهّن و أخمّن إلكترونيا عبر الأنترنت و أنجر قاعدة بيانات و جدول للتجربة

بدون أدنى لباقة و كلمة شكر

 يأتي من يقول أنّه يريد فعل شيئا آخرا .. و هذا الشيء الآخر لم يطرحه كتسهيل للمساعدة ..

هذه قمّة .. الكورورنا

سأحتفظ بمساعداتي لنفسي .. و السلام عليكم

تحياتي

والله انا لااقصد شيئ فقط اريد ان يتوافق مع كودي ومعذرة اخي

---

(30-03-20, 11:54 PM)mohamedalqadi كتب :

(30-03-20, 11:48 PM)عبد العزيز البسكري كتب :

أرجو المعذرة أنّي قدّمت المساعدة حسب مفهومي الخاص

سأعتبر ما طرحته أعلاه .. آخر مشاركة لي أقدّمها لشخص ثانٍ

أن أفكّر و أتكهّن و أخمّن إلكترونيا عبر الأنترنت و أنجر قاعدة بيانات و جدول للتجربة

بدون أدنى لباقة و كلمة شكر

 يأتي من يقول أنّه يريد فعل شيئا آخرا .. و هذا الشيء الآخر لم يطرحه كتسهيل للمساعدة ..

هذه قمّة .. الكورورنا

سأحتفظ بمساعداتي لنفسي .. و السلام عليكم

تحياتي

والله انا لااقصد شيئ فقط اريد ان يتوافق مع كودي ومعذرة اخي

---

انا اريد فقط اضافه الموظف هذا كود الموديل كامل

كود :

Imports System.Data.SqlClient

Module Emp_Module
   Public dt_Employees As New DataTable
   Public add_edit As String
   Public emp_id As Integer

   Public Sub Load_Employees()
       dt_Employees.Clear()
       Dim cmd As New SqlCommand("select emp_id,emp_name,emp_phone,emp_state from Employees where emp_state = 1", connSQLServer)
       connSQLServer.Open()
       dt_Employees.Load(cmd.ExecuteReader)
       connSQLServer.Close()
       cmd = Nothing

   End Sub

   Public Function Max_emp_id_From_Employee()
       Dim number As Integer
       Try
           Dim cmd As New SqlCommand("Select Max (emp_id) Employees", connSQLServer)

           connSQLServer.Open()
           number = cmd.ExecuteScalar
           connSQLServer.Close()
       Catch
           number = 0
           connSQLServer.Close()
       End Try
       Return number

   End Function


   Public Sub Insert_Employees(ByVal emp_name As String, ByVal emp_phone As String, ByVal emp_state As Boolean)
       Dim cmd As New SqlCommand("Insert Into Employees(emp_id,emp_name,emp_phone,emp_state) values (@emp_id,@emp_name,@emp_phone,@emp_state)", connSQLServer)
       cmd.Parameters.Add("emp_id", SqlDbType.Int).Value = emp_id
       cmd.Parameters.Add("emp_name", SqlDbType.NVarChar).Value = emp_name
       cmd.Parameters.Add("emp_phone", SqlDbType.NVarChar).Value = emp_phone
       cmd.Parameters.Add("emp_state", SqlDbType.Bit).Value = emp_state
       connSQLServer.Open()
       cmd.ExecuteNonQuery()
       connSQLServer.Close()
       cmd = Nothing
   End Sub

   Public Sub Update_Employees(ByVal emp_name As String, ByVal emp_phone As String, ByVal emp_state As Boolean, ByVal emp_id2 As Integer)
       Dim cmd As New SqlCommand("Update Employees set emp_name=@emp_name,emp_phone=@emp_phone,emp_state=@emp_state where emp_id=@emp_id2", connSQLServer)
       cmd.Parameters.Add("emp_id2", SqlDbType.Int).Value = emp_id2
       cmd.Parameters.Add("emp_name", SqlDbType.NVarChar).Value = emp_name
       cmd.Parameters.Add("emp_phone", SqlDbType.NVarChar).Value = emp_phone
       cmd.Parameters.Add("emp_state", SqlDbType.Bit).Value = emp_state
       connSQLServer.Open()
       cmd.ExecuteNonQuery()
       connSQLServer.Close()
       cmd = Nothing
   End Sub
   Public Sub Update_Employees_delete(ByVal emp_id2 As Integer)
       Dim cmd As New SqlCommand("Update Employees set emp_state=@emp_state where emp_id=@emp_id2", connSQLServer)
       cmd.Parameters.Add("emp_id2", SqlDbType.Int).Value = emp_id2
       cmd.Parameters.Add("emp_state", SqlDbType.Bit).Value = False
       connSQLServer.Open()
       cmd.ExecuteNonQuery()
       connSQLServer.Close()
       cmd = Nothing
   End Sub
End Module

وهذا كود بوتن الحفظ

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If add_edit = "Add" Then
           Insert_Employees(TextBox1.Text, TextBox2.Text, CheckBox1.CheckState)
       Else
           Update_Employees(TextBox1.Text, TextBox2.Text, CheckBox1.Checked, emp_id)

       End If
       Load_Employees()
       Close()

   End Sub