script visual basic

"MODUL"-koneksi database

Public Conn As New ADODB.Connection

Public Rs As New ADODB.Recordset

Public StrConnect As String

Public StrSQL As String

Public loginAs As String

Public Sub Konek()

StrConnect = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" + App.Path + "\DB_KASIR.mdb;Jet OleDB:Database Password=supadi"

If Conn.State = adStateOpen Then

Conn.Close

Set Conn = New ADODB.Connection

Conn.Open StrConnect

Else

Conn.Open StrConnect

End If

End Sub

"LOGIN"

Private Sub cmdcancel_Click()

Unload Me

End Sub

Private Sub cmdLogin_Click()

If txtUser.Text = "" Then

pesan = MsgBox("user name belum diisi!", vbExclamation + vbOKOnly, "peringatan")

txtUser.SetFocus

ElseIf txtPassword.Text = "" Then

pesan = MsgBox("password belum diisi!", vbExclamation + vbOKOnly, "peringatan")

txtPassword.SetFocus

Else

Call Konek

StrSQL = "SELECT * FROM Login WHERE Username='" & txtUser.Text & "' AND Password='" & txtPassword.Text & "' AND Hak_akses='" & Combo3.Text & "'"

Set Rs = Conn.Execute(StrSQL)

If Rs.EOF Then

pesan = MsgBox("user atau password atau hak akses salah!", vbInformation + vbOKOnly, "informasi")

Else

If Combo3.Text = "administrator" Then

Module1.loginAs = "administrator"

Unload Me

frmTampilan.Show

MsgBox "anda login sebagai administrator!", vbInformation + vbOKOnly, "informasi"

Else

Module1.loginAs = "user"

'Unload Me

Me.Hide

frmTampilan.Show

MsgBox "anda login sebagai user!", vbInformation + vbOKOnly, "informasi"

frmMenuUser.mnuFile.Enabled = False

End If

End If

End If

End Sub

Private Sub Form_Load()

Combo3.AddItem "user"

Combo3.AddItem "administrator"

End Sub

"CRUTD"-fungsi

Sub RefreshTampilan()

Call Konek

Adodc1.ConnectionString = StrConnect

Adodc1.RecordSource = "SELECT * FROM Barang"

Adodc1.Refresh

'lblJumlahBarang.Caption = "Jumlah Data : " & Adodc1.Recordset.RecordCount

Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub cmdCari_Click()

If txtCari.Text = "" Then

MsgBox "Ketik Dulu Kode Barang Yang Akan dicari !", vbInformation + vbOKOnly, "informasi"

Else

StrSQL = "SELECT * FROM Barang WHERE Kode_Barang='" & txtCari.Text & "'"

Set Rs = Conn.Execute(StrSQL)

If Rs.EOF Then

