Langsung ke konten utama

Pemrograman Visual Aplikasi Event Order Catering

Pada blog saya kali ini, saya akan membahas tentang Aplikasi Event Order Catering. Deskripsi Aplikasi ini apa sih? Jadi, aplikasi ini ditujukan untuk mencatat pesanan dari client dan dibuat menjadi form dokumen Word dan Excel oleh sales, antara lain seperti nama acara, jumlah tamu, waktu acara, menu yang dipilih client, waktu operasional kendaraan untuk menloading barang ke acara dan beberapa hal lain seperti pelayanan lainya bila client menginginkannya seperti Steward dan Floris. setelah form word jadi dibuat oleh sales lalu form tersebut akan di sebar ke beberapa bagian perusahaan seperti; Account Officer, Kitchen, Purchasing, Banquet Operation, Transportation, Steward, dan File untuk di kerjakan. sedangkan yang Excel akan di disimpan sebagai jadwal catering itu sendiri.


Berikut Tampilan dari aplikasinya :

Di Aplikasi ini saya menggunakan beberapa toolbox yaitu :
  1. Label
  2. TextBox
  3. RichTextBox
  4. CheckBox
  5. DateTimePicker,
  6. Button

Lalu mari kita isi Aplikasi tersebut dengan  data-data client dan pesanannya :
Lalu klik button Word untuk save ke Word dan Excel untuk save ke Excel. Berikut tampilan dari dokumennya :


  • Tampilan Word (Template)

 

  • Bila Tekan Word maka akan tersave ke Word sebagai dokumen berextension .docx dan nama file dokumen akan otomatis menamainya menjadi "Event Order + Pelanggan + TglOder + .docx ". berikut tampilannya :

 
 
  • Tampilan Excel (Template)
 

  • Setelah dimasukkan data lalu akan otomatis tersave dengan extension excel yaitu .xlsx

Berikut isi Source Code dari aplikasi ini :

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click

        Dim aplikasi As New word.Application
        Dim dokumen As word.Document


        dokumen = aplikasi.Documents.Open("D:\file\EVENT ORDER.docx")
        dokumen.Bookmarks("sales").Select()
        aplikasi.Selection.TypeText(txtSales.Text)

        dokumen.Bookmarks("tglorder").Select()
        aplikasi.Selection.TypeText(calTglOrder.Text)

        dokumen.Bookmarks("pelanggan").Select()
        aplikasi.Selection.TypeText(txtPelanggan.Text)

        dokumen.Bookmarks("nama").Select()
        aplikasi.Selection.TypeText(txtNama.Text)

        dokumen.Bookmarks("alamat").Select()
        aplikasi.Selection.TypeText(rtbAlamat.Text)

        dokumen.Bookmarks("telp").Select()
        aplikasi.Selection.TypeText(txtTlp.Text)

        dokumen.Bookmarks("status").Select()
        aplikasi.Selection.TypeText(cbStatus.Text)

        dokumen.Bookmarks("acara").Select()
        aplikasi.Selection.TypeText(txtAcara.Text)

        dokumen.Bookmarks("wktmulai").Select()
        aplikasi.Selection.TypeText(txtWMulai.Text)
        dokumen.Bookmarks("wktselesai").Select()
        aplikasi.Selection.TypeText(txtWSelesai.Text)

        dokumen.Bookmarks("jmltamu").Select()
        aplikasi.Selection.TypeText(txtJmlTamu.Text)

        dokumen.Bookmarks("tempacara").Select()
        aplikasi.Selection.TypeText(cbTempAcara.Text)

        dokumen.Bookmarks("tglacara").Select()
        aplikasi.Selection.TypeText(calTglAcara.Text)

        dokumen.Bookmarks("jmlporsi").Select()
        aplikasi.Selection.TypeText(rtbJml.Text)

        dokumen.Bookmarks("setup").Select()
        aplikasi.Selection.TypeText(cbSetup.Text)

        dokumen.Bookmarks("menuorder").Select()
        aplikasi.Selection.TypeText(rtbMenu.Text)

        dokumen.Bookmarks("steward").Select()
        aplikasi.Selection.TypeText(rtbSteward.Text)

        dokumen.Bookmarks("operation").Select()
        aplikasi.Selection.TypeText(rtbOp.Text)

        dokumen.Bookmarks("florist").Select()
        aplikasi.Selection.TypeText(rtbFlorist.Text)

        MsgBox("File Saved to Word")
        dokumen.SaveAs2("E:\Event Order " + txtPelanggan.Text + calTglAcara.Text + " .docx")
        aplikasi.Visible = True

    End Sub

    Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
        Dim eventorderExcel As New excel.Application
        Dim FileExcel As excel.Workbook
        FileExcel = eventorderExcel.Workbooks.Open("D:\file\Event Order.xlsx")


        eventorderExcel.Range("a6").Value = calTglOrder.Text
        eventorderExcel.Range("b6").Value = calTglAcara.Text
        eventorderExcel.Range("c6").Value = txtSales.Text
        eventorderExcel.Range("d6").Value = txtPelanggan.Text
        eventorderExcel.Range("e6").Value = txtNama.Text
        eventorderExcel.Range("f6").Value = txtTlp.Text
        eventorderExcel.Range("g6").Value = txtAcara.Text
        eventorderExcel.Range("h6").Value = cbStatus.Text
        FileExcel.SaveAs("D:\Event Order Queue.xlsx")
        MsgBox("File Saved to Excel")
        eventorderExcel.Visible = True





    End Sub
