[RaggiTech]

برمجة الأمر

BUY :

يشبه هذا الأمر SEL إلى حد كبير ، ويختلف عنه في أننا نحتاج أولاً إلى أن نتأكد من توفر الكمية المطلوبة قبل العملية ، وإلا فإننا نظهر رسالة تحذيريه بالكمية الموجودة حالياً .

وكما هي بداية أمر Sel يبدأ الأمر BUY بالانتقال إلى السجل المطلوب وتحديد الكمية في cnt :

كود :

[align=right]T1.MoveFirst
For i = 0 To T1.RecordCount - 1
If T1!Name = Combo1.Text Then Exit For
T1.MoveNext
Next i

Dim cnt
cnt = Val(Text2.Text)
If Option2.Value = True Then cnt = cnt * T1!Box_count[/align]

ومن ثم أمر التأكد من توفر الكمية المطلوبة :

كود :

[align=right]If cnt > T1!Count Then
MsgBox "الكمية التي تطلبها غير متوفرة وهي : " & cnt & "الموجود حالياً : " & T1!Count, vbExclamation + arabic, "كمية غير متوفرة"
Exit Sub
End If[/align]

ومن ثم أوامر الاضافة في قاعدة البيانات ونقص العدد بمقدار العملية :

كود :

[align=right]With T5
.AddNew
!product = T1!Number
!Date = MaskEdBox1.Text
!Count = cnt
!price = Val(Text1.Text)
!kind = 0
.Update
End With

T1.Edit
T1!Count = T1!Count - cnt
T1.Update[/align]

وأخيراً الرسالة التي تفيد اتمام العملية بنجاح :

كود :

[align=right]MsgBox "تمت العملية بنجاح ، يوجد من البضاعة حالياً : " & T1!Count & " وحدة", vbInformation + arabic, "اتمام العملية"[/align]

ونفرغ الخانات تمهيداً لعملية جديدة :

كود :

[align=right]Text1.Text = ""
Text2.Text = ""[/align]

والآن عد مجدداً إلى Frm_Show واكتب في زري ( عملية بيع ، عملية شراء ) الأوامر التالية :

* عملية بيع :

كود :

[align=right]Frm_Sel_Bay.lbl_name.Caption = "اضافة عملية بيع"
Frm_Sel_Bay.Refresh_Me
Frm_Sel_Bay.Combo1.Text = Text1.Text
Frm_Sel_Bay.Text1 = Text4.Text
Frm_Sel_Bay.Show 1

Refresh_Me[/align]

*** هناك خطأ في تسمية الفورم Frm_Sel_Bay ، ولم الحظ انني كتبت a بدلاً من u إلا مؤخراً .
وهذا الخطأ مكرر أيضاً في قاعدة البيانات ( جدول

Tb_Sel_Bay ) أيضاً .

* عملية شراء :

كود :

[align=right]Frm_Sel_Bay.lbl_name.Caption = "اضافة عملية شراء"
Frm_Sel_Bay.Refresh_Me
Frm_Sel_Bay.Combo1.Text = Text1.Text
Frm_Sel_Bay.Text1 = Text4.Text
Frm_Sel_Bay.Show 1

Refresh_Me[/align]

حيث أن هذه الأوامر اظهار طبيعي للشاشة لكن مع وضع اسم البضاعة الحالية كافتراضي ، ووضع السعر الحالي كافتراضي ايضاً ، ومن ثم اطلاق أمر التحديث .


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