Inspirits Medan Love Infinite

"Fans di Indonesia adalah segalanya bagi kami, mereka motivasi terbesar kami untuk jadi musisi hebat.
Menurut kami Indonesia itu adalah cinta, kami sangat senang dengan kata CINTA dan itulah yang kami ingat kalau ke indonesia.
Kami cinta kalian"
-INFINITE-


"I hope we can be remembered as singers who always let everyone hear good music. I ask for a lot of love"
~Sungkyu~ @gyu357


"Once you become inspirit, you will be inspirit forever, we will be also infinite forever!"
~Dongwoo~ @ddong_gg0


"I like the fans who love us. I really want to hug those who really like me"
~Woohyun~ @nwh91


"I wanna do music that has my own color where the public can always feel something. We'll show amazing performance"
~Hoya~ @isayhousayya


"To the fans who love us!!! Although I say it everytime, you'll die if you cheat on us!!"
~Sungyeol~ @leeseongyeol_1991


"Because there are inspirits, there's Infinite and because there's Infinite, there are inspirits. Infinite Infinite !! You'll watch over us until the end, right???"
~ L ~ @kim_msl


"Just like our name INFINITE, We'll show sides of ourselves that infinitely gradually"
~Sungjong~ @ssongjjong.ifnt


"we INSPIRITS MEDAN, always and always, and will always love and support you INFINITE, just INFINITE and INFINITE"
~INSPIRITS MEDAN, Indonesia~
@sevihariyanti @aztaribrevoort @intan_kim99 @mirnamutiara19 @mutia_anggini @ulfamutia15 @raradetria @zalfaa09 @tiffanykurniawan @vivioey @inspirityun_dt @wilantika_daulay @yyaseu

Biodata dan fakta member "LOVELYZ"

Biodata dan fakta member "LOVELYZ"





Profil, Biodata Lengkap & Fakta-Fakta Dari Girlband 'Lovelyz' (New Update)






 Lovelyz merupakan girlband pertama bentukan Woollim Entertainment yang memiliki 8-member. Mereka terdiri dari Baby Soul, Yoo Ji Ae, Jin, Lee Mi Joo, Kei, Jung Ye In, Ryu Su Jeong dan Seo Ji Soo. Para member seperti Baby Soul, Yoo Ji Ae danJin sebelum debut sebagi grup mereka telah debut sebagai solois.
 Mereka akan debut pada 17 November dengan debut album berjudul "Girls' Invasion" dan pra-rilis lagu berjudul "Good Night Like Yesterday" pada tanggal 10 November.



Label : Woollim Entertainment
Member : 8-Member
Fansclub : -
Official Site
Official Facebook
Official Twitter

 Berikut profil membernya :
 1. Baby Soul
Nama Asli : Lee Soo Jung (이수정)
Nama Panggung : Baby Soul
 Tanggal Lahir : 6 Juli 1992
 Posisi : Leader, Vocal
 Hobi: Membaca buku, Memasak, Orkestra, Menulis Diary.
 Spesialis : Rap, Singing, Piano
 Tinggi : 158 cm
 Fakta :
 - Sebelum tergabung dengan Lovelyz, Baby Soul debut sebagai soloist dan merilis lagu berjudul “No Better Than Stranger” pada 23 November 2011 featuring Wheesung.
 - Pada 18 Januari 2012, Baby Soul kembali merilis single ke-2 berjudul “She is a Flirt” featuring Yoo Jia & Dong Woo.
 - Pernah tampil di Immortal Song 2.
 - Pernah tampil di Infinite Man in Love @ KBS gayo daechukje.
 - Hobi Baby Soul adalah membaca buku cerita misteri, memasak, menulis lagu, dan menulis diary.
 - Baby Soul telah di trainee selama 5 tahun oleh Woollim Ent.
 - Ia audisi untuk masuk ke Woollim saat Hoya INFINITE juga mengikuti audisi.
 - Warna favoritnya adalah ungu dan makan kesukaannya adalah sashimi.


