[سؤال] كيف أقدر اعمل إحصائيات - نسخة قابلة للطباعة

PHP كود :

CREATE DATABASE JobStatisticsDB;
USE JobStatisticsDB;

CREATE TABLE Employees (
    Id INT PRIMARY KEY IDENTITY(1,1),
    JobTitle NVARCHAR(50),
    Nationality NVARCHAR(50),
    City NVARCHAR(50)
);

INSERT INTO Employees (JobTitle, Nationality, City) VALUES
('مدير', 'مصري', 'الرياض'),
('محاسب', 'سعودي', 'جدة'),
('مدير', 'أردني', 'الرياض'),
('مبرمج', 'سعودي', 'جدة'),
('محاسب', 'مصري', 'الرياض');

PHP كود :

Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Dim targetCity As String = txtCity.Text
        Dim targetJobTitle As String = txtJobTitle.Text

        ' تغيير هذه السلسلة وفقاً لإعدادات قاعدة بياناتك
        Dim connectionString As String = "Server=YOUR_SERVER_NAME;Database=JobStatisticsDB;Trusted_Connection=True;"

        Using connection As New SqlConnection(connectionString)
            connection.Open()

            Dim query As String = "SELECT Nationality, COUNT(*) AS Count " &
                                  "FROM Employees " &
                                  "WHERE City = @City AND JobTitle = @JobTitle " &
                                  "GROUP BY Nationality"

            Using command As New SqlCommand(query, connection)
                command.Parameters.AddWithValue("@City", targetCity)
                command.Parameters.AddWithValue("@JobTitle", targetJobTitle)

                Dim adapter As New SqlDataAdapter(command)
                Dim table As New DataTable()
                adapter.Fill(table)

                ' عرض النتائج في DataGridView
                dgvResults.DataSource = table

                ' حساب عدد المسميات الوظيفية
                Dim countQuery As String = "SELECT COUNT(*) FROM Employees WHERE City = @City AND JobTitle = @JobTitle"
                Using countCommand As New SqlCommand(countQuery, connection)
                    countCommand.Parameters.AddWithValue("@City", targetCity)
                    countCommand.Parameters.AddWithValue("@JobTitle", targetJobTitle)

                    Dim count As Integer = Convert.ToInt32(countCommand.ExecuteScalar())
                    lblCount.Text = "عدد المسميات الوظيفية: " & count
                End Using
            End Using
        End Using
    End Sub
End Class