Scribd
Upload
30 views13 pages

Ukom 2

This document contains code for a library management system written in Visual Basic. It includes modules and classes for connecting to a database, performing login authentication, and managing users. The main parts are: 1) A Module class that establishes a connection to a database and declares commands and adapters for querying. 2) A Login class that handles the login form, validating credentials against the database and loading the home screen upon success. 3) A Menu_Utama class representing the home screen, with buttons to access forms for managing books, users, categories etc. 4) A User class containing code for the user management form, allowing adding, editing and deleting of user records from the database.

Uploaded by

sayidalgifary3
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
30 views13 pages

Ukom 2

This document contains code for a library management system written in Visual Basic. It includes modules and classes for connecting to a database, performing login authentication, and managing users. The main parts are: 1) A Module class that establishes a connection to a database and declares commands and adapters for querying. 2) A Login class that handles the login form, validating credentials against the database and loading the home screen upon success. 3) A Menu_Utama class representing the home screen, with buttons to access forms for managing books, users, categories etc. 4) A User class containing code for the user management form, allowing adding, editing and deleting of user records from the database.

Uploaded by

sayidalgifary3
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 13

Module

Imports System.Data.Odbc
Module Module1
Public conn As OdbcConnection
Public ds As DataSet
Public cmd As OdbcCommand
Public da As OdbcDataAdapter
Public dr As OdbcDataReader

Public Sub koneksi()


conn = New OdbcConnection("Dsn=perpustakaan_adanwel")
conn.Open()
End Sub
End Module

Login

Imports System.Data.Odbc
Public Class Login
Private Sub Login_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
lbltanggal.Text = Format(Today)
End Sub
Dim dicoba As String
Sub hapus()
tbiduser.Clear()
tbpw.Clear()
cbstatususer.Text = ""
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
lbljam.Text = TimeOfDay
End Sub
Private Sub tbiduser_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbiduser.KeyPress
tbiduser.MaxLength = 20

If e.KeyChar = Chr(13) Then


tbpw.Focus()
e.Handled = True
End If

End Sub
Private Sub tbpw_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbpw.KeyPress
tbpw.MaxLength = 20

If e.KeyChar = Chr(13) Then


cbstatususer.Focus()
e.Handled = True
End If
End Sub
Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnlogin.Click
If tbiduser.Text = "" Or tbpw.Text = "" Or cbstatususer.Text = ""
Then
MsgBox("Masukan Semua Data Anda!.", MsgBoxStyle.Information,
"Informasi")
tbiduser.Focus()
Exit Sub
End If
Call koneksi()
cmd = New OdbcCommand("select * from user where id_user='" &
tbiduser.Text & "' and password='" & tbpw.Text & "' and status_user='" &
cbstatususer.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()

If dr.HasRows Then
Me.Visible = False
Menu_Utama.Show()
Menu_Utama.lblnama.Text = Format("Nama User :" &
dr("nama_lengkap"))
Menu_Utama.lblstatususer.Text = Format("Status User :" &
dr("status_user"))
Menu_Utama.Panel1.Text = dr("id_user")
Menu_Utama.Panel2.Text = dr("nama_lengkap")
Menu_Utama.Panel3.Text = dr("status_user")

'cmd = New OdbcCommand("select * from koleksi_pribadi inner


join koleksi_pribadi.id_buku = buku.id_buku where id_user='" &
dr("id_user") & "'", conn)
'dr = cmd.ExecuteReader
'Menu_Utama.ListBox1.Items.Clear()
'Do While dr.Read
'Menu_Utama.ListBox1.Items.Add(dr("id_buku") & Space(2) &
dr("judul"))
'Loop
Else
dicoba = dicoba + 1
MsgBox("Log-In Gagal!.")
tbiduser.Focus()

If dicoba > 2 Then


