Kamis, 09 Januari 2020

Android Studio Koneksi SQLite CRUDE

Android Studio Koneksi SQLite CRUDE

  • Nama : Fikry fitriansyah
  • Nim : 161021450393
  • Kelas : 06TPLP001

Pada Project kali ini saya akan membuat Aplikasi Biodata mengguakan Android Studio yang sudah terkoneksi dengan Database SQLite. dan nantinya aplikasi ini sudah mempunyai fitur CRUDE (Create, Read, Update, Delete).


Ini Gambaran aplikasi Nantinya


Pembuatan

File .xml Terdiri dari :
  • activity_login.xml
  • activity_main2.xml
  • activity_main.xml

File .java Terdiri dari :
  • Login.java
  • DataHelper.java
  • Main2Activity.java
  • MainActivity.java


Berikut adalah file xml  nya :

  • activity_login.xml




  • activity_main2.xml




  • activity_main.xml




Berikut adalah file java  nya :

  • Login.java




  • DataHelper.java




  • Main2Activity.java




  • MainActivity.java





Tampilan Program















Sekian Pembuatan Aplikasi Biodata mengguakan Android Studio yang sudah terkoneksi dengan Database SQLite.

Terimakasih







Kamis, 31 Oktober 2019

Aplikasi Android Studio Menggunakan Listview

Aplikasi Sederhana Android Studio Menggunakan Listview

Aplikasi Sederhana Android Studio Menggunakan Listview, dimana Listview tersebut digunakan untuk memanggil Activity lain. Listview akan berisikan nama-nama group band yang jika di klik salah satu akan memanggil activity lain yng berisikan info band tersebut.
Aplikasi terdiri dari 3 Activity yaitu :

1. Login
2. Listview (daftar nama band)
3. Activity (info band)


Pembuatan Aplikasi :

1. Membuat Form Login


XML Login


Activity Login



2. Membuat Listview (Daftar Nama Band)


XML Listview


Activity Listview



3. Membuat Activity (Info Band)


XML Activity (Info Band)


Activity Info Band



Jadi pertama kita harus Login terlebih dengan memasukkan Ussername dan Password, jika berhasil Login maka akan membuka Form Listview. Lalu pilih salah satu nama band yang ada pada daftar Listview untuk membuka Activity info band tersebut.


Sekian Pembuat Aplikasi Sederhana Android Studio Menggunakan Listview.

Terima Kasih

Rabu, 24 April 2019

Perancangan Basis Data Sql Server 2012 dan Website pada Asp.Net dengan Metode Normalisasi


Pada postingan kali ini saya menulis tentang perancangan basis data (database) dari sebuah struk belanja. Perancangannya melewati beberapa tahap diantaranya Unnormalized, 1NF, 2NF, 3NF & Relasi. setelah membuat perancangan lanjut ke tahap penerapannya yaitu dengan membuat tabel - tabel pada software Sql Server 2012. setelah tabel-tabel tersebut selesai selanjutnya buat project web dengan visual studio (ASP.NET) lalu mengkoneksikan database tersebut, pada database juga saya berikan perintah -  perintah yaitu simpan, edit, hapus dan cari. Untuk lebih jelasnya saya akan menjelaskan sebagai berikut :



Ini Struk Belanja yang saya gunakan sebagai bahan


1. Membuat Basis data menggunakan Metode Normalisasi

    A. Bentuk Unnormalized
         Bentuk ini merupakan kondisi data apa adanya, tidak mengikuti suatu format tertentu termasuk ketidak lengkapan ataupun redundansi



 
    B. Bentuk Normal 1 (1NF)
         Bentuk normal pertama  jika relasi tidak mengandung atribut yang bernilai ganda harus mengandung 1 nilai) dan harus diisi datanya (tidak boleh kosong)



   
    C. Bentuk Normal 2 (2NF)
         Telah memenuhi 1NF



 
    D. Bentuk Normal 3 (3NF)
         Telah memenuhi 2NF. Semua atribut bukan primer tidak punya hubungan yang transitif (tidak ada dependensi transitif).

 

 
    E. Tabel Relasi
         Semua tabel yang ada di 3NF dihubungkan.




2. Setelah melewati tahap normalisasi kita lanjut membuat Basis Data (DATABASE) pada Sql Server 2012 sesuai dengan bentuk normal 3 (3NF).






3. Setelah database selesai dibuat. langkah selanjutnya membuat website pada visual studio (ASP.Net)

Tampilan Awal, yang nantinya apabila di klik akan memunculkan Tabel-tabel.

Source Code Tampilan Awal




Tabel Kasir


Source Code Tabel Kasir





Tabel Struk


Source Code Tabel Struk





Tabel Transaksi


Source Code Tabel Jual Beli





Tabel Barang


Source Code Tabel Barang




