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

سؤال في المحاسبة :طريقة برمجة حساب الأستاذ

بدأه zizohhh1 في 26 أكتوبر 2009 · 4 رد · 1,952 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

الحمدلله والصلاة والسلام على سيدنا محمد رسول الله صلى الله عليه وعلى آله و سلم أجمعين

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

#2

السلام عليكم أخى

بص بقى

هتعمل إتنينlistbox

واحد على اليمين مدين وواحد على الشمال دائن

وبعدين هتحط فوق كل واحد فيهم textbox

,Button

وبعدين هتحط المبلغ فى التكست بوكس وتدوس على البوتون تخليه يضيف المبلغ للليست بوكس

وهذا مثال مرفق

ومنها إنت ممكن تضيفها على قاعدة بيانات وكده براحتك بقى

المهم إنى قولتلك على الفكرةteacher.rar

عندما تضيق بك الدنيا فلا تقل يارب عندى هم كبير ولكن قل يا هم عندى رب كبيييير

اللهم إنى أتيت بابك مستغفراً فإن غفرت لى وأدخلتنى فأنت أهلٌ لذلك

وإن لم تغفر لى وطردتنى فأنا أهلٌ لذلك

#3

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

الحمدلله والصلاة والسلام على رسول الله وعلى آله أجمعين

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

انا برمجت شاشة للقيود اليومية و يقف أمامي حساب الأستاذ وميزان المراجعة والميزانية العمومية

هذا الكود يضيف صفوف

				   Con.Open()
					Dim CashAdp As New OleDb.OleDbDataAdapter("select * from ledger", ConStr)
					cmd.Connection = Con
					cmd.CommandText = ("select * from ledger")
					cmd.CommandType = CommandType.Text
					CashAdp.SelectCommand = cmd
					Dim dd As New OleDb.OleDbCommandBuilder(CashAdp)
					CashAdp.AcceptChangesDuringUpdate = True
					CashAdp.Fill(DS, "ledger")
					Con.Close()
					For I As Integer = 0 To DataGridView1.RowCount - 1
						If Not System.Convert.IsDBNull(Me.DataGridView1("debit", I).Value) Then
							If DataGridView1("debit", I).Value > 0 Then
								Dim Row1 As DataRow = DS.Tables("ledger").NewRow
																		  Row1.Item("debit") = DataGridView1.Rows.Item(I).Cells("account").Value
								DS.Tables("ledger").Rows.Add(Row1)
								CashAdp.Update(DS.Tables("ledger"))
								DS.Tables("ledger").AcceptChanges()
							End If
						End If
						If Not System.Convert.IsDBNull(Me.DataGridView1("credit", I).Value) Then
							If DataGridView1("credit", I).Value > 0 Then
								Dim Row1 As DataRow = DS.Tables("ledger").NewRow
								Row1.Item("credit") = DataGridView1.Rows.Item(I).Cells("credit").Value
								DS.Tables("ledger").Rows.Add(Row1)
								CashAdp.Update(DS.Tables("ledger"))
								DS.Tables("ledger").AcceptChanges()
							End If
						End If
					Next

كيف يمكن التحديث بواسطته ؟ اي ماذا اعدل فيه لكي يحدث صفوف ؟ اي ماذا اكتب بدل NewRow

#4

ولا انت واضع السؤال مرتين خالي بالك بعد كده لاني قمت بالاجابه عليك في الموضوع الاخر وساقوم بالاجابه عليك في هذا الموضوع ايضا حتي تتضح الفكره

حساب الاستاذ هو استعلام عن حركات قيود اليومية لحساب معين خلال فتره معينه

بفرض ان جدول قيود اليوميه اسمه journal وبه الحقول التالية dt مدين : cr دائن و acc_id رقم الحساب و dat تاريخ الحركه

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

select dt,cr from journal where dat between d1 and d2

حيث d1 هو تاريخ بداية الاستعلام و d2 هو تاريخ نهاية الاستعلام

وكذلك ميزان المراجعة والميزانيه هم ايضا استعلامات عن قيود اليومية التي تم انشائها

مش شاشات هيدخل منها بيانات والا كده اسهل للمستخدم انه يشتغل في دفتر مش في شيت اكسل حتي

ثانيا ياجماعة برامج الحسابات موجوده كتير سواء عربي او اجنبي شوفوها علشان تفهمو البرامج المحاسبية شغاله ازاي وعلشان كمان يبقي عندكم افكار متعدده عن البرامج المحاسبية

#5
اقتباس
ثانيا ياجماعة برامج الحسابات موجوده كتير سواء عربي او اجنبي شوفوها علشان تفهمو البرامج المحاسبية شغاله ازاي وعلشان كمان يبقي عندكم افكار متعدده عن البرامج المحاسبية

بارك الله فيك أخي الكريم yaser107

اقتباس
أتمنى من عندهم معرفة بالمحاسبة أن يساعدوني

أخي الفاضل ziziohhh1

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

كما قال الاخ الفاضل yaser107 في ايجاز

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

ثاني شيء

طرح سؤالك في أكثر من مشاركة وفي منتديات كثيرة يشتت ذهنك فحاول التركيز علي سؤالك وشرح مشكلتك بشيء من التفصيل في منتدي واحد وان لم تجد الاجابة انتقل لمنتدي آخر وهكذا

لقد طرحت نفس السؤال في منتديات فيجوال بيسك فور آراب

http://www.vb4arab.c...ead.php?t=43811

ولم تحصل علي اجابة شافية ووافية عن الموضوع

لذلك الموضوع باختصار شديد

حساب الاستاذ عبارة عن استعلام عن اسم أو بيان محدد عن فترة زمنية محدده

ومن هنا نستنتج أنك محتاج أن تقوم بعمل فورم وعمل Combobox علي هذا النموذج تختار من خلالة اسم الحساب المراد الاستعلام عنه كذلك تقوم بعمل عدد 2 Combobox تقوم من خلالة تحديد التاريخ المراد الاستعلام عنه ما بين تاريخين

وكما تشاهد في الصورة التالية فكل ما تحتاجة عبارة عن تقرير يمكنك اظهار نتائح التقرير في فورم أو في شكل تقرير Crystal Report

post-46243-12594835011344_thumb.jpg

post-46243-12594835441931_thumb.jpg

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 29 نوفمبر 2009 في 11:35

certifiedj.jpg

 

 

Image Hosted by ImageShack.us

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