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
Home » visual basic 6 » InputBox Pada Tombol Edit
Langganan:
Posting Komentar (Atom)
0 Komentar:
Posting Komentar