LAMPIRAN
L.1
Hasil wawancara Berdasarkan metode penelitian yang kami gunakan yaitu metode wawancara, berikut ini adalah hasil wawancara kami dengan pihak PT. Indometal Jayapratama :
1.
Bagaimana sejarah PT. Indometal Jayapratama ? PT. Indometal Jayapratama didirikan di Jakarta berdasarkan akta notaris nomor 31 tanggal 4 Juli 1990 dihadapan Yudo Paripurno, Sarjana Hukum notaris di Jakarta. Karena semakin berkembang dan bertambahnya karyawan, pada tahun 1992 manajemen perusahaan memutuskan untuk mencari lokasi yang lebih memadai yaitu di daerah Panunggangan Barat, Tangerang. Tahun 1997 PT. Indometal Jayapratama mendapatkan fasilitas kredit dari Bank untuk pembelian pabrik di Jl. Arya Kemuning, Kawasan Industri Nambo Jaya Tangerang.
2.
Bagaimana struktur organisasi perusahaan ? Perusahaan ini langsung dibawahi oleh pemilik sekaligus sebagai direktur utama dari PT. Indometal Jayapratama. Adapun General Manager yang bertanggung jawab langsung kepada Direktur Utama dan juga membawahi departemen yang ada, yaitu accounting, finance, marketing, purchase, produksi dan human resource and development (HRD). Masing-masing
L1
L2
departemen ini juga memiliki staf yang membantu pekerjaan dari manajer tiap departemen.
3.
Bagaimana wewenang dan tanggung jawab tiap bagian dari perusahaan ini ? 1. Direktur Utama Tugas : a.
Menentukan tujuan dan kebijakan perusahaan secara keseluruhan baik dalam jangka panjang maupun jangka pendek.
b.
Melakukan pengawasan terhadap kemajuan perusahaan.
Wewenang : a.
Memimpin seluruh eksekutif perusahaan.
b.
Mewakili atas nama Perusahaan untuk berbisnis dengan perusahaan lain.
c.
Memilih, menetapkan, mengawasi tugas dari Manager.
d.
Menandatangani surat penting atau perjanjian kerjasama dengan perusahaan lain.
2. General Manager Tugas : a.
Membantu direktur utama dalam mengelola sumber daya perusahaan.
b.
Membantu direktur dalam mengontrol asset perusahaan.
c.
Melaksanakan tugas khusus dari direktur utama.
d.
Mengawasi kinerja perusahaan.
L3
Wewenang : a. Mengkoordinasi seluruh perusahaan dan membuat sistem kerjasama diantara seluruh manager perusahaan.
3. Finance Manager Tugas : a. Mengawasi kinerja staff finance. b. Membuat Laporan Arus Kas. Wewenang : a.
Menerima pembayaran.
b.
Membayar pengeluaran untuk bahan baku produksi.
4. Accounting Manager Tugas : a. Membukukan transaksi perusahaan. b. Menyusun HPP. c. Membuat laporan keuangan secara 3eriodic ( bulanan dan tahunan ). d. Membuat Laporan Rugi Laba. e. Mengawasi arus kas perusahaan. f. Mengurusi perhitungan pajak. Wewenang : a. Mengesahkan pengambilan dana kas kecil.
L4
5. Purchase Manager Tugas : a. Mengontrol kegiatan pembelian dan administrasi pembelian. b. Mengontrol dan mengatur agar pembelian barang sesuai dengan purchase request departemen terkait. Wewenang : a.
Mencari supplier dan melakukan negosiasi harga.
b.
Merencanakan pembelian bahan baku produksi sesuai permintaan bagian production.
6. Marketing Manager Tugas : a.
Menjalin hubungan baik dengan rekanan atau distributor baik dalam kota maupun luar kota.
b.
Mengkoordinasi penjualan dan pengiriman agar sesuai dengan jadwal pengiriman yang telah disepakati.
c.
Mengawasi kinerja sales.
d.
Mengawasi kegiatan penjualan perusahaan.
e.
Membuat laporan penjualan.
Wewenang : a.
Mengatur perusahaan.
strategi
marketing
untuk
meningkatkan
penjualan
L5
7. Production Manager Tugas : a.
Mengawasi jalannya produksi dalam perusahaan.
b.
Meningkatkan dan mengawasi mutu kualitas dari produk.
c.
Menentukan dan merencanakan budget produksi.
Wewenang : a.
Menyetujui dan membuat perencanaan produksi.
8. HRD (Human Resource and Development) Tugas : a.
Melakukan interview dan perekrutan karyawan baru.
b.
Mengkoordinasi dan menjaga hubungan baik karyawan dengan perusahaan.
c.
Mengurusi pencatatan ijin, cuti, dan absen karyawan.
Wewenang : a.
Merencanakan training untuk karyawan.
b.
Mengatur tindakan pemutusan hubungan kerja karyawan.
9. EDP (Electronic Data Processing) Tugas : a.
Membuat program yang dapat membantu accounting dalam pembuatan program secara terkomputerisasi.
b.
Melakukan maintenance hardware dan software secara 5eriodic.
c.
Melakukan upgrade hardware ataupun software jika diperlukan.
L6
d.
Menjaga agar data yang tersimpan dalam database perusahaan tidak bocor / menjaga keamanan data.
Wewenang : a.
Mengakses database perusahan untuk melakukan maintenance secara berkala.
10.Sales Tugas : a.
Melakukan koordinasi dengan sales dalam kota dan sales diluar kota.
b.
Memonitor kegiatan penjualan perusahaan ditiap daerah.
c.
Menerima 6eriodic dan feedback customer.
d.
Membuat laporan penjualan.
Wewenang : a.
Melakukan komunikasi dengan customer secara langsung dan menjalin hubungan baik dengan customer.
11.Sales Dalam kota. Tugas : a. Melakukan komunikasi dengan customer dalam kota. b. Melakukan penjualan produk didalam kota. c. Menyerahkan faktur penjualan kepada bagian sales di kantor pusat. Wewenang : a.
Memasarkan dan mendistribusikan produk kepada para distributor atau customer.
L7
12.Sales Luar Kota Tugas : a.
Melakukan komunikasi dengan customer diluar kota.
b.
Melakukan penjualan produk diluar kota.
c.
Menyerahkan faktur penjualan kepada bagian sales di kantor cabang.
Wewenang : a.
Memasarkan dan mendistribusikan produk kepada distributor atau customer diluar kota.
13.Production Manager Tugas : a.
Memonitor kegiatan produksi dalam perusahaan.
b.
Menjaga agar produksi sesuai dengan waktu yang telah ditentukan.
c.
Menjaga kualitas produksi sesuai dengan misi perusahaan untuk menjaga kualitas produksi agar tetap yang terbaik.
d.
Membuat laporan produksi.
Wewenang dari Kepala Produksi adalah : a.
Menghentikan produksi untuk sementara waktu jika terjadi kecelakaan kerja atau kesalahan produksi.
14.PPIC (Production Planning Inventory Control) Tugas : a. Mencegah adanya timbunan stok yang tidak terjual. b. Mencegah terjadinya kelebihan produksi.
L8
c. Mencegah terjadinya kekurangan stok bahan baku dan barang jadi. d. Mengawasi keluar masuknya stok. Wewenang : a.
Membuat perencanaan pembelian bahan baku.
b.
Melakukan pemesanan bahan baku produksi.
c.
Membuat perencanaan untuk menentukan jumlah minimum dan maximum stok yang ada digudang.
15.Kepala Mekanik Tugas : a. Mengawasi kinerja mesin produksi. b. Melakukan pemeliharaan mesin produksi secara 8eriodic. c. Menjaga agar kualitas mesin produksi tetap prima. d. Menjaga agar proses produksi tidak terhenti akibat kerusakan mesin. Wewenang : a.
Melakukan perencanaan penggantian mesin produksi sesuai dengan masa pakai mesin.
b.
Melakukan penggantian sparepart mesin produksi jika diperlukan.
16.Staf Produksi Tugas : a.
Melakukan produksi sesuai yang telah direncanakan oleh kepala produksi.
L9
b.
Menjaga kualitas produk yang dihasilkan agar sesuai dengan kualitas yang ditentukan.
Wewenang : a.
Mengoperasikan mesin produksi sesuai dengan petunjuk mekanik.
17.Gudang Tugas : a.
Menyimpan stok barang jadi dan bahan baku.
b.
Mengecek dan memantau stok barang agar sesuai dengan jumlah yang ditentukan oleh PPIC.
c.
Membuat laporan stok.
Wewenang : a.
Menerima dan menyimpan bahan baku yang dipesan oleh perusahaan.
18.Bengkel Tugas : a.
Sebagai tempat perbaikan mesin produksi.
b.
Membuat cetakan untuk produk baru.
Wewenang dari Bengkel adalah : a.
Menyimpan sparepart yang dibutuhkan oleh mekanik untuk melakukan pemeliharaan mesin produksi.
L10
4.
Perusahaan ini bergerak di bidang apa? PT. Indometal bergerak dibidang perindustrian (khususnya industri kancing yang terbuat dari plat). Seiring berjalannya waktu, perusahaan juga memproduksi berbagai aksesoris untuk tas, dompet, pakaian, sepatu, dll.
5.
Bagaimana alur proses bisnis dari perusahaan ini ? Proses bisnis di perusahaan ini pada dasarnya tidak jauh berbeda dengan proses bisnis pada umumnya. Transaksi penjualan barang dapat dilakukan melalui telepon ataupun fax. Setelah pesanan diterima dan dicek ke bagian gudang, barang pesanan akan dikirim kepada customer. Pembelian bahan baku didasarkan pada purchase request dari bagian gudang. Tiap bulan pihak top management akan menerima laporan dari tiap departemen.
6.
Informasi apa sajakah yang ingin dihasilkan ? Informasi mengenai penjualan barang, pembelian bahan baku, pengiriman kepada customer. Selain itu sekarang ini kami membutuhkan informasi sebagai bahan analisa untuk menentukan lokasi mana yang potensial untuk membuka cabang baru.
7.
Laporan yang dihasilkan ingin dilihat dari sudut pandang apa saja ? Customer, supplier, lokasi, barang dan jenisnya, serta bahan baku dan jenisnya.
L11
8.
Kesulitan apa yang dirasakan dari sistem yang berjalan di perusahaan sekarang ini? a. Kesulitan memanfaatkan data transaksi selama kurang lebih lima tahun. b. Butuh waktu cukup lama untuk membuat dan membaca laporan.
L12
L.2 Kuesioner Berilah tanda silang (X) untuk jawaban yang Anda pilih ! Keterangan : Angka 1 = Butuh Angka 2 = Tidak Butuh Angka 3 = Tidak Tahu Pertanyaan : 1.
Dari laporan penjualan, informasi apa saja yang dibutuhkan? (jawaban boleh lebih dari satu) 1 2 3 a) Barang yang paling laku b) Barang yang kurang laku c) Jenis barang yang paling laku d) Jenis barang yang kurang laku e) Customer yang paling banyak membeli f) Customer yang jarang membeli g) Cabang dengan omset tertinggi h) Cabang dengan omset terendah i) Daerah tingkat penjualan tertinggi j) Daerah tingkat penjualan terendah k) Periode penjualan barang tertentu paling banyak l) Periode penjualan barang tertentu paling sedikit m) Jumlah Penjualan barang n) Total penjualan barang
2.
Dari laporan pembelian, informasi apa saja yang dibutuhkan ? (jawaban boleh lebih dari satu) 1 2 3 a) Bahan baku yang paling sering dibeli b) Bahan baku yang jarang dibeli c) Jenis bahan baku yang sering dibeli d) Jenis bahan baku yang kurang sering dibeli e) Supplier yang paling berkontribusi f) Supplier yang kurang berkontribusi g) Jumlah pembelian per supplier h) Jumlah pembelian bahan baku i) Total pembelian bahan baku
L13
3.
Dari laporan pengiriman, informasi apa saja yang dibutuhkan ? (jawaban boleh lebih dari satu) 1 2 3 a) Cabang yang paling banyak melakukan pengiriman. b) Jenis barang yang paling sering dikirim. c) Lokasi yang paling banyak dikirim d) Karyawan yang paling sering ditugaskan untuk mengirim. e) Rata-rata pengiriman per periode waktu. f) Jumlah pengiriman
L14
L.3
Tampilan Layar Aplikasi a.
Menu Login
Gambar 1. Menu Login
b.
MDIMenu
Gambar 2. Menu Utama
L15
c.
Menu Transformasi
Gambar 3. Menu Transformasi data dari OLTP ke OLAP
d.
Menu Analisis Penjualan
Gambar 4. Menu Analisis Penjualan
L16
e.
Menu Analisis Pembelian
Gambar 5. Menu Analisis Pembelian
L17
f.
Menu Analisis Pengiriman
Gambar 6. Menu Analisis Pengiriman
L18
g.
Menu StarSchema Penjualan
Gambar 7. Menu StarSchema Penjualan
L19
h.
Menu StarSchema Pembelian
Gambar 8. Menu StarSchema Pembelian
L20
i.
Menu StarSchema Pengiriman
Gambar 9. Menu StarSchema Pengiriman
j.
Menu Change Password
Gambar 10. Menu Change Password
L21
k.
Menu About
Gambar 10. Menu About
L22
L.4
Source Code Create Tabel DimensiWaktu CREATE TABLE DimensiWaktu ( WaktuID INT IDENTITY, Tahun INT NOT NULL, Bulan INT NOT NULL, Kuartal INT NOT NULL, Hari INT NOT NULL, PRIMARY KEY (WaktuID) ); Create Tabel DimensiCabang CREATE TABLE DimensiCabang ( CabangID INT IDENTITY, KdCabang CHAR(5) NOT NULL, NamaCabang VARCHAR(30) NOT NULL, PRIMARY KEY (CabangID) ); Create Tabel DimensiJabatan CREATE TABLE DimensiJabatan ( JabatanID INT IDENTITY, KdJabatan CHAR(5) NOT NULL, NamaJabatan VARCHAR(30) NOT NULL, PRIMARY KEY (JabatanID) ); Create Tabel DimensiLokasi CREATE TABLE DimensiLokasi ( LokasiID INT IDENTITY, KdLokasi CHAR(5) NOT NULL, NamaLokasi VARCHAR(30) NOT NULL, PRIMARY KEY (LokasiID) ); Create Tabel DimensiKaryawan CREATE TABLE DimensiKaryawan ( KaryawanID INT IDENTITY, KdKaryawan CHAR(5) NOT NULL, NamaKaryawan VARCHAR(30) NOT NULL, PRIMARY KEY (KaryawanID)
L23
); Create Tabel DimensiSupplier CREATE TABLE DimensiSupplier ( SupplierID INT IDENTITY, KdSupplier CHAR(5) NOT NULL, NamaSupplier VARCHAR(30) NOT NULL, PRIMARY KEY (SupplierID) ); Create Tabel DimensiCustomer CREATE TABLE DimensiCustomer ( CustomerID INT IDENTITY, KdCustomer CHAR(5) NOT NULL, NamaCustomer VARCHAR(30) NOT NULL, PRIMARY KEY (CustomerID) ); Create Tabel DimensiBarang CREATE TABLE DimensiBarang ( BarangID INT IDENTITY, KdBarang CHAR(5) NOT NULL, NamaBarang VARCHAR(30) NOT NULL, Stok int NOT NULL, Harga Numeric(30,2) NOT NULL, PRIMARY KEY (BarangID) ); Create Tabel DimensiBahanBaku CREATE TABLE DimensiBahanBaku ( BahanbakuID INT IDENTITY, KdBahanBaku CHAR(5) NOT NULL, NamaBahanBaku VARCHAR(30) NOT NULL, Stok INT NOT NULL, Harga NUMERIC(30,2) NOT NULL, PRIMARY KEY (BahanbakuID) );
Create Tabel DimensiJenisBahanBaku CREATE TABLE DimensiJenisBahanBaku ( JenisBahanBakuID INT IDENTITY,
L24
KdJenisBahanBaku CHAR(5) NOT NULL, JenisBahanBaku VARCHAR(30) NOT NULL, PRIMARY KEY (JenisBahanBakuID) ); Create Tabel DimensiJenisBarang CREATE TABLE DimensiJenisBarang ( JenisBarangID INT IDENTITY, KdJenisBarang CHAR(5) NOT NULL, JenisBarang VARCHAR(30) NOT NULL, PRIMARY KEY (JenisBarangID) ); Create Tabel FilterTimeStamp CREATE TABLE FilterTimeStamp ( Last_ETL_Process_Date DATETIME NOT NULL, Table_Name VARCHAR(50) NOT NULL, PRIMARY KEY (Last_ETL_Process_Date, Table_Name) ); Create Tabel FaktaPenjualan CREATE TABLE FaktaPenjualan ( WaktuID INT NOT NULL, BarangID INT NOT NULL, JenisBarangID INT NOT NULL, CustomerID INT NOT NULL, LokasiID INT NOT NULL, JumlahPenjualan INT NOT NULL, TotalPenjualan NUMERIC(30,2) NOT NULL, ); Create Tabel FaktaPembelian CREATE TABLE FaktaPembelian ( WaktuID INT NOT NULL, BahanBakuID INT NOT NULL, JenisBahanBakuID INT NOT NULL, SupplierID INT NOT NULL, JumlahPembelian INT NOT NULL, TotalPembelian NUMERIC(30,2) NOT NULL,); Create Tabel FaktaPengiriman CREATE TABLE FaktaPengiriman (
L25
WaktuID INT NOT NULL, BarangID INT NOT NULL, JenisBarangID INT NOT NULL, CabangID INT NOT NULL, KaryawanID INT NOT NULL, CustomerID INT NOT NULL, JumlahPengiriman INT NOT NULL, RataRataPengiriman INT NOT NULL, ); FrmLogin.vb Public Class FrmLogin Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click Dim con As New SqlClient.SqlConnection Dim cmd As New SqlClient.SqlCommand Dim adapter As New SqlClient.SqlDataAdapter Dim dataset As New DataSet con.ConnectionString = ("Data Source=.;Initial Catalog=IMJ_DB_OLTP;Integrated Security=True") cmd.CommandText = "SELECT * FROM [MsLogin] WHERE Username = '" & txtusername.Text & "' AND Password = '" & txtpass.Text & "';" con.Open() cmd.Connection = con adapter.SelectCommand = cmd adapter.Fill(dataset) user = txtusername.Text pass = txtpass.Text Dim count = dataset.Tables(0).Rows.Count If txtusername.Text = "" Then MsgBox("Username tidak boleh kosong", vbCritical, "Login Error!") ElseIf txtpass.Text = "" Then MsgBox("Password tidak boleh kosong", vbCritical, "Login Error!") ElseIf count > 0 Then MsgBox("Selamat Datang " & user & vbOKOnly, , "LoginSukses") con.Close() MDImenu.Show() Me.Hide() Else txtpass.Clear() txtusername.Clear() MsgBox("Password atau Username Salah", vbCritical, "Login Error!")
L26
End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick lblwaktu.Text = Now End Sub End Class Chpass.vb Public Class ChPass Dim con As New SqlClient.SqlConnection Dim cmd As New SqlClient.SqlCommand Dim adapter As New SqlClient.SqlDataAdapter Dim dataset As New DataSet Private Sub ChPass_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load con.ConnectionString = ("Data Source=.;Initial Catalog=IMJ_DB_OLTP;Integrated Security=True") cmd.CommandText = "SELECT * FROM [MsLogin] WHERE Username = '" & user & "';" con.Open() cmd.Connection = con adapter.SelectCommand = cmd adapter.Fill(dataset) txtoldpass.Text = pass txtusername.Text = user txtoldpass.Enabled = False txtusername.Enabled = False End Sub Private Sub btnchange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnchange.Click If txtnewpass.Text = "" Then MsgBox("masukan Password Baru Anda", vbCritical, "Change Password Error!") Else cmd.CommandText = "Update [MsLogin] Set Password = '" & txtnewpass.Text & "'WHERE Username = '" & user & "';" cmd.Connection = con adapter.SelectCommand = cmd adapter.Fill(dataset) MsgBox("Password Berhasil dirubah", vbInformation, "Ubah Password Sukses") con.Close()
L27
End If End Sub End Class MdiMenu.vb Imports System.Windows.Forms Public Class MDImenu Private Sub TransformasiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransformasiToolStripMenuItem.Click Dim mdichildfrmtransform As New FrmTransform() mdichildfrmtransform.MdiParent = Me mdichildfrmtransform.Show() End Sub Private Sub PivotTablePenjualanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PivotTablePenjualanToolStripMenuItem.Click Dim mdichildrfrmpenjualan As New FrmPivotPenjualan() mdichildrfrmpenjualan.MdiParent = Me mdichildrfrmpenjualan.Show() End Sub Private Sub PivotTablePembelianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PivotTablePembelianToolStripMenuItem.Click Dim mdichildfrmpembelian As New FrmPivotPembelian() mdichildfrmpembelian.MdiParent = Me mdichildfrmpembelian.Show() End Sub Private Sub PivotTableToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PivotTableToolStripMenuItem.Click End Sub Private Sub PivotTablePengirimanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PivotTablePengirimanToolStripMenuItem.Click Dim mdichildfrmpengiriman As New FrmPivotPengiriman() mdichildfrmpengiriman.MdiParent = Me mdichildfrmpengiriman.Show() End Sub Private Sub StarSchemaPenjualanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StarSchemaPenjualanToolStripMenuItem.Click Dim mdichildsspenjualan As New StarSchemaPenjualan() mdichildsspenjualan.MdiParent = Me mdichildsspenjualan.Show() End Sub Private Sub StarSchemaPembelianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StarSchemaPembelianToolStripMenuItem.Click
L28
Dim mdichildsspembelian As New starschemapembelian() mdichildsspembelian.MdiParent = Me mdichildsspembelian.Show() End Sub Private Sub StarSchemaPengirimanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StarSchemaPengirimanToolStripMenuItem.Click Dim mdichildsspengiriman As New starschemapengiriman() mdichildsspengiriman.MdiParent = Me mdichildsspengiriman.Show() End Sub Private Sub ChangePasswordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangePasswordToolStripMenuItem.Click Dim mdichildchpass As New ChPass() mdichildchpass.MdiParent = Me mdichildchpass.Show() End Sub Private Sub LogoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogoutToolStripMenuItem.Click Me.Close() FrmLogin.Show() End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Dispose() End Sub Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click Dim mdichildabout As New FrmAboutDeveloper mdichildabout.MdiParent = Me mdichildabout.Show() End Sub End Class
L29
FrmPivotPenjualan.vb Imports System.Data.SqlClient Imports DevExpress.XtraCharts Imports System.IO Imports Microsoft.office.interop.excel Public Class FrmPivotPenjualan Private app As Application Private Sub FrmPivotPenjualan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.SelectedIndex = 0 End Sub Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedIndex = 0 Then ChartControl1.Show() ChartControl2.Hide() ChartControl4.Hide() ChartControl5.Hide() ElseIf ComboBox1.SelectedIndex = 1 Then ChartControl1.Hide() ChartControl2.Show() ChartControl4.Hide() ChartControl5.Hide() ElseIf ComboBox1.SelectedIndex = 2 Then ChartControl1.Hide() ChartControl2.Hide() ChartControl4.Show() ChartControl5.Hide() ElseIf ComboBox1.SelectedIndex = 3 Then ChartControl1.Hide() ChartControl2.Hide() ChartControl4.Hide() ChartControl5.Show() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexport.Click Const filename2003 As String = "...\....\data.xls" Const filename2007 As String = "...\....\data.xlsx" Const filenamepdf As String = "D:\\data.pdf" If Combodata.SelectedIndex = 0 AndAlso comboformat.SelectedIndex = 0 Then PivotGridControl1.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 0 AndAlso comboformat.SelectedIndex = 1 Then
L30
PivotGridControl1.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 0 AndAlso comboformat.SelectedIndex = 2 Then PivotGridControl1.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) ElseIf Combodata.Text = "" Then MsgBox("Pilih Data Terlebih Dahulu Untuk Di Export", MsgBoxStyle.Critical = vbOKOnly, "Error") ElseIf comboformat.Text = "" Then MsgBox("Pilih Fromat Terlebih Dahulu Untuk Di Export", MsgBoxStyle.Critical = vbOKOnly, "Error") ElseIf ComboBox1.SelectedIndex = 0 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl1.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl1.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl1.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) End If ElseIf ComboBox1.SelectedIndex = 1 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl2.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl2.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl2.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf)
L31
End If ElseIf ComboBox1.SelectedIndex = 2 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl4.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl4.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl4.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) End If ElseIf ComboBox1.SelectedIndex = 3 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl5.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl5.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl5.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) End If End If End Sub End Class
L32
FrmPivotPembelian.vb Imports System.Data.SqlClient Imports DevExpress.XtraCharts Imports System.IO Imports Microsoft.office.interop.excel Public Class FrmPivotPembelian Private app As Application Private Sub FrmPivotPembelian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.SelectedIndex = 0 End Sub Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedIndex = 0 Then ChartControl1.Show() ChartControl2.Hide() ChartControl4.Hide() ChartControl5.Hide() ElseIf ComboBox1.SelectedIndex = 1 Then ChartControl1.Hide() ChartControl2.Show() ChartControl4.Hide() ChartControl5.Hide() ElseIf ComboBox1.SelectedIndex = 2 Then ChartControl1.Hide() ChartControl2.Hide() ChartControl4.Show() ChartControl5.Hide() ElseIf ComboBox1.SelectedIndex = 3 Then ChartControl1.Hide() ChartControl2.Hide() ChartControl4.Hide() ChartControl5.Show() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexport.Click Const filename2003 As String = "...\....\data.xls" Const filename2007 As String = "...\....\data.xlsx" Const filenamepdf As String = "D:\\data.pdf" If Combodata.SelectedIndex = 0 AndAlso comboformat.SelectedIndex = 0 Then PivotGridControl1.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 0 AndAlso comboformat.SelectedIndex = 1 Then
L33
PivotGridControl1.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 0 AndAlso comboformat.SelectedIndex = 2 Then PivotGridControl1.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) ElseIf Combodata.Text = "" Then MsgBox("Pilih Data Terlebih Dahulu Untuk Di Export", MsgBoxStyle.Critical = vbOKOnly, "Error") ElseIf comboformat.Text = "" Then MsgBox("Pilih Fromat Terlebih Dahulu Untuk Di Export", MsgBoxStyle.Critical = vbOKOnly, "Error") ElseIf ComboBox1.SelectedIndex = 0 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl1.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl1.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl1.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) End If ElseIf ComboBox1.SelectedIndex = 1 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl2.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl2.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl2.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf)
L34
End If ElseIf ComboBox1.SelectedIndex = 2 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl4.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl4.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl4.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) End If ElseIf ComboBox1.SelectedIndex = 3 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl5.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl5.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl5.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) End If End If End Sub End Class
L35
FrmPivotPengiriman.vb Imports System.Data.SqlClient Imports DevExpress.XtraCharts Imports System.IO Imports Microsoft.office.interop.excel Public Class FrmPivotPengiriman Private app As Application Private Sub FrmPivotPengiriman_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.SelectedIndex = 0 End Sub Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedIndex = 0 Then ChartControl1.Show() ChartControl2.Hide() ChartControl4.Hide() ChartControl5.Hide() ElseIf ComboBox1.SelectedIndex = 1 Then ChartControl1.Hide() ChartControl2.Show() ChartControl4.Hide() ChartControl5.Hide() ElseIf ComboBox1.SelectedIndex = 2 Then ChartControl1.Hide() ChartControl2.Hide() ChartControl4.Show() ChartControl5.Hide() ElseIf ComboBox1.SelectedIndex = 3 Then ChartControl1.Hide() ChartControl2.Hide() ChartControl4.Hide() ChartControl5.Show() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexport.Click Const filename2003 As String = "...\....\data.xls" Const filename2007 As String = "...\....\data.xlsx" Const filenamepdf As String = "D:\\data.pdf" If Combodata.SelectedIndex = 0 AndAlso comboformat.SelectedIndex = 0 Then PivotGridControl1.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007))
L36
ElseIf Combodata.SelectedIndex = 0 AndAlso comboformat.SelectedIndex = 1 Then PivotGridControl1.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 0 AndAlso comboformat.SelectedIndex = 2 Then PivotGridControl1.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) ElseIf Combodata.Text = "" Then MsgBox("Pilih Data Terlebih Dahulu Untuk Di Export", MsgBoxStyle.Critical = vbOKOnly, "Error") ElseIf comboformat.Text = "" Then MsgBox("Pilih Fromat Terlebih Dahulu Untuk Di Export", MsgBoxStyle.Critical = vbOKOnly, "Error") ElseIf ComboBox1.SelectedIndex = 0 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl1.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl1.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl1.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) End If ElseIf ComboBox1.SelectedIndex = 1 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl2.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl2.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then
L37
ChartControl2.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) End If ElseIf ComboBox1.SelectedIndex = 2 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl4.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl4.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl4.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) End If ElseIf ComboBox1.SelectedIndex = 3 Then If Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 0 Then ChartControl5.ExportToXlsx(filename2007) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2007)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 1 Then ChartControl5.ExportToXls(filename2003) app = New Application app.Visible = True app.Workbooks.Open(System.IO.Path.GetFullPath(filename2003)) ElseIf Combodata.SelectedIndex = 1 AndAlso comboformat.SelectedIndex = 2 Then ChartControl5.ExportToPdf(filenamepdf) System.Diagnostics.Process.Start(filenamepdf) End If End If End Sub End Class
