منتديات روكشا     َولَوْلَا إِذْ دَخَلْتَ جَنَّتَكَ قُلْتَ مَا شَاءَ اللَّهُ لَا قُوَّةَ إِلَّا بِاللَّه

الرئيسية |  التسجيل  |  مركز رفع الملفات  |  الاتصال بنا  

 



العودة   منتديات روكشا > المنتدي التخصصي > قسم التصاميم والبرمجة والجرافيكس والميديا > انشاء وتصميم وبرمجة البرامج

الملاحظات

انشاء وتصميم وبرمجة البرامج برنامج الوورد اكسس اكسيل بوربوينت فيجوال بيسك برامج محاسبة برامج ادارة وتنظيم حسابات تنسيق الملفات

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 03-24-2019, 06:45 AM

الصورة الرمزية الفارس

الفارس

.:: عضـو متميز ::.

 
تاريخ التسجيل: Feb 2019
الدولة: مصر
المشاركات: 837
معدل تقييم المستوى: 12
الفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالى
الفارس غير متواجد حالياً
شرح نموذج الاعدادات SettingForm مع اختلاف المواقع التي نريد الدخول اليها

 



السلام عليكم ورحمه الله وبركاته
نموذج الاعدادات SettingForm مع اختلاف المواقع التي نريد الدخول اليها
نموذج الاعدادات الخاص بالدخول للمواقع و كيفية التعامل معه مع شرح بسيط



اريدك فقط ان تركز في جزئية بارمترات الدخول لتعرف بعدها ماذا تعني كل هذه الحقول التي في النموذج
عمليا كل موقع لديه صفحة للدخول اليه و في هذه الصفحة يكون هناك مربعات نصوص لادخال اسم المستخدم و كلمة المرور
وزر الدخول ايضا , ما نقوم به اثناء انشاء طلب و ارسال البارمترات معه هو عملية ادخال في هذه الحقول و من ثم ضغط زر الدخول
فاذا تمت المصادقة نكون قد حصلنا على مبتغانا
الازرار في اعلى النموذج هي اسماء الحقول في الموقع
اما مجموعة بيانات الدخول فهي المعلومات التي سندخلها
اسم المستخدم الخاص بك و كلمة المرور ورابط صفحة الدخول للموقع مع اجراء الدخول
انا قمت بتزويد النموذج ببعض الاجراءات و اسماء الحقول الخاصة بالدخول لتجدها جاهزة
فمثلا موقعنا هنا يستخدم username لاسم المستخدم,password لكلمة المرور
و يعتمد الطريقة action=do_login
بينما في مواقع اخرى قد تختلف الطريقة وفق تصميم الموقع و اسماء الحقول
هذا النموذج مرتبط مع جدول LoginsTb في قاعدة البيانات حتى تكون قادرا على تخزين مواقعك و طريقة دخولك لها
و هو ايضا مرتبط باعدادات البرنامج حتى تحفظ اعدادتك للموقع الافتراضي الذي تريد الابحار في صفحاته
فقط اختر موقعك ثم (تخزين كاعداد افتراضي) و اترك الباقي على البرنامج فهو سيتكفل بارسال المعلومات من الاعدادت

اما في جانب الكود فليس هناك الكثير للتحدث عنه فهو كما سابق الاكواد التي شرحناها
كود :
Public Class SettingForm

Dim C As Integer

حدث تحميل النموذج
كود :
كود PHP:
   Private Sub SettingForm_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
       LoadLoginDataSet
()

       
Me.LoginBindingSource.DataSource LoadLoginDataSet()
       
Me.LoginBindingSource.DataMember "LoginsTb"

       
BindingFileds()

       
TextBox1.Text My.Settings.sitname

   End Sub 
