دليل الحسابات أو كما يقولون البعض , شجرة الحسابات

برجاء حذف الموضوع مافى أمل فى منتدياتنا العربية خلاص القراء للموضوع 26 ومافى ولا حتى رد واحد

!!!!!!!!!!!!!!!!!!!!!!!!!

أخي العزيز سأرسل لك إحدي الطرق التي أستخدمها ويمكنك تطويرها ان أردت ولكن ميزتها انها سهلة ويمن فهما أرجوا ان تحوز على اعجابك وتكون حلا وافيا وعامة انا تعبت فيها من زمان ومن ثم طورتها بعد ذلك

***

نفترض عندنا جدول الدليل اسمه daleel وحساب الأب اسمه ab واسم الحساب aname وكوده هو code

واسم الشجرة tv1 نعمل procedure اسمه filing ونستدعيه قم بالنسخ فقط وان شاء الله كله تمام

********************

Sub filing()

On Error Resume Next

tv1.LineStyle = tvwRootLines

Set rec = Nothing

Set rec = New Recordset

rec.Open "select * from daleel where ab=0", cn, adOpenStatic, adLockOptimistic

If rec.EOF = False Then

rec.MoveLast

nn = rec.RecordCount

rec.MoveFirst

'المستوى الأول

For i = 1 To nn

tv1.Nodes.Add , , i & "_", rec!code & " -" & rec!aname

Set hrec = Nothing

Set hrec = New Recordset

hrec.Open "select * from daleel where ab=" & i, cn, adOpenStatic, adLockOptimistic

If hrec.EOF = False Then

hrec.MoveLast

ss = hrec.RecordCount

hrec.MoveFirst

'المستوى الثاني

For S = 1 To ss

tv1.Nodes.Add i & "_", tvwChild, hrec!code & "_", hrec!code & " -" & hrec!aname 'Child Node to the Main Parent or ROOT

Set rs = Nothing

Set rs = New Recordset

rs.Open "select * from daleel where ab=" & hrec!code, cn, adOpenStatic, adLockOptimistic

If rs.EOF = False Then

rs.MoveLast

ll = rs.RecordCount

rs.MoveFirst

'المستوى الثالث

For l = 1 To ll

tv1.Nodes.Add hrec!code & "_", tvwChild, rs!code & "_", rs!code & " -" & rs!aname 'Child Node to the Main Parent or ROOT

Set wrec = Nothing

Set wrec = New Recordset

wrec.Open "select * from daleel where ab=" & rs!code, cn, adOpenStatic, adLockOptimistic

If wrec.EOF = False Then

wrec.MoveLast

pp = wrec.RecordCount

wrec.MoveFirst

'المستوى الرابع

For p = 1 To pp

tv1.Nodes.Add rs!code & "_", tvwChild, wrec!code & "_", wrec!code & " -" & wrec!aname 'Child Node to the Main Parent or ROOT

wrec.MoveNext

Next

End If

rs.MoveNext

Next

End If

hrec.MoveNext

Next

End If

rec.MoveNext

Next

End If

End Sub

والسلام عليكم

ياريت اخى لو ترفق المثال

لا حول ولا قوة الا بالله

على العوض فى المنتديات العربية

نرجو حذف الموضوع يا مشرف مافى أمل

بسم الله الرحمن الرحيم

يا أخ عماد قدري صبرا ورفقا

اولا : لماذا لم تجرب المثال السابق ************** صدقني هو مجرب وشغال ميه ميه

ثانيا : ليكن عندك ثقة في الله ومن ثم قدرتك على الإبداع والتفكير معا ومن ثم في المنت\دى وأعضاؤه

ثالثا : أعلم والله أني مشغول جدا أكثر مما تتصور ولا ادخل على النت ثلاث مرات يوميا هي مرة زمع ذلك حاولت ان اعمل مثال وجربته ثم أرفعه للآن لا لشئ إلا أن يرفع الله ما بك من عناء ويأس كما هو واضح

