Fikry fitriansyah

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

<?xml version="1.0" encoding="utf-8"?>
<androidx.constraintlayout.widget.ConstraintLayout xmlns:android="http://schemas.android.com/apk/res/android"
    xmlns:app="http://schemas.android.com/apk/res-auto"
    xmlns:tools="http://schemas.android.com/tools"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    android:background="#3F51B5"
    tools:context=".Login">

    <TextView
        android:id="@+id/username"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_marginStart="16dp"
        android:layout_marginLeft="16dp"
        android:layout_marginTop="150dp"
        android:layout_marginEnd="16dp"
        android:layout_marginRight="16dp"
        android:ems="10"
        android:inputType="textPersonName"
        android:text="Ussername"
        android:textColor="#F7F2F2"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.393"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent" />

    <EditText
        android:id="@+id/id_ussername"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_marginStart="16dp"
        android:layout_marginLeft="16dp"
        android:layout_marginTop="180dp"
        android:layout_marginEnd="16dp"
        android:layout_marginRight="16dp"
        android:ems="10"
        android:inputType="textPersonName"
        android:textColor="#F7F2F2"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent" />

    <TextView
        android:id="@+id/password"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_marginStart="16dp"
        android:layout_marginLeft="16dp"
        android:layout_marginTop="240dp"
        android:layout_marginEnd="16dp"
        android:layout_marginRight="16dp"
        android:ems="10"
        android:inputType="textPersonName"
        android:text="Password"
        android:textColor="#F7F2F2"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.393"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent" />

    <EditText
        android:id="@+id/id_password"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_marginStart="16dp"
        android:layout_marginLeft="16dp"
        android:layout_marginTop="270dp"
        android:layout_marginEnd="16dp"
        android:layout_marginRight="16dp"
        android:ems="10"
        android:inputType="textPassword"
        android:textColor="#F7F2F2"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent" />

    <Button
        android:id="@+id/btn_login"
        android:layout_width="134dp"
        android:layout_height="54dp"
        android:layout_marginTop="60dp"
        android:text="Login"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.509"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="@+id/id_password" />

</androidx.constraintlayout.widget.ConstraintLayout>

Activity Login

package com.e.utsmobileprograming;

import androidx.appcompat.app.AppCompatActivity;

import android.content.Intent;
import android.os.Bundle;
import android.view.View;
import android.widget.Button;
import android.widget.EditText;
import android.widget.Toast;

public class Login extends AppCompatActivity {

    EditText ussername,password;
    Button btnLogin;
    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_login);

        ussername=(EditText) findViewById(R.id.id_ussername);
        password=(EditText) findViewById(R.id.id_password);
        btnLogin=(Button)findViewById(R.id.btn_login);
        btnLogin.setOnClickListener(new View.OnClickListener() {

            @Override
            public void onClick(View view) {
                if (ussername.getText().toString().equals("Fikryfitriansyah") && password.getText().toString().equals("fikryfitriansyah97")){
                    Toast.makeText(getApplicationContext(),"Anda Login Sebagai : " + ussername.getText().toString() + "dan Password : " + password.getText().toString(),Toast.LENGTH_SHORT).show();
                    Intent i = new Intent(Login.this, Listview.class);
                    i.putExtra("Username",ussername.getText().toString());
                    i.putExtra("Password",password.getText().toString());
                    startActivity(i);
                }
                else {
                    Toast.makeText(getApplicationContext(),"Gagal Login",Toast.LENGTH_SHORT).show();
                }
            }
        });
    }
}

2. Membuat Listview (Daftar Nama Band)

XML Listview

<?xml version="1.0" encoding="utf-8"?>
<relativelayout xmlns:android="http://schemas.android.com/apk/res/android"
    xmlns:app="http://schemas.android.com/apk/res-auto"
    xmlns:tools="http://schemas.android.com/tools"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    tools:context=".Listview">

    <ListView
        android:id="@+id/listview"
        android:layout_width="match_parent"
        android:layout_height="match_parent" />
</RelativeLayout>

Activity Listview

package com.e.utsmobileprograming;

import androidx.appcompat.app.AppCompatActivity;

import android.content.Intent;
import android.os.Bundle;
import android.widget.AdapterView;
import android.widget.ArrayAdapter;
import android.widget.ListView;
import android.view.View;
import android.widget.Toast;


public class Listview extends AppCompatActivity {

