آموزش جمع ستون های DataGridView و نمایش آن در یکی ستونها

جمع ستون های DataGridView

آموزش جمع ستون های DataGridView و نمایش آن در یکی ستونها را برای شما دوستان ام اس پی سافت اماده دانلود کرده ایم!اولین مطلبم در ام اس پی سافت است که سعی میکنم خیلی مانند دیگر نویسنده ها آموزش را ارائه بدم.این آموزش به زبان VB.NET است که در ادامه بخش بخش باهم شروع میکنیم تا اینکه پروژه نهایی را به پایان برسانیم.خوب یک توضیح در مورد در مورد پروژه میدم:تا به حال شده در یک پروژه بخواید جمع ستون های DataGridView محاسبه کنید ؟بله پروژه هایی مانند فاکتور فروش و یا خرید این کار باید انجام بشه حالا چه خوب میشه که بدون اینکه ابزاری برای آن قرار بدیم بیایم در خوده گرید ویو این کارو انجام بدیم یعنی در آخرین ستونی که گرید ویو اطلاعاتش قرار داره یک بخشی را برای جمع کل در نظر میگیریم.دیتابیسی که برای این پروژه در نظر گرفته شه است ۲۰۰۸ است ولی کد ساخت جدول را قرار دادم تا در تمامی دیتابیس های موجود بتونید بانک اطلاعاتی خودتون را بسازید.برای آموزش در ادامه با ما باشید.:)

۱-ساخت دیتابیس

ابتدا به یک دیتابیس نیاز داریم.با کد زیر دیتابیس مورد نظرا میسازیم !

    CREATE DATABASE `payroll` ;

 ۲-ساخت جدول و فیلد ها

بعد ساخت دیتابیس باید جدول مورد نظر و همچنین فیلد های مورد نیاز ساخته بشن از کد زیر برای ساخت جدول استفاده کنید.

CREATE TABLE IF NOT EXISTS `employees` (
    `EMPLOYEE_ID` int(11) NOT NULL,
    `FIRST_NAME` varchar(255) DEFAULT NULL,
    `LAST_NAME` varchar(255) DEFAULT NULL,
    `SALARY` int(11) DEFAULT NULL,
    PRIMARY KEY (`EMPLOYEE_ID`)
    ) ENGINE=MyISAM DEFAULT CHARSET=utf8;

 ۳-اطلاعات جدول

بعد از اینکه جدول و فیلد ها ساخته شد میتونید یک سریا اطلاعات به صورت دستی داخل جدول قرار بدید البته این بخش اختیاری است برای تست براتون قرار میدم.

 INSERT INTO `employees` (`EMPLOYEE_ID`, `FIRST_NAME`, `LAST_NAME`, `SALARY`) VALUES
    (۱۰۲, 'lex', 'De Haan', 17000),
    (۱۰۳, 'alexander', 'Hunold', 9000),
    (۱۰۴, 'Bruce', 'Ernst', 6000),
    (۱۰۷, 'Diana', 'Lorents',4200),
    (۱۲۴, 'Kevin', 'Mourgos', 5800),
    (۱۴۱, 'Trenne', 'Rajs', 3500),
    (۱۴۲, 'Curtis', 'Davies', 3100),
    (۱۴۳, 'Randal', 'Matos', 2600),
    (۱۴۴, 'Peter', 'Vargas', 2500),
    (۱۴۹, 'Ellen', 'Zlotkey', 10500),
    (۱۷۴, 'Jonathan', 'Abel', 11000),
    (۱۷۶, 'Kimberly', 'Taylor', 8600),
    (۱۷۸, 'Jinnefer', 'Grant', 7000),
    (۲۰۰, 'Michael', 'Whalen', 4400),
    (۲۰۱, 'Pat', 'Hartstein', 13000),
    (۲۰۵, 'Shelley', 'Fay', 6000),
    (۲۰۶, 'William', 'Higgins', 12000),
    (۲۰۷, 'hatch', 'Glets', 8300);

 ۴-طراحی فرم

