18 Juni 2011

Membuat Form Pencarian Menggunakan Visual Basic 6.0


Buat Form Pencarian Diatas Menggunakan Visual Basic 6.0 saya akan share kepada kalian semua. Kode Script Programnya sebagai berikut:

Private Sub Cari(kodeabarang)_Click()
If Option1.Value = True Then
    Data1.RecordSource = "SELECT * FROM BARANG WHERE KODE_BRG = '" & Text1 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Barang belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
ElseIf Option2.Value = True Then
    Data1.RecordSource = "SELECT * FROM PELANGGAN WHERE KODE_PLG = '" & Text1 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Pelanggan belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
Else: Option3.Value = True
    Data1.RecordSource = "SELECT * FROM Supplier WHERE KODE_SUP = '" & Text1 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Supplier belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
End If
End Sub

Private Sub Cari(nama barang)_Click()
If Option1.Value = True Then
    Data1.RecordSource = "SELECT * FROM BARANG WHERE NAMA_BRG = '" & Text2 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Barang belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
ElseIf Option2.Value = True Then
    Data1.RecordSource = "SELECT * FROM PELANGGAN WHERE NAMA_PLG = '" & Text2 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Pelanggan belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
Else: Option3.Value = True
    Data1.RecordSource = "SELECT * FROM Supplier WHERE NAMA_SUP = '" & Text2 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Supplier belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
End If
End Sub

Private Sub TampilSemua_Click()
If Option1.Value = True Then
    Data1.RecordSource = "SELECT * FROM BARANG"
    Data1.Refresh
ElseIf Option2.Value = True Then
    Data1.RecordSource = "SELECT * FROM PELANGGAN"
    Data1.Refresh
Else: Option3.Value = True
    Data1.RecordSource = "SELECT * FROM SUPPLIER"
    Data1.Refresh
End If

End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub DBGrid1_Click()

End Sub

Private Sub Form_Load() ----- Pemanggilan database -------
Data1.DatabaseName = App.Path & "\victory.MDB"
End Sub

Private Sub Option1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Option2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Option3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Option4_Click()
Text2.Enabled = False
Command2.Enabled = False
Text1.Enabled = True
Text1.SetFocus
Command1.Enabled = True
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Option5_Click()
Text2.Enabled = True
Command2.Enabled = True
Text1.Enabled = False
Text2.SetFocus
Command1.Enabled = False
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
    If Text1 = "" Then
        Text1.SetFocus
    Else
        Command1.SetFocus
    End If
End If
End Sub

Private Sub text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
    If Text2 = "" Then
        Text2.SetFocus
    Else
        Command2.SetFocus
    End If
End If
End Sub


5 komentar:

keren gan...
info: slmt y gan, agan dpt awrd dr saya, silhkn d ambil:)

terimakasih atas awardnya gan.

Kok dipublikasikan kalo pake password sih...
apa ni password dari Penjualan Meubel....kak

gan data1 itu diambil dari nama yg mana si

Posting Komentar

Silahkan TInggalkan Komentar Anda di Blog Saya..
No SPAM and No PORN...
Terimakasih Telah meninggalkan Jejak Anda

Related Posts Plugin for WordPress, Blogger...
Award Pertama
Photobucket
Langganan Artikel Si Boersan :

Enter your email address:

Delivered by FeedBurner

Monggo Di Copy Linknya :
Text Link

Banner Link

Komunitas Blogger Indonesia Komunitas Blogwalking