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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up [مشروع] برنامج مخازن ومستودعات بسيط ورائع محمود بكرى 2 359 22-04-22, 03:12 AM
آخر رد: senawe
Video [درس فيديو] استخدام داتا جريد فيو متقدمة يمكنها فلترة البيانات وترتيبها ahmadpal 1 1,576 17-04-22, 08:35 AM
آخر رد: ahmedramzyaish
  [درس فيديو] شرح بسيط عن كيفية اتمام التصاميم بالادوات الافتراضية kiki 3 1,322 28-03-22, 12:55 AM
آخر رد: أبووسم
  مثال لصفحة خيارات التقرير مثل البرامج الكبيرة محمود صالح 4 877 13-02-22, 11:00 PM
آخر رد: عبدالحميد حسني
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 78 35,855 03-02-22, 12:56 PM
آخر رد: abo.alaa315
  [VB.NET] مثال طريقة جعل البرنامج يعمل مع بداية تشغيل النظام معاند الحظ 2 504 03-02-22, 05:20 AM
آخر رد: أبووسم
  مسح الصور وحفظها بلاحقة Pdf او jpg مثال معدل من احدى المشاركات ابراهيم ايبو 0 473 20-01-22, 09:50 PM
آخر رد: ابراهيم ايبو
  [مشروع] استخدام شبيكة بيانات واحدة لاكثر من .... تعال وشوف كيف سعود 3 737 15-12-21, 11:20 PM
آخر رد: سعود
  [مثال] طريقة استخدام MPV Player وتضمينه داخل يرنامجك معاند الحظ 1 553 04-12-21, 04:37 AM
آخر رد: ابو روضة
  مثال لحمايه ملفات البرنامج من النسخ alshandodi 4 2,095 30-11-21, 10:34 PM
آخر رد: mohamed-montaser

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


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