MsgBox "Kode Barang Dengan """ + txtKdBarang.Text & """ Tidak Ada", vbExclamation + vbOKOnly, "warning"

Else

txtKdBarang.Text = "" + Rs("Kode_Barang")

txtNamaBarang.Text = "" + Rs("Nama_Barang")

txtHargaBarang.Text = Rs("Harga_Barang")

Combo1.Text = "" + Rs("Id_Kategori")

End If

End If

cmdHapus.Enabled = True

cmdEdit.Enabled = True

End Sub

Private Sub cmdEdit_Click()

cmdUpdate.Enabled = True

txtKdBarang.Enabled = True

txtNamaBarang.Enabled = True

txtHargaBarang.Enabled = True

Combo1.Enabled = True

End Sub

Private Sub cmdHapus_Click()

Dim pesan As Integer

pesan = MsgBox("Apakah anda Yakin ingin Menghapus ?", vbQuestion + vbYesNo, "Confirmation")

If pesan = 6 Then

StrSQL = "DELETE FROM Barang WHERE Kode_Barang ='" & txtCari.Text & "'"

Conn.Execute (StrSQL)

txtCari.Text = ""

txtKdBarang.Text = ""

txtNamaBarang.Text = ""

txtHargaBarang.Text = ""

Combo1.Text = ""

End If

Call Konek

Adodc1.ConnectionString = StrConnect

Adodc1.RecordSource = "SELECT * FROM Barang"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub cmdSimpan_Click()

If txtKdBarang.Text = "" Then

MsgBox "Kode Barang belum diisi, Tidak boleh kosong!!!", vbExclamation + vbOKOnly, "ATTENTION"

Else

StrSQL = "SELECT Kode_Barang FROM Barang WHERE Kode_Barang='" & txtKdBarang.Text & "'"

Set Rs = Conn.Execute(StrSQL)

If Not Rs.EOF Then

MsgBox "Kode Barang tersebut sudah ada,Tidak boleh  sama!!!!", vbInformation + vbOKOnly, "Information"

txtKdBarang.SetFocus

Else

StrSQL = "INSERT INTO Barang(Kode_Barang, Nama_Barang, Harga_Barang, Id_Kategori)VALUES ('" & txtKdBarang.Text & "','" & txtNamaBarang.Text & "','" & txtHargaBarang.Text & "','" & Combo1.Text & "')"

Conn.Execute (StrSQL)

Call Konek

Adodc1.ConnectionString = StrConnect

Adodc1.RecordSource = "SELECT * FROM Barang"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End If

cmdSimpan.Enabled = False

End If

End Sub

Private Sub cmdTambah_Click()

txtKdBarang.Text = ""

txtNamaBarang.Text = ""

txtHargaBarang.Text = ""

Combo1.Text = ""

txtKdBarang.Enabled = True

txtNamaBarang.Enabled = True

txtHargaBarang.Enabled = True

Combo1.Enabled = True

cmdSimpan.Enabled = True

txtKdBarang.SetFocus

End Sub

Private Sub cmdTutup_Click()

If Module1.loginAs = "user" Then

Unload Me

frmMenuUser.Show

Else

Unload Me

frmMenuAdmin.Show

End If

End Sub

Private Sub cmdUpdate_Click()

StrSQL = "SELECT Kode_Barang FROM Barang WHERE Kode_Barang ='" & txtCari.Text & "'"

Set Rs = Conn.Execute(StrSQL)

If (txtKdBarang.Text <> txtCari.Text) And (Not Rs.EOF) Then

MsgBox "Barang dengan Kode Barang" + txtKdBarang.Text + "Sudah Ada !", vbInformation + vbOKOnly, " Data sudah ada"

txtKdBarang.SetFocus

Else

StrSQL = "UPDATE Barang SET Kode_Barang ='" & txtKdBarang.Text & "',Nama_Barang='" & txtNamaBarang.Text & "',Harga_Barang='" & txtHargaBarang.Text & "',Id_Kategori='" & Combo1.Text & "' WHERE Kode_Barang= '" & txtKdBarang & "'"

Conn.Execute (StrSQL)

End If

Call Konek

Adodc1.ConnectionString = StrConnect

Adodc1.RecordSource = "SELECT * FROM Barang"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

cmdEdit.Enabled = False

cmdUpdate.Enabled = False

MsgBox "Data Barang Dengan Kode Barang tersebut sudah diupdate"

End Sub

Private Sub Combo1_Change()

StrSQL = "SELECT * FROM Kategori WHERE Id_Kategori ='" & Combo1.Text & "'"

Set Rs = Conn.Execute(StrSQL)

End Sub

"Private Sub Form_Load()"

Call Konek

Adodc1.ConnectionString = StrConnect

Adodc1.RecordSource = "SELECT * FROM Barang"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

StrSQL = "SELECT Id_Kategori from Kategori"

Set Rs = Conn.Execute(StrSQL)

Combo1.Clear

Do While Not Rs.EOF

Combo1.AddItem Rs("Id_Kategori")

Rs.MoveNext

Loop

Call TxtKeadaan(False)

Call RefreshTampilan

cmdEdit.Enabled = False

cmdHapus.Enabled = False

cmdSimpan.Enabled = False

cmdUpdate.Enabled = False

txtKdBarang.Enabled = False

txtNamaBarang.Enabled = False

txtHargaBarang.Enabled = False

Combo1.Enabled = False

cmdHapus.Enabled = False

cmdEdit.Enabled = False

cmdUpdate.Enabled = False

cmdSimpan.Enabled = False

cmdTambah.Enabled = True

cmdUpdate.Enabled = False

If frmLogin.Combo3.Text = "user" Then

cmdEdit.Enabled = False

cmdUpdate.Enabled = False

cmdHapus.Enabled = False

cmdCari.Enabled = False

End If

End Sub

Private Sub Timer1_Timer()

lbltanggal.Caption = Format(Now, "dddd, dd-mm-yyyy")

End Sub

"Sub TxtKeadaan(stat As Boolean)"

txtKdBarang.Enabled = stat

txtNamaBarang.Enabled = stat

txtHargaBarang.Enabled = stat

Combo1.Enabled = stat

End Sub

"DATA REPORT + CONVERT TO EXCEL"

Dim MsExcel As Excel.Application

Private Sub cmdcetak1_Click()

Set DataReport1.DataSource = Adodc1

DataReport1.Refresh

DataReport1.WindowState = 2

DataReport1.Show

Adodc1.Refresh

End Sub

Private Sub cmdExit1_Click()

If Module1.loginAs = "user" Then

Unload Me

frmMenuUser.Show

Else

Unload Me

frmMenuAdmin.Show

End If

End Sub

Private Sub cmdExcel1_Click()

MsExcel.Workbooks.Add

MsExcel.Range("A1").Value = "Kode Barang"

MsExcel.Range("B1").Value = "Nama Barang"

MsExcel.Range("C1").Value = "Harga Barang"

MsExcel.Range("D1").Value = "Id Kategori"

i = 1

Do While Not Adodc1.Recordset.EOF

MsExcel.Range("A" & i + 1).Value = Adodc1.Recordset("Kode_Barang")

MsExcel.Range("B" & i + 1).Value = Adodc1.Recordset("Nama_Barang")

MsExcel.Range("C" & i + 1).Value = Adodc1.Recordset("Harga_Barang")

MsExcel.Range("D" & i + 1).Value = Adodc1.Recordset("Id_Kategori")

i = i + 1

Adodc1.Recordset.MoveNext

Loop

MsExcel.Visible = True

End Sub

Private Sub Form_Load()

Call Konek

Adodc1.ConnectionString = StrConnect

Adodc1.RecordSource = "SELECT * FROM Barang"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

Combo1.AddItem "Kode_Barang"

Combo1.AddItem "Nama_Barang"

Combo1.AddItem "Harga_Barang"

Combo1.AddItem "Id_Kategori"

If frmLogin.Combo3.Text = "user" Then

frmLaporan.cmdExcel1.Enabled = False

frmLaporan.cmdcetak1.Enabled = False

End If

Set MsExcel = CreateObject("Excel.Application")

End Sub

Private Sub Text1_Change()

cari = Text1.Text + "%"

StrSQL = "SELECT * FROM Barang WHERE " + Combo1.Text + " LIKE '" & cari & "'"

Adodc1.RecordSource = StrSQL

Adodc1.Refresh

End Sub

indie clothing carnival

The Smiths

       The Smiths adalah sebuah band rock Inggris yang dibentuk di Manchester pada tahun 1982 . Band ini terdiri dari vokalis Morrissey , gitaris Johnny Marr , Andy Rourke bassis dan drummer Mike Joyce . Para kritikus telah menyebut mereka band rock alternatif yang paling penting yang muncul dari scene musik independen Inggris pada 1980-an .

 [ 1 ] Q majalah Simon Goddard berpendapat pada tahun 2007 bahwa The Smiths adalah " suara yang benar-benar penting dari era 80-an " , " the paling berpengaruh kelompok British gitar dekade " dan " orang luar indie pertama untuk mencapai kesuksesan mainstream dengan cara mereka sendiri " . 

[ 2 ]Berdasarkan kemitraan penulisan lagu dari Morrissey dan Marr , kelompok menandatangani kontrak dengan label rekaman independen Rough Trade Records, di mana mereka merilis empat album studio , The Smiths ( 1984) , Daging Apakah Murder ( 1985) , The Queen Is Dead ( 1986) dan Strangeways , Here We Come ( 1987 ) . Mereka juga telah merilis beberapa kompilasi , dan berbagai single non - LP . 

The Smiths memiliki beberapa single mencapai puncak dua puluh Inggris dan keempat dari album mereka mencapai puncak UK lima , termasuk salah satu yang menduduki puncak tangga lagu . Mereka memenangkan berikut yang signifikan dan tetap favorit kultus , meskipun mereka telah sukses komersial terbatas di luar Inggris saat mereka masih bersama-sama . 

 Band ini bubar pada tahun 1987 dan telah menolak beberapa tawaran untuk menyatukan kembali .Fokus band pada gitar , bass , dan drum suara dan fusi mereka rock 1960-an dan post- punk adalah penolakan berbasis synthesizer pop tari kontemporer - gaya populer pada awal tahun 1980 . Bermain gitar Marr di Rickenbacker nya sering memiliki jangly suara dipengaruhi oleh Roger McGuinn dari Byrds . Marr bermain gitar dipengaruhi kemudian Manchester band , termasuk Stone Roses dan Oasis . Lirik Morrissey gabungan tema tentang orang-orang biasa dengan rasa pedas humor .

BAND ROCK PERTAMA DI DUNIA 

Mungkin postingan ini udah basi, atau udah banyak yang tahu. Tapi untuk belajar buat postingan di blog ini, ga ada salahnya kalau aku coba bahas sejarah yang membanggakan ini, oke kita mulai., Berbicara tentang siapa band Rock tertua di dunia dalam benak kita pasti membayangkan The Beatles, The Rolling Stonesatau band-band era Rockabilly (the 50-an), tetapi di tahun 50an band-band yg ada hanyalah sebagai pelengkap dari penyanyi saja, jadi tugasnya hanya sebagai penyanyi Rock pada masa itu seperti Elvis, Fats Domino, Bill Haley dlsb.


Sebenarnya orang Indonesia boleh berbangga hati sebab Band Rock tertua dalam artian band sebenarnya (bukan pengiring biduan) yang benar-benar eksis sebagai sebuah band adalah berasal dari Indonesia, tepatnya berasal dari Maluku. Nama band tersebut adalah THE TIELMAN BROTHERS. Band yang terdiri dari 4 anak muda Maluku ini pada tahun 1956 hijrah ke negeri Belanda, dan memulai karir rekaman mereka. Bisa dikatakan Band Rock tertua yang memulai debut rekaman adalah The Tielman Brothers. Mereka berempat adalah :
Andy Tielman (lead guitar, vocal)
Reggie Tielman (rhytm guitar, vocal),
Phonton Tielman (double bass, vocal), dan
Loulou Tielman (drums, vocal).

Penampilan mereka cukup memukau publik di Belanda khususnya dan Eropa pada umumnya. Boleh dikatakan mereka lah yang pertama kali memulai atraksi panggung yang liar dan atraktif, seperti bermain gitar (dan juga double bass) sambil melompat atau berguling-gulingan, serta tentunya demo drums. Orang-orang Belanda menyebut aliran musik mereka adalah Indo-Rock.
Jauh sebelum publik Rock terpesona dengan permainan gitar alm. Jimi Hendrixpada tahun 1967, Andy Tielman, sang frontman telah memulai teknik tersebut pada tahun 1956 atau 11 tahun sebelum Jimi Hendrix bereksperimen dengan gitarnya.

Konon kabarnya, Paul Mc Cartney pun mengagumi dan terinspirasi atas band ini sebelum The Beatles terkenal pada awal 1960an.
Sayangnya tahun 1976 band ini bubar karena boleh dikatakan permainan mereka rada stagnan dan tidak ada perkembangan alias kurang eksplore permainan, bermain di tataran itu-itu saja. akhirnya publik pun bosan. Di usia senja, Andy Tielman lebih banyak rekaman utk lagu-lagu rohani dan sesekali tampil di publik di Belanda dengan gitarnya namun tentu karena sudah uzur tidak seliar masa lalu.

Nah, itu sedikit cerita tentang Band Rock pertama kali di dunia, eh.. Ternyata orang Indonesia, gmana temen-temen? Bangga donk Indonesia melahirkan Rock Band pertama di dunia.

Sejarah Rotor

Rotor adalah sebuah grup musik thrash metal asal Jakarta. Dibentuk pada tahun 1991, yang digawangi oleh Irvan Sembiring. Band ini makin meroket namanya setelah sukses menjadi supporting act konser Metallica selama dua hari berturut-turut di stadion Lebak Bulus, Jakarta pada tahun 1993.
Walaupun dibentuk di Jakarta, panggung debut Rotor adalah di Taman Topi Bogor. Dalam pergelaran rock yang diadakan oleh sebuah radio swasta Bogor, kuartet thrasher ini tampil bersama sejawat metalnya dari Jakarta, diantaranya Atomic dan Alien Scream. Kala itu mereka masih mengusung lagu milik band asal Brazil yaitu Sepultura.
Selama delapan tahun karier bermusik, Rotor menelorkan empat album di tiga major label berbeda, yaitu AIRO, Hemagita dan Warner Music Indonesia. Sebelum bubar secara resmi, Judapran sang pemain bas Rotor tewas karena over dosis karena obat bius. Terakhir, mantan vokalis mereka Jodie (vokalis Getah) yang kharismatik juga meninggal dunia. Anggota tersisa kini hanya sang pendiri sekaligus gitaris Rotor, M. Irvan Sembiring, yang telah menggantungkan gitar untuk selamanya dan menekuni lembaran hidupnya yang baru sebagai seorang pendakwah.

SEJARAH BAND GOD BLESS 

 

Sejarah God Bless tidak terlepas dari perjalanan karir Achmad Albar, vokalis sekaligus pentolannya. Iyek, begitu ia sering disapa, setelah melanglang buana di Belanda dan kembali ke Indonesia, ia pun berangan-angan membentuk sebuah band. Bersama Ludwig Le mans, gitaris Clover Leaf, band Iyek ketika masih di Belanda, Iyek lalu mengajak Fuad Hassan (Drum), Donny Fattah (Bass) dan Deddy Dores (Kibord) untuk membentuk sebuah band. Tahun 1972, formasi ini mengikuti pentas musik Summer・8・semacam pentas Woodstock・ala Indonesia di Ragunan, Jakarta, yang di ikuti berbagai grup dari Indonesia, Malaysia dan Filipina. Tapi tak lama setelah itu, Deddy Dores keluar dan di gantikan Jockie Soerjoprajogo. Formasi ini pun mulai getol berlatih di kawasan puncak, Jawa Barat dan mematok nama God Bless sebagai nama grup mereka. Tanggal 5-6 Mei 1973, untuk pertama kalinya God Bless tampil di depan publik, di Taman Ismail Marzuli (TIM) Jakarta.
Tahun 1975, formasi God Bless yang paling solid yakni Achmad Albar (Iyek), Donny Fattah (Bass), Jockie Soerjoprajogo (Kibord), Teddy Sudjaja (masuk menggantikan Keenan Nasution yang sebelumnya juga menggantikan Fuad Hassan yang meninggal dunia akibat kecelakan) dan di tambah sang gitaris handal Ian antono. Meraka merampungkan Album perdana Huma diatas Bukit yang merupakan soundtrek film yang di sutradarai oleh Suman Djaya.
Tahun 1970-an, boleh dibilang adalah masa kejayaan God Bless di panggung. Diantara beberapa band Rock yang timbuh saat itu, sebut saja macam Giant Step, The Rollies dan AKA, God Bless hampir tak tertandingi. Kendati kerap mengusung reportoar asing milik Deep Purple, ELP, hingga Genesis, namun aksi panggung serta skill masing-masing porsonelnya boleh dibilang di atas rata-rata. Di tambah lagi God Bless pernah mendapat kehormatan untuk mendampingi konser Suzi Quarto dan Deep Purple di Jakarta. Namun keseringan menyayikan lagu asing, macam milik King Ping Meh, Queen, Edgar & Jhonny Winters, Deep Purple dan Genesis membuat gaya musik para personel God Bless sedikit banyak terpengaruh. Hal tersebut tergambar jelas dalam pengarapan album perdana mereka, Huma Diatas Bukit yang cukup banyak terpengaruh sound Genesis.
Menjelang pembuatan album kedua Jockie Soerjoprajogo keluar dari formasi dam memilih mengerjakan proyek album solonya serta menggarap proyek Badai Pasti Berlalu, album yang melejitkan penyanyi Chrisye. Posisi Jockie Soerjoprajogo kemudian di ambil alih oleh Abadi Soesman yang bergabung tahun 1979 dan ikut terlibat di pembuatan album kedua cermin (1980). Di album ini konsep musik God Bless sedikit berubah. Sentuhan permainan kibord Abadi Soesman yang banyak di pengaruhi unsure musik jazz dan The Beatles menjadikan ramuan aransemen lagu=;agunya terkesan lebih rumit dan membutukan skill tinggi dalam memainkannya. Tapi menurut Abadi, album yang sebagian besar materinya di rekam secara live tersebut tidak terlalu memuaskan mereka. Karena sebelum rekaman, kami sudah memainkan lagu-lagu itu selama setahun penuh, katanya suatu ketika.
Dua tahun setelah album cermin dirilis, Abadi Soesman mengundurkan diri. God Bless sendiri vakum beberapa tahun. Di tengah kevakuman God Bless, Achmad Albar banyak mengeluarkan album solo dan bekerja sama dengan beberapa musisi, sebut saja Areng Widodo, Ucok AKA Harahap, dan pernah membuat Album Dangdut (Zakia dan Laguku)
Tahun 1988, God Bless menggebrak dengan lagi lewat album Semut Hitam, yang kembali menghadirkan permainan kibord Jockie Soerjoprajogo. Di album ini lagi-lagi konsep musik God Bless berubah. Dari tadinya lebih bernuansa rock progresif secara drastis berubah menjadi sedikit lebih keras karena pengaruh musik hard rock dan heavy metal yang mengikuti zamannya waktu itu.
Secara komersil, boleh dibilang album semut hitam yang antara lain melejitkan lagu kehidupan, semut hitam dan rumah kita ini cukup sukses. Sayangnya, keberuntungan tersebut tidak di barengi oleh keharmonisan hubungan di antara personelnya serta pihak manajemen. Buntutnya, Ian Antono menyatakan hengkang dari grup yang membesarkan namanya ini. Posisinya kemudian di gantikan oleh gitaris muda berbakat dari Borneo, Eet Sjachranie yang sebelumnya sempat memperkuat bandnya Fariz RM dan grup
Cynomadeus. Ian Antono sendiri, setelah keluar dari God Bless terhitung sukses merintis karir solo sebagai pencipta lagu, arranjer dan produser. Ia berhasil melambungkan nama Ikang Fauzi, Nicky Astria dan menyegarkan karir Iwan Fals kembali lewat album Buku ini aku pinjam dan Mata Dewa.
Setelah Album Semut Hitam (1988), tidak berlama-lama lagi di tahun 1989 God Bless langsung merilis album Raksasa. Untuk kesekian kalinya konsep musik God Bless goyah lagi. Di Album Raksasa, permainan gitar Eet Sjachranie yang sangat modern sangat mempengaruhi pada perubahan musik God Bless. Selain lebih keras juga terkesan lebih bright dan serat akan sound rock yang trend di akhir tahun 1980-an. Di album ini melejit lagu Maret 89, Menjilat matahari, Raksasa yang sangt kental dengan permainan gitar Eet Sjachranie yang banyak terpengaruh musik Van Helen dan juga ACDC.
Ditahun 1991 God Bless merilis Album Story Of God Bless yang merupakan lagu-lagu lawas mereka yang dirilis ulang sebut saja lagu Huma diatas Bukit, Sesat, Musisi, Setan Tertawa, She Passad Away adalah lagu-lagu yang di arensmen ulang dan sangat lebih segar, modern. Setelah album ini grup band yang menjadi tonggak musik rock di Indonesia ini vakum dan masing-masing poersonil nya sibuk dengan proyeknya sendiri-sendiri. Sebut saja Eet Sjachranie dengan Edane nya. Jockie Soerjoprajogo dengan Kantata Takwa, Swami dan juga Suket serta melambungkan nama Mel Shandy dan Ita purnama Sari. Donny Fattah dengan Kantata Takwa juga dan melambungkan grup pendatang baru Power Metal. Teddy Sudjaja yang memproduseri dan menciptakan lagu-lagu Aggun C Sasmi. Achmad Albar sendiri dengan solo nya yang cukup sukses. Selain itu juga diawal tahun 1990-an banyak bermunculan Band-band muda berbakat sebut Slank, Power Metal, Grass Rock, Elpamas dan Kaisar. Dan ironisnya di awal tahun 1990-an itu juga muncul grup band yang merupakan duplikat dari God Bless sendiri yakni Gong 2000 di mana tiga porsonelnya Achmad Albar, Ian Antono dan Donny Fattah serta di tambah Harry Anggoman (Kibord) dan Yaya Muktio(Drum) melejit dengan lagu-lagu Rock yang bernuasa pentatonic Bali, dan ada beberapa lagu lawas God Bless yang masuk di Album Gong 2000 ini.
Selang beberapa tahun vakum yang cukup panjang, di tahun 1997, para porsonel God Bless, termasuk Eet dan Ian Antono kembali berkumpul. Workshop yang mereka gelar di kawasan puncak, Bogor menghasilkan album berjudul Apa Khabar, yang merupakan album kerinduan mereka untuk kembali berkiprah di panggung musik. Kisah selanjutnya setelah penggarapan album Apa Khabar, Eet Sjachranie resmi mengundurkan diri dari formasi God Bless dan konsentrasi untuk bandnya sendiri EDANE, yang sejak tahun 1992 sudah merilis album perdananya, The Beast.
Menjelang penggarapan album-album terbaru God Bless giliran Jockie Soerjoprajogo dan Teddy Sudjaja yang mengundurkan diri. Penggarapan album pun menjadi terlambat, sepanjang tahun 2000 hingga 2005 God Bless belum juga merilis album lagi. Sepanjang tahun 2000 hingga 2006 ini banyak nama-nama yang sempat mengisi kekosongan di tubuh God Bless di antaranya, Kembalinya Abadi Soesman, Inang Noorsaid, Iwang Noorsaid, Harri Anggoman, Yaya Muktio dan Gilang Ramadhan. Entah sekarang bagaimana khabar grup yang menjadi leganda musik rock Indonesia ini. Terakhir mereka masih manggung di acara Amild Live Soundernaline dan acara tahun baruan di Ancol dengan formasi Achmad Albar, Ian Antono, Donny Fattah dan Gilang Ramadhan. Salut buat God Bless di usia yang tidak muda lagi mereka masih garang di atas panggung.

HAI DAY