تقييم الموضوع :
  • 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 ك ب / التحميلات : 586)
الرد }}}}
تم الشكر بواسطة: abulayth , محمود رغمان
#2
الف لف شكر
الرد }}}}
تم الشكر بواسطة:
#3
منور، بارك الله فيك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow مثال - جلب رقم المعالج لإستخدامه في حماية البرامج من النسخ Genius Live 15 4,586 أمس, 12:04 AM
آخر رد: ali.alfoly
Brick [VB.NET] مثال بسيط على تسجيل الدخول الى الفيسبوك من خلال البرنامج elhon.tec 2 146 06-12-16, 11:25 PM
آخر رد: tempman
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 28 2,334 06-12-16, 09:34 PM
آخر رد: مبتدئه برمجه
Smile مثال دلع عميلك سعود 14 6,158 06-12-16, 09:31 PM
آخر رد: مبتدئه برمجه
  مثال: كيفية اقتطاع صورة من صورة أخري بإستخدام الماوس silverlight 7 289 05-12-16, 01:27 AM
آخر رد: ali.alfoly
  [مثال] مثال صغير .. لعرض داتا جريد لقاعدة بيانات وطباعتها boudyonline 3 928 15-11-16, 02:15 PM
آخر رد: marwen
  [كود] مثال بسيط للبحث عن كلمة او حرف داخل نص vb_net 4 1,614 17-10-16, 09:48 PM
آخر رد: adad
  مثال لنسخ وإستعادة قاعدة البيانات mysql صبري زينوبي 2 220 29-09-16, 05:06 PM
آخر رد: صبري زينوبي
Rainbow مثال - استيراد البيانات من Excel إلي ListView Genius Live 7 3,449 28-09-16, 01:16 AM
آخر رد: adel27
  ابسط مثال للتصاريح (سعود) (تحديث) جميل علي 3 464 13-09-16, 11:49 PM
آخر رد: جميل علي

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


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