فاتورة مبيعات رائعة

أحد الحلول هو أن تقوم باضافة DataGrid وتضيف عليها عند فتح النافذة عدد الاسطر التي تريدها بالكود وتكون فارغة بحيث تكون الخلية الأولى من نوع Button وتظهر فيها رقم السطر ..

وبالنسبة للستايل بامكانك بكل سهولة تغيير الستايل في DataGrid

وعند اضافة كل صنف تقوم بملئ الخلايا بالترتيب بالبيانات بالكود

جرب وسنساعدك..

بالتوفيق

اتمنى ان تزدودني بهذا الحل على مثال ان امكن او الاكواد

اكون شاكر ليك

السلام عليكم

تفضل أخي تطبيق صغير للغريد في المرفقات

الشرح:

1- نقوم باضافة غريد للفورم

2- نقوم باضافة اعمدة للغريد يدويا بحيث يكون اول عمود من نوع Button

3- نقوم ببعض التنسيقات للغريد لحجم الاعمد والوان الاسطر ولون الخط في خلية الاجمالي

4-نكتب الكود التالي في حدث تحميل الفورم لتعبئة الغريد عند فتح النافذة بشكل تلقائي ب 1000 سطر

 private void Form3_Load(object sender, EventArgs e)
        {
            //تعبئة الغريد يمكنك ان تضع عدد الاسطر الذي تريده  في الحلقة
            for (int i = 1; i <= 1000; i++)
            {
                object[] obj = { i.ToString(), string.Empty, string.Empty, string.Empty, string.Empty,string.Empty };
                dataGridViewSales.Rows.Add(obj);

            }
        }

5- نكتب الكود التالي لحساب قيمة الاجمالي عند تلقائيا عند تعبئة خانة الافرادي والكمية:

private void dataGridViewSales_CellValidated(object sender, DataGridViewCellEventArgs e)
        {
            if (e.ColumnIndex == 3 | e.ColumnIndex == 4 | e.ColumnIndex == 5)
                if (dataGridViewSales.Rows[e.RowIndex].Cells[2].Value.ToString() != string.Empty && dataGridViewSales.Rows[e.RowIndex].Cells[3].Value.ToString() != string.Empty)
                    dataGridViewSales.Rows[e.RowIndex].Cells[4].Value = Convert.ToInt32(dataGridViewSales.Rows[e.RowIndex].Cells[2].Value) * Convert.ToInt32(dataGridViewSales.Rows[e.RowIndex].Cells[3].Value);
        }

عفوا لقد كتبت الكود بالسي شارب لكن اظن انه يمكنك تحويله بسهوله للفي بي :happy:

وعليك الان تحسين الاخراج بالشكل الذي تراه مناسبا

أرجو ان تعم الفائدة

بالتوفيق

SalesProject.rar

اخي الحبيب مشكووووور على هذا المثال الرائع

اذا تكرمت ان تحول لنا حدث تحميل الفورم الى vb.net

ولك جزيل الشكر

aladein كتب:

اخي الحبيب مشكووووور على هذا المثال الرائع

اذا تكرمت ان تحول لنا حدث تحميل الفورم الى vb.net

ولك جزيل الشكر

على الرحب والسعة

 Private Sub Form1_Load(sender As Object, e As EventArgs)
      'تعبئة الغريد يمكنك ان تضع عدد الاسطر الذي تريده  في الحلقة
        For i As Integer = 1 To 1000
            Dim obj As Object() = {i.ToString(), String.Empty, String.Empty, String.Empty, String.Empty, String.Empty}
            dataGridViewSales.Rows.Add(obj)
        Next i
   End Sub 'Form1_Load

اخي الغالي

شكرا لك على حسن تعاونك

لقد قمت بعمل الفاتورة وكل شئ تمام

لكن لدي بعض المشاكل في اكواد تحميل البيانات الى الفاتورة

لذلك ارفقت لك الملف عسى ان تساعدني في تصحيح هذه الاخطاء

وجزاك الله خيراً

البرنامج.rar

sayed fox كتب:

اخي الغالي

شكرا لك على حسن تعاونك

لقد قمت بعمل الفاتورة وكل شئ تمام

لكن لدي بعض المشاكل في اكواد تحميل البيانات الى الفاتورة

لذلك ارفقت لك الملف عسى ان تساعدني في تصحيح هذه الاخطاء

وجزاك الله خيراً

أهلا أخي سيد

يظهر عندي خطا عند فتح اي نافذة في حالة التصميم عند System.ComponentModel

أنا استخدم VS2008 ربما هذه المكتبة تم تعديلها لذلك ارفق المشروع مع ملف Solution ليتم تحويله

بالنسبة للموديول تم كتابته فيمايلي:

Imports System.Data
Imports System.Data.OleDb

''' <summary>
''' Module For Connect to DataBase
''' </summary>
''' <remarks></remarks>
Module DataBase
    Private con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db1.mdb"
    Private Conn As New OleDbConnection(con)

    Public Property DBConnection() As OleDbConnection
        Get
            Return Conn
        End Get
        Set(ByVal value As OleDbConnection)
            Conn = value
        End Set
    End Property

    Public Sub OpenDBConnection()
        Try
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Public Sub CloseDBConnection()
        Try
            If Conn.State = ConnectionState.Open Then
                Conn.Close()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub


End Module

أظن انه واضح

بالتوفيق

اشكرك اخي الغالي على تعاونك وجعله الله في ميزان حسناتك

اليك المرفقات

WindowsApplication1.rar

أخي الكريم لم تقل انك تستخدم VS2010 عذرا منك ولكن ليس لدي VS2010 وانا استخدم 2008 إذا استطعت قم بتحويله الى VS2008 او قم بكتابة الاكواد وضعها هنا وسوف نساعدك ان شاء الله

اخي الغالي

عذراً لم اجد اداة لتحويل المشروع من 2010 الى 2008

لذلك ارفقت لك صور قاعدة البيانات و الجداول

وصورة الفاتورة والاكواد المستخدمة

1-صورة الجداول

2-جدول BETAcc00

3-جدول BETSanf

4-جدول Froaa

5-جدول MabiatDetails

6-جدول MabiatMaster

7-جدول Makhazen

8-جدول Omlat

9-جدول Sales

10-صورة العلاقات بين الجداول

11-صورة الفاتورة

الاكواد:

Public Class frmmabiat
    Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db1.mdb"
    Dim SQLStrM As String = "select * FROM MabiatMaster"
    Dim SQLStrD As String = "select * FROM MabiatDetails"
    Dim DTM As New OleDbDataAdapter(SQLStrM, con)
    Dim DTD As New OleDbDataAdapter(SQLStrD, con)
    Dim Conn As New OleDbConnection(con)
    Dim DSM, DSD As New DataSet
    Dim BCM, BCD As New BindingSource

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DTM.Fill(DSM, "MabiatMaster")
        BCM.DataSource = DSM.Tables("MabiatMaster")
        BCM.Filter = "NumD =" & NumM.Text

        DTD.Fill(DSD, "MabiatDetails")
        BCD.DataSource = DSD.Tables("MabiatDetails")
        BCD.Filter = "NumD =" & NumM.Text
        DataGridView1.DataSource = bcD

           End Sub