زر تخزين الاعدادت الافتراضية
كود :
كود PHP:
   Private Sub BtnSaveSetting_Click(sender As System.ObjectAs System.EventArgsHandles BtnSaveSetting.Click
       
Try
           
My.Settings.LoginUrl TxtLoginUrl.Text
           My
.Settings.User TxtUser.Text
           My
.Settings.Password TxtPassword.Text
           My
.Settings.ActionStr TxtAction.Text
           My
.Settings.Parmms TxtformParams.Text
           My
.Settings.sitname TxtSiteName.Text
           
'
           My.Settings.Inputuser = Txus.Text
           My.Settings.Inputpass = Txps.Text
           My.Settings.InputAction = Txact.Text

           '
           
My.Settings.Save()
           
TextBox1.Text My.Settings.sitname

       
Catch ex As Exception
           MsgBox
(ex.ToString)
       
End Try

   
End Sub 
زر تخزين لحفظ التعديلات و الاضافات الى الجدول LoginsTb

كود :
كود PHP:
   Private Sub BtnSave_Click(sender As System.ObjectAs System.EventArgsHandles BtnSave.Click
       
Try
           
LoginBindingSource.Position
           
'
           If TxtUser.TextLength > 0 And TxtPassword.MaxLength > 0 Then

               Dim usinput, passinput, actinput As String
               usinput = Txus.SelectedItem
               passinput = Txps.SelectedItem
               actinput = Txact.SelectedItem

               Dim formParams As String = String.Format(usinput & "={0}&" & passinput & "={1}&" & actinput & "={2}", TxtUser.Text, TxtPassword.Text, TxtAction.Text)
               TxtformParams.Text = formParams
           End If
           Me.Validate()
           LoginBindingSource.EndEdit()
           '
           
SaveLogins()
           
LoginBindingSource.Position C
           
'
       Catch ex As Exception
           MsgBox(ex.ToString)
       End Try

   End Sub 
اجراء ربط الحقول
كود PHP:
كود :
   Private 
Sub BindingFileds()
       
Me.TxtSiteName.DataBindings.Add(New Binding("Text"LoginBindingSource"SiteName"))
       
Me.TxtLoginUrl.DataBindings.Add(New Binding("Text"LoginBindingSource"LoginUrl"))
       
Me.TxtUser.DataBindings.Add(New Binding("Text"LoginBindingSource"usernamee"))
       
Me.TxtPassword.DataBindings.Add(New Binding("Text"LoginBindingSource"Passworde"))
       
Me.TxtAction.DataBindings.Add(New Binding("Text"LoginBindingSource"ActionStr"))
       
Me.TxtformParams.DataBindings.Add(New Binding("Text"LoginBindingSource"formParams"))
       
'
       Me.Txus.DataBindings.Add(New Binding("Text", LoginBindingSource, "Inputuser"))
       Me.Txps.DataBindings.Add(New Binding("Text", LoginBindingSource, "Inputpass"))
       Me.Txact.DataBindings.Add(New Binding("Text", LoginBindingSource, "InputAction")) 
End Sub

زر الاضافة

كود :
كود PHP:
   Private Sub BindingNavigatorAddNewItem_Click(sender As System.ObjectAs System.EventArgsHandles BindingNavigatorAddNewItem.Click
       LoginBindingSource
.AddNew()
       
LoginBindingSource.Position
   End Sub 
حدث تغير التحديد لتخزين نوع الاجراء في الحقل الهدف

كود :
كود PHP:
   Private Sub ComboBox1_SelectedIndexChanged(sender As System.ObjectAs System.EventArgsHandles ComboBox1.SelectedIndexChanged
       
If ComboBox1.SelectedItem <> String.Empty Then
           TxtAction
.Text ComboBox1.SelectedItem
       End 
If

   
End Sub 
تم بحمد الله و فضله , ارجو ان تعذروني عن كل خلل او تقصير

وموفقين بامر الله

رد مع اقتباس
قديم 03-24-2019, 01:30 PM   #2

ابن الوليد

.:: ادارة المنتدي ::.

الصورة الرمزية ابن الوليد

تاريخ التسجيل: Nov 2018
الدولة: مصر
المشاركات: 1,690
معدل تقييم المستوى: 10
ابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud of
إرسال رسالة عبر MSN إلى ابن الوليد إرسال رسالة عبر Yahoo إلى ابن الوليد إرسال رسالة عبر Skype إلى ابن الوليد
افتراضي

الله ينور عليكم تسلم ياغالى

ابن الوليد غير متواجد حالياً  

رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
هاك هاك الدخول بإسم العضو المطورللنسخه vb 4.0 beta 3 الفارس ركن تطوير وإدارة المنتديات العربية 1 02-17-2019 02:31 PM
تفعيل درس اكسل 2010 ادراج اعمدة وصفوف او بيانات جديدة داخل الجدول _10 مهرة النجدية انشاء وتصميم وبرمجة البرامج 0 02-17-2019 08:22 AM
ما هي عدد القصص التي ميز الله بها سورة الكهف ؟ ابن الوليد المنتدي الاسلامي 0 02-08-2019 03:51 PM
شرح Excelالعمليات التي تجري على الخلايا مهرة النجدية انشاء وتصميم وبرمجة البرامج 0 02-05-2019 12:49 AM
شرح Exc العمليات التي نستطيع القيام بها على الأعمدة والأسطر مهرة النجدية انشاء وتصميم وبرمجة البرامج 0 02-05-2019 12:44 AM

 

RSS RSS 2.0 XML MAP HTML

الساعة الآن 03:48 AM

نبذة عن المنتدى

روابط مفيدة

إعلانات نصية

روابط الموقع

منتديات روكشا لتقنية المعلومات تقدم كل ما هو جديد ومفيد في عالم البرامج سواء جاهزة أو طرق وشروحات برمجة وتصميم وسوف تجدون أقسام عديدة ومختصة لكل ما تبحث عنه



Powered by vBulletin® Copyright ©2000 - 2019,