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

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

      تأليف:

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

    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
1- ا طٌى 1

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