برنامج إدارة المبيعات: الدرس الرابع : صفحة البيع النقدي - الجزء 1: عرض الموجودات داخل فورم البيع النقدي
- داتاكردفيو المواد - dgvItems
- مربع نص سعر البيع - tbSellingPrice
- مربع نص اسم المنتج- tbItemName
- مربع نص العدد - tbNo
- زر زيادة عدد وحدات المادة- btnIncreaseNo
- زر تقليل عدد وحدات المادة- btnDecreaseNo
أولا: داتاكردفيو المواد - dgvItems
عن طريق هذه الاداة نقوم بعرض المواد المخزنة في قاعدة البيانات لغرض بيها وذلك عن طريق كتابة كود عرض المواد داخل حدث تحميل الفورم frmCashSale_Load عن طريق الكود التالي:-
Private Sub frmCashSale_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim da As New OleDbDataAdapter("Select ItemName, SellingPrice From QueryItemsProfit order
by ID", con)
Dim dt As New DataTable
dt.Clear()
da.Fill(dt)
dgvItems.DataSource = dt
With dgvItems
.Columns("ItemName").HeaderText = "اسم المادة"
.Columns("ItemName").Width = 300
.Columns("ItemName").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("SellingPrice").HeaderText = "سعر البيع "
.Columns("SellingPrice").Width = 100
.Columns("SellingPrice").DefaultCellStyle.Alignment
= DataGridViewContentAlignment.MiddleCenter
.Columns("SellingPrice").HeaderCell.Style.Alignment
= DataGridViewContentAlignment.MiddleCenter
End With
End Sub
ثانياً: مربع نص اسم المنتج - tbItemName , مربع نص سعر البيع - tbSellingPrice
Private Sub dgvItems_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvItems.CellDoubleClick
Try
Dim curRow = dgvItems.CurrentRow.Index
tbItemName.Text =
dgvItems.Rows(curRow).Cells("ItemName").Value.ToString
tbSellingPrice.Text =
dgvItems.Rows(curRow).Cells("SellingPrice").Value.ToString
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
ثالثاً: مربع نص - tbNo
رابعاً: زر زيادة عدد وحدات المادة - btnIncreaseNo
Private Sub btnIncreaseNo_Click(sender As Object,e As EventArgs)Handles btnIncreaseNo.Click
Dim CurNo As Integer = CInt(tbNo.Text)
Dim PlusOne As Integer = CurNo + 1
tbNo.Text = CStr(PlusOne)
End Sub
خامساً: زر تقليل عدد وحدات المادة - btnDecreaseNo
Private Sub btnDecreaseNo_Click(sender As Object,e As EventArgs)Handles btnDecreaseNo.Click
If tbNo.Text <> 1 Then
Dim CurNo As Integer = CInt(tbNo.Text)
Dim MinusOne As Integer = CurNo - 1
tbNo.Text = CStr(MinusOne)
End If
End Sub
تعليقات
إرسال تعليق