01 Mei 2013

InputBox Pada Tombol Edit

Di dalam Visual Basic 6 untuk membuat input pencarian biasanya menggunakan textbox yang ditanamkan kode, namun ada fasilitas dari Visual Basic 6 yang bisa digunakan untuk melakukan hal yang sama yaitu menggunakan InputBox Sebagai contoh bentuk dari InputBox seperti gambar di bawah ini:

Untuk lebih jelasnya dalam memahami InputBox maka dapat dilihat dalam form sederhana ini:

Cara kerjanya sebagai berikut: Ketika di klik tombol ubah(Edit) maka akan keluar InputBox yang digunakan untuk mengubah data berdasarkan nip, sehingga kode program ditanamkan dalam tombol ubah. Lihat kodenya di bawah ini:
With Adodc1.Recordset
Dim Mcari As String
Mcari = InputBox("Ketik NIP", "Cari")
If StrPtr(Mcari) = 0 Then
ElseIf Len(Mcari) = 0 Then
MsgBox "Anda Harus Mengisi NIP", vbInformation, "Cari"
Else
.Find "nip='" & Mcari & "'", , adSearchForward, 1
If .EOF Then
MsgBox "Data tidak ditemukan" & (Chr(10)) & "Silahkan Coba Lagi!", vbInformation, "Cari"
.Requery
cubah_Click
End If
tnip = !nip
tnama = !nmkaryawan
talamat = !alamat
If !jkel = "P" Then Option1 = True
If !jkel = "W" Then Option2 = True
tnotelp = !notelp
End If
End With

1 Komentar:

 
Copyright © . Yoyok Rohani - Posts · Comments
Tanks to BT Designer · Blogger