Aplikasi Peminjaman Buku pada Perpustakaan(UTS)

Pada blog ini untuk UTS pengantar bisnis 2 saya aka membuat apikasi yang menggunakan automation ke dalam microsoft excel. Aplikasi yang saya buat adalah tentang perpustakaan. Saya akan membuat sistem dalam pengoperasiaanya.

Berikut adalah langkah2nya

Projec baru:

-          New project

-          Pilih windows foam(beri nama sesuai yg kita inginkan tanpa spasi)

Fom1. Saya membuat tampilan awal sebagai berikut

Tampilan berisi ucapan selamat datang dan pilihan untuk mendaftar atau langsung masuk dalam aplikasi web ini.

Public Class Form1

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

        Form2.Show()

    End Sub

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

        Form3.Show()

    End Sub

End Class

Saya mebuat aplikasi ini untuk staff yang bekerja di perpustakaan Universitas Indonesia Misalnya contoh dalam aplikasi dekstop ini. Bagi staff yang ingin menginput data maka dia harus mendaftar atau sudah memiliki username dan pasword.

ini adalaah Form masuk(LOGIN/SIGN UP)

Public Class Form2

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

        If (TextBox1.Text = "ambarwati" And TextBox2.Text = "001") Then

            Form7.Show()

            Me.Close()

        Else

            MsgBox("Username atau Password yang Anda Masukkan Salah!", , "Peringatan")

        End If

    End Sub

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

        Me.Close()

    End Sub

End Class

Jika seorang staff telah memasukan usernamenya maka staff tersebut harus melakkan input data peminjaman pada saat terjadi tansaksi peminjaman buku. Berikut adalah form  data peminajaman yang saya sediakan dalam aplikasi ini

Untuk menyimpan data saya telah menyediakan juga ms.excel tempat penyimpanan data peminjaman bagi siapa saja yang meminjam pada saat itu

Caranya pada project yang kita kerjakan Add Refference, Pilih Menu COM dan pilih Microsoft Excel. Berikut adalah tampilannya:

Imports Microsoft.Office.Interop.Excel

Public Class Form7

    Dim myapp As New Microsoft.Office.Interop.Excel.Application

    Dim mydoc As New Microsoft.Office.Interop.Excel.Workbook

    Dim a As Double

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

        If (TextBox7.Text > 0 And TextBox7.Text <= 7) Then

            TextBox8.Text = "2000"

        Else

            TextBox8.Text = (TextBox7.Text * 50000)

        End If

    End Sub

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

        myapp.Range("A" + CStr(a + 1)).Value = TextBox1.Text

        myapp.Range("B" + CStr(a + 1)).Value = TextBox2.Text

        myapp.Range("C" + CStr(a + 1)).Value = TextBox3.Text

        myapp.Range("D" + CStr(a + 1)).Value = TextBox7.Text

        myapp.Range("E" + CStr(a + 1)).Value = TextBox8.Text

        myapp.Range("F" + CStr(a + 1)).Value = TextBox4.Text

        a = a + 1

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        TextBox4.Text = ""

        TextBox1.Focus()

    End Sub

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

        'save workbook

        mydoc.Save()

        'tutup aplikasi excel

        myapp.Quit()

    End Sub

End Class
 Nah ini adalah tampilan microsoft excel untuk penyimanan data penyimpanannya

Demikianlah Aplikasi Data Peminjaman buku di perpustakan yang saya buat untuk Ujian Tengah Semester mata kuliah Pemograman Bisnis 2

Terimakasih