UAS-Pemograman Bisnis 2

Kali ini saya akan mencoba membuat form peminjaman buku di perpustakaan yang akan tersabung pada database di MS Access. Berikut langkah-langkah pembuatannya :

Pertama buat design form seperti berikut :

Anda bisa merubah warna background, dari form tersebut dengan cara klik Properties, kemudian klik pada BackColor, dan pilih warna sesuai keinginan anda.

Langkah selanjutnya adalah membuat database di MS Access. Dan buat hingga database tersebut menjadi query seperti gambar berikut.

Langkah berikutnya adalah membuat Form 2 Seperti berikut ini :

Berikut ini adalah source code untuk tiap form di atas.

Form 1

Private Sub ButtonLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLogin.Click
        If TextBoxUsername.Text = "anakvokasi2013" And Password.Text = "vokasitsi2013" Then
            FormMenu.Show()

        Else
            If TextBoxUsername.Text = "" And Password.Text = "" Then
                MessageBox.Show("Maaf, username atau password yang anda masukan salah")
            End If
        End If



    End Sub

Form 2


Private Sub StockBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.StockBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me._UAS_VB2_DesyMargaret_1306470104DataSet)

        Dim koneksion As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\ASUS\Documents\DatabasePerpustakaan.accdb"

        Dim adding As String = "INSERT INTO stock values('" & IDPeminjamTextBox.Text & "', '" & JudulBukuTextBox1.Text & "', '" & JudulBukuTextBox2.Text & "', '" & JudulBukuTextBox3.Text & "')"

        Dim objekoneksion As New OleDb.OleDbConnection(koneksion)
        objekoneksion.Open()

        Dim ocmd = New OleDbCommand(adding, objekoneksion)

        ocmd.ExecuteNonQuery()
        MsgBox("Save Success!!")
        objekoneksion.Close()
    End Sub

Pada tombol Cancel
Private Sub ButtonCancel_Click(ByVal sender As System.Object,
 ByVal e As System.EventArgs) Handles ButtonCacel.Click
       MsgBox("Cancel Data")

   End Sub

Pada tombol Exit

Me.Exit()

Demikian penjelasan dari saya, semoga bermanfaat.

UTS-Pemograman Bisnis 2

Kali ini saya mencoba membuat form pendaftaran mahasiswa sederhana yang bisa langsung menyimpan data di MSExcel. Berikut langkah-langkah pembuatannya...

Pertama, buat design formnya seperti ini :

Kemudian, buat file dari MSExcel yang berhubungan dengan data yang ada di form, seperti ini :

Save file tersebut. Jangan lupa untuk mengingat di mana kita menyimpan folder tersebut, close MSExcel yang sudah di save.

Berikutnya kita masuk dalam peng-kodingan, berikut koding untuk form tersebut :

Public Class Form1

    Dim myExcelApp As New Microsoft.Office.Interop.Excel.Application
    Dim myExcelBook As Microsoft.Office.Interop.Excel.Workbook

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        myExcelApp.Visible = True
        myExcelBook = myExcelApp.Workbooks.Open("D:\datamahasiswa.xlsx")
        myExcelApp.Range("A2").Value = Me.TextBox1.Text
        myExcelApp.Range("B2").Value = Me.TextBox2.Text

        If RadioButton1.Checked Then
            myExcelApp.Range("C2").Value = ("Pria")

        End If

        If RadioButton2.Checked Then
            myExcelApp.Range("C2").Value = ("Wanita")

        End If

        myExcelApp.Range("D2").Value = Me.ComboBox1.Text

        myExcelApp.Range("E2").Value = Me.ComboBox2.Text


        myExcelBook.SaveAs("D:\datamahasiswa.xlsx")
        myExcelApp.Quit()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

Bila semua koding sudah dimasukan cobalah untuk menjalankan program tersebut. Bila program tersebut jalan maka hasilnya akan seperti ini :

Bila menurut anda form tersebut terlalu sederhana, anda bisa menambahkan sendiri data-data yang ingin ditambahkan.

Sekian penjelasan kali ini. Semoga bermanfaat^^

UAS-Visual Basic_Kondisi IF di ASP.net

Klik video ini untuk mengetahui caranya...