Sekian Pembuatan Perancangan Basis Data Pada Sql Server 2012 dan Website pada Asp.Net Menggunakan Metode Normalisasi

Terima Kasih

Jumat, 04 Januari 2019

Koneksi Visual Studio Ke Database Ms.Access

Membuat Koneksi Visual Studio Ke Ms.Access

Disini saya akan membuat Aplikasi sederhaha menggunakan Visual Studio Ultimate 2012, disini Aplikasi berbasis Web (Web Form asp.net) yang nantinya Data yang di buat pada Aplikasi tersebut akan tersimpan di Ms.Access


Ini Desain sederhana Aplikasi yang saya buat


Buat juga Tabel di Ms.Acccess sesuai dengan Aplikasi yang kita buat pada Visual Sutio


Jalankan Aplikasi dan masukan Datanya, lalu tekan tombol simpan, Jika sukses tekan tombol lihat


Data akan masuk ke Database Ms.Acces


Untuk dapat melihat Database, buat Web Form baru lalu Drag and Drop database yang sudah di buat ke Web Form baru tersebut




Ini Untuk semua Codingnya

Koneksi untuk Database Access
Imports System.Data
Imports System.Data.OleDb
Public Class UAS
    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\New folder (2)\Database\UAS.accdb"
    Dim ObjKoneksi As New OleDb.OleDbConnection(Koneksi)
    Dim xReader As OleDb.OleDbDataReader

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

Memunculkan Harga, Button Harga
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If DropDownList1.Text = ("11") Then
            TextBox2.Text = ("3000")
        ElseIf DropDownList1.Text = ("14") Then
            TextBox2.Text = ("4000")
        ElseIf DropDownList1.Text = ("19") Then
            TextBox2.Text = ("5000")
        ElseIf DropDownList1.Text = ("36") Then
            TextBox2.Text = ("10000")
        ElseIf DropDownList1.Text = ("74") Then
            TextBox2.Text = ("20000")
        ElseIf DropDownList1.Text = ("220") Then
            TextBox2.Text = ("60000")
        ElseIf DropDownList1.Text = ("275") Then
            TextBox2.Text = ("75000")
        ElseIf DropDownList1.Text = ("366") Then
            TextBox2.Text = ("100000")
        ElseIf DropDownList1.Text = ("966") Then
            TextBox2.Text = ("250000")
        ElseIf DropDownList1.Text = ("2010") Then
            TextBox2.Text = ("500000")
        ElseIf DropDownList1.Text = ("4804") Then
            TextBox2.Text = ("1200000")
        End If
    End Sub

Membuat Diskon dan Bonus, Button Bayar
    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If TextBox2.Text >= 500000 Then
            TextBox4.Text = (TextBox2.Text * 10 / 100)
            TextBox5.Text = "Gratis Skin Permanen"
            TextBox6.Text = TextBox2.Text - TextBox4.Text
        Else
            TextBox4.Text = "0"
            TextBox5.Text = "Tidak Ada Bonus"
            TextBox6.Text = TextBox2.Text
        End If
    End Sub

Menyimpan Data ke Database, Button Simpan
    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        ObjKoneksi.Open()
        Dim Tambah As String = "INSERT INTO UAS values('" & TextBox1.Text & "','" & DropDownList1.Text & "','" & TextBox2.Text &
        "','" & DropDownList2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"
        Dim oCmd = New OleDbCommand(Tambah, ObjKoneksi)
        oCMD.ExecuteNonQuery()
        ObjKoneksi.Close()
        MsgBox("Succes")
    End Sub

Menampilkan Data Pada Database, Button Lihat
    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
      Response.Redirect("WebFormView.aspx")
    End Sub

Membersihkan Data, Button Bersih
    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        DropDownList1.Text = ""
        TextBox2.Text = ""
        DropDownList2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
    End Sub

Mencari Data pada Database, Button Cari
    Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If Not Len(TextBox1.Text) = 0 Then
            ObjKoneksi.Close()
            ObjKoneksi.Open()
            Dim oCmd As New OleDb.OleDbCommand("SELECT * FROM UAS Where ID Game='" + TextBox1.Text + "'", ObjKoneksi)

            xReader = oCmd.ExecuteReader()
            If xReader.HasRows Then
                xReader.Read()
                TextBox1.Text = xReader("ID Game")
                DropDownList1.Text = xReader("Diamonds")
                TextBox2.Text = xReader("Harga")
                DropDownList2.Text = xReader("Pembayaran")
                TextBox3.Text = xReader("No Telephone")
                TextBox4.Text = xReader("Diskon")
                TextBox5.Text = xReader("Bonus")
                TextBox6.Text = xReader("Total Bayar")
            Else
                TextBox1.Text = "Data Tidak Ada"
                Exit Sub
            End If
            xReader.Close()
        End If
    End Sub
End Class