• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

khaled_helal

الخبراء المعتمدون
  • عدد المشاركات

    170
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 عادي

عن khaled_helal

  • الرتبة
    خبير Visual Basic

طرق الإتصال

  • ICQ 0

معلومات الملف الشخصي

  • الجنس ذكر

أحدث الزائرين لملفلك الشخصي

4,094 زياره للملف الشخصي
  1. اعتقد انه لاتوجد ادوات اكثر مرونة فى عمل طلبك اكثر من الادوات التى ذكرتها ولكن يمكن ذلك بأستخدام التكست بوكس
  2. اخى العالم قبل البدء فى شرح المطلوب كنت اتمنى ان يكون سؤالك اكثر تحديدا ولكن سوف اسرد لك ملخص سريع على طلبك أولا: 1- ( مــدين ) 2- ( دائـــن ) الحسابات اخى العزيز مقسمة الى حسابات مدينة وحسابات دائنة ولذلك يوجد ماهو مدين وماهو دائن على سبيل المثال : حسابات الاصول كلها مدينة واقصد بذلك ان طبيعة الحساب مدين مثل : الاصول الثابتة - العملاء - الخزينة - البنوك اوراق القبض الخ . . . حسابات الخصوم كلها دائنة واقصد بذلك ان طبيعة الحساب دائن راس المال وحقوق الملكية - الموردين - اوراق الدفع الخ . . . ولكن ليس ان طبيعة الحساب الاساسية هيه مدينة ليس من الممكن ان يكون دائن فمثلا عن زيادة النقدية بالخزينة يكون الحساب مدين وعند نقص النقدية بالخزينة يكون حسابها دائن وهكذا . . ثانيا : 2-( قيد ) القيد مقسم الى: قيد يومية يتم عمله بصورة يومية ويتم فيه اثبات حركة حسابات الشركة(المنشأة) قيد بالدفاتر وهنا على حسب طريقة امساك الدفاتر هل ( دفاتر يومية فرنسية ام يومية امريكية) لقذ ذكرت لك الطرق الاكثر شيوعا يوجد طرق محاسبية اخرى مثل الطريقة الايطالية - الطريقة الانجليزية ولكن يعيب عليهم اشياء كثير ملخص عملية القيد الدفترى ان لكل حساب يتم فتحه ويكون عليه حركة يتم امساك دفتر خاص به ويتم القيد به . ثالثا : 3- ( قيد تسويه ) المقصود به عند مراجعة حسابات الشركة ووجد خطأ فى قيد اى حساب يتم عمل قيد تسوية لتصحيح الخطأ وايضا عند وجود فروق فى محاسبة على سبيل المثال الموردين يتم اقفال قيمة الفرق ويسمى ذلك قيد تسوية ملخص قيد التسوية هو تصحيح عملية الاثبات لقيد اليومية الاساسى او تصحيح واقفال بعض فروق الحسابات . رابعا : 4 - ( سند قبض ) - ( سند صرف ) اى استلام للنقدية او الشيكات يتم اصدار ايصال او سند بأستلام المبلغ ويطلق عليه سند قبض ويتم عمل قيد يومية به لأثبات استلام النقدية او الشيك . وعلى عكسه سند الصرف اى صرف للنقدية او الشيكات .
  3. جرب اخى هذا المثال المرفق منقول من psc VB_in_SQL_Server.rar VB_in_SQL_Server.rar
  4. اخى الكريم محتاج معلومات اكثر عن تصميم قاعدة البيانات لديك
  5. - المشكلة هي عند اختيار السلعة كيف يمكن اضافة تلك السلعة الى FlexGrid الموجودة في النافذة الأولى وانقاص كمية السلعة من المخزن اخى toyoki 1 - لنقل بيانات من فورم الى فورم اخر به flexgrid Private Sub Command1_Click() frmproduct.Text1.Text = flexgrid.TextMatrix(1, 1) End Subوطبعا اخى مع افتراض انك سوف تنقل بيانات للعامود الاول والسطر الاول 2- انقاص السلعة من المخزن استخدم جملة sql على سبيل المثال . . . Dim SQL As String SQL = "UPDATE balanceavg SET TotalOnHand= val(QtyIn)- val(QtyOut)" con1.Execute SQL أو SQL = "UPDATE Product INNER JOIN balanceavg ON Product.count = balanceavg.code SET Product.count = [balanceavg].[Code], Product.IncomQty = [balanceavg].[QtyIn], Product.IssueQty = [balanceavg].[QtyOut], Product.TotalOnHand = [balanceavg].[TotalOnHand] " & _ "WHERE balanceavg.code = [Product.count] " con1.Execute SQLوطبعا اسماء الحقول أفتراضية ولم اقم بتجربتها . فقط كتبتها لك للتوضيح .
  6. -waf شكرا اخى TareqVB رابط اخر للبرنامج Adobe_RoboHelp_v6
  7. تعديل فى الكود لوجود خطأ Public Sub AutoNo() Dim rsk As New ADODB.Recordset rsk.Open "select max(code) from bank", db, adOpenStatic, adLockPessimistic If IsNull(rsk(0)) = False Then text1 = Format(rsk(0) + 1) Else text1 = "1" End If rsk.Close Set rsk = Nothing End Sub
  8. جرب اخى هذا الكود Public Sub AutoNum() Dim rs As New ADODB.Recordset rs.Open "select max(field) from Table", con1, adOpenStatic, adLockPessimistic If IsNull(rs(0)) = False Then Text1 = Format(rs(0) + 1) Else Text1 = "1" End If rs.Close Set rs = Nothing End Sub
  9. رابط لمشاريع عديدة ومنها طلبك . . . الرابط
  10. .والان انا أريد فكرة برنامج الانصراف والحضور الفكرة بسيطة فى حالة تصميم قاعدة بيانات حضور وانصراف للعاملين استخدم خاصية البحث سوف تجد مشاريع بهذا الموضوع
  11. الموضوع بسيط بس محتاج افهم ماالمقصود ( المشكلة هي عدم إستطاعة المستخدم على تحديد السجل في الجدول أو الشكبة) لكى اتمكن من مساعدتك
  12. طريقة اخرى فى حالة اضافة الرقم تلقائيا Public Sub Autojv() Dim rs As New ADODB.Recordset rs.Open "select max(EntryNo) from cash", con1, adOpenStatic, adLockPessimistic If IsNull(rs(0)) = False Then Text1 = Format(rs(0) + 1, "00000") Else Text1 = "00001" End If rs.Close Set rs = Nothing End Sub
  13. جرب الكود واضف باقى الحقول بعد كود MSflexgrid1.TextMatrix(k, 2) = rsmor!Name MSflexgrid1.TextMatrix(k, 3) = rsmor!phone MSflexgrid1.TextMatrix(k, 4) = rsmor!Address اتمنى ان تكون الفكرة وصلت . . .