06-11-22, 06:16 PM
(آخر تعديل لهذه المشاركة : 06-11-22, 06:27 PM {2} بواسطة ali_ahmed12.)
(06-11-22, 06:12 PM)Taha Okla كتب : قم بارفاق مشروعك لاستطيع مساعدتك ..
اريد عمل عمود خامس في قاعدة البيانات وليكن اسمه now واريد عندما كل ما ادخل عن طريق زر دخول يحفظ تاريخ ووقت الدخول في قاعدة البيانات
هل يمكنك مساعدتي به
صورة شاشة دخول
صورة جدول مستخدمين
كود دخول
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MessageBox.Show("الرجاء ادخال كلمة المرور")
TextBox1.Focus()
End If
Dim dt As New DataTable
query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
da = New SqlDataAdapter(query, Module1.con)
da.Fill(dt)
If (dt.Rows.Count <> 0) Then
Module1.id = dt.Rows(0)(0)
Module1.pwd = dt.Rows(0)(1)
Me.Hide()
fullname = dt.Rows(0)(2)
Form_main.UserType = dt.Rows(0)(3)
Form_main.ShowDialog()
Me.Dispose()
Else
MessageBox.Show("كلمة المرور غير صحيحة")
End If
End Sub(06-11-22, 06:16 PM)ali_ahmed12 كتب :(06-11-22, 06:12 PM)Taha Okla كتب : قم بارفاق مشروعك لاستطيع مساعدتك ..
اريد عمل عمود خامس في قاعدة البيانات وليكن اسمه now واريد عندما كل مادخل لزر دخول يحفظ تاريخ دخول في قاعدة البيانات
هل يمكنك مساعدتي به
صورة شاشة دخول
صورة جدول مستخدمين
كود دخول
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MessageBox.Show("الرجاء ادخال كلمة المرور")
TextBox1.Focus()
End If
Dim dt As New DataTable
query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
da = New SqlDataAdapter(query, Module1.con)
da.Fill(dt)
If (dt.Rows.Count <> 0) Then
Module1.id = dt.Rows(0)(0)
Module1.pwd = dt.Rows(0)(1)
Me.Hide()
fullname = dt.Rows(0)(2)
Form_main.UserType = dt.Rows(0)(3)
Form_main.ShowDialog()
Me.Dispose()
Else
MessageBox.Show("كلمة المرور غير صحيحة")
End If
End Sub
(06-11-22, 06:16 PM)ali_ahmed12 كتب :(06-11-22, 06:12 PM)Taha Okla كتب : قم بارفاق مشروعك لاستطيع مساعدتك ..
اريد عمل عمود خامس في قاعدة البيانات وليكن اسمه now واريد عندما كل مادخل لزر دخول يحفظ تاريخ دخول في قاعدة البيانات
هل يمكنك مساعدتي به
صورة شاشة دخول
صورة جدول مستخدمين
كود دخول
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MessageBox.Show("الرجاء ادخال كلمة المرور")
TextBox1.Focus()
End If
Dim dt As New DataTable
query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
da = New SqlDataAdapter(query, Module1.con)
da.Fill(dt)
If (dt.Rows.Count <> 0) Then
Module1.id = dt.Rows(0)(0)
Module1.pwd = dt.Rows(0)(1)
Me.Hide()
fullname = dt.Rows(0)(2)
Form_main.UserType = dt.Rows(0)(3)
Form_main.ShowDialog()
Me.Dispose()
Else
MessageBox.Show("كلمة المرور غير صحيحة")
End If
End Sub
(06-11-22, 06:16 PM)ali_ahmed12 كتب :(06-11-22, 06:12 PM)Taha Okla كتب : قم بارفاق مشروعك لاستطيع مساعدتك ..
اريد عمل عمود خامس في قاعدة البيانات وليكن اسمه now واريد عندما كل مادخل لزر دخول يحفظ تاريخ دخول في قاعدة البيانات
هل يمكنك مساعدتي به
صورة شاشة دخول
صورة جدول مستخدمين
كود دخول
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MessageBox.Show("الرجاء ادخال كلمة المرور")
TextBox1.Focus()
End If
Dim dt As New DataTable
query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
da = New SqlDataAdapter(query, Module1.con)
da.Fill(dt)
If (dt.Rows.Count <> 0) Then
Module1.id = dt.Rows(0)(0)
Module1.pwd = dt.Rows(0)(1)
Me.Hide()
fullname = dt.Rows(0)(2)
Form_main.UserType = dt.Rows(0)(3)
Form_main.ShowDialog()
Me.Dispose()
Else
MessageBox.Show("كلمة المرور غير صحيحة")
End If
End Sub
(06-11-22, 06:16 PM)ali_ahmed12 كتب :(06-11-22, 06:12 PM)Taha Okla كتب : قم بارفاق مشروعك لاستطيع مساعدتك ..
اريد عمل عمود خامس في قاعدة البيانات وليكن اسمه now واريد عندما كل ما ادخل عن طريق زر دخول يحفظ تاريخ ووقت الدخول في قاعدة البيانات
هل يمكنك مساعدتي به
صورة شاشة دخول
صورة جدول مستخدمين
كود دخول
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MessageBox.Show("الرجاء ادخال كلمة المرور")
TextBox1.Focus()
End If
Dim dt As New DataTable
query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
da = New SqlDataAdapter(query, Module1.con)
da.Fill(dt)
If (dt.Rows.Count <> 0) Then
Module1.id = dt.Rows(0)(0)
Module1.pwd = dt.Rows(0)(1)
Me.Hide()
fullname = dt.Rows(0)(2)
Form_main.UserType = dt.Rows(0)(3)
Form_main.ShowDialog()
Me.Dispose()
Else
MessageBox.Show("كلمة المرور غير صحيحة")
End If
End Sub
(06-11-22, 06:16 PM)ali_ahmed12 كتب :(06-11-22, 06:12 PM)Taha Okla كتب : قم بارفاق مشروعك لاستطيع مساعدتك ..
اريد عمل عمود خامس في قاعدة البيانات وليكن اسمه now واريد عندما كل مادخل لزر دخول يحفظ تاريخ دخول في قاعدة البيانات
هل يمكنك مساعدتي به
صورة شاشة دخول
صورة جدول مستخدمين
كود دخول
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MessageBox.Show("الرجاء ادخال كلمة المرور")
TextBox1.Focus()
End If
Dim dt As New DataTable
query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
da = New SqlDataAdapter(query, Module1.con)
da.Fill(dt)
If (dt.Rows.Count <> 0) Then
Module1.id = dt.Rows(0)(0)
Module1.pwd = dt.Rows(0)(1)
Me.Hide()
fullname = dt.Rows(0)(2)
Form_main.UserType = dt.Rows(0)(3)
Form_main.ShowDialog()
Me.Dispose()
Else
MessageBox.Show("كلمة المرور غير صحيحة")
End If
End Sub
(06-11-22, 06:16 PM)ali_ahmed12 كتب :(06-11-22, 06:12 PM)Taha Okla كتب : قم بارفاق مشروعك لاستطيع مساعدتك ..
اريد عمل عمود خامس في قاعدة البيانات وليكن اسمه now واريد عندما كل مادخل لزر دخول يحفظ تاريخ دخول في قاعدة البيانات
هل يمكنك مساعدتي به
صورة شاشة دخول
صورة جدول مستخدمين
كود دخول
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MessageBox.Show("الرجاء ادخال كلمة المرور")
TextBox1.Focus()
End If
Dim dt As New DataTable
query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
da = New SqlDataAdapter(query, Module1.con)
da.Fill(dt)
If (dt.Rows.Count <> 0) Then
Module1.id = dt.Rows(0)(0)
Module1.pwd = dt.Rows(0)(1)
Me.Hide()
fullname = dt.Rows(0)(2)
Form_main.UserType = dt.Rows(0)(3)
Form_main.ShowDialog()
Me.Dispose()
Else
MessageBox.Show("كلمة المرور غير صحيحة")
End If
End Sub
(06-11-22, 06:16 PM)ali_ahmed12 كتب :(06-11-22, 06:12 PM)Taha Okla كتب : قم بارفاق مشروعك لاستطيع مساعدتك ..
اريد عمل عمود خامس في قاعدة البيانات وليكن اسمه now واريد عندما كل مادخل لزر دخول يحفظ تاريخ دخول في قاعدة البيانات
هل يمكنك مساعدتي به
صورة شاشة دخول
صورة جدول مستخدمين
كود دخول
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MessageBox.Show("الرجاء ادخال كلمة المرور")
TextBox1.Focus()
End If
Dim dt As New DataTable
query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
da = New SqlDataAdapter(query, Module1.con)
da.Fill(dt)
If (dt.Rows.Count <> 0) Then
Module1.id = dt.Rows(0)(0)
Module1.pwd = dt.Rows(0)(1)
Me.Hide()
fullname = dt.Rows(0)(2)
Form_main.UserType = dt.Rows(0)(3)
Form_main.ShowDialog()
Me.Dispose()
Else
MessageBox.Show("كلمة المرور غير صحيحة")
End If
End Sub
عملت عمود اسمه dn من نوع datatime في sql وفي المودل عرفت متغير من نوع datatime وهدا كود دخول يظهر خطا به
كود :
If TextBox1.Text = "" Then
MessageBox.Show("الرجاء ادخال كلمة المرور")
TextBox1.Focus()
End If
Dim dt As New DataTable
query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
da = New SqlDataAdapter(query, Module1.con)
da.Fill(dt)
If (dt.Rows.Count <> 0) Then
Module1.id = dt.Rows(0)(0)
Module1.pwd = dt.Rows(0)(1)
Module1.dn = Convert.ToDateTime(dt.Rows(0)(4))
Me.Hide()
fullname = dt.Rows(0)(2)
Form_main.UserType = dt.Rows(0)(3)
Form_main.ShowDialog()
Me.Dispose()
Else
MessageBox.Show("كلمة المرور غير صحيحة")
End If