📘 ❞ مشروع المشتريات والمبيعات للمهندس محمد محمود الصقار ❝ مذكّرة

كتب فجوال بيسك 6 - 📖 مذكّرة ❞ مشروع المشتريات والمبيعات للمهندس محمد محمود الصقار ❝ 📖

█ _ 0 حصريا مذكّرة ❞ مشروع المشتريات والمبيعات للمهندس محمد محمود الصقار ❝ 2024 الصقار: سيتم فى هذا المشروع تصميم بإستخدام مكتبة الداو ومن هنا يتم التدريب اكثر من شاشة والتدريب أسلوب المخازن بطريقه جيده تأليف: المهندس الصقار Sales Project Private Sub Command3_Click() On Error Resume Next Command2 Enabled = True Command3 False itm FindFirst "itm_nm='" & Text2 Text "'" If itm EOF Then MsgBox "ÚÝæÇ áã íÊã ÊÍÏíÏ ÕäÝ" Exit Sub End If Dim q As Integer q itm("Item_qu") If < Val(Text10 Text) áÇ íãßä ÈíÚ ßãíå ÃßËÑ ãä ÇáãæÌæÏå Ýì ÇáãÎÒä" MsgBox q Exit If itm Edit itm("Item_qu") Text) itm Update Sal("sal_VN") Combo1 Text Sal("sal_ID") Text1 Text Sal("sal_QU") Text10 Text Sal("sal_PRC") Text11 Text Sal("sal_VAL") Text12 Text Sal("sal_NO") Text13 Text Sal("sal_dte") Text14 Text Sal("sal_dev") Text15 Text If "" "ÇÎÊÑ ÅÓã ÇáãæÑÏ" Combo1 SetFocus Exit If If ÃÏÎá ÑÞã ÇáÕäÝ" Text1 If Sal Update كتب فجوال بيسك 6 مجاناً PDF اونلاين VB6 لغة البرمجة فيجوال هي ذات مرئي واجهة رسومية بعكس بعض اللغات مثل (الاسمبلي) الشاشة السوداء حيث تحتوي هذه اللغة العديد الاوامر بداخلها ولغة سهلة التطبيق تم تطوير النسخة البرنامج عن القديمة basic والتي تعمل تحت بيئة dos إلى التي ويندوز تعتمد تطبيقاتها الكائنات فهي تشبه لغات الحديثة اعتمادها الديناميكية والأحداث تعني القدرة استدعاء اي اقتران أو اجراء اعتمادا الحدث هو عملية يقوم بها مستخدم الضغط بزر الفارة أحد ازرار لوحة المفاتيح حتى تحميل نموذج

إنضم الآن وتصفح بدون إعلانات
مشروع المشتريات والمبيعات للمهندس محمد محمود الصقار
مذكّرة

مشروع المشتريات والمبيعات للمهندس محمد محمود الصقار

مشروع المشتريات والمبيعات للمهندس محمد محمود الصقار
مذكّرة

مشروع المشتريات والمبيعات للمهندس محمد محمود الصقار

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





تأليف:

المهندس/ محمد محمود الصقار

Sales Project
Private Sub Command3_Click()
On Error Resume Next
Command2.Enabled = True
Command3.Enabled = False
itm.FindFirst "itm_nm='" & Text2.Text & "'"
If itm.EOF Then
MsgBox "ÚÝæÇ áã íÊã ÊÍÏíÏ ÕäÝ"
Exit Sub
End If
Dim q As Integer
q = itm("Item_qu")
If q < Val(Text10.Text) Then
MsgBox "ÚÝæÇ áÇ íãßä ÈíÚ ßãíå ÃßËÑ ãä ÇáãæÌæÏå Ýì ÇáãÎÒä"
MsgBox q
Exit Sub
End If
itm.Edit
itm("Item_qu") = q - Val(Text10.Text)
itm.Update
Sal("sal_VN") = Combo1.Text
Sal("sal_ID") = Text1.Text
Sal("sal_QU") = Text10.Text
Sal("sal_PRC") = Text11.Text
Sal("sal_VAL") = Text12.Text
Sal("sal_NO") = Text13.Text
Sal("sal_dte") = Text14.Text
Sal("sal_dev") = Text15.Text
If Combo1.Text = "" Then
MsgBox "ÇÎÊÑ ÅÓã ÇáãæÑÏ"
Combo1.SetFocus
Exit Sub
End If
If Text1.Text = "" Then
MsgBox "ÚÝæÇ ÃÏÎá ÑÞã ÇáÕäÝ"
Text1.SetFocus
Exit Sub
End If
Sal.Update
الترتيب:

#5K

0 مشاهدة هذا اليوم

#71K

11 مشاهدة هذا الشهر

#6K

28K إجمالي المشاهدات
عدد الصفحات: 34.
المتجر أماكن الشراء
مناقشات ومراجعات
QR Code
أماكن الشراء: عفواً ، لا يوجد روابط مُسجّلة حاليا لشراء الكتاب من المتاجر الإلكترونية