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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 42 21-02-17, 10:58 AM
آخر رد: boofa2015
  [سؤال] اريد مثال على طريقة ادراج صورة من السكانر ناصر شير 0 20 20-02-17, 02:45 PM
آخر رد: ناصر شير
  سؤال .. عن طريقة ادراج صورة من السكانر وطباعتها ناصر شير 0 37 20-02-17, 02:54 AM
آخر رد: ناصر شير
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 82 18-02-17, 02:19 PM
آخر رد: Amrjamil
  البرنامج لايحفظ التغيرات عبدالرحمن المكاوي 4 61 18-02-17, 10:03 AM
آخر رد: وائل القطاوي
Thumbs Up [سؤال] كود تخطي فتح رابط معين لتشغيل البرنامج Mk 22353 1 57 17-02-17, 02:43 AM
آخر رد: الماجيك مسعد
  طريقة ظهور اسم المستخدم في جميع صفحات الويب عباسة 0 62 14-02-17, 03:17 PM
آخر رد: عباسة
Question [سؤال] اريد حل لهذه المشكلة دعم العربية shwehdi4pc 1 79 11-02-17, 02:35 AM
آخر رد: مساعدة
  [سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت youssef1 10 203 11-02-17, 12:56 AM
آخر رد: hassan
  [سؤال] حمايه البرنامج moshax 3 118 09-02-17, 03:34 PM
آخر رد: مساعدة

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


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