2. Jiae
Nama Asli : Yoo Ji Ae (유지애)
Nama Panggung : Jiae
 Tanggal Lahir : 21 Mei 1993
 Posisi : Vocal, Visual
 Hobi: Menonton film, Cooking, Dancing, Acting
 Spesialis: Piano
 Tinggi : 163cm
 Tipe Darah: A
 Fakta :
 - Sebelum tergabung dengan Lovelyz, dia debut sebagai soloist dan merilis lagu berjudul “Delight” pada tahun 2013.
 - Pernah tampil di acara Running Man episode 98 pada ahun 2012.
 - Pernah tampil dengan INFINITE di Reality Show berjudul “You’re My Oppa” pada tahun 2010.
 - Pernah tampil di Infinite Man in Love @ KBS gayo daechukje.
 - Lulusan dari SOPA (Seoul of Performing Arts High School).
 - Jiae menjadi trainee di Woollim setelah reality show "You Are My Oppa!" berjalan selama 2 bulan.
 - Di SOPA, Jiae satu kelas dengan Jun Q (My Name), Gongchan (B1A4), dan Kai (EXO).
 - Merupakan teman dekat Jun Q (My Name).
 - Sebelum debut dengan Lovelyz, ia di trainee di Woollim Ent. selama 4 tahun.
 - Makanan favoritnya adalah es krim.


3. Mijoo
Nama Asli : Lee Mi Joo (이미주)
Nama Panggung : Mijoo
 Tanggal Lahir : 23 September 1994
 Posisi : Rap, Dancer
 Hobi: Menonton Film, Mendengarkan Musik
 Spesialis: Dance, Makan, Berolahraga
 Tinggi : 167cm
 Tipe Darah : O
 Fakta :
 - Pernah tampil di Infinite Man in Love @ KBS gayo daechukje.
 - Pernah jadi peran wanita di MV Infinite "Last Romeo".
 - Mi Joo berasal dari kota Daejeon.
 - Mi Joo jika tidur ia akan bernyanyi, berbicara bahkan sesekali berjalan keliling.
 - Warna favoritnya merah dan makanan kesukaannya daging.


4. Jisoo
Nama Asli : Seo Ji Soo (서지수)
Nama Panggung : Jisoo
 Tanggal Lahir : 11 Februari 1994
 Posisi : Vocal, Rap, Dancer
 Hobi: Menonton Film, Mendengarkan Musik, Belanja
 Spesialis: Melukis
 Tinggi : 165cm
 Tipe Darah: O
 Fakta :
 - Pernah tampil di Infinite Man in Love @ KBS gayo daechukje.
 - Ia bersama dengan Seunghee (F-ve Dolls) merupakan murid dari Def Dance Skool yang -melewati audisi Woollim Ent.
 - Pada tahun 2011, ia pernah mengikuti Korea's Got Talent untuk meniru suara hewan.
 - Merupakan trainee Woollim pada tahun 2012, namun keluar lalu kembali lagi.
 - Ia berasal dari Incheon.
 - Makanan favoritnya coklat, kue beras dan daging, sedangkan warna favoritnya adalah warna putih.


5. Kei
Nama Asli : Kim Ji Yeon (김지연)
Nama Panggung : Kei
 Tanggal Lahir : 20 Maret 1995
 Posisi : Vocal, Visual
 Hobi: Memasak, Akting
 Spesialis: Menyanyi, Menari
 Tinggi : 162cm
 Tipe Darah : O
 Fakta :
 - Pernah tampil di Infinite Man in Love @ KBS gayo daechukje.
 - Warna favoritnya adalah pink dan mint, tapi ia juga suka semua warna.
 - Makanan favorit adalah daging, semua jenis daging ia suka.


6. JIN
Nama Asli : Park Myung Eun (박명은)
Nama Panggung : JIN
 Tanggal Lahir : 12 Juni 1996
 Posisi : Main Vocal
 Hobi: Mendengarkan Musik, Harmonisasi
 Spesialis: Meniru Orang
 Tinggi : 165cm
 Tipe Darah: B
 Fakta :
 - Sebelum tergabung dengan Lovelyz, dia debut sebagai soloist dan merilis single berjudul “Gone” pada 8 November 2013.
 - Pernah tampil di Infinite Man in Love @ KBS gayo daechukje.
 - Ia berasal dari Busan.
 - Jin telah di trainee selama 4 tahun oleh Woollim Ent.
 - Warna favoritnya adalah putih dan hitam.
 - Makanan favoritnya adalah spaghetti, sup rumput laut, dan galbijjim (iga sapi rebus).
 - Jin suka melakukan hal-hal yang aneh yang tidak dimengerti siapapun.
 - Jin memiliki karakter 4D.


7. Sujeong
Nama Asli : Ryu Su Jeong (류수정)
Nama Panggung : Sujeong
 Tanggal Lahir : 19 November 1997
 Posisi : Vocal
 Hobi: Bermain Gitar
 Spesialis: Menyanyi
 Tinggi : 168cm
 Tipe Darah : B
 Fakta :
 - Pernah tampil di Infinite Man in Love @ KBS gayo daechukje.
 - Sujeong merupakan member paling tinggi.
 - Warna favoritnya adalah pink.
 - Makanan favoritnya adalah nachos, ayam dan keju.