    ListView list;
    String rock[] = {"Profil", "Beatles", "Led Zeppelin", "Rolling Stones", "Queen",
            "Deep Purple", "Black Sabbath", "Pink Floyd"};

    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_listview);
        list = (ListView) findViewById(R.id.listview);
        ArrayAdapter adapter = new ArrayAdapter(this, android.R.layout.simple_expandable_list_item_1, rock);
        list.setAdapter(adapter);


        list.setOnItemClickListener(new AdapterView.OnItemClickListener() {

            @Override
            public void onItemClick(AdapterView<?> arg0, View arg1, int arg2, long arg3) {
                int item = arg2;
                String itemText = (String) list.getItemAtPosition(arg2);

                if (itemText.equals("Profil")) {
                    Intent profil = new Intent(arg0.getContext(), Profil.class);
                    startActivityForResult(profil, 0);
                    Toast.makeText(getApplicationContext(),"Anda Membuka Profil",Toast.LENGTH_SHORT).show();

                } else if (itemText.equals("Beatles")) {
                    Intent beatles = new Intent(arg0.getContext(), Beatles.class);
                    startActivityForResult(beatles, 0);
                    Toast.makeText(getApplicationContext(),"Anda Membuka The Beatles",Toast.LENGTH_SHORT).show();

                } else if (itemText.equals("Led Zeppelin")) {
                    Intent ledzeppelin = new Intent(arg0.getContext(), LedZeppelin.class);
                    startActivityForResult(ledzeppelin, 0);
                    Toast.makeText(getApplicationContext(),"Anda Membuka Led Zeppelin",Toast.LENGTH_SHORT).show();

                } else if (itemText.equals("Rolling Stones")) {
                    Intent rollingstones= new Intent(arg0.getContext(), RollingStones.class);
                    startActivityForResult(rollingstones, 0);
                    Toast.makeText(getApplicationContext(),"Anda Membuka The Rolling Stones",Toast.LENGTH_SHORT).show();

                } else if (itemText.equals("Queen")) {
                    Intent queen = new Intent(arg0.getContext(), Queen.class);
                    startActivityForResult(queen, 0);
                    Toast.makeText(getApplicationContext(), "Anda Membuka Queen", Toast.LENGTH_SHORT).show();

                } else if (itemText.equals("Deep Purple")) {
                    Intent deepppurple = new Intent(arg0.getContext(), DeepPurple.class);
                    startActivityForResult(deepppurple, 0);
                    Toast.makeText(getApplicationContext(), "Anda Membuka Deep Purple", Toast.LENGTH_SHORT).show();

                } else if (itemText.equals("Black Sabbath")) {
                    Intent blacksabbath = new Intent(arg0.getContext(), BlackSabbath.class);
                    startActivityForResult(blacksabbath, 0);
                    Toast.makeText(getApplicationContext(), "Anda Membuka Black Sabbath", Toast.LENGTH_SHORT).show();

                } else if (itemText.equals("Pink Floyd")) {
                    Intent pinkfloyd = new Intent(arg0.getContext(), PinkFloyd.class);
                    startActivityForResult(pinkfloyd, 0);
                    Toast.makeText(getApplicationContext(), "Anda Membuka Pink Floyd", Toast.LENGTH_SHORT).show();
                }






            }
        });
    }
}

3. Membuat Activity (Info Band)

XML Activity (Info Band)

<?xml version="1.0" encoding="utf-8"?>
<relativelayout xmlns:android="http://schemas.android.com/apk/res/android"
    xmlns:app="http://schemas.android.com/apk/res-auto"
    xmlns:tools="http://schemas.android.com/tools"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    android:background="#3F51B5"
    tools:context=".Beatles">

    <TextView
        android:id="@+id/textView"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_centerHorizontal="true"
        android:layout_marginTop="10dp"
        android:textStyle="bold"
        android:textSize="35sp"
        android:textColor="#F7F2F2"
        android:text="The Beatles" />

    <ImageView
        android:id="@+id/imageView"
        android:layout_width="150dp"
        android:layout_height="200dp"
        android:layout_marginTop="65dp"
        android:layout_centerHorizontal="true"
        app:srcCompat="@drawable/beatles" />

    <TextView
        android:id="@+id/textView3"
        android:layout_width="350dp"
        android:layout_height="wrap_content"
        android:layout_marginTop="260dp"
        android:textSize="18sp"
        android:textColor="#F7F2F2"
        android:layout_centerHorizontal="true"
        android:text="
        \n      The Beatles adalah kelompok pemusik Inggris beraliran rock, dibentuk di Liverpool pada tahun 1960, seringkali dianggap sebagai pemusik tersukses secara komersial dan paling banyak mendapat pujian dalam musik populer. Sejak tahun 1962,
        \n      kelompok ini terdiri dari John Lennon (gitar ritem, vokal), Paul McCartney (gitar bass, vokal), George Harrison (gitar utama, vokal), Ringo Starr (drum, vokal)." />

