المشاركات : 9
المواضيع 3
الإنتساب : Sep 2021
السمعة :
0
الشكر: 7
تم شكره 12 مرات في 7 مشاركات
السلام عليكم
من فضلكم
ممكن مساعده في التوضيح لكود تسجيل بيانات عمليه الدخول والخروج من البرنامج للمستخدمين
وشكراً
المشاركات : 57
المواضيع 12
الإنتساب : Aug 2019
السمعة :
2
الشكر: 11
تم شكره 58 مرات في 32 مشاركات
انشأ جدول جديد
و عند الضغط على زي تسجيل الدخول اضف
كود :
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)
المشاركات : 9
المواضيع 3
الإنتساب : Sep 2021
السمعة :
0
الشكر: 7
تم شكره 12 مرات في 7 مشاركات
(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)
شكراً جزيلاً على الرد والاهتمام
جزاك الله خيرا وجعله في ميزان حسناتك
هجرب الكود
إن شاء الله
وهبلغك
شكرا ألف شكر
المشاركات : 164
المواضيع 57
الإنتساب : Sep 2022
السمعة :
1
الشكر: 99
تم شكره 9 مرات في 7 مشاركات
(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)
هل هكذا نوع الحقول
المشاركات : 164
المواضيع 57
الإنتساب : Sep 2022
السمعة :
1
الشكر: 99
تم شكره 9 مرات في 7 مشاركات
(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)
هل هكذا نوع الحقول
هل من رد
المشاركات : 58
المواضيع 17
الإنتساب : Dec 2023
السمعة :
9
الشكر: 21
تم شكره 57 مرات في 43 مشاركات
07-01-24, 02:36 AM
(آخر تعديل لهذه المشاركة : 07-01-24, 12:34 PM {2} بواسطة Kamil.)
وعليكم السلام و رحمة الله و بركاته
كنت اتمنى لو انك اضفت الجزئية التي تريدها بواسطة مشروع تمدنا به و حيث انه التعامل معه سيكون اسرع
المشاركات : 1
المواضيع 0
الإنتساب : Aug 2019
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
|