بعد از اینکه ساخت دیتابیس به پایان رسید باید فرمی را جهت نمایش اطلاعات به نمایش در بیارم ! خوب ویژوال استدیو خود را باز کنید یک پروژه در VB.NET ایجاد کنید روی فرم ساخته شده یک گرید ویو قرار دهید و یک دکمه جهت بارگزاری اطلاعات.

کد زیر را در Form_Load خود قرار دهید.

'reference
    Imports MySql.Data.MySqlClient
    Public Class Form1

    'setting up the string connection of MySQL Database
    Dim con As MySqlConnection = _
    New MySqlConnection("server=localhost;user id=root;database=payroll")
    'a set of command in MySQL
    Dim cmd As New MySqlCommand
    'Bridge between a database and the datatable for retrieving and saving data.
    Dim da As New MySqlDataAdapter
    'a specific table in the database
    Dim dt As New DataTable

کد زیرا را نیز در دکه ای که برای load قرار داده اید قرار بدید!

    Private Sub display_Click _
    (ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click
    'for displaying records in the datagridview from the database
    Try
    'openning connection
    con.Open()

    'set a new spicific table in the database
    dt = New DataTable
    'set your commands for holding the data.
    With cmd
    .Connection = con
    .CommandText = "Select * from employees"
    End With
    'filling the table in the database
    da = New MySqlDataAdapter("Select * from employees", con)
    da.Fill(dt)
    'getting the datasource that will display on the datagridview
    DataGridView1.DataSource = dt
    'declaring variable as integer to store the value of the total rows in the datagridview
    Dim max As Integer = DataGridView1.Rows.Count - 1
    'putting the string value in the last row of the datagridview
    DataGridView1.Rows(max).Cells(2).Value = "Total"
    'putting the value which is 0 in the last row of the datagridview
    'this is the first value that appear to the last row in the column 3
    'this is for avoiding error when you begin calculating
    DataGridView1.Rows(max).Cells(3).Value = 0
    Catch ex As Exception
    MsgBox(ex.Message)
    End Try
    'closing connection
    con.Close()
    End Sub

دکمه ی دیگری نیز برای محاسبه اطلاعات قرار بدید تا عملیات مورد نظر را انجام دهد.کد زیر را در آن قرار دهید.

    Private Sub Calculate_Click _
    (ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button2.Click
    Try
    'declaring variable as integer to store the value of the total rows in the datagridview
    Dim max As Integer = DataGridView1.Rows.Count - 1
    'getting the values of a specific rows
    For Each row As DataGridViewRow In DataGridView1.Rows
    'formula for adding the values in the rows
    DataGridView1.Rows(max).Cells(3).Value += row.Cells(3).Value
    Next
    Catch ex As Exception
    MsgBox(ex.Message)
    End Try
    End Sub

موفق باشید ببخشید اگر کمو کسری داشت.

عباس ارجمند

نوشته‌های مرتبط

دیدگاه‌ها

*
*

این سایت از اکیسمت برای کاهش هرزنامه استفاده می کند. بیاموزید که چگونه اطلاعات دیدگاه های شما پردازش می‌شوند.

    جعفری پاسخ

    باید بگم عالی هستید و در بین سایت ها دیگر برتر

    sasan پاسخ

    سلام لینک دانلودش نیست ؟!

      مسعود شریفی پاسخ

      :)

      dsfadsfd پاسخ

      مچکرم

    dsfadsfd پاسخ

    سلام
    عالی بود.

ما یک پرسشنامه‌ی کوچولو داریم، که قول میدیم وقتتون رو خیلی نمی‌گیره، ولی کلی به ما کمک می‌کنه، چون هم assessment مونه ,و هم شما به ما در این زمینه کمک میکنید.بزن بریم