</RelativeLayout>

Activity Info Band

package com.e.utsmobileprograming;

import androidx.appcompat.app.AppCompatActivity;

import android.os.Bundle;

public class Beatles extends AppCompatActivity {

    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_beatles);
    }
}

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

Imports System.Data.Sql
Imports System.Data.SqlClient
Partial Class Kasir
    Inherits System.Web.UI.Page
    Public CON As SqlConnection
    Public CMD As SqlCommand
    Public DR As SqlDataReader

    Sub Clear()
        TextKode.Text = ""
        TextNamaKasir.Text = ""
    End Sub

    Sub Koneksi()
        Try
            CON = New SqlConnection("Data Source=DESKTOP-92PA757;Initial Catalog=Fikry-fitriansyah;Integrated Security=True")
            CON.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Protected Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
        Call Koneksi()
        Dim Save As String
        Save = "insert into Table_Kasir values('" & TextKode.Text & "','" & TextNamaKasir.Text & "')"
        CMD = New SqlCommand(Save, CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Kasir.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click
        Call Koneksi()
        CMD = New SqlCommand("update Table_Kasir set Nama_Kasir='" & TextNamaKasir.Text & "'where Kode_Kasir='" & TextKode.Text & "'", CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Kasir.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        Call Koneksi()
        CMD = New SqlCommand("delete from Table_Kasir where Kode_Kasir='" & TextKode.Text & "'", CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Kasir.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnKembali_Click(sender As Object, e As EventArgs) Handles BtnKembali.Click
        Response.Redirect("Awal.aspx")
    End Sub

    Protected Sub BtnCari_Click(sender As Object, e As EventArgs) Handles BtnCari.Click
        Call Koneksi()
        CMD = New SqlCommand("select * from Table_Kasir where Kode_Kasir='" + TextKode.Text + "'", CON)
        DR = CMD.ExecuteReader
        If DR.HasRows Then
            DR.Read()
            TextKode.Text = DR("Kode_Kasir")
            TextNamaKasir.Text = DR("Nama_Kasir")
        Else
            MsgBox("Data Tidak Ada")
            Call Clear()
        End If
    End Sub

    Protected Sub BtnBatal_Click(sender As Object, e As EventArgs) Handles BtnBatal.Click
        Call Clear()
    End Sub
End Class

Tabel Struk

Source Code Tabel Struk

Imports System.Data.Sql
Imports System.Data.SqlClient
Partial Class Struk
    Inherits System.Web.UI.Page
    Public CON As SqlConnection
    Public CMD As SqlCommand
    Public DR As SqlDataReader

    Sub Clear()
        TextKode.Text = ""
        TextNamaKasir.Text = ""
        TextTgl.Text = ""
        TextWaktu.Text = ""
    End Sub

    Sub Koneksi()
        Try
            CON = New SqlConnection("Data Source=DESKTOP-92PA757;Initial Catalog=Fikry-fitriansyah;Integrated Security=True")
            CON.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Protected Sub BtnSave1_Click(sender As Object, e As EventArgs) Handles BtnSave1.Click
        Call Koneksi()
        Dim Save As String
        Save = "insert into Table_Struk values('" & TextKode.Text & "','" & TextNamaKasir.Text & "','" & TextTgl.Text &
        "','" & TextWaktu.Text & "')"
        CMD = New SqlCommand(Save, CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Struk.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnEdit1_Click(sender As Object, e As EventArgs) Handles BtnEdit1.Click
        Call Koneksi()
        CMD = New SqlCommand("update Table_Struk set Nama_Kasir='" & TextNamaKasir.Text & "',Tanggal='" & TextTgl.Text & "',Waktu='" & TextWaktu.Text &
        "'where Kode_Kasir='" & TextKode.Text & "'", CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Struk.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnHapus1_Click(sender As Object, e As EventArgs) Handles BtnHapus1.Click
        Call Koneksi()
        CMD = New SqlCommand("delete from Table_Struk where Nama_Kasir='" & TextNamaKasir.Text & "'", CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Struk.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnBatal1_Click(sender As Object, e As EventArgs) Handles BtnBatal1.Click
        Call Clear()
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Response.Redirect("Awal.aspx")
    End Sub

    Protected Sub BtnCari_Click(sender As Object, e As EventArgs) Handles BtnCari.Click
        Call Koneksi()
        CMD = New SqlCommand("select * from Table_Struk where Kode_Kasir='" + TextKode.Text + "'", CON)
        DR = CMD.ExecuteReader
        If DR.HasRows Then
            DR.Read()
            TextKode.Text = DR("Kode_Kasir")
            TextNamaKasir.Text = DR("Nama_Kasir")
            TextTgl.Text = DR("Tanggal")
            TextWaktu.Text = DR("Waktu")
        Else
            MsgBox("Data Tidak Ada")
            Call Clear()
        End If
    End Sub
End Class

Tabel Transaksi

Source Code Tabel Jual Beli

Imports System.Data.Sql
Imports System.Data.SqlClient
Partial Class Transaksi
    Inherits System.Web.UI.Page
    Public CON As SqlConnection
    Public CMD As SqlCommand
    Public DR As SqlDataReader

    Sub Clear()
        TextKode.Text = ""
        TextNamaBrg.Text = ""
        TextQty.Text = ""
        TextHarga.Text = ""
        TextJumlah.Text = ""
    End Sub

    Sub Koneksi()
        Try
            CON = New SqlConnection("Data Source=DESKTOP-92PA757;Initial Catalog=Fikry-fitriansyah;Integrated Security=True")
            CON.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Protected Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
        Call Koneksi()
        Dim Save As String
        Save = "insert into Table_Transaksi values('" & TextKode.Text & "','" & TextNamaBrg.Text & "','" & TextQty.Text &
        "','" & TextHarga.Text & "','" & TextJumlah.Text & "')"
        CMD = New SqlCommand(Save, CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Transaksi.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnJumlah_Click(sender As Object, e As EventArgs) Handles BtnJumlah.Click
        TextJumlah.Text = TextQty.Text * TextHarga.Text
    End Sub

    Protected Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click
        Call Koneksi()
        CMD = New SqlCommand("update Table_Transaksi set Kode_Kasir='" & TextKode.Text & "',Qty='" & TextQty.Text & "',Harga='" & TextHarga.Text &
        "',Jumlah='" & TextJumlah.Text & "'where Nama_Barang='" & TextNamaBrg.Text & "'", CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Transaksi.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        Call Koneksi()
        CMD = New SqlCommand("delete from Table_Transaksi where Nama_Barang='" & TextNamaBrg.Text & "'", CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Transaksi.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnBatal_Click(sender As Object, e As EventArgs) Handles BtnBatal.Click
        Call Clear()
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnKembali.Click
        Response.Redirect("Awal.aspx")
    End Sub

    Protected Sub BtnCari_Click(sender As Object, e As EventArgs) Handles BtnCari.Click
        Call Koneksi()
        CMD = New SqlCommand("select * from Table_Transaksi where Nama_Barang='" + TextNamaBrg.Text + "'", CON)
        DR = CMD.ExecuteReader
        If DR.HasRows Then
            DR.Read()
            TextKode.Text = DR("Kode_Kasir")
            TextNamaBrg.Text = DR("Nama_Barang")
            TextQty.Text = DR("Qty")
            TextHarga.Text = DR("Harga")
            TextJumlah.Text = DR("Jumlah")
        Else
            MsgBox("Data Tidak Ada")
            Call Clear()
        End If
    End Sub
End Class

Tabel Barang

Source Code Tabel Barang

Imports System.Data.Sql
Imports System.Data.SqlClient
Partial Class Barang
    Inherits System.Web.UI.Page
    Public CON As SqlConnection
    Public CMD As SqlCommand
    Public DR As SqlDataReader

    Sub Clear()
        TextNamaBrg.Text = ""
        TextQty.Text = ""
        TextHarga.Text = ""
        TextJumlah.Text = ""
    End Sub

    Sub Koneksi()
        Try
            CON = New SqlConnection("Data Source=DESKTOP-92PA757;Initial Catalog=Fikry-fitriansyah;Integrated Security=True")
            CON.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Protected Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
        Call Koneksi()
        Dim Save As String
        Save = "insert into Table_Barang values('" & TextNamaBrg.Text & "','" & TextQty.Text & "','" & TextHarga.Text & "','" & TextJumlah.Text & "')"
        CMD = New SqlCommand(Save, CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Barang.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnJumlah_Click(sender As Object, e As EventArgs) Handles BtnJumlah.Click
        TextJumlah.Text = TextQty.Text * TextHarga.Text
    End Sub

    Protected Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click
        Call Koneksi()
        CMD = New SqlCommand("update Table_Barang set Qty='" & TextQty.Text & "',Harga='" & TextHarga.Text &
        "',Jumlah='" & TextJumlah.Text & "'where Nama_Barang='" & TextNamaBrg.Text & "'", CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Barang.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        Call Koneksi()
        CMD = New SqlCommand("delete from Table_Barang where Nama_Barang='" & TextNamaBrg.Text & "'", CON)
        CMD.ExecuteNonQuery()
        MsgBox("Success")
        Response.Redirect("Barang.aspx")
        Call Clear()
    End Sub

    Protected Sub BtnBatal_Click(sender As Object, e As EventArgs) Handles BtnBatal.Click
        Call Clear()
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnKembali.Click
        Response.Redirect("Awal.aspx")
    End Sub

    Protected Sub BtnCari_Click(sender As Object, e As EventArgs) Handles BtnCari.Click
        Call Koneksi()
        CMD = New SqlCommand("select * from Table_Barang where Nama_Barang='" + TextNamaBrg.Text + "'", CON)
        DR = CMD.ExecuteReader
        If DR.HasRows Then
            DR.Read()
            TextNamaBrg.Text = DR("Nama_Barang")
            TextQty.Text = DR("Qty")
            TextHarga.Text = DR("Harga")
            TextJumlah.Text = DR("Jumlah")
        Else
            MsgBox("Data Tidak Ada")
            Call Clear()
        End If
    End Sub
End Class

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

Kamis, 01 November 2018

Aplikasi Sederhana Visual Studio Terkoneksi dengan File Ms.Word dan Ms.Excel

UTS PEMROGRAMAN 1

(STMIK ERESHA)

Membuat Aplikasi Sederhana Visual Studio Terkoneksi dengan File Ms.Word dan Ms.Excel

Ini adalah Desain Aplikasi yang saya buat menggunakan VIsual Studio, Aplikasi ini hanya contoh saja dan tidak bisa digunakan untuk membeli Diamonds yang sebenarnya. Pada Desain Aplikasi ini terdiri dari :

Label
TextBox
ComboBox
CheckBox
GroupBox
RadioButton
Button

Langsung saja ke Pembuatan dan Penggunaannya ✈

Cara Input Data pada Diamonds (CbDiamonds) dan Harga (TxtHarga)

Pada Properies ComboBox (CbDiamonds), Pilih (Collection) dan Masukan Data nya

Masukan Coding Pada ComboBox (CbDiamonds)

Untuk Input Data pada Jumlah Beli (CbJumlahBeli) caranya sama dengan Input Data Diamonds (CbDiamonds), yaitu Pada Properies ComboBox (CbJumlahBeli), Pilih (Collection) dan Masukan Data nya

Untuk Menghitung Total, Saya disini menggunakan CheckBox (ChkTotal)

Masukan Coding Pada CheckBox (ChkTotal) untuk Menghitung Total. Total = Harga * Jumlah Beli

Untuk Pembayaran Saya menggunakan GroupBox yang isinya RadioBox, ComboBox dan TextBox, ada 2 Opsi Pembayaran dengan Pulsa atau Rekening dan saya menggunakan RadioBox untuk prosesnya.

Masukan Coding Pada RadioBox (RbPulsa) dan (RbRekening) Untuk Pembayaran

Untuk Menghitung Diskon, Bonus, Total Bayar dan Total Diamonds saya menggunakan Button (BtnBayar) untuk Menghitung Semuanya. Jika Total 1000.000 ke atas maka akan mendapat Diskon "10%" dan Bonus "Gratis Skin Permanen".

Masukan Coding Pada Button (BtnBayar) untuk menghitung Diskon, Bonus, Total Bayar dan Total Diamonds

Untuk Membuat Koneksi ke Ms.Word dan Excel kita harus Add Reference Ms.Word dan Excel terlebih dahulu

Masukan Coding Import Word dan Excel "Taruh Coding di paling atas"

Setelah Add Reference di buat, Untuk koneksi ke Ms.Word buat File di Ms.Word sesuai dengan Pjoject yang di buat pada Visual Studio. lalu Arahkan kursor ke tempat yang akan di jadkan lokasi penyimpanan, buat nama Bookmark dan Add Bookmark, lakukan seterusnya di tempat kursor yang lain. Setelah itu Save File