[xebrahimx]

اول الموديو
========

Imports System.Data
Imports System.Data.OleDb
Imports System.Management

هذه دوال يتم استيرادها من خلال الفيجول
===============================

ublic ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\sys322.dll;Persist Security Info=True;Jet OLEDBatabase Password=omar911"

هذا الكونكشن استرينج للاتصال بقاعدة البيانات

==========================================================

Public Conn As New OleDbConnection(ConStr)
Public AccountDataSet1 As New DataSet 'tre
Public AccountDataSet2 As New DataSet 'low5
Public AccountDataSet3 As New DataSet 'low6
Public AccountDataSet4 As New DataSet 'sharh
Public SQLstr As String = "SELECT * FROM tre"

ما فهمته من هذا الكود انه بيفتح الجداول التى فى قاعدة البيانات
اسماء الجداول ( tre,low5,low6,sharh )

AccountDataSet ما فهمته ان هذا متغير اسنده 4 مرات لل dataset

ما المقصود بdataset ???
===============================================
Public SQLstr As String = "SELECT * FROM tre"

ما المقصود بهذا الكود ؟ هل يفتح جدول tre ?? لماذا استخدم sql بارغم انه معرف فى التصريح System.Data.OleDb
=================================
Public searchresults As New ArrayList
Public position As Integer = 0

هذا الكود لم افهمه ؟؟

============================

وهذه الدالة ايضا

Public Function FindInternal(ByVal key As String, ByVal searchAllChildren As Boolean, ByVal treeNodeCollectionToLookIn As TreeNodeCollection, ByVal foundTreeNodes As ArrayList) As ArrayList
If ((treeNodeCollectionToLookIn Is Nothing) OrElse (foundTreeNodes Is Nothing)) Then
Return Nothing
End If
Dim i As Integer
For i = 0 To treeNodeCollectionToLookIn.Count - 1
If ((Not treeNodeCollectionToLookIn.Item(i) Is Nothing) AndAlso SafeCompareStrings(treeNodeCollectionToLookIn.Item(i).Text, key, True)) Then
foundTreeNodes.Add(treeNodeCollectionToLookIn.Item(i))
End If
Next i
If searchAllChildren Then
Dim j As Integer
For j = 0 To treeNodeCollectionToLookIn.Count - 1
If (((Not treeNodeCollectionToLookIn.Item(j) Is Nothing) AndAlso (Not treeNodeCollectionToLookIn.Item(j).Nodes Is Nothing)) AndAlso (treeNodeCollectionToLookIn.Item(j).Nodes.Count > 0)) Then
foundTreeNodes = FindInternal(key, searchAllChildren, treeNodeCollectionToLookIn.Item(j).Nodes, foundTreeNodes)
End If
Next j
End If
Return foundTreeNodes
End Function


===================

وهذه

Public Function SafeCompareStrings(ByVal string1 As String, ByVal string2 As String, ByVal ignoreCase As Boolean) As Boolean
If ((string1 Is Nothing) OrElse (string2 Is Nothing)) Then
Return False
End If
Return ((string1.ToLower.Contains(string2.ToLower)))
End Function

End Module

====================================