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


الســ عليـــ ورحــــ الله و بركاته ـــــمة ـــكم ــــلام

أولا هذا أول مثال لي في المنتدى أتمنى لكم الفائدة
لنبدأ على بركة الله
Smile

في البداية حَوَرجيكم صورة البرنامج:




أول شي بنحط هذا الكود أعلى شي بالصفحة عشان نستدعي الداتا بيز
Imports System.Data.OleDB



ثم نتوجه إلى منطقة
Public Class Form1
ثم نكتب هذا الكود لنقوم بتعريف كائن الإتصال والكائن الذى يحمل جملة سلكت وكائن القراءة الذى يقرء البيانات
Dim CN As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=DataBase.mdb")
Dim CMD, CMD1 As New OleDbCommand
Dim DR As OleDbDataReader




ثم نقوم ببرمجة أداة الترى فيو على إنها تعرض ثلاث عناوين تدعى نود وهم أسماء الموظفين وكود الموظفين والمرتب بحث إذا ضغط على أى منهم يعرضهم من الجدول ثم تختار أى إسم او أى كود للموظف لكى يعرض بيانات هذا الموظف يجب علينا أن نتوجه إلى منطقة الفورم لود لكى نتصل بقاعدة البيانات ونقوم بعرض ما فيها لذلك نكتب فيها هذا الكود
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

CN.Open()
CMD.Connection = CN
CMD.CommandType = CommandType.Text
CMD.CommandText = "select * from table1"
DR = CMD.ExecuteReader
TreeView1.Nodes.Clear()

TreeView1.Nodes.Add("أسماء الموظفين")
TreeView1.Nodes.Add("كود الموظفين")
TreeView1.Nodes.Add("المرتب")
Do While DR.Read
TreeView1.Nodes(0).Nodes.Add(DR("Sname"))
TreeView1.Nodes(1).Nodes.Add(DR("Scode"))
TreeView1.Nodes(2).Nodes.Add(DR("st"))
Loop
DR.Close()
CN.Close()


End Sub





هنا نقوم بالإتصال بقاعدة البيانات ونعطى جملة الإستعلام للريدرثم نقوم بإضافة العناوين لأداة الترى فيو ثم نعمل لووب لإضافة محتوى لهذه العناوين وتكون هذه المحتويات عبارة عن بيانات من الجدول الذى أصبح يحمله الريدرdatareader من جملة الإستعلام التى تحملها الكومند CMD

ثم نأتى للخطوة الأخيرة التى نريد ان نقوم فيها ببرمجة الترى فيو على أنه عندما نضغط على أسماء الموظفين مثلا وتفتح الأسماء نريد أن نبرمجها على أن إذا ضغط المستخدم على أى إسم يقوم البرنامج بعرض بيانات هذا العامل فى اليبل
لذلك نقوم بالضغط على أداة الترى فيو دابل كليك ونكتب هذا الكود
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

Dim NS As String
NS = TreeView1.SelectedNode.Text
If CN.State = ConnectionState.Closed Then
CN.Open()
End If
CMD1.Connection = CN
CMD1.CommandType = CommandType.Text
CMD1.CommandText = "select * from table1 where Sname='" & NS & "' or Scode ='" & NS & "' or ST='" & NS & "'"
If DR.IsClosed = False Then
DR.Close()
End If
DR = CMD1.ExecuteReader
If DR.Read = True Then
Label1.Text = DR!sname
Label2.Text = DR!scode
Label3.Text = DR!sphone
Label4.Text = DR!Email
Label5.Text = DR!Addr
Label6.Text = DR!ST
DR.Close()
Else
Exit Sub
End If
DR.Close()


End Sub

أن هيك انتهيت من الشرح البرنامج ....... أتمنى إنكم تشوفو البرنامج و الي عندو أفكار جديدة يعرضها .......... وشكراااااااااااااااااااااااااااا

Big Grin


الملفات المرفقة
.zip   TestConnectionTreeView1.zip (الحجم : 75.42 ك ب / التحميلات : 655)
الرد }}}}
تم الشكر بواسطة: abulayth , محمود رغمان
#2
الف لف شكر
الرد }}}}
تم الشكر بواسطة:
#3
منور، بارك الله فيك
اللهم ارحم فقيدنا ابا ليث

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 42 4,471 14-05-17, 09:58 AM
آخر رد: جميل علي
  [مشروع] مثال حجز من المنتدى القديم سعود 14 3,534 05-04-17, 03:31 AM
آخر رد: naderalbanna
  مشروع بسيط باستخدام تقنية ADO.net يوضح فيه اضافة تعديل وحذف adel2012 5 608 23-03-17, 08:36 AM
آخر رد: masry700
  ابسط مثال للتصاريح سعود 39 6,880 17-03-17, 09:35 AM
آخر رد: IBRA939
Lightbulb [مثال] مثال ابلاغ عملائك بوجود تحديث للبرنامج Basil Abdallah 13 936 08-03-17, 01:13 PM
آخر رد: Basil Abdallah
  [مشروع] مثال لنشر تحديثات تطبيقك للعملاء سعود 15 8,318 23-01-17, 10:43 PM
آخر رد: ausamaxp
  مثال تغيير ثيم البرنامج وقت التشغيل honest 3 822 26-12-16, 04:44 PM
آخر رد: IBRA939
  [مثال] مثال لإرسال الرسائل من الاجهزة الفرعية الى برنامج سيرفر ابو ليلى 0 330 25-12-16, 07:14 PM
آخر رد: ابو ليلى
Smile مثال دلع عميلك سعود 16 7,123 25-12-16, 08:28 AM
آخر رد: Famo15385
Brick [VB.NET] مثال بسيط على تسجيل الدخول الى الفيسبوك من خلال البرنامج elhon.tec 3 452 10-12-16, 04:11 AM
آخر رد: elhon.tec

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


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