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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال عن الباركود asemshahen5 7 418 10-11-18, 11:59 PM
آخر رد: عماد السيد
  [VB.NET] مثال بسيط عن كيفية عمل برنامج المصحف كمثال موقع [ quran.ksu.edu.sa ] elgokr 8 364 07-11-18, 12:43 PM
آخر رد: elgokr
Heart [مشروع] سورس بسيط يبين مثال توليد لون عشوائي للفورم واي اداة وجميع خواصها كل ثانية Random وعد مولود 4 238 03-11-18, 02:10 PM
آخر رد: elgokr
  مثال مشروح عن تشفير الملفات asemshahen5 2 213 02-11-18, 12:20 AM
آخر رد: عماد السيد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 65 13,739 30-10-18, 02:38 AM
آخر رد: atefkhalf2004
  مثال عملي على قاعدة بيانات DBlite viv 6 282 14-10-18, 02:48 PM
آخر رد: محمد كريّم
Brick [مثال] مثال لبرنامج التعامل مع الأعداد الأولية Omar Abd 0 88 09-10-18, 06:45 PM
آخر رد: Omar Abd
  [VB.NET] سورس كود لعملية تعبئة TreeView ببيانات من ثلاث جداول فاكثر elgokr 18 1,523 07-09-18, 12:16 PM
آخر رد: elgokr
Thumbs Up دليل هاتف بسيط ( قابل للتطوير ) حسب طلب احدى الاخوان Easy4ever 12 5,066 04-09-18, 02:56 PM
آخر رد: عبد العزيز البسكري
Photo [مثال] شرح بسيط لجملة إصطياد الأخطاء Try ... Catch ... Finally Statement عبدالله الدوسري 7 1,386 03-09-18, 06:54 AM
آخر رد: عبد الله

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


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