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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال عن حطوات التراجع في البرامج ابراهيم ايبو 0 98 15-06-21, 07:21 AM
آخر رد: ابراهيم ايبو
  مثال عن صلاحيات المستخدمين ابراهيم ايبو 6 1,598 15-06-21, 02:58 AM
آخر رد: ابراهيم ايبو
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 76 29,520 07-06-21, 03:08 PM
آخر رد: zayedali
  طلب بسيط العواجي 1 143 31-05-21, 12:27 PM
آخر رد: ابو انس
Smile [VB.NET] {تم التعديل}مثال حول استخدام مكتبات جوجل درايف معاند الحظ 3 1,285 31-03-21, 12:31 AM
آخر رد: messry
  استخدام TextBox للعمليات الحسابية VB.NET @@أبورائد@@ 11 7,614 14-02-21, 03:56 PM
آخر رد: الحسين احمد
  [مشروع] مثال ليس جديد و لكنه فريد asmarsou 2 655 12-02-21, 06:08 AM
آخر رد: asmarsou
Star [VB.NET] استخدام ايقونات الجهاز واستخدام treeview & listview والبحث عن الملفات والمجلدات معاند الحظ 3 561 07-02-21, 03:10 AM
آخر رد: معاند الحظ
  [كود] التنقل بواسطة زر الادخال Enter تم تحديث الموضوع واضافة مثال سعود 0 440 01-02-21, 06:45 PM
آخر رد: سعود
  [مشروع] ابسط مثال لمعرفة حال الاتصال بـــ سعود 0 499 20-01-21, 12:03 PM
آخر رد: سعود

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


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