Call hapus()
MsgBox("Anda Telah Mencoba Log-In Lebih Dari 3 Kali,Silahkan
Coba Lagi Nanti!", MsgBoxStyle.Critical, "WARNING")
End If

End If

End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnexit.Click
End
End Sub

Private Sub cekbpw_CheckedChanged(ByVal sender As System.Object, ByVal


e As System.EventArgs) Handles cekbpw.CheckedChanged
If cekbpw.Checked = True Then
tbpw.PasswordChar = ""
Else
tbpw.PasswordChar = "●"
End If
End Sub
End Class

Home

Public Class Menu_Utama


Private Sub Menu_Utama_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Timer1.Tick
lbljammenuutama.Text = Format(TimeOfDay)
End Sub
Private Sub btnbuku_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnbuku.Click
Buku.Show()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnexit.Click
End
End Sub
Private Sub btnuser_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnuser.Click
User.Show()
End Sub
Private Sub btnkategori_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnkategori.Click
Kategori.Show()
End Sub
Private Sub LogOutToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
LogOutToolStripMenuItem.Click
If MessageBox.Show("Apakah Yakin Akan Log-Out Dari Aplikasi?.",
"INFORMASI", MessageBoxButtons.YesNoCancel) =
Windows.Forms.DialogResult.Yes Then
Me.Close()
Login.Show()
Login.hapus()
End If
End Sub
Private Sub btnlogout_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnlogout.Click
If MessageBox.Show("Apakah Yakin Akan Log-Out Dari Aplikasi?.",
"INFORMASI", MessageBoxButtons.YesNoCancel) =
Windows.Forms.DialogResult.Yes Then
Me.Close()
Login.Show()
Login.hapus()
End If

End Sub
End Class

User

Imports System.Data.Odbc
Public Class User
Private Sub User_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call tampil_grid()
End Sub
Sub hapus()
tbnama.Clear()
tbpw.Clear()
tbalamat.Clear()
tbemail.Clear()
cbstts.Text = ""
End Sub
Sub panggil_kode()
Call koneksi()
cmd = New OdbcCommand("Select * from user where id_user = '" &
tbiduser.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
End Sub
Sub panggil_data()
On Error Resume Next
tbnama.Text = dr("nama_lengkap")
tbpw.Text = dr("password")
cbstts.Text = dr("status_user")
tbemail.Text = dr("email")
tbalamat.Text = dr("alamat_user")
End Sub
Sub tampil_grid()
Call koneksi()
da = New OdbcDataAdapter("select id_user, nama_lengkap,
status_user, email, alamat_user from user", conn)
ds = New DataSet
da.Fill(ds)
DGV.DataSource = ds.Tables(0)
DGV.ReadOnly = True
End Sub
Private Sub tbiduser_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbiduser.KeyPress
tbiduser.MaxLength = 11
If e.KeyChar = Chr(13) Then
tbnama.Focus()
Call panggil_kode()
e.Handled = True

If dr.HasRows Then
Call panggil_data()
Else
Call hapus()
End If

End If

End Sub
Private Sub tbnama_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbnama.KeyPress
tbnama.MaxLength = 30

If e.KeyChar = Chr(13) Then


tbpw.Focus()
e.Handled = True
End If

End Sub
Private Sub tbpw_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbpw.KeyPress
tbpw.MaxLength = 30

If e.KeyChar = Chr(13) Then


cbstts.Focus()
e.Handled = True
End If

End Sub
Private Sub cbstts_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles cbstts.KeyPress
cbstts.MaxLength = 50

If e.KeyChar = Chr(13) Then


tbemail.Focus()
e.Handled = True
End If
End Sub
Private Sub tbemail_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbemail.KeyPress
tbemail.MaxLength = 50

If e.KeyChar = Chr(13) Then


tbalamat.Focus()
e.Handled = True
End If

End Sub
Private Sub tbalamat_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbalamat.KeyPress
tbalamat.MaxLength = 50
If e.KeyChar = Chr(13) Then

End If
End Sub
Private Sub btnsv_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnsv.Click
If tbiduser.Text = "" Or tbnama.Text = "" Or tbpw.Text = "" Or
cbstts.Text = "" Or tbemail.Text = "" Or tbalamat.Text = "" Then
MsgBox("Masukan Semua Data Anda!.", MsgBoxStyle.Information,
"Informasi")
Else
Call panggil_kode()

If Not dr.HasRows Then


Dim simpan As String = "insert into user values('" &
tbiduser.Text & "','" & tbnama.Text & "','" & tbpw.Text & "','" &
cbstts.Text & "','" & tbemail.Text & "','" & tbalamat.Text & "')"
cmd = New OdbcCommand(simpan, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Di Simpan.", MsgBoxStyle.Information,
"Informasi")
Else
Dim edit As String = "update user set nama_lengkap='" &
tbnama.Text & "', password='" & tbpw.Text & "',status_user='" & cbstts.Text
& "',email='" & tbemail.Text & "',alamat_user='" & tbalamat.Text & "' where
id_user='" & tbiduser.Text & "'"
cmd = New OdbcCommand(edit, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Di Edit.", MsgBoxStyle.Information,
"Informasi")
End If
Call tampil_grid()
Call hapus()
tbiduser.Clear()
tbiduser.Focus()
End If
End Sub
Private Sub btnhps_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnhps.Click
If tbiduser.Text = "" Or tbnama.Text = "" Or tbpw.Text = "" Or
cbstts.Text = "" Or tbemail.Text = "" Or tbalamat.Text = "" Then
MsgBox("Masukan Semua Data Anda!.", MsgBoxStyle.Information,
"Informasi")
Else
Call panggil_kode()

If MessageBox.Show("Apakah Yakin Data Akan di Hapus!.",


"INFORMASI", MessageBoxButtons.YesNoCancel) =
Windows.Forms.DialogResult.Yes Then
Dim hapus As String = "delete from user where id_user='" &
tbiduser.Text & "'"
cmd = New OdbcCommand(hapus, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Di Hapus.", MsgBoxStyle.Information,
"Informasi")
End If
Call tampil_grid()
Call hapus()
tbiduser.Clear()
tbiduser.Focus()
'call tampil_grid_member
End If
End Sub
Private Sub btnbtl_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnbtl.Click
Call hapus()
tbiduser.Clear()
tbiduser.Focus()
End Sub
Private Sub btnttp_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnttp.Click
Me.Close()
End Sub
End Class

Kategori

Imports System.Data.Odbc
Public Class Kategori

Private Sub Kategori_Load(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles MyBase.Load
Call tampil_grid()
End Sub
Sub hapus()
tbnamakat.Clear()
End Sub
Sub panggil_kode()
Call koneksi()
cmd = New OdbcCommand("Select * from kategori_buku where
id_kategori = '" & tbidkat.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
End Sub
Sub panggil_data()
On Error Resume Next
tbidkat.Text = dr("id_kategori")
tbnamakat.Text = dr("nama_kategori")
End Sub
Sub tampil_grid()
Call koneksi()
da = New OdbcDataAdapter("select * from kategori_buku", conn)
ds = New DataSet
da.Fill(ds)
DGV.DataSource = ds.Tables(0)
DGV.ReadOnly = True
End Sub
Private Sub tbidkat_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbidkat.KeyPress
tbidkat.MaxLength = 20

If e.KeyChar = Chr(13) Then


tbnamakat.Focus()
Call panggil_kode()
e.Handled = True

If dr.HasRows Then
Call panggil_data()
Else
Call hapus()
End If

End If

End Sub
Private Sub tbnamakat_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbnamakat.KeyPress
tbnamakat.MaxLength = 30

If e.KeyChar = Chr(13) Then


e.Handled = True
End If

End Sub
Private Sub btnsv_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnsv.Click
If tbidkat.Text = "" Or tbnamakat.Text = "" Then
MsgBox("Masukan Semua Data Anda!.", MsgBoxStyle.Information,
"Informasi")
Else
Call panggil_kode()

If Not dr.HasRows Then


Dim simpan As String = "insert into kategori_buku values('"
& tbidkat.Text & "','" & tbnamakat.Text & "')"
cmd = New OdbcCommand(simpan, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Di Simpan.", MsgBoxStyle.Information,
"Informasi")
Else
Dim edit As String = "update user set nama_kategori='" &
tbnamakat.Text & "' where id_kategori='" & tbidkat.Text & "'"
cmd = New OdbcCommand(edit, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Di Edit.", MsgBoxStyle.Information,
"Informasi")
End If
Call tampil_grid()
Call hapus()
tbidkat.Clear()
tbidkat.Focus()
End If
End Sub
Private Sub btnbtl_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnbtl.Click
Call hapus()
tbidkat.Clear()
tbnamakat.Focus()
End Sub
Private Sub btnhps_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnhps.Click
If tbidkat.Text = "" Or tbnamakat.Text = "" Then
MsgBox("Masukan Semua Data Anda!.", MsgBoxStyle.Information,
"Informasi")
Else
Call panggil_kode()
If MessageBox.Show("Apakah Yakin Data Akan di Hapus!.",
"INFORMASI", MessageBoxButtons.YesNoCancel) =
Windows.Forms.DialogResult.Yes Then
Dim hapus As String = "delete from kategori_buku where
id_kategori='" & tbidkat.Text & "'"
cmd = New OdbcCommand(hapus, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Di Hapus.", MsgBoxStyle.Information,
"Informasi")
End If
Call tampil_grid()
Call hapus()
tbidkat.Clear()
tbidkat.Focus()
'call tampil_grid_member
End If
End Sub
Private Sub btnttp_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnttp.Click
Me.Close()
End Sub
End Class

Buku

Imports System.Data.Odbc
Public Class Buku
Private Sub Buku_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call tampil_grid()
Call tampil_kategori()
End Sub

Sub hapus()
tbjudul.Clear()
cbkat.Text = ""
tbpenulis.Clear()
tbpenerbit.Clear()
tbalamat.Clear()
tbthterbit.Clear()
cbketer.Text = ""
End Sub
Sub panggil_kode()
Call koneksi()
cmd = New OdbcCommand("Select * from buku inner join kategori_buku
on buku.id_kategori = kategori_buku.id_kategori where buku.id_buku = '" &
tbidbuku.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
End Sub
Sub panggil_data()
On Error Resume Next
tbjudul.Text = dr("judul")
cbkat.Text = dr("nama_kategori")
tbpenulis.Text = dr("penulis")
tbpenerbit.Text = dr("penerbit")
tbalamat.Text = dr("alamat")
tbthterbit.Text = dr("tahun_terbit")
cbketer.Text = dr("ketersediaan_buku")
End Sub
Sub tampil_grid()
Call koneksi()
da = New OdbcDataAdapter("select * from buku", conn)
ds = New DataSet
da.Fill(ds)
DGV.DataSource = ds.Tables(0)
DGV.ReadOnly = True
End Sub

Sub tampil_kategori()
Call koneksi()
cmd = New OdbcCommand("select * from kategori_buku", conn)
dr = cmd.ExecuteReader
Do While dr.Read
cbkat.Items.Add(dr("nama_kategori"))
Loop
End Sub
Sub ubahKategori()
Call koneksi()
cmd = New OdbcCommand("select * from kategori_buku where
nama_kategori='" & cbkat.Text & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
End Sub
Private Sub tbidbuku_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbidbuku.KeyPress
tbidbuku.MaxLength = 20

If e.KeyChar = Chr(13) Then


tbjudul.Focus()
Call panggil_data()
e.Handled = True

Call panggil_kode()

If dr.HasRows Then
Call panggil_data()
Else
Call hapus()
End If

End If

End Sub
Private Sub tbjudul_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbjudul.KeyPress
tbjudul.MaxLength = 250

If e.KeyChar = Chr(13) Then


cbkat.Focus()
e.Handled = True
End If

End Sub
Private Sub cbkat_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles cbkat.KeyPress
cbkat.MaxLength = 50

If e.KeyChar = Chr(13) Then


tbpenulis.Focus()
End If

End Sub
Private Sub tbpenulis_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbpenulis.KeyPress
tbpenulis.MaxLength = 250

If e.KeyChar = Chr(13) Then


tbpenerbit.Focus()
e.Handled = True
End If

End Sub
Private Sub tbpenerbit_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbpenerbit.KeyPress
tbpenerbit.MaxLength = 250

If e.KeyChar = Chr(13) Then


tbalamat.Focus()
e.Handled = True
End If

End Sub
Private Sub tbalamat_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbalamat.KeyPress
tbalamat.MaxLength = 250

If e.KeyChar = Chr(13) Then


tbthterbit.Focus()
e.Handled = True
End If

End Sub
Private Sub tbthterbit_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles tbthterbit.KeyPress
tbthterbit.MaxLength = 250

If e.KeyChar = Chr(13) Then


cbketer.Focus()
e.Handled = True
End If

End Sub
Private Sub btnsv_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnsv.Click

If tbidbuku.Text = "" Or tbjudul.Text = "" Or cbkat.Text = "" Or


tbidbuku.Text = "" Or tbpenulis.Text = "" Or tbpenerbit.Text = "" Or
tbalamat.Text = "" Or tbthterbit.Text = "" Or cbketer.Text = "" Then
MsgBox("Masukan Semua Data Anda!.", MsgBoxStyle.Information,
"Informasi")
End If

Call panggil_kode()

If Not dr.HasRows Then


Call ubahKategori()
Dim simpan As String = "insert into buku values('" &
tbidbuku.Text & "','" & dr("id_kategori") & "', '" & tbjudul.Text & "', '"
& dr("nama_kategori") & "', '" & tbpenulis.Text & "', '" & tbpenerbit.Text
& "', '" & tbalamat.Text & "', '" & tbthterbit.Text & "', 'Tersedia' )"
cmd = New OdbcCommand(simpan, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Di Simpan!.", MsgBoxStyle.Information,
"Informasi")
Else
Call ubahKategori()
Dim edit As String = "update buku set id_kategori='" &
dr("id_kategori") & "', judul='" & tbjudul.Text & "', penulis='" &
tbpenulis.Text & "', penerbit='" & tbpenerbit.Text & "', tahun_terbit='" &
tbpenerbit.Text & "', alamat='" & tbalamat.Text & "' where id_buku='" &
tbidbuku.Text & "'"
cmd = New OdbcCommand(edit, conn)
cmd.ExecuteNonQuery()
MsgBox("Data berhasil diedit!", MsgBoxStyle.Information,
"Informasi")
End If
Call tampil_grid()
Call hapus()
tbidbuku.Clear()
tbidbuku.Focus()
End Sub
Private Sub btnbtl_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnbtl.Click
Call hapus()
tbidbuku.Clear()
tbidbuku.Focus()
End Sub
Private Sub btnhps_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnhps.Click

If tbidbuku.Text = "" Or tbjudul.Text = "" Or cbkat.Text = "" Or


tbidbuku.Text = "" Or tbpenulis.Text = "" Or tbpenerbit.Text = "" Or
tbalamat.Text = "" Or tbthterbit.Text = "" Or cbketer.Text = "" Then
MsgBox("Harap isi semua data!", MsgBoxStyle.Information,
"Informasi")
End If

If MessageBox.Show("Yakin data ingin dihapus?", "Warning!",


MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
Dim hapus As String = "delete from buku where id_buku='" &
tbidbuku.Text & "'"
cmd = New OdbcCommand(hapus, conn)
cmd.ExecuteNonQuery()
MsgBox("Data berhasil dihapus!", MsgBoxStyle.Information,
"Informasi")
End If
Call tampil_grid()
Call hapus()
tbidbuku.Clear()
tbidbuku.Focus()
End Sub
Private Sub btnttp_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnttp.Click
Me.Close()
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label1.Click

End Sub
End Class

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy