منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
برنامج المستودعات هدية للاخ احمد منصور - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أمثلة ومشاريع vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=30)
+---- الموضوع : برنامج المستودعات هدية للاخ احمد منصور (/showthread.php?tid=32164)

الصفحات: 1 2 3

RE: برنامج المستودعات هدية للاخ احمد منصور - awidan76 - 11-12-19

شكرا جزيلا لك اخي الغالي احمد على هذه المساعده
جزاك الله خير


الله يحفظك

RE: برنامج المستودعات هدية للاخ احمد منصور - awidan76 - 11-12-19

وشكرا على المعلومات القيمة

RE: برنامج المستودعات هدية للاخ احمد منصور - awidan76 - 12-12-19

اخي احمد منصور

في المشروع الاخير الذي قمت بتعديلة أعلاه 

توجد عندي مشكلة لم انتبه لها منذ فترة
هي عند عرض بيانات فاتورة  ما على سبيل المثال فاتورة 9 في واجهة صرف مخزني
عند النقر على حفظ الفاتورة يقوم بعمل حفظ كما في الشكل
[attachment=23648]

حيث انه من المفترض تظهر رسالة "هذه الفاتوة تم حفظها مسبقاً"

وعند عرض بيانات الفاتورة 9 تظهر في بيانات مكررة كما في الشكل 
[attachment=23649]

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

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





لك مني خالص التحية

RE: برنامج المستودعات هدية للاخ احمد منصور - Ahmed_Mansoor - 13-12-19

أهلا بك أخي الكريم , المشكلة هي أنك يجب أن تفعل الـ Option2 الخاص بالتعديل لكي عندما تضغط على زر "حفظ الفاتورة" الفاتورة يحفظ بيانات الفاتورة كتعديل وليس جديد , هذا هو تعديل كود حدث الضغط على أداة الفليكس في الفورم24 :

PHP كود :
Private Sub MSHFlexGrid1_DblClick()
On Error Resume Next: Err.Clear

        Form1.Text1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
       Form1.Option2.Value = True
       Form1.Text1.SetFocus
   
    Unload Me

End Sub 

وهذا تعديل كود الزر في الفورم24 :

PHP كود :
Private Sub Command1_Click()
        Form1.Text1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
        Form1.Option2.Value = True
       Form1.Text1.SetFocus
   
    Unload Me
End Sub 

إستبدلها بالأكواد السابقة التي عندك وإن شاء الله تنحل المشكلة , بالتوفيق .

RE: برنامج المستودعات هدية للاخ احمد منصور - awidan76 - 14-12-19

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

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

RE: برنامج المستودعات هدية للاخ احمد منصور - Ahmed_Mansoor - 14-12-19

(14-12-19, 05:17 PM)awidan76 كتب : تسلم اخي الغالي الله لا يحرمنا منك ابدا وتكون من الذين يحبهم

أهلا بك أخي الكريم , اللهم آمين يارب العالمين جزاك الله كل خير .

RE: برنامج المستودعات هدية للاخ احمد منصور - mhareek - 24-01-20

اخى    هذا البرنامج    غير مكتمل        كثير من الازرار    تعطى    هذة الخاصية غير متاحة


ما الفائدة من البرنامج اذا كانت الفواتير لاتعمل

RE: برنامج المستودعات هدية للاخ احمد منصور - awidan76 - 16-03-20

ان شاء الله حين الانتهاء من اكماله ساقوم برفعة من جديد فحالياً احتاجه  بهذا الشكل كصرف وتوريد فقط
شكراً لك اخي mhareek

RE: برنامج المستودعات هدية للاخ احمد منصور - tamer2005 - 29-10-20

انا عندى مشكلة البرنامج مش عايز يفتح عندى خالص مع ان عامل كل شئ والوندوز سفن اعمل ايه عشان يفتح البرنامج
مشكور اخى على مجهودك
رسالة خطاء بتظهر فى سطر
db.Open "DRIVER=SQLite3 ODBC Driver;Database=" & ZDBPath_New & ";Persist Security Info=False"

مش عارف ليه
هو بتظهر شاشة MDIForm1  وبعدها يعطى ان فى خطاء بالسطر المذكور مش عارف ليه
وشكرا ممكن الحل

RE: برنامج المستودعات هدية للاخ احمد منصور - حليم - 19-11-20

جزاك الله خبرا
قمت بتحمبل البرنامج
لم اجد الابلكيشن بتاع البرنامج لكى افوم بالتعدبل