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.