0 cara MENAMBAH PEMAKAI ATAU USER BARU di vb 6.0

BAB VI
MENAMBAH PEMAKAI ATAU USER BARU
Form Untuk menambah pemakai atau user merupakan form yang digunakan untuk
menambah user baru pengguna program aplikasi. Selain menambahkan ID dan Password dari
pemakai atau user yang baru. untuk membuat form guna menambah pemakai baru, lakukan
langkah-langkah sebagai berikut :
1. Tambahkan sebuah form pada proyek STMIK.
2. Tambahkan dua buah label dan dua buah textbox dan enam buah command button.
3. Atur property objek-objek tersebut sebagai berikut.
Objek Properti Setting
Form1 Nama Login
Caption Form Tambah User
Label1 Caption ID User
Label2 Caption Password
Label3 Caption Bagian
Text1 Name text1
Text
Text2 Name Text2
Text
PasswordChar *
Text3 Name Combo1
Text Pilih
List Admin,supervisor,menejer
Command1 Name Command1
Caption &Tambah
Command2 Name Command2
Caption &Simpan
Command3 Name Command3
Caption &Edit
Command4 Name Command4
Caption &Batal
Command5 Name Command5
Caption &Hapus
Command6 Name Command6
Caption &Keluar
32
4. Tampilan form tambah pemakai atau user baru seperti yang terlihat pada Gambar 6.1.
Gambar 6.1. Tampilan Form User Baru
5. Sedangkan untuk kode programnya sebagai berikut :
‘Deklarasi koneksi dan recordset
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Call aktif
Call kosong
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = True
End Sub
33
Private Sub Command2_Click()
Dim mysql As String
Dim konfirmation As String
If Text1 <> "" Then
cnn.BeginTrans
If Text1.Enabled = True Then
pesan = MsgBox("data akan disimpan..?", vbYesNo + vbInformation, "pesan")
If pesan = vbYes Then
mysql = "insert into tbuser(iduser,passworduser,bagian)" & _
"values('" & Text1 & "', '" & Text2 & "', , '" & combo1 & "')"
cnn.Execute (mysql)
Adodc1.Refresh
End If
Else
pesan = MsgBox("data sudah ada mau disimpan ulang..?", vbYesNo + vbInformation, "pesan")
If pesan = vbYes Then
mysql = " update tbuser set " & _
" passworduser = '" & Text2 & "'," & _
" bagian= '" & combo1 & "'," & _
"where iduser = '" & Text1 & "'"
cnn.Execute (mysql)
Adodc1.Refresh
End If
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
Command1.Enabled = True
34
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True
End If
End Sub
Private Sub Command3_Click()
Text2.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
End Sub
Private Sub Command4_Click()
cnn.Close
Set cnn = Nothing
Form_Load
Call kosong
End Sub
Private Sub Command5_Click()
Dim mysql As String
Dim konfirmasi As String
If Text1 <> "" And Text1.Enabled = False Then
35
cnn.BeginTrans
konfirmasi = MsgBox("Data akan dihapus..?", vbYesNo + vbQuestion, "pesan")
If konfirmasi = vbYes Then
mysql = "delete from tbuser where iduser='" & Text1 & "'"
cnn.Execute (mysql)
Adodc1.Refresh
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
End If
End Sub
Private Sub Command6_Click()
Dim pesan As String
pesan = MsgBox("keluar", 4 + 32, "penting")
If pesan = vbYes Then
Do
Me.Left = Me.Left + 30
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width - 500
36
Unload Me
End If
End Sub
Private Sub Form_Activate()
Me.Top = 2000
Me.Left = 5900
Me.Height = 4100
Me.Width = 7700
End Sub
Private Sub Form_Load()
Dim koneksi As String
Adodc1.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\stmik.mdb;Persist Security Info=False"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\stmik.mdb;Persist Security Info=False"
Adodc1.Refresh
Call nonaktif
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
cnn.Close
Set cnn = Nothing
End Sub

Private Sub Text1_LostFocus()
Dim mysql As String
If Text1 <> "" Then
mysql = "select * from tbuser where iduser ='" & Text1 & "'"
Set rs = cnn.Execute(mysql)
If Not rs.EOF Then
Text2 = rs.Fields("passworduser")
Call nonaktif
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = True
Else
Text2 = ""
End If
End If
End Sub

Sub nonaktif()
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
End Sub
Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Combo1.Enabled = true
End Sub
Sub kosong()
Text1 = ""
Text2 = ""
Combo1=””
End Sub

baca juga

 cara login  dengan database di vb 6

Komentar →