End Class

                                                                                                                                                                   

Sekian dari Aplikasi Event Order Catering ini, Semoga berguna dan mohon maaf bila ada kesalahan, karena saya pun masih harus banyak belajar lagi. Terima Kasih.
Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

MERANCANG APLIKASI PENDATAAN PEGAWAI KANTOR MENGGUNAKAN METODE WATERFALL

BAB I PENDAHULUAN 2.3.1 Latar Belakang Penelitian Tujuan pembuatan aplikasi ini adalah : a. Banyaknya data pegawai di perusahaan tempat saya bekerja yang tidak valid atau bahkan hilang, karena dicatat dan disimpan secara manual menggunakan Ms.Excel yang kurang aman dan harus segera digantikan dengan aplikasi yang dirancang untuk menyimpan data para karyawan agar menjadi tersistematis dan terdaftar dengan baik. b. Untuk merancang suatu sistem informasi yang dapat menjaga data karyawan dengan baik dan aman 2.3.2 Permasalahan Penelitian Tujuan dibuatnya aplikasi ini adalah untuk memudahkan kita dalam proses pendataan pegawai agar teratur dan tidak berceceran di file-file lain juga memudahkan dalam penyajian data apabila memang diperlukan.    2.3.3 Identifikasi Masalah a). Sistem Di perusahaan tempat saya bekerja belum memiliki aplikasi yang bisa mendata pegawainya dengan baik b). Belum adanya sistem tersebut jadi selama ini hanya mengandalkan Ms...
Posting Komentar
Baca selengkapnya

Java Programming - Program Cek Harga Rumah di Perumahan

         Hallo guys!, pada kesempatan kali ini saya telah membuat sebuah program dengan basis bahasa pemrograman Java . Program yang saya buat kali ini adalah "Program Cek Harga Rumah di Perumahan" . Program ini saya buat atas keresahan yang dirasakan oleh orang tua saya yang ingin membeli rumah di sebuah perumahan beberapa tahun yang lalu, namun di setiap sales rumah menyajikan harga yang berbeda dan membuat orang tua saya bingung padahal masih 1 perumahan dan mungkin itu adalah rumah yang sama( who knows? ), Nah!, dengan program ini mungkin akan membantu meminimalisir Miss Communication dan Pungutan biaya berlebih yang tidak jelas dari setiap sales yang menyajikan harga, program ini akan di gunakan di kantor-kantor pemasaran perumahan, tempat biasa para buyer akan bertanya akan harga, spesifikasi dan gambar rumah yang dipilih dengan jelas, fix, dan konsisten. berikut tampilan programnya.           Ya kurang lebih tampilan progr...
1 komentar
Baca selengkapnya