تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة او كود kingofring 1 6 منذ 31 دقيقة مضت
آخر رد: عبدالرحمن المكاوي
  [سؤال] طريقة أخذ صورة من فيديو thevest_knight 3 59 أمس, 05:58 PM
آخر رد: thevest_knight
  [سؤال] جلب ايقونة البرنامج ابو روضة 13 167 أمس, 03:13 PM
آخر رد: ابو روضة
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 83 أمس, 01:11 AM
آخر رد: سعود الشامان
  برجاء المساعدة في سورس كود اله حاسبة scientific calculator khaled12345 3 123 أمس, 12:11 AM
آخر رد: ابوثامر الحربي
  [VB.NET] المساعدة - في اظهار تقرير بناء على سطور يتم تحديدها امل عوض 6 84 19-09-17, 01:49 PM
آخر رد: أبو نوره
  خطا عند فتح البرنامج عبدالرحمن المكاوي 24 367 18-09-17, 12:51 AM
آخر رد: عبدالرحمن المكاوي
Big Grin [كود] شباب طريقة لإظهار الادوات بشكل شبه مخفى وليس الفورم badr.kamel 3 127 14-09-17, 05:07 AM
آخر رد: Mohamad Anan
  [VB.NET] الرجاء المساعدة cheurfa 1 78 13-09-17, 05:41 PM
آخر رد: Rabeea Qbaha
  [VB.NET] رجاء دخول المحترفين فى برمجة الشبكات network 0 57 13-09-17, 05:45 AM
آخر رد: network

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


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