8. Yein
Nama Asli : Jung Ye In (정예인)
Nama Panggung : Yein
 Tanggal Lahir : 4 June 1998
 Posisi : Maknae, Vocal
 Hobi: Menonton Orang, Belanja, Mendengarkan Musik
 Khusus: Modern Dance, Acrobacies
 Tinggi : 166cm
 Tipe Darah : B
 Fakta :
 - Yein tiba-tiba akan berhenti berbicara ketika akan makan.
 - Warna favoritnya adalah putih.
 - Makanan kesukaannya adalah kaki ayam, tapi ia juga suka dengan sesuatu yang lezat.

Lirik Lagu Eunji Namjoo Hoya & L (Not Tomorrow But Right Now)

[LYRICS] Eunji, Namjoo, Hoya & L 내일말고 지금바로 (Not Tomorrow But Right Now)

KOREAN:

이제 내손잡아요 그대
더는 기다리지마요 (기다리지마요)
망설이지마
이제 손을 잡아요

너와 나
같이 걸을 수 있을까
힘들고 지쳐도 포기하지마
생각해요 
미주 보고 웃는 그날을
남과 복이 사랑하는 그날을

알아요
지금은 많이 아파다는 걸
아무 감정 없는 많은 오해들
괜찮아요
지나가면 다 잊힐 거야
하얀 먼지처럼 사라질 거야

등 돌리지 말고 마주 보고
내 말 들어 통일을 해
이제 온전한 하나요 
날 안아 줄래요

이제 내손잡아요 그대
더는 기다리지마요 (기다리지마요)
더 이상 그렇게 아파하지마
이제 울지마요 그대
통일은 이제 시작인 걸요
망설이지마
이제 손을 잡아요

그래요
그래서 우리 같라졌지만
힘들지만 이제 하나가 돼요
의미 없는
그 악수는 이제 그만해요
다 이상 망설이지마요

등 돌리지 말고 마주 보고
내 말 들어 통일을 해
이제 온전한 하나요 
날 안아 줄래요

이제 내손잡아요 그대
더는 기다리지마요 (기다리지마요)
더 이상 그렇게 아파하지마
이제 울지마요 그대
통일은 이제 시작인 걸요
망설이지마
이제 손을 잡아요

하얀 종이 위에
희망을 적어요 (희망을 적어요)
부디 이뤄지길 통일의 그날을 (통일의 그날을)
너와 나 우리하나되는날

이제 내손잡아요 그대
더는 기다리지마요 (기다리지마요)
더 이상 그렇게 아파하지마
이제 울지마요 그대
통일은 이제 시작인 걸요
망설이지마
이제 손을 잡아요

ROMANIZED:

ije naesonjabayo geudae
deoneun gidarijimayo (gidarijimayo)
mangseorijima
ije soneul jabayo

neowa na
gachi georeul su isseulkka
himdeulgo jichyeodo pogi hajima
saenggakhaeyo 
miju bogo utneun geunareul
namgwa bogi saranghanen genareul

arayo
jigeumeun mani apadaneun geol
amu kamjeong eomneun maneun ohaedeul
gwaenchanayo
jinagamyeon da itchil geoya
hayan meonjicheoreom sarajil geoya

deung dolriji malgo maju bogo
nae mal dereo tongireul hae
ije onjeonhan hanayo
nal ana jullaeyo

ije naesonjabayo geudae
deoneun gidarijimayo (gidarijimayo)
deo isang geureoke apahajima
ije uljimayo geudae
tongireun ije sijakin geolyo
mangseorijima
ije soneul jabayo

geuraeyo
geuraeseo uri gatrajyeojiman
himdeuljiman ije hanaga dwaeyo
uimi eomneun
geu aksuneun ije geumanhaeyo
da isang mangseorijimayo

deung dolriji malgo maju bogo
nae mal dereo tongireul hae
ije onjeonhan hanayo
nal ana jullaeyo

ije naesonjabayo geudae
deoneun gidarijimayo (gidarijimayo)
deo isang geureoke apahajima
ije uljimayo geudae
tongireun ije sijakin geolyo
mangseorijima
ije soneul jabayo

hayanjongi wie
huimangeul jeogeoyo (huimangeul jeogeoyo)
buji irwojigil tongirui geunareul (tongirui geunareul)
neowa na urihanadoeneunnal

ije naesonjabayo geudae
deoneun gidarijimayo (gidarijimayo)
deo isang geureoke apahajima
ije uljimayo geudae
tongireun ije sijakin geolyo
mangseorijima
ije soneul jabayo

ENGLISH:

Right now you're holding my hand
Don't wait any longer (Don't wait any longer)
Don't hesitate any longer
And hold my hand right now

