√ Cara Menciptakan Login User Di Visual Basic (Username & Password)

- Pertama tama kau buat dulu tampilan menyerupai ini :

- Kemudian beri name masing masing :

texbox "username"= tusername

textbox "password"= tpassword

Login = clogin

Exit = exit

- Selanjutnya double klik commandbutton "Login" dan paste :

Private Sub clogin_Click()

Call koneksi
rsuser.Open "select*from tbuser where kodeuser='" & tusername.Text & "' and password='" & tpassword.Text & "'", KON
If rsuser.EOF Then
MsgBox "maaf, user tidak ditemukan. Anda tidak berhak masuk", vbCritical
Else
 kode = rsuser!kodeuser
 nama = rsuser!namauser
 MsgBox "selamat tiba " & nama & ""
 fmenu.Show
 'fmenu.hide
 End If

End Sub

 

- kau buat sebelumnya variabel "koneksi" pada form-load (bukan secara manual diketik, tapi pilih pada combo pilihan Form dan selanjutnya load)

Private Sub Form_Load()

Call koneksi

End Sub

 

- Buat variabel terpisah yang berfungsi sebagai penghubung ke database

Dim kode, nama As String

 

- Double klik commandbutton "exit" dan paste :

Private Sub EXIT_Click()

a = MsgBox("Yakin Keluar", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
End
End If

End Sub

Sebelumnya kau harus membuat Module semoga dapat terkoneksi ke database phpmyadmin
Sumber http://www.hendrisetiawan.com

√ Cara Menciptakan Module Di Visual Basic Semoga Dapat Terhubung Ke Database Phpmyadmin

ini yakni teladan module pada contoh Program Visual Basic (VB) Penerimaan karyawan baru

Langkah pertama buka aplikasi Visual Basic
- pilih "project" pada sajian bar
- dan pilih "add module"
- pastekan dibawah ini

Public KON As New ADODB.Connection

Public rsdatapelamar As ADODB.Recordset

Public rsjadwaltest As ADODB.Recordset

Public rstanggaltest As ADODB.Recordset

Public rskaryawan As ADODB.Recordset

Public rslolostest As ADODB.Recordset

Public rsgagaltest As ADODB.Recordset

Public rstanggalmedical As ADODB.Recordset

Public rsjadwalmedical As ADODB.Recordset

Public rsgagalmedical As ADODB.Recordset

Public rslolosmedical As ADODB.Recordset

Public rsuser As ADODB.Recordset

Sub koneksi()

'MEMBUKA OBJEK

Set KON = New ADODB.Connection

Set rsdatapelamar = New ADODB.Recordset

Set rsjadwaltest = New ADODB.Recordset

Set rskaryawan = New ADODB.Recordset

Set rstanggaltest = New ADODB.Recordset

Set rslolostest = New ADODB.Recordset

Set rsgagaltest = New ADODB.Recordset

Set rsjadwalmedical = New ADODB.Recordset

Set rstanggalmedical = New ADODB.Recordset

Set rsgagalmedical = New ADODB.Recordset

Set rslolosmedical = New ADODB.Recordset

Set rsuser = New ADODB.Recordset

KON.ConnectionString = "DSN=penerimaankaryawan"

KON.Open

End Sub

Sumber http://www.hendrisetiawan.com

√ Menciptakan Sajian Di Ms. Visual Basic + Video Tutorial

Setelah kita menciptakan "Form Login" selanjutnya kita akan menciptakan "menu" pada aktivitas visual basic.
Langkah- langkahnya :
1. Buka Aplikasi Visual basicnya
2. pilih "standar exe"
3. Pilih "Tools" pada sajian kafe dan pilih "menu editor"

5. Isi nama sajian pertama pada Captionnya, juga isikan namenya. contoh

Caption =  MASTER
name = mmaster

Kemudian pilih "next"

6. untuk menciptakan sub menunya klik "tanda panah kanan" dan lalu tulis kembali caption dan namenya. pilih next jikalau ingin menciptakan sub yang ke-2 dst.

7. Jika ingin menciptakan sajian lagi maka pilih next dan klik tanda panah arah kiri, dan tulis caption dan namenya. begitu seterusnya.

8. klik "OK" jikalau semuanya selesai.

Lihat Video tutorialnya di Youtube : http://youtu.be/2l1BR0M94PI



Sumber http://www.hendrisetiawan.com

√ Menciptakan Master Data User Di Ms Visual Basic Dengan Database Phpmyadmin

Setelah kita menciptakan Menu di Ms Visual Basic, Sekarang kita isi Menu hidangan tersebut dengan form form. Dalam bahasan kali ini aku akan mengisi form "Master Data User".
Kita buat formnya menyerupai berikut :

Selanjutnya kita ubah "name"nya menyerupai di bawah ini :

- Pertama kita buat Sub Aktif ( fungsi saat kita pilih add maka semuanya aktif)

Sub aktif()

tkodeuser.Enabled = True
tnamauser.Enabled = True
cjabatan.Enabled = True
tpassword.Enabled = True

End Sub

- Buat Sub nonaktif ( fungsi saat form dijalankan semuanya dalam kondisi nonaktif, kecuali add)

Sub nonaktif()

tkodeuser.Enabled = False
tnamauser.Enabled = False
cjabatan.Enabled = False
tpassword.Enabled = False
cmdsave.Enabled = False
cmdedit.Enabled = False
cmdupdate.Enabled = False
cmdcancel.Enabled = False
cmddelete.Enabled = False

End Sub

- Buat sub bersih

Sub bersih()

tkodeuser.Text = ""
tnamauser.Text = ""
cjabatan.Text = ""
tpassword.Text = ""

End Sub

- Buat form-load

Private Sub Form_Load()

Call nonaktif
End Sub

- buat sub tampil :

Sub tampil()

 Call koneksi
 rsuser.Open "select*from tbuser", KON
 Set grid.DataSource = rsuser

End Sub

Silahkan copy arahan listing berikut dan pastekan sesuai name nya :

- cmdadd:

Private Sub cmdadd_Click()

Call bersih
Call aktif
tkodeuser.SetFocus
cmdsave.Enabled = True
cmdcancel.Enabled = True
cmdedit.Enabled = False
cmdupdate.Enabled = False

End Sub

- cmdsave

Private Sub cmdsave_Click()

Call koneksi
rsuser.Open "insert into tbuser values('" & tkodeuser & "','" & tnamauser & "','" & cjabatan & "','" & tpassword & "')", KON
MsgBox "Data Sudah Tersimpan", vbInformation
Call tampil
Call nonaktif

End Sub

-cmdcancel :

Private Sub cmdcancel_Click()

bersih
tkodeuser.SetFocus

End Sub

- cmdedit :

Private Sub cmdedit_Click()

Call koneksi
rsuser.Open "select*from tbuser where kodeuser='" & tcari.Text & "'", KON
With rsuser
 tkodeuser.Text = .Fields("kodeuser")
 tnamauser.Text = .Fields("namauser")
 cjabatan.Text = .Fields("jabatan")
 tpassword.Text = .Fields("password")
 End With
 Call aktif
 tkodeuser.Enabled = False
 tnamauser.SetFocus
 cmdupdate.Enabled = True

End Sub

- cmdupdate :

Private Sub cmdupdate_Click()

Call koneksi
rsuser.Open "update tbuser set namauser='" & tnamauser & "',jabatan='" & cjabatan & "',password='" & tpassword & "' where kodeuser='" & tkodeuser.Text & "'", KON

MsgBox "Data Berhasil di Update", vbInformation, "Info"
bersih
Call tampil

End Sub

- cmddelete :

Private Sub cmddelete_Click()

Call koneksi
a = MsgBox("Yakin Ingin Hapus Data ini?", vbQuestion + vbYesNo, "tanya")
If a = vbYes Then
rsuser.Open "delete from tbuser where kodeuser='" & tcari.Text & "'", KON
bersih
tcari.Text = ""
End If

End Sub

- bmenu :

Private Sub Command1_Click()

fmenu.Show

End Sub

- exit :

Private Sub EXIT_Click()

a = MsgBox("Yakin Keluar", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
End
End If

End Sub

- tcari (ubah declarationsnya ke change):

Private Sub tcari_Change()

Call koneksi
rsuser.Open "select*from tbuser where kodeuser like '" & tcari.Text & "'", KON
If Not tcari.Text = "" Then
Set grid.DataSource = rsuser
Else
Call tampil
End If
Call nonaktif
tcari.Enabled = True
cmdedit.Enabled = True
cmddelete.Enabled = True

End Sub

Sumber http://www.hendrisetiawan.com

√ Menciptakan Master Data Pelamar Di Microsoft Visual Basic (Vb) Dengan Database Phpmyadmin

Setelah kita melihat contoh Program Visual Basic (VB) Penerimaan karyawan gres (Employee Recruitment). Maka Selanjutnya kita membuat  Master Data Pelamar Pada Microsoft Visual Basic (VB) dengan Database Phpmyadmin.Buat menyerupai form di bawah ini :

Dan selanjutnya beri name seperti di bawah ini :

- Pertama kita buat sub aktif :

Sub aktif()
tnopelamar.Enabled = False
tnama.Enabled = True
talamat.Enabled = True
tnohp.Enabled = True
tcari.Enabled = True
cmdsave.Enabled = True
End Sub

- Buat Sub Nonaktif :

Sub nonaktif()
tnopelamar.Enabled = False
tnama.Enabled = False
talamat.Enabled = False
tnohp.Enabled = False
tcari.Enabled = False
cmdsave.Enabled = False
cmdedit.Enabled = False
cmdupdate.Enabled = False
cmdcancel.Enabled = False
cmddelete.Enabled = False
End Sub

- Buat Sub Tampil :

Sub tampil()
Call koneksi
rsdatapelamar.Open "select*from datapelamar", KON
Set grid.DataSource = rsdatapelamar
End Sub

- Buat Form Load :

Private Sub Form_Load()
Call nonaktif
End Sub

- Buat Sub Bersih :

Sub bersih()
tnopelamar.Text = ""
tnama.Text = ""
talamat.Text = ""
tnohp.Text = ""
End Sub

Silahkan copy dan pastekan sesuai dengan namenya arahan listing dibawah ini :

- cmdadd :

Private Sub cmdadd_Click()
Call koneksi
Call bersih
Call aktif
rsdatapelamar.Open "select*from datapelamar order by no_pelamar desc", KON
With rsdatapelamar
If .BOF And .EOF Then
tnopelamar.Text = "DP" + "001"
Else
tnopelamar.Text = "DP" + Right(Str(Val(Right(.Fields("no_pelamar"), 3)) + 1001), 3)
End If
End With
tnama.SetFocus
cmdcancel.Enabled = True
End Sub

- cmdcancel :

Private Sub cmdcancel_Click()
Call bersih
Call nonaktif
cmdadd.Enabled = tru
End Sub

- cmdelete :

Private Sub cmddelete_Click()
Call koneksi
a = MsgBox("Yakin Ingin Hapus Data ini?", vbQuestion + vbYesNo, "tanya")
If a = vbYes Then
rsdatapelamar.Open "delete from datapelamar where no_pelamar='" & tcari.Text & "'", KON
bersih
tcari.Text = ""
End If
End Sub

- cmdedit :

Private Sub cmdedit_Click()
Call koneksi
rsdatapelamar.Open "select*from datapelamar where no_pelamar='" & tcari.Text & "'", KON
With rsdatapelamar
tnopelamar.Text = .Fields("no_pelamar")
tnama.Text = .Fields("nama")
talamat.Text = .Fields("alamat")
tnohp.Text = .Fields("no_hp")
End With
tnopelamar.Enabled = False
tnama.SetFocus
cmdupdate.Enabled = True
End Sub

- cmdsave :

Private Sub cmdsave_Click()
Call koneksi
rsdatapelamar.Open "insert into datapelamar values('" & tnopelamar & "','" & tnama & "','" & talamat & "','" & tnohp & "')", KON
MsgBox "Data Sudah Tersimpan", vbInformation
Call tampil
Call bersih
Call nonaktif
End Sub

- cmdupdate :

Private Sub cmdupdate_Click()
Call koneksi
rsdatapelamar.Open "update datapelamar set nama='" & tnama & "',alamat='" & talamat & "',no_hp='" & tnohp & "' where no_pelamar='" & tnopelamar.Text & "'", KON

MsgBox "Data Berhasil di Update", vbInformation, "Info"
bersih
Call tampil
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdupdate.Enabled = False
cmdedit.Enabled = False
cmddelete.Enabled = False
End Sub

- tcari (ubah declarationsnya ke "change"):

Private Sub tcari_Change()
Call koneksi
rsdatapelamar.Open "select*from datapelamar where no_pelamar like '" & tcari.Text & "'", KON
If Not tcari.Text = "" Then
Set grid.DataSource = rsdatapelamar
Else
Call tampil
End If
cmdadd.Enabled = False
cmdsave.Enabled = False
cmdupdate.Enabled = False
cmdedit.Enabled = True
cmddelete.Enabled = True
End Sub

- exit :

Private Sub EXIT_Click()
a = MsgBox("Yakin Keluar", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
End
End If
End Sub

- bmenu :

Private Sub Command1_Click()
fmenu.Show
End Sub

Sumber http://www.hendrisetiawan.com

√ Menciptakan Form Input Tanggal Tes Tulis Di Ms Visual Basic Dengan Database Phpmyadmin

ini yaitu salahsatu project penerimaan karyawan gres dengan aplikasi Ms Visual Basic dan data bases Phpmyadmin. Maksud dari "input tanggal" dibawah ini yaitu menginput tanggal yang ditentukan oleh user kapan tes tulis dapat dilaksanakan.

Kemudian ubah name seperti dibawah ini :

- Pertama kita buat Sub Aktif ( fungsi saat kita pilih add maka semuanya aktif)

Sub aktif()
nokode.Enabled = True
tgl1.Enabled = True
tgl2.Enabled = True
tcari.Enabled = True

End Sub

- Buat Sub nonaktif ( fungsi saat form dijalankan semuanya dalam kondisi nonaktif, kecuali add)

Sub nonaktif()
nokode.Enabled = False
tgl1.Enabled = False
tgl2.Enabled = False
tcari.Enabled = False
cmdsave.Enabled = False
cmdcancel.Enabled = False
cmdedit.Enabled = False
cmdupdate.Enabled = False
cmddelete.Enabled = False
End Sub

- Buat sub bersih

Sub bersih()
tgl1.Text = ""
tgl2.Text = ""
tcari.Text = ""
nokode.Text = ""
End Sub

- Buat form-load

Private Sub Form_Load()
Call nonaktif
cmdadd.Enabled = True
End Sub

- buat sub tampil :

Sub tampil()
Call koneksi
rstanggaltest.Open "select*from tanggaltest", KON
Set grid.DataSource = rstanggaltest
End Sub

Silahkan copy isyarat listing berikut dan pastekan sesuai name nya :

- cmdadd:

Private Sub cmdadd_Click()
Call koneksi
Call bersih
Call aktif
rstanggaltest.Open "select*from tanggaltest order by no_kode desc", KON
With rstanggaltest
If .BOF And .EOF Then
nokode.Text = "T" + "001"
Else
nokode.Text = "T" + Right(Str(Val(Right(.Fields("no_kode"), 3)) + 1001), 3)
End If
End With
tgl1.SetFocus
cmdsave.Enabled = True
cmdcancel.Enabled = True
cmddelete.Enabled = False
End Sub

- cmdsave

Private Sub cmdsave_Click()
Call koneksi
rstanggaltest.Open "insert into tanggaltest values('" & nokode & "','" & tgl1 & "','" & tgl2 & "')", KON
MsgBox "Data Sudah Tersimpan", vbInformation
Call tampil
Call nonaktif
End Sub

-cmdcancel :

Private Sub cmdcancel_Click()
bersih
tgl1.SetFocus
Call nonaktif
End Sub

- cmdedit :

Private Sub cmdedit_Click()
Call koneksi
rstanggaltest.Open "select*from tanggaltest where no_kode='" & tcari.Text & "'", KON
With rstanggaltest
nokode.Text = .Fields("no_kode")
tgl1.Text = .Fields("tanggaltest1")
tgl2.Text = .Fields("tanggaltest2")

End With
nokode.Enabled = False
tgl1.SetFocus
cmdupdate.Enabled = True
cmddelete.Enabled = True
cmdcancel.Enabled = False
End Sub

- cmdupdate :

Private Sub cmdupdate_Click()
Call koneksi
rstanggaltest.Open "update tanggaltest set tanggaltest1='" & tgl1 & "',tanggaltest2='" & tgl2 & "' where no_kode='" & nokode.Text & "'", KON

MsgBox "Data Berhasil di Update", vbInformation, "Info"
bersih
Call tampil
cmdupdate.Enabled = False
cmdedit.Enabled = False
cmdadd.Enabled = True
End Sub

- cmddelete :

Private Sub cmddelete_Click()
Call koneksi
a = MsgBox("Yakin Ingin Hapus Data ini?", vbQuestion + vbYesNo, "tanya")
If a = vbYes Then
rstanggaltest.Open "delete from tanggaltest where no_kode='" & tcari.Text & "'", KON
bersih
tcari.Text = ""
End If
End Sub

- bmenu :

Private Sub Command1_Click()
fmenu.Show
End Sub

- exit :

Private Sub EXIT_Click()
a = MsgBox("Yakin Keluar", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
End
End If
End Sub

- tcari (ubah declarations nya ke "change"):

Private Sub tcari_Change()
Call koneksi
rstanggaltest.Open "select*from tanggaltest where no_kode like '" & tcari.Text & "'", KON
If Not tcari.Text = "" Then
Set grid.DataSource = rstanggaltest
Else
Call tampil
End If
cmdedit.Enabled = True
cmdadd.Enabled = False
cmdsave.Enabled = False
End Sub

Sumber http://www.hendrisetiawan.com

√ Free Download Pola Agenda Aplikasi Penerimaan Karyawan Gres Dengan Ms Visual Basic

Free Download alias Download gratis Contoh Program Aplikasi Penerimaan Karyawan Baru dengan Ms Visual Basic 6.0
contoh aktivitas visual basic ihwal aktivitas penerimaan karyawan baru. Anda mend0wnl0ad makalah, program, laporan (crystal report) dan PPT.
Program ini masih banyak kekurangannya, jadi dimaklumi alasannya yakni aku juga masih dalam tahap belajar.

Silahkan Download dibawah ini

Download

Sumber http://www.hendrisetiawan.com