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

كل سنة وانتم طيبين بشهر رمضان الكريم

انا اعمل على برنامج للمواقع واريد المساعدة فى طريقة ان ادخل اسم المستخدم والبسورد من البرنامج عند دخول الموقع وشكراااااااااااا
الرد }}}}
تم الشكر بواسطة:
#2
قد حولت فى تعديل الكود بهذا الشكل

Private Sub btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click

'أولا نقوم بافراغ مربعات النصوص
If btn_add.Text = "أضافة" Then
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""

'نغير خاصية الزر إلى حفظ ليتم حفظ االموقع
btn_add.Text = "حفظ"
ElseIf btn_add.Text = "حفظ" Then
'نعود ونحول الخاصية إلى أضافة ليسنى الأضافة مرة أخرى
btn_add.Text = "أضافة"
'شرط التأكد من أن المربعات مليئة
If TextBox3.Text <> "" AndAlso TextBox4.Text <> "" AndAlso TextBox5.Text <> "" AndAlso TextBox10.Text <> "" AndAlso TextBox11.Text <> "" AndAlso ComboBox2.Text <> "" Then
btn_add.Text = "أضافة"
'هذه الكتلة هي للأضافة
'.........................................................................
Try
'الأتصال
cmd.Connection = conn
'عبارة الأضافة
cmd.CommandText = "insert into data (part,name,des,link,user_name,password) values('" & ComboBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & TextBox10.Text & "','" & TextBox11.Text & "')"
'أذا كان الأتصال مفتوح نقوم بأغلاقه
If conn.State = ConnectionState.Open Then
conn.Close()
End If
'نفتح الأتصال
conn.Open()
'تنفيذ الأضافة
cmd.ExecuteNonQuery()
'اغلاق الأتصال
conn.Close()
'حدثان ملئ الليست بوكس ومربعات النصوص
filllistbox_Add()
filltext_Add()
ListBox3.Visible = True
'أصطياد الخطأ أن وجد وأظهاره في رسالة
Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try
'..............................................................................
Else
'أذا لم يتم ملئ مربعات النص تظهر هذه الرسالة
MessageBox.Show("لم تدخل كل المعلومات")

btn_add.Text = "حفظ"
End If
End If


دة كود الاضافة فى خطا والقاعدة لا تقبل الاضافة
End Sub
الرد }}}}
تم الشكر بواسطة:
#3
كود التعديل
Private Sub btn_Editr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Editr.Click
'& TextBox13.Text & "' WHERE user_name ='" & TextBox12.Text & "'"

Try
cmd.Connection = conn
cmd.CommandText = "UPDATE data SET part = '" & ComboBox1.Text & "' , des = '" & TextBox2.Text & "' , link= '" & TextBox1.Text & "' , name = '" & TextBox6.Text & "' , user_name = '" & RTrim(TextBox13.Text) & "' WHERE password ='" & RTrim(TextBox12.Text) & "'"
If conn.State = ConnectionState.Open Then
conn.Close()
End If
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

MessageBox.Show("تم التعديل بنجاح")
filllistbox_Edatr()
filltext_Edatr()
Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub btn_caler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_caler.Click
Dim str As String = ModuleINI.sGetINI(ModuleINI.sINIFile, "Favorites Link .v4.1", "lng", "en")

If str = "en" Then
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
btn_add.Text = "Seve"
ListBox3.Visible = False
Else

TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
btn_add.Text = "حفظ"
ListBox3.Visible = False
End If
نفس المشكلى لا يقبل التعديل مع العلم قاعدة البيانات 2003

ارجوا المساعدة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 106 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  برجاء المساعدة فى اصلاح هذا المشروع mohamed haroon 0 69 21-05-17, 01:18 AM
آخر رد: mohamed haroon
  ارجو المساعدة لو تكرمتم rabeh.ram 4 75 20-05-17, 02:48 AM
آخر رد: rabeh.ram
  ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق aassa 5 84 20-05-17, 12:49 AM
آخر رد: alma2
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 46 19-05-17, 04:09 PM
آخر رد: e-coder
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 84 19-05-17, 03:50 PM
آخر رد: khaled12345
  طريقة طباعة فاتورة و التحكم بشكلها Basil Abdallah 1 58 19-05-17, 12:34 PM
آخر رد: Adrees
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 55 17-05-17, 05:14 PM
آخر رد: 0theghost0
Question طريقة فتح المشاريع المرفقة ابو إياد 5 202 16-05-17, 10:40 PM
آخر رد: safalo
  ارجو المساعدة حفظكم الله rabeh.ram 2 92 16-05-17, 10:16 PM
آخر رد: rabeh.ram

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


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