الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه عماد قدري في 20 مارس 2006 · 20 رد · 3,020 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

أولا : أخوانى الكرام تكرر موضوع طرح أسئلة من الزملاء فى هذا المنتدي ولم يجدوا أى ردود نهائيا هذا يعنى ان فطاحلة المنتدي هاجروة وتركوة أم ماذا ؟ هذا أولا

ثانيا : أريد من الأخوة شرح تفصيلي مفصل عن كيفية بناء دليل محاسبي متكامل بأستخدام أداة الشجرة Tree View مثل برامج الحسابات الكبيرة والتى بالسوق .

ولو فعلا خاب ظني يرجو تثبيت الموضوع للأهميتة وشكرا لكم جميعا .

#2

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

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

#3

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

***

نفترض عندنا جدول الدليل اسمه 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

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

#4

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

#5

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

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

#6

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

#7

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

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

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

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

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

بارك الله فيك

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

daleel.rar

#8

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

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

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

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

#9

upupupupup

#10

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

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

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

تم تعديل هذه المشاركة بواسطة المتميز في 25 مارس 2006 في 11:55

460.gif

#11

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

#12

upupupupup

#13

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

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

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

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

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

*****

*

*

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

daleel.rar

#14

الصورة

post-71824-1143439759_thumb.jpg

#15

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

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

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

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

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

#16

upupupupup

#17

upupupup

#18

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

#19

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

#20

upupupupupupupupupupupupupupupup

#21

اسم الشجرة 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

هذا الموضوع مغلق.

مواضيع مشابهة