Scribd
Upload
109 views17 pages

Listing Program: Menu Password

The document contains the code for a menu-driven database application written in Visual Basic. It includes modules for login authentication, displaying various forms, and performing CRUD (create, read, update, delete) operations on a database table containing registration records. Navigation buttons allow switching between forms for data entry, editing, searching, and an about screen with developer information.

Uploaded by

armada12
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
109 views17 pages

Listing Program: Menu Password

The document contains the code for a menu-driven database application written in Visual Basic. It includes modules for login authentication, displaying various forms, and performing CRUD (create, read, update, delete) operations on a database table containing registration records. Navigation buttons allow switching between forms for data entry, editing, searching, and an about screen with developer information.

Uploaded by

armada12
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

LISTING PROGRAM

MENU PASSWORD

Private Sub Command1_Click()

If [Link] = "rudijosen@[Link]" And [Link] =

"29071982" Then

PESAN = MsgBox("NAMA DAN PASSWORD ANDA BENAR", vbInformation,

"SUCCES")

[Link]

Unload Me

Else

PESAN = MsgBox("COBA LAGI", vbYesNo + vbQuestion, "PENYUSUP")

If PESAN = 8 Then

[Link] = ""

[Link] = ""

[Link]

Else

Unload Me

End If

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub
MENU UTAMA

Private Sub MA_Click()

[Link]

End Sub

Private Sub MC_Click()

[Link]

End Sub

Private Sub MDR_Click()

[Link]

End Sub

Private Sub MED_Click()

[Link]

End Sub

Private Sub MEN_Click()

[Link]

End Sub

Private Sub MEX_Click()

Unload Me

End Sub

Private Sub MH_Click()

[Link]

End Sub
Private Sub MK_Click()

Unload Me

End Sub

SIMPAN DATA

Dim dataku As Database

Dim RSDATA As Recordset

Private Sub Command1_Click()

[Link]

RSDATA!NO_PENDAFTARAN = [Link]

RSDATA!TGL_PENDAFTARAN = [Link]

RSDATA!NAMA_PEMOHON = [Link]

RSDATA!NAMA_KECAMATAN = [Link]

RSDATA!NAMA_DESA = [Link]

RSDATA!LUAS_TANAH = [Link]

RSDATA!BIAYA_PENDAFTARAN = [Link]

[Link]

tanya = MsgBox("TAMBAH DATA LAGI", vbYesNo, "ENTRY DATA")

If tanya = vbYes Then

[Link]

Else

[Link]

End If

[Link]

End Sub

Private Sub Command2_Click()

