VB .NET : Berhasil Cetak Multiple PDF

Imports System

Imports System.IO

Imports System.Data.SqlClient

Imports System.Data.Odbc

Imports System.Data.DataRowExtensions

Imports System.Data.DataTableExtensions

Imports System.Data.DataTableCollection

Imports System.Linq

Imports System.Xml

Imports System.Windows.Forms

Imports DevExpress.XtraReports.UI



Public Class Form2


    ' Source code di bawah ini berhasil mencetak multiple file PDF:


    Dim KODE_BAG As String

    Dim NAMA_BAG As String

    Dim nip As String

    Dim bulanTahun As String

    Dim alamatemail As String

    Dim TGL As String

    Dim nama As String

    Dim jumlahBaris As Integer


    Dim tabelBayangan As DataTable = New DataTable("tabelBayangan")

    Dim columnBayangan As DataColumn

    Dim rowBayangan As DataRow


    Sub kotakKombo()

        Dim datasetBagian As New DataSet

        Dim tabelDataBagian As New DataTable

        Dim koneksi As New OdbcConnection("DSN=latihan")

        datasetBagian = New DataSet("datasetBagian")

        tabelDataBagian = New DataTable("tabelDataBagian")


        datasetBagian.Tables.Add(tabelDataBagian)

        tabelDataBagian.AcceptChanges()

        datasetBagian.AcceptChanges()

        Try

            koneksi.Open()

            Dim dAdapter As OdbcDataAdapter = New OdbcDataAdapter("SELECT bag.KODE_BAG,bag.NAMA_BAG FROM bag", koneksi)

            dAdapter.Fill(tabelDataBagian)

            tabelDataBagian.AcceptChanges()

            ComboBox1.DataSource = tabelDataBagian

            ComboBox1.DisplayMember = "NAMA_BAG"

            ComboBox1.ValueMember = "KODE_BAG"



        Catch ex As OdbcException

            Console.WriteLine(ex.ToString)

        End Try

    End Sub


    Sub hapus()

        Dim perintah As OdbcCommand = New OdbcCommand

        Dim koneksi As New OdbcConnection("DSN=latihan")

        Try

            koneksi.Open()

            perintah.Connection = koneksi

            perintah.CommandText = "DELETE FROM slipgaji1"

            perintah.ExecuteNonQuery()

            koneksi.Close()

            koneksi.Dispose()


        Catch ex As OdbcException

            Console.WriteLine(ex.ToString)

        End Try
    End Sub


    Sub simpan()

        Dim koneksi As New OdbcConnection("DSN=latihan")

        Dim perintah As New OdbcCommand

        Try

            bulanTahun = DateTimePicker1.Value.Date.ToString("yyyy-MM")

            KODE_BAG = ComboBox1.SelectedValue.ToString

            koneksi.Open()

            perintah.Connection = koneksi

            perintah.CommandText = "INSERT INTO slipgaji1(slipgaji1.nip,slipgaji1.alamatemail,slipgaji1.KODE_BAG,slipgaji1.nama,slipgaji1.NAMA_BAG,slipgaji1.TGL) SELECT emailtest.nip,emailtest.alamatemail,sdmgaji.KODE_BAG,pegawai_lookup.nama,bag.NAMA_BAG,sdmgaji.TGL FROM sdmgaji INNER JOIN emailtest ON sdmgaji.NIP=emailtest.nip INNER JOIN pegawai_lookup ON sdmgaji.NIP=pegawai_lookup.nip INNER JOIN bag ON sdmgaji.KODE_BAG=bag.KODE_BAG WHERE sdmgaji.KODE_BAG='" & KODE_BAG & "' AND sdmgaji.TGL LIKE '" & bulanTahun & "%';"

            perintah.ExecuteNonQuery()




        Catch ex As OdbcException

            Console.WriteLine(ex.ToString)

        End Try

    End Sub


    Sub tampilIsiDataGrid()

        Dim koneksi As New OdbcConnection("DSN=latihan")

        Dim tabelDataGrid As New DataTable

        Try

            koneksi.Open()

            Dim dAdapter As OdbcDataAdapter = New OdbcDataAdapter("SELECT slipgaji1.nip,slipgaji1.alamatemail,slipgaji1.KODE_BAG,slipgaji1.TGL,slipgaji1.nama,slipgaji1.NAMA_BAG FROM slipgaji1;", koneksi)

            dAdapter.Fill(tabelDataGrid)

            tabelDataGrid.AcceptChanges()


            DataGridView1.DataSource = tabelDataGrid

            DataGridView1.Columns(0).Name = "nip"

            DataGridView1.Columns(0).DataPropertyName = "NIP"

            DataGridView1.Columns(0).HeaderText = "NIP"

            DataGridView1.Columns(0).HeaderCell.Style.Font = New System.Drawing.Font("Arial", 10, Drawing.FontStyle.Bold)



            DataGridView1.Columns(1).Name = "alamatemail"

            DataGridView1.Columns(1).DataPropertyName = "alamatemail"

            DataGridView1.Columns(1).HeaderText = "Alamat E-Mail"

            DataGridView1.Columns(1).HeaderCell.Style.Font = New System.Drawing.Font("Arial", 10, Drawing.FontStyle.Bold)


            DataGridView1.Columns(2).Name = "KODE_BAG"

            DataGridView1.Columns(2).DataPropertyName = "KODE_BAG"

            DataGridView1.Columns(2).HeaderText = "Kode Bagian"

            DataGridView1.Columns(2).HeaderCell.Style.Font = New System.Drawing.Font("Arial", 10, Drawing.FontStyle.Bold)



            DataGridView1.Columns(3).Name = "TGL"

            DataGridView1.Columns(3).DefaultCellStyle.Format = "MMMM yyyy"

            DataGridView1.Columns(3).DataPropertyName = "TGL"

            DataGridView1.Columns(3).HeaderText = "Periode"

            DataGridView1.Columns(3).HeaderCell.Style.Font = New System.Drawing.Font("Arial", 10, Drawing.FontStyle.Bold)



            DataGridView1.Columns(4).Name = "nama"

            DataGridView1.Columns(4).DataPropertyName = "nama"

            DataGridView1.Columns(4).HeaderText = "Nama Pegawai"

            DataGridView1.Columns(4).HeaderCell.Style.Font = New System.Drawing.Font("Arial", 10, Drawing.FontStyle.Bold)



            DataGridView1.Columns(5).Name = "NAMA_BAG"

            DataGridView1.Columns(5).DataPropertyName = "NAMA_BAG"

            DataGridView1.Columns(5).HeaderText = "Nama Bagian"




            DataGridView1.AutoResizeColumns()



        Catch ex As OdbcException

            Console.WriteLine(ex.ToString)

        End Try

        koneksi.Close()

        koneksi.Dispose()


    End Sub


    Sub buatLaporan()

        Dim datasetLaporan As New DataSet("datasetLaporan")

        Dim tabelLaporan As New DataTable("tabelLaporan")



        datasetLaporan.Tables.Add(tabelLaporan)

        tabelLaporan.AcceptChanges()

        datasetLaporan.AcceptChanges()


        Dim koneksi As New OdbcConnection("DSN=latihan")


        Try


            koneksi.Open()


            Dim dAdapter As OdbcDataAdapter = New OdbcDataAdapter("SELECT slipgaji1.nip,slipgaji1.alamatemail,slipgaji1.KODE_BAG,slipgaji1.TGL,slipgaji1.nama,slipgaji1.NAMA_BAG,slipgaji1.idslipgaji1 FROM slipgaji1", koneksi)


            dAdapter.Fill(tabelLaporan)

            tabelLaporan.AcceptChanges()

            datasetLaporan.AcceptChanges()

            tabelLaporan.WriteXml("C:\STEVEN\ProyekVB\Latihan7\Latihan7\Latihan7\bin\Debug\data\test.xml", XmlWriteMode.WriteSchema, True)

            jumlahBaris = tabelLaporan.Rows.Count

            Label5.Text = jumlahBaris.ToString




            For i As Integer = 1 To jumlahBaris

                Dim query = From laporan In tabelLaporan.AsEnumerable() Where laporan("idslipgaji1") = i Select laporan

                tabelBayangan = query.CopyToDataTable


                For Each rowBayangan In tabelBayangan.Rows


                    Dim penulis2 As New System.IO.StringWriter

                    Dim namaFile As String

                    tabelBayangan.TableName = "tabelBayangan"

                    namaFile = rowBayangan(4)

                    tabelBayangan.WriteXml(penulis2, XmlWriteMode.WriteSchema, True)

                    tabelBayangan.WriteXml("C:\STEVEN\ProyekVB\Latihan7\Latihan7\Latihan7\bin\Debug\data\data.xml", XmlWriteMode.WriteSchema, True)

                    Dim laporan As New XtraReport1

                    laporan.ExportToPdf("C:\STEVEN\ProyekVB\Latihan7\Latihan7\Latihan7\bin\Debug\filePDF\" & namaFile & ".pdf")



                Next rowBayangan


            Next i

        Catch ex As OdbcException

            Console.WriteLine(ex.ToString)

        End Try

        koneksi.Close()

        koneksi.Dispose()




    End Sub





    Sub resetIdSlipGaji1()

        Dim koneksi As New OdbcConnection("DSN=latihan")

        Try

            Dim perintah As New OdbcCommand("ALTER TABLE slipgaji1 AUTO_INCREMENT = 1", koneksi)

            koneksi.Open()

            perintah.ExecuteNonQuery()



        Catch ex As odbcException

        End Try

        koneksi.Close()

        koneksi.Dispose()



    End Sub


    Sub cetakXmlTabelBayangan()

        tabelBayangan.WriteXml("C:\STEVEN\ProyekVB\Latihan7\Latihan7\Latihan7\bin\Debug\data\tabelBayangan.xml", XmlWriteMode.WriteSchema, True)


    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load

        'Dim tabelBayangan As DataTable = New DataTable("tabelBayangan")

        'Dim columnBayangan As DataColumn

        'Dim rowBayangan As DataRow


        kotakKombo()

        DateTimePicker1.MinDate = New DateTime(1900, 1, 1)

        DateTimePicker1.MaxDate = DateTime.Today

        DateTimePicker1.CustomFormat = "MMMM yyyy"

        DateTimePicker1.Format = DateTimePickerFormat.Custom

        DateTimePicker1.ShowUpDown = True

        Label4.Text = ComboBox1.SelectedValue.ToString



        ' Membuat datatabel tabelBayangan  dan kolom-kolomnya seperti di datatabel tabelLaporan


        ' Membuat kolom nip di datatabel tabelBayangan
        ' rowBayangan(0), columnBayangan(0)

        columnBayangan = New DataColumn

        columnBayangan.DataType = System.Type.GetType("System.String")

        columnBayangan.ColumnName = "nip"

        tabelBayangan.Columns.Add(columnBayangan)



        ' Membuat kolom alamatemail di datatabel tabelBayangan
        ' rowBayangan(1), columnBayangan(1)

        columnBayangan = New DataColumn

        columnBayangan.DataType = System.Type.GetType("System.String")

        columnBayangan.ColumnName = "alamatemail"

        tabelBayangan.Columns.Add(columnBayangan)



        ' Membuat kolom KODE_BAG di datatabel tabelBayangan
        ' rowBayangan(2), columnBayangan(2)

        columnBayangan = New DataColumn

        columnBayangan.DataType = System.Type.GetType("System.String")

        columnBayangan.ColumnName = "KODE_BAG"

        tabelBayangan.Columns.Add(columnBayangan)



        ' Membuat kolom TGL di datatabel tabelBayangan
        ' rowBayangan(3), columnBayangan(3)

        columnBayangan = New DataColumn

        columnBayangan.DataType = System.Type.GetType("System.String")

        columnBayangan.ColumnName = "TGL"

        tabelBayangan.Columns.Add(columnBayangan)



        ' Membuat kolom nama di datatabel tabelBayangan
        ' rowBayangan(4), columnBayangan(4)

        columnBayangan = New DataColumn

        columnBayangan.DataType = System.Type.GetType("System.String")

        columnBayangan.ColumnName = "nama"

        tabelBayangan.Columns.Add(columnBayangan)



        ' Membuat kolom NAMA_BAG di datatabel tabelBayangan
        ' rowBayangan(5), columnBayangan(5)

        columnBayangan = New DataColumn

        columnBayangan.DataType = System.Type.GetType("System.String")

        columnBayangan.ColumnName = "NAMA_BAG"

        tabelBayangan.Columns.Add(columnBayangan)



        ' Membuat kolom idslipgaji1 di datatabel tabelBayangan
        ' rowBayangan(6), columnBayangan(6)

        columnBayangan = New DataColumn

        columnBayangan.DataType = System.Type.GetType("System.Int32")

        columnBayangan.ColumnName = "idgaji"

        tabelBayangan.Columns.Add(columnBayangan)


        tabelBayangan.AcceptChanges()








    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' Simpan Data



        hapus()

        resetIdSlipGaji1()


        simpan()

        buatLaporan()






    End Sub

    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged

        Label3.Text = DateTimePicker1.Value.ToString("MMMM yyyy")


    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Label4.Text = ComboBox1.SelectedValue.ToString


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        cetakXmlTabelBayangan()



    End Sub
End Class