You and I
Can we walk together?
Even if it's tough, it's tiring, let's not give up
Whenever I think about it
The day I see that person's smile
The day where the South and North love

I know
Right now you're going through a lot
The misunderstandings due to no emotions
It's alright
After today you'll forget about it
Disappearing like white dust

Don't have your back facing me, look at me in the eyes
Listen to me, let's unite
Right now as one
I want to hug you

Right now you're holding my hand
Don't wait any longer (Don't wait any longer)
Don't hurt like you did before
Please stop crying now
Unification has already begun
Don't hesitate any longer
And hold my hand right now

Yes it is
Although we were separated in that way
Although right now, becoming one would be tough
There's no need now
That meaningless handshake
Don't hesitate like you did before

Don't have your back facing me, look at me in the eyes
Listen to me, let's unite
Right now as one
I want to hug you

Right now you're holding my hand
Don't wait any longer (Don't wait any longer)
Don't hurt like you did before
Please stop crying now
Unification has already begun
Don't hesitate any longer
And hold my hand right now

On a piece of white paper
Write down your wish (Write down your wish)
Praying for the day of unification to come (The day of unification)
You and I, the day we become one

Right now you're holding my hand
Don't wait any longer (Don't wait any longer)
Don't hurt like you did before
Please stop crying now
Unification has already begun
Don't hesitate any longer
And hold my hand right now

Korean lyrics from: DMZ Peace Concert Broadcast
Translated and romanized by eunzit

5 Efek Kecanduan Kopi Bagi Pria

Kopi adalah salah satu minuman yang bermanfaat untuk memberikan suntikan energi pada tubuh Anda. Sebab bahan utama di dalam kopi yaitu kafein mampu memicu hormon adrenal Anda untuk selalu bekerja. Sehingga Anda dapat terhindar dari rasa kantuk, lelah, dan meningkatkan konsentrasi Anda.

Karena efek itulah maka banyak orang yang mengandalkan kopi untuk membuat mereka bersemangat. Dan tidak jarang pula, ada beberapa orang terutama pria yang kecanduan akan kopi. Rasa gelisah, cemas, dan denyut jantung yang tidak teratur adalah efek samping dari kecanduan kopi.

Selain efek tersebut, ini efek samping lain kecanduan kopi bagi pria seperti:

Iritasi usus

Berbagai macam senyawa kimia yang ada di dalam kopi mampu membuat iritasi pada usus Anda terutama apabila Anda mengonsumsinya ketika perut Anda kosong. Sehingga produksi asam klorida di dalam perut akan bertambah. Akibatnya kecanduan kopi dapat membuat kadar asam di dalam perut meningkat dan bisa membuat iritasi.

Asam lambung

Asam lambung meningkat sebab kafein mampu melemaskan sfingter esofagus di perut bagian bawah. Padahal otot ini harus tertutup rapat untuk mencegah naiknya asam lambung.

Kekurangan mineral

Minum kopi secara berlebihan juga dapat membuat pria kekurangan mineral. Sebab kafein mampu mempengaruhi kemampuan ginjal untuk menyerap kalsium, zinc, dan magnesium. Sehingga ketika kerja ginjal tidak maksimal, maka tubuh Anda dapat kekurangan mineral.

Stres

Kecanduan kopi juga akan membuat pria menjadi stres. Sebab minum kopi akan meningkatkan kerja hormon kortisol, epinefrin, dan norepinefrin. Hormon ini akan meningkatkan denyut jantung Anda, tekanan darah, dan ketegangan di dalam tubuh.

Mengurangi kepadatan tulang

Karena tubuh Anda bisa kekurangan mineral akibat terlalu banyak minum kopi, maka kepadatan tulang pun bisa terpengaruhi. Sebab kafein adalah diuretik yang ringan yang dapat mempercepat siklus buang air kecil Anda. Sehingga kepadatan kalsium pun turut hilang.

Minum kopi memang bermanfaat untuk membuat Anda bersemangat. Namun konsumsilah dengan jumlah yang bijak agar tidak mengganggu kesehatan Anda.

Quis Online

Listening program Form Kendaraan

Imports System.Data.OleDb

