Menu

Showing posts with label VB. Show all posts
Showing posts with label VB. Show all posts

Sunday, 24 August 2014

Mengganti Header/Judul Kolom DataGridView pada Visual Basic VB.Net atau VB.6

Assalamualaikum..


Alhamdulillah dikasih kesempatan untuk posting artikel lagi, untuk berbagi pengalamam yang mudah-mudahan bisa bermanfaat buat yang lain dan agar ilmu saya semakin bertambah (Amiin).

Yuup, pada postingan kali ini saya akan sedikit membahas tentang mengganti judul kolom pda datagridview. Seperti yang udah kita tau, kalo datagridview itu secara bawaannya atau defaultnya memakai nama sesuai dengan nama field pada tabel database yang menjadi sumbernya atau sourcenya. 

Menurut pengalaman pribadi penggantian judul kolom ini bisa dilakukan di propertis, bisa klik kanan pada datagriedview > Propertis, bisa di ganti di sana, termasuk font dll. TAPII, itu biasanya kalo menggunakan DB Acces, dan menurut saya, kalo menggunakan PHP itu tidak bisa...Kenapa? karena program itu masih kosong, baru setelah di RUN dia akan memproses untuk menampilkan datanya. Istilahnya pada tampilan desain belum ada isinya. hehe

Yuup, lanjut ke point pembahasan aja. Perhatikan contoh di bawah.


pada gambar di atas bisa dilihat, kolom pertama judulnya "kode_pesan","judul" dan "penerbit".
lalu saya akan ubah menjadi "Kode Pesan","Judul Buku","Penerbit".

langsung  masuk ke coding, tapi sebelumnya Anda harus tau dulu bagaimana cara membuat DataGridView maupun koneksinya. Kalo belum akan sulit untuk memahami penjelas ini.

ok. Ketik atau copy kode ini dan letakan di form_load atau di mana saja pada saat pemanggilan datagridview.

Me.DataGridView1.Columns(0).HeaderText= "Kode Pesan"
Me.DataGridView1.Columns(1).HeaderText= "Judul Buku"
Me.DataGridView1.Columns(2).HeaderText= "Penerbit"

Simpel bukan? ya memang sangat mudah, meskipun kode di atas terlihat sepele atau mudah, tapi yang terpinting itu bisa memeberikan nilai lebih pada hasil program yang dijalankan.hehe

hasilnya seperti ini :

Taraaa...Jadi Deeeh... (Alhamulillah)

Mungkin ada yang tanya, padahal bisa saja kan kita ubah nama judul kolom itu dari awal databasenya saja.
Jawabannya Betul..Tapiii..Perhatikan judul yang telah diganti di atas "Kode Pesan", menggunakan sepasi untuk memisahkan kata pada judul, kalo kita menggunakan php, tentu itu bisa menyebabkan eror pada saat eksekusi..Kenapa? karena sudah aturannya tidak boleh menggunakan spasi pada judul kolom atau field pada database. Begitu yg saya tau.

Ok. Cukup tutorial kali ini. Nanti akan saya posting kembali berbagai fitur menarik yang dapat dilakukan oleh DataGriedView pada VB.Net atau VB 2010.  InsyaAllah..




Sunday, 22 June 2014

Membuat Utility Ganti Password VB.6 Menggunakan 1 Textbox

Salam Blogger!!

Postingan kali ini ingin share tutorial cara membuat form ganti password. Mungkin kalian sudah sering menemukan form ganti password itu terdiri dari beberapa buah textbox. Misalnya, password lama, password baru n ulangi password baru.

Kalo yg seperti itu saya rasa sudah bosan, di sini saya buat sedikit berbeda tapi cara kerjanya hampir sama.
Oke..Begini hasil design ganti password yg sudah saya buat. Disini masih sederhana, kalian masih bisa kembangkan dengan kreatifitas masing-masing.

Oh ya sebagai catatan, saya menggunakan database PHP. Tapi bisa diterapkan dengan databse Acces maupun tanpa database sekalipun. Karena yang kita pelajari dari form ini adalah logikanya.


Tampilan form ganti passwordnya lebih simple bukan..

Ok. Untuk membuat sperti contoh di atas diperlukan minimal 3 buah textbox dan 2 comand button.

Ini listing programnya, silahkan disesuaikan penamaannya dengan yg Anda buat!


Private Sub batal_Click()
Me.password.Text = ""
Me.password.SetFocus
Me.plama.Text = "plama"
Me.pbaru.Text = "pbaru"
Me.Label1.Caption = "Masukan Password yg Lama"
Me.batal.Enabled = False
End Sub

Private Sub Command1_Click()
If Me.password.Text = "" Then
With MDIForm1
Unload Me
.tlogin.Enabled = False
.mnmaster.Enabled = True
.mntransaksi.Enabled = True
.mnlaporan.Enabled = True
.mnutility.Enabled = True
End With
Else
a = MsgBox("Data belum disimpan, yakin ingin keluar?", vbYesNo)
    If a = vbYes Then
    With MDIForm1
    Unload Me
    .tlogin.Enabled = False
    .mnmaster.Enabled = True
    .mntransaksi.Enabled = True
    .mnlaporan.Enabled = True
    .mnutility.Enabled = True
    End With
    End If
End If
End Sub

Private Sub Form_Activate()
Call koneksi
kon.CursorLocation = adUseClient
Me.password.SetFocus
Me.batal.Enabled = False
Me.Text1.Text = MDIForm1.StatusBar1.Panels(2)
End Sub
Private Sub password_Change()
Me.batal.Enabled = True
End Sub

Private Sub password_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Set rsadmin = kon.Execute("select password from admin where kode = '" & Me.Text1.Text & "'")
    Me.Text2.Text = rsadmin!password
    If Me.plama.Text = "plama" Then
        If Me.password.Text = Me.Text2.Text Then
        Me.plama.Text = Me.password.Text
        Me.Label1.Caption = "Input password yg baru!"
        Me.password.Text = ""
        Me.password.SetFocus
       
        Else
         
        MsgBox "Password Salah!!"
        Me.password.Text = ""
        Me.password.SetFocus
        End If
    Else
        If Me.password.Text = Me.plama.Text Then
        MsgBox "Password Anda sama dengan yg lama" & Chr(13) & "Silahkan coba yg lain!"
        Me.password.Text = ""
        Me.password.SetFocus
        
        ElseIf Me.pbaru.Text = "pbaru" Then
        Me.pbaru.Text = Me.password.Text
        Me.Label1.Caption = "Ulangi Password!"
        Me.password.Text = ""
        Me.password.SetFocus
        Else
            If Me.password.Text = Me.pbaru.Text Then
            Set rsadmin = kon.Execute(" update admin set password = '" & Me.pbaru.Text & "'")
            MsgBox "Password berhasil diubah"
            Me.password.Text = ""
            Me.password.SetFocus
            Me.plama.Text = "plama"
            Me.pbaru.Text = "pbaru"
            Me.Label1.Caption = "Masukan Password yg Lama"
            Me.batal.Enabled = False
            Else
            MsgBox "Password tidak sama!!"
            Me.pbaru.Text = "pbaru"
            Me.Label1.Caption = "Input password yg baru!"
            Me.password.Text = ""
            Me.password.SetFocus
            End If
        End If
    End If
End If
End Sub


Semoga Bermanfaat,