+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : المستخدمين (/showthread.php?tid=44200)
RE: المستخدمين - ali_ahmed12 - 06-11-22
(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 IfRE: المستخدمين - أبو خالد الشكري - 06-11-22
مرحبا بالجميع ...
عندي مداخلة بسيطة .
أعتقد يحتاج هذا المشروع إلى شاشة إضافة مستخدمين جدد .
ثم أني أعتقد أن كلمة Now محجوزة ولا يمكن أن تكون صالحة لاسم حقل .
RE: المستخدمين - ali_ahmed12 - 06-11-22
(06-11-22, 06:52 PM)أبو خالد الشكري كتب : مرحبا بالجميع ...
عندي مداخلة بسيطة .
أعتقد يحتاج هذا المشروع إلى شاشة إضافة مستخدمين جدد .
ثم أني أعتقد أن كلمة Now محجوزة ولا يمكن أن تكون صالحة لاسم حقل .
ممكن توضيح اكثر كلمة dn وليس now
RE: المستخدمين - أبو خالد الشكري - 07-11-22
(06-11-22, 07:03 PM)ali_ahmed12 كتب :(06-11-22, 06:52 PM)أبو خالد الشكري كتب : مرحبا بالجميع ...
عندي مداخلة بسيطة .
أعتقد يحتاج هذا المشروع إلى شاشة إضافة مستخدمين جدد .
ثم أني أعتقد أن كلمة Now محجوزة ولا يمكن أن تكون صالحة لاسم حقل .
ممكن توضيح اكثر كلمة dn وليس now
أنت قلت :
اريد عمل عمود خامس في قاعدة البيانات وليكن اسمه now
RE: المستخدمين - ali_ahmed12 - 07-11-22
(07-11-22, 01:19 PM)أبو خالد الشكري كتب :(06-11-22, 07:03 PM)ali_ahmed12 كتب :(06-11-22, 06:52 PM)أبو خالد الشكري كتب : مرحبا بالجميع ...
عندي مداخلة بسيطة .
أعتقد يحتاج هذا المشروع إلى شاشة إضافة مستخدمين جدد .
ثم أني أعتقد أن كلمة Now محجوزة ولا يمكن أن تكون صالحة لاسم حقل .
ممكن توضيح اكثر كلمة dn وليس now
أنت قلت :
اريد عمل عمود خامس في قاعدة البيانات وليكن اسمه now
صحيح لكن انا اريد عندما اضغط علي زر دخول يحفظ تاربخ ووقت دخول في عمود dn هل من اقتراح لحل مشكله
شاشة دخول به combox اسماء وتكست باسورد
RE: المستخدمين - هاوي1995 - 12-11-22
السلام عليكم ورحمة الله وبركاته
عن اذن الادارة والمشرفين والمراقبين والأعضاء وأحبتي في الله
استسمحكم عذرا ونرفق لكم سورس برمجي كامل متكامل للاستاذ القدير احمد حمدان ابو يوسف ربي يوفقه ويجعله في ميزان حسناته ان شاء الله
https://youtu.be/HA2kRRTOekc
(12-11-22, 06:10 AM)هاوي1995 كتب : السلام عليكم ورحمة الله وبركاته
عن اذن الادارة والمشرفين والمراقبين والأعضاء وأحبتي في الله
استسمحكم عذرا ونرفق لكم سورس برمجي كامل متكامل للاستاذ القدير احمد حمدان ابو يوسف ربي يوفقه ويجعله في ميزان حسناته ان شاء الله
https://youtu.be/HA2kRRTOekc
كذلك يوجد فيديو في قناته يشرح فيها الاكواد وطريقة عمل الكود
RE: المستخدمين - ali_ahmed12 - 12-11-22
(12-11-22, 06:10 AM)هاوي1995 كتب : السلام عليكم ورحمة الله وبركاته
عن اذن الادارة والمشرفين والمراقبين والأعضاء وأحبتي في الله
استسمحكم عذرا ونرفق لكم سورس برمجي كامل متكامل للاستاذ القدير احمد حمدان ابو يوسف ربي يوفقه ويجعله في ميزان حسناته ان شاء الله
https://youtu.be/HA2kRRTOekc
(12-11-22, 06:10 AM)هاوي1995 كتب : السلام عليكم ورحمة الله وبركاته
عن اذن الادارة والمشرفين والمراقبين والأعضاء وأحبتي في الله
استسمحكم عذرا ونرفق لكم سورس برمجي كامل متكامل للاستاذ القدير احمد حمدان ابو يوسف ربي يوفقه ويجعله في ميزان حسناته ان شاء الله
https://youtu.be/HA2kRRTOekc
كذلك يوجد فيديو في قناته يشرح فيها الاكواد وطريقة عمل الكود
بارك الله فيك
ممكن ترفق اكواد في الردود لانه نسخه اصدار لديك ليس نفس التي لدي لايمكن تشغيل برنامج
RE: المستخدمين - هاوي1995 - 12-11-22
(12-11-22, 01:18 PM)ali_ahmed12 كتب :ادخل على قناته واطلب منه يستكمل شرح دروس الاكواد(12-11-22, 06:10 AM)هاوي1995 كتب : السلام عليكم ورحمة الله وبركاته
عن اذن الادارة والمشرفين والمراقبين والأعضاء وأحبتي في الله
استسمحكم عذرا ونرفق لكم سورس برمجي كامل متكامل للاستاذ القدير احمد حمدان ابو يوسف ربي يوفقه ويجعله في ميزان حسناته ان شاء الله
https://youtu.be/HA2kRRTOekc
(12-11-22, 06:10 AM)هاوي1995 كتب : السلام عليكم ورحمة الله وبركاته
عن اذن الادارة والمشرفين والمراقبين والأعضاء وأحبتي في الله
استسمحكم عذرا ونرفق لكم سورس برمجي كامل متكامل للاستاذ القدير احمد حمدان ابو يوسف ربي يوفقه ويجعله في ميزان حسناته ان شاء الله
https://youtu.be/HA2kRRTOekc
كذلك يوجد فيديو في قناته يشرح فيها الاكواد وطريقة عمل الكود
بارك الله فيك
ممكن ترفق اكواد في الردود لانه نسخه اصدار لديك ليس نفس التي لدي لايمكن تشغيل برنامج
قد شرح فيديو وأبلغ متابعيه انه فيه تكملة بس للآن مانزل حاجة ممكن مشغول