Public Class Form1

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        nobk.Text = ""

        pemilik.Text = ""

        alamat.Text = ""

        tahun.Text = ""

        warna.Text = ""

        norangkamesin.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM kendaraan", DB)

        DS = New DataSet

        ADP.Fill(DS, "kendaraan")

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        nobk.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO kendaraan(nobk, pemilik, alamat, tahun, warna, norangkamesin)" & _

                        " VALUES ('" & nobk.Text & "','" & _

                                       pemilik.Text & "','" & _

                                       alamat.Text & "','" & _

                                       tahun.Text & "','" & _

                                       warna.Text & "','" & _

                                        norangkamesin.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM kendaraan Where nobk='" & nobk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub nobk_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nobk.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from kendaraan where nobk='" & nobk.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                pemilik.Text = DR.Item(1)

                alamat.Text = DR.Item(2)

                tahun.Text = DR.Item(3)

                warna.Text = DR.Item(4)

                norangkamesin.Text = DR.Item(5)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = nobk.Text

                Call HapusText()

                nobk.Text = xkode

                Call ButtonSimpan()

            End If

            pemilik.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        nobk.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE kendaraan SET pemilik='" & pemilik.Text & "' " & _

                                ",alamat='" & alamat.Text & "' " & _

                                ",tahun='" & tahun.Text & "' " & _

                                ",warna='" & warna.Text & "' " & _

                                ",norangkamesin='" & norangkamesin.Text & "' " & _

                                "Where nobk='" & nobk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class

 

Listening program Form Produk

Imports System.Data.OleDb

Public Class Formproduk

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        kode.Text = ""

        nama.Text = ""

        satuan.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM produk", DB)

        DS = New DataSet

        ADP.Fill(DS, "produk")

    End Sub

    Private Sub Formproduk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        kode.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO produk(kodeproduk, namaproduk, satuan, harga, jumlah)" & _

                        " VALUES ('" & kode.Text & "','" & _

                                       nama.Text & "','" & _

                                       satuan.Text & "','" & _

                                       harga.Text & "','" & _

                                        jumlah.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM produk Where kodeproduk='" & kode.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from produk where kodeproduk='" & kode.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                nama.Text = DR.Item(1)

                satuan.Text = DR.Item(2)

                harga.Text = DR.Item(3)

                jumlah.Text = DR.Item(4)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = kode.Text

                Call HapusText()

                kode.Text = xkode

                Call ButtonSimpan()

            End If

            nama.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        kode.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE produk SET nama='" & nama.Text & "' " & _

                                ",satuan='" & satuan.Text & "' " & _

                                ",harga='" & harga.Text & "' " & _

                                ",jumlah='" & jumlah.Text & "' " & _

                                "Where kode='" & kode.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class

 

1Listening program Form Siswa

Imports System.Data.OleDb

Public Class Formsiswa

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        NIS.Text = ""

        namasiswa.Text = ""

        alamat.Text = ""

        namawali.Text = ""

        tanggallahir.Text = ""

        agama.Text = ""

        jeniskelamin.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM siswa", DB)

        DS = New DataSet

        ADP.Fill(DS, "siswa")

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        NIS.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO siswa(NIS, namasiswa, alamat, namawali, tanggallahir, agama, jeniskelamin)" & _

                        " VALUES ('" & NIS.Text & "','" & _

                                       namasiswa.Text & "','" & _

                                       alamat.Text & "','" & _

                                       namawali.Text & "','" & _

                                       tanggallahir.Text & "','" & _

                                       agama.Text & "','" & _

                                        jeniskelamin.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM produk Where NIS='" & NIS.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub NIS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NIS.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from siswa where NIS='" & NIS.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                namasiswa.Text = DR.Item(1)

                alamat.Text = DR.Item(2)

                namawali.Text = DR.Item(3)

                tanggallahir.Text = DR.Item(4)

                agama.Text = DR.Item(5)

                jeniskelamin.Text = DR.Item(6)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = NIS.Text

                Call HapusText()

                NIS.Text = xkode

                Call ButtonSimpan()

            End If

            namasiswa.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        NIS.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE siswa SET namasiswa='" & namasiswa.Text & "' " & _

                                ",alamat='" & alamat.Text & "' " & _

                                ",namawali='" & namawali.Text & "' " & _

                                ",tanggallahir='" & tanggallahir.Text & "' " & _

                                ",agama='" & agama.Text & "' " & _

                                ",jeniskelamin='" & jeniskelamin.Text & "' " & _

                                "Where NIS='" & NIS.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class

 

 

1 Listening program Form Menu

Public Class Menu

    Private Sub menuutama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub KaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaryawanToolStripMenuItem.Click

        Form1.MdiParent = Me

        Form1.Show()

    End Sub

    Private Sub BagianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BagianToolStripMenuItem.Click

        Formproduk.MdiParent = Me

        Formproduk.Show()

    End Sub

    Private Sub JabatanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JabatanToolStripMenuItem.Click

        Formsiswa.MdiParent = Me

        Formsiswa.Show()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        End

    End Sub

End Class