بارك الله فيك

اليك المثال مرة أخري في بروجت

daleel.rar

السلام عليكم ورحمة الله وبركاته

اشكرك كل الشكر أخى الكريم elrouh على مساعدتك لى رغم إنشغالك وإرفاق مثال جدا مهم وجميل

وأريد منك أخى الكريم الفاضل أن تكمل المثال وتضيف له خاصة إضافة حساب وحذف حساب وإضافة حساب ابن لحساب أب وأيضا بعد إذنك أريد شرح لما ستقوم به من عمليات بمعنى شرح للكود نفسة وشرح ايضا لمكونات الجدول حتى نستفيد جميعا بارك الله فيك وبأذن الله هذا المثال الجيد سيكون مرجع مهم للجميع .

وفقك الله يا اخى وجعل هذا العمل فى ميزان حسناتك

upupupupup

بناء على رغبة الأخ كاتب الموضوع

نطالب بحذف الموضوع :) امزح يا عماد

ياخي لا تستعجل وتأكد إن اللي يعرف الإجابة سيساعدك

وانا منتظر يا متميز بس الحين صار لى تقريبا اسبوع ومافى امل يا الحبيب

upupupupup

أسف اخ عماد على التاخير ولكن كما قلت لك فالوقت لا لا يساعدني كما كنت أريد أضبط لك مثال حتى تستريح مرة واحدة

اولا إليك المثال

وخطوات إضافة حساب لحساب اب يتم الضغط على زر جديد ثم في خانة حساب الأب تكتب كود حساب الب وليكن ===4 === إن كنت تريد إضافة حساب تحت الإيرادات ثم زر tab او enter حسب تجهيزك للفورم عندها سوف يأتي حساب الإبن تلقائيا فتكتب اسمه ثم نوع الحساب ( رئيسي - فرعي ) حفظ

إن أردت التعديل او الحذف اضغط على زر عرض واكتب الحساب الذي تريد تعديله او حذفه ثم عدل اسمه ثم تعديل او الحذف مباشرة

أرجوا ان يلبي ذلك غرضك وتهدأ ولا تطالب بحذف الموضوع

*****

*

*

* إليك المثال كاملا مع صورة الشرح

daleel.rar

الصورة

السلام عليكم ورحمة الله وبركاته

الأخ الحبيب / elrouh

بارك الله فيك وجزاك الله خيرا يا اخي وبصراحة المثال الذى ارفقتة رائع جدا اجدا ووافى وشافى بالغرض المطلوب

ولى طلب ارجو تعديل المثال المرفق بحيث عند اضافة حساب جديد ينزل فى دليل او شجرة الحسابات فورا يعنى كيف اعمل تحديث للدليل فور عملية حفظ الحساب الجديد لكى يظهر بالشجرة .وأيضا عايز عندما اعلم على حساب او اقف على حساب فى شجرة الحساب يظهر ليا بيانات الحساب هذا فى التكست بوكس مثل الرقم واسمة واسم الأب وطبيعتة بحيث لو اقدر اغير فيه

وشكرا لك اخى الفاضل واسف جدا لتعبك معي

upupupupup

upupupup

وينك اخى الكريم روح

وينك اخى روح منتظر ردك المتميز دائما يا غالى

upupupupupupupupupupupupupupupup

اسم الشجرة tv1

ss و ww متغيرات

ss = ""

ww = ""

ww = Len(tv1.SelectedItem.Key)

rt = ww - 1

ss = Mid(tv1.SelectedItem.Key, 1, rt)

'ss = Mid(tv1.SelectedItem.Key, ww, 1)

Set rs = Nothing

Set rs = New Recordset

rs.Open "select * from daleel where code=" & Val(ss), cn, adOpenDynamic, adLockOptimistic

If rs.EOF = False Then

r = kiud.Grid1.RowSel

text1 = rs!code

text2 = rs!aname

مع التحية الحارة وأرجوا أن يكون ذلط طلبك !

End If