تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفيه عمل حفظ البيانات الخاصة بمتابعة دخول وخروج المستخدمين للبرنامج
#1
السلام عليكم
من فضلكم
ممكن مساعده في التوضيح لكود تسجيل بيانات عمليه الدخول والخروج من البرنامج للمستخدمين
وشكراً
الرد }}
تم الشكر بواسطة:
#2
انشأ جدول جديد
و عند الضغط على زي تسجيل الدخول اضف

كود :
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)
الرد }}
تم الشكر بواسطة: ابراهيم ايبو , Saly nor
#3
(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)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] فورم تسجيل دخول يتفاعل مع المستخدم mohamed haroon 11 4,946 05-08-22, 12:24 AM
آخر رد: esawy1
  [مشروع] برنامج يساعد على التحفيظ[محدث هذا العام 2022] الاستغناء عن قواعد البيانات سعود 15 9,385 22-07-22, 10:44 AM
آخر رد: سعود
  متابعة حركات المستخدمين ibrahimmakhool 1 243 17-06-22, 04:15 PM
آخر رد: asemshahen5
Video [درس فيديو] استخدام داتا جريد فيو متقدمة يمكنها فلترة البيانات وترتيبها ahmadpal 1 1,847 17-04-22, 08:35 AM
آخر رد: ahmedramzyaish
  عاوز كود سريع لتصدير البيانات ضخمه الى اكسيل ؟ grg_dd 3 703 28-03-22, 12:51 AM
آخر رد: أبووسم
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 78 37,593 03-02-22, 12:56 PM
آخر رد: abo.alaa315
  التعامل مع الصورة في قاعدة البيانات ابراهيم ايبو 2 950 29-01-22, 01:50 AM
آخر رد: سعود
  [كود] شرح كيفيه جمع صف في Datagridview ووضع مجموعة في عمود وفي نفس الصف al.shwea.bassam 0 607 25-01-22, 05:47 PM
آخر رد: al.shwea.bassam
  [مشروع] [* اضافة ميزة مراسلات بين المستخدمين *]التحكم بالبرنامج ومستخدميه عن بعد[مثال بسيط] سعود 11 1,700 22-11-21, 11:08 PM
آخر رد: سعود
  [مثال] حفظ ملفات لـ PDF و الوورد والاكسيل داخل قاعدة البيانات( تحديث جديد) جميل علي 18 13,586 21-11-21, 11:39 PM
آخر رد: ibra9009

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم