منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
من فضلكم
ممكن مساعده في التوضيح لكود تسجيل بيانات عمليه الدخول والخروج من البرنامج للمستخدمين
وشكراً

انشأ جدول جديد
و عند الضغط على زي تسجيل الدخول اضف


وعند حذث / زر اغلاق البرنامج


و انشاء فورم جديدة لعرض هذه البيانات في DataGridView مع وضع textbox او combobox لكتابة / لأختيار اسم المستخدم
واضف هذا لعرض البيانات

(05-03-22, 04:27 PM)SaedAmer كتب : [ -> ]انشأ جدول جديد
و عند الضغط على زي تسجيل الدخول اضف

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "حضور" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

وعند حذث / زر اغلاق البرنامج

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "انصراف" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

و انشاء فورم جديدة لعرض هذه البيانات في DataGridView مع وضع textbox او combobox لكتابة / لأختيار اسم المستخدم
واضف هذا لعرض البيانات

كود :

conn9 = New OleDbConnection(Constr9)
           conn9.ConnectionString = Constr9
           conn9.Open()

           ds9.Clear()
           Dim str9 As String = "SELECT * FROM XXX WHERE Cient_Name = " & textbox1.text
                   adapt9 = New OleDbDataAdapter(str9, conn9)
                      adapt9.Fill(ds9, "XXX")
                     BS9.DataSource = ds9
           BS9.DataMember = "XXX"
           CRM_Form.DataGridView1.DataSource = ds9.Tables(0)

شكراً جزيلاً على الرد والاهتمام
جزاك الله خيرا وجعله في ميزان حسناتك
هجرب الكود 
إن شاء الله
وهبلغك 
شكرا ألف شكر

(05-03-22, 04:27 PM)SaedAmer كتب : [ -> ]انشأ جدول جديد
و عند الضغط على زي تسجيل الدخول اضف

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "حضور" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

وعند حذث / زر اغلاق البرنامج

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "انصراف" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

و انشاء فورم جديدة لعرض هذه البيانات في DataGridView مع وضع textbox او combobox لكتابة / لأختيار اسم المستخدم
واضف هذا لعرض البيانات

كود :

conn9 = New OleDbConnection(Constr9)
           conn9.ConnectionString = Constr9
           conn9.Open()

           ds9.Clear()
           Dim str9 As String = "SELECT * FROM XXX WHERE Cient_Name = " & textbox1.text
                   adapt9 = New OleDbDataAdapter(str9, conn9)
                      adapt9.Fill(ds9, "XXX")
                     BS9.DataSource = ds9
           BS9.DataMember = "XXX"
           CRM_Form.DataGridView1.DataSource = ds9.Tables(0)

هل هكذا نوع الحقول

(30-10-22, 08:29 PM)ali_ahmed12 كتب : [ -> ]

(05-03-22, 04:27 PM)SaedAmer كتب : [ -> ]انشأ جدول جديد
و عند الضغط على زي تسجيل الدخول اضف

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "حضور" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

وعند حذث / زر اغلاق البرنامج

كود :

If conn9.State = ConnectionState.Closed Then

               conn9.Open()

           End If
           Dim cmd9 As New OleDbCommand


           Dim sql As String = "INSERT INTO XXX (Cient_Name,Date,Time,Status) VALUES ('" & TextBox1.Text & "','" & DateTime.Now.ToString("dd/MM/yyyy") & "','" & DateTime.Now.ToString("hh:mm:ss") & "','" & "انصراف" & "')"


           cmd9.CommandText = sql
           cmd9.Connection = conn9
           cmd9.ExecuteNonQuery()

و انشاء فورم جديدة لعرض هذه البيانات في DataGridView مع وضع textbox او combobox لكتابة / لأختيار اسم المستخدم
واضف هذا لعرض البيانات

كود :

conn9 = New OleDbConnection(Constr9)
           conn9.ConnectionString = Constr9
           conn9.Open()

           ds9.Clear()
           Dim str9 As String = "SELECT * FROM XXX WHERE Cient_Name = " & textbox1.text
                   adapt9 = New OleDbDataAdapter(str9, conn9)
                      adapt9.Fill(ds9, "XXX")
                     BS9.DataSource = ds9
           BS9.DataMember = "XXX"
           CRM_Form.DataGridView1.DataSource = ds9.Tables(0)

هل هكذا نوع الحقول

هل من رد

وعليكم السلام و رحمة الله و بركاته

كنت اتمنى لو انك اضفت الجزئية التي تريدها بواسطة مشروع تمدنا به و حيث انه التعامل معه سيكون اسرع

شكرا على البرنامج