[Link] = ""
[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

End Sub

Private Sub Form_Load()

Set dataku = OpenDatabase("E:\TA\BPN [Link]")

Set RSDATA = [Link]("TA")

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub BERSIH()

Call BERSIH1

End Sub

Private Sub Text1_Change()

Dim panjang As Byte

panjang = Len([Link])

If panjang < 4 Then

Exit Sub

End If

[Link] = "TABPN"

[Link] "=", [Link]


If [Link] Then

[Link]

Exit Sub

End If

[Link] = RSDATA!TGL_PENDAFTARAN

[Link] = RSDATA!NAMA_PEMOHON

[Link] = RSDATA!NAMA_KECAMATAN

[Link] = RSDATA!NAMA_DESA

[Link] = RSDATA!LUAS_TANAH

[Link] = RSDATA!BIAYA_PENDAFTARAN

MsgBox "DATA SUDAH ADA", vbInformation, "ENTRY DATA"

Exit Sub

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
[Link]

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub

EDIT DATA

Dim dataku As Database

Dim RSDATA As Recordset

Private Sub Command1_Click()

[Link]
RSDATA!NO_PENDAFTARAN = [Link]

RSDATA!TGL_PENDAFTARAN = [Link]

RSDATA!NAMA_PEMOHON = [Link]

RSDATA!NAMA_KECAMATAN = [Link]

RSDATA!NAMA_DESA = [Link]

RSDATA!LUAS_TANAH = [Link]

RSDATA!BIAYA_PENDAFTARAN = [Link]

[Link]

tanya = MsgBox("EDIT DATA LAGI", vbYesNo, "ENTRY DATA")

If tanya = vbYes Then

[Link]

Else

[Link]

End If

End Sub

Private Sub Form_Activate()

[Link]

End Sub

Private Sub Form_Load()

Set dataku = OpenDatabase("E:\TA\BPN [Link]")

Set RSDATA = [Link]("TA")

End Sub

Private Sub Command2_Click()

[Link] = ""
[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub BERSIH()

Call BERSIH1

End Sub

Private Sub Text1_Change()

Dim panjang As Byte

panjang = Len([Link])

If panjang < 4 Then

Exit Sub

End If

[Link] = True

[Link] = "TABPN"

[Link] "=", [Link]

If [Link] Then

[Link]

Exit Sub
End If

[Link] = RSDATA!TGL_PENDAFTARAN

[Link] = RSDATA!NAMA_PEMOHON

[Link] = RSDATA!NAMA_KECAMATAN

[Link] = RSDATA!NAMA_DESA

[Link] = RSDATA!LUAS_TANAH

[Link] = RSDATA!BIAYA_PENDAFTARAN

tanya1 = MsgBox("DATA AKAN DI EDIT", vbYesNo, "ENTRY DATA")

If tanya1 = vbYes Then

[Link]

Else

[Link] = False

Exit Sub

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub

CARI DATA

Dim dataku As Database

Dim RSDATA As Recordset

Private Sub Command3_Click()


Unload Me

End Sub

Private Sub BERSIH()

Call BERSIH1

End Sub

Private Sub Form_Activate()

Call KONDISI

End Sub

Private Sub Form_Load()

Set dataku = OpenDatabase("E:\TA\BPN [Link]")

Set RSDATA = [Link]("TA")

End Sub

Private Sub Text1_Change()

Dim panjang As Byte

panjang = Len([Link])

If panjang < 4 Then

Exit Sub

End If

[Link] = "TABPN"

[Link] "=", [Link]

If [Link] Then

tanya2 = MsgBox("DATA TIDAK DITEMUKAN", vbInformation, "CARI

DATA")

[Link] = ""

[Link]
Exit Sub

End If

[Link] = RSDATA!TGL_PENDAFTARAN

[Link] = RSDATA!NAMA_PEMOHON

[Link] = RSDATA!NAMA_KECAMATAN

[Link] = RSDATA!NAMA_DESA

[Link] = RSDATA!LUAS_TANAH

[Link] = RSDATA!BIAYA_PENDAFTARAN

tanya1 = MsgBox("CARI DATA LAGI", vbYesNo, "CARI DATA")

If tanya1 = vbYes Then

Call BERSIH1

[Link]

Else

Call BERSIH1

[Link]

Exit Sub

End If

End Sub

Private Sub BERSIH1()

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

End Sub
Private Sub KONDISI()

[Link] = False

[Link] = False

[Link] = False

[Link] = False

[Link] = False

[Link] = False

[Link] = False

End Sub

Private Sub AKTIF()

[Link] = True

[Link] = True

[Link] = True

[Link] = True

[Link] = True

[Link] = True

[Link] = True

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

[Link]

End If

End Sub
HAPUS DATA

Dim dataku As Database

Dim RSDATA As Recordset

Private Sub Command1_Click()

tanya3 = MsgBox("DATA BENAR AKAN DI HAPUS", vbYesNo, "HAPUS DATA")

If tanya3 = vbYes Then

[Link]

Call BERSIH1

Else

End If

Exit Sub

tanya1 = MsgBox("HAPUS DATA LAGI", vbYesNo, "HAPUS DATA")

If tanya1 = vbYes Then

[Link] = ""

[Link]

Exit Sub

End If

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Activate()

Call KONDISI

[Link]

End Sub
Private Sub Form_Load()

Set dataku = OpenDatabase("E:\TA\BPN [Link]")

Set RSDATA = [Link]("TA")

End Sub

Private Sub KONDISI()

[Link] = True

[Link] = True

[Link] = True

[Link] = True

[Link] = True

[Link] = True

[Link] = True

End Sub

Private Sub Text1_Change()

Dim panjang As Byte

panjang = Len([Link])

If panjang < 4 Then

Exit Sub

End If

[Link] = "TABPN"

[Link] "=", [Link]

If [Link] Then

tanya2 = MsgBox("DATA TIDAK DITEMUKAN", vbInformation, "HAPUS

DATA")

[Link] = ""

[Link]
Exit Sub

End If

[Link] = RSDATA!TGL_PENDAFTARAN

[Link] = RSDATA!NAMA_PEMOHON

[Link] = RSDATA!NAMA_KECAMATAN

[Link] = RSDATA!NAMA_DESA

[Link] = RSDATA!LUAS_TANAH

[Link] = RSDATA!BIAYA_PENDAFTARAN

[Link]

End Sub

Private Sub BERSIH1()

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

End Sub

MENU ABOUT

Private Sub Command1_Click()

PESAN = MsgBox("ANDA MAU KELUAR????", vbYesNo,

"YUK...MARRRRIIEE!!!")

If PESAN = vbYes Then

Unload Me
End If

End Sub

Private Sub Form_Load()

[Link] = "RUDI JOSEN [Link]"

[Link] = "PEMATANGSIANTAR/29 JULI 1982"

[Link] = "[Link] TANI II,[Link] NO.5"

[Link] = "MUSIC & FISHING"

[Link] = "PENGUSAHA"

End Sub

You might also like