Membuat login menyesuaikan kondisi itu mudah ...

Sedikit diskripsi dari PROGRAM sederhana ini ...

ketika kita dihadapkan untuk membuat sebuah program yang dimana bisa diakses di PC lain nama ngetrendnya MULTY USER kita harus bisa membuat sebuah form yang dimana membedakan proses LOGIN  sebagai member atau LOGIN sebagai admin .. seperti hal nya kita membuat website , kita sebagai admin / pemilik website saat login langsung dihadapkan ke control panel / lembar admin , jika kita login sebagai member kita hanya bisa memlihat tampilanya saja , seperti itulah cara kerja project ini .. 

 Gambar 1.0 

Gambar 1,1

Gambar 1.2

Keterangan Gambar :

• Gambar 1.0 

form awal ketika kita memulai program yang dimana langsung dihadapkan untuk LOGIN sebagai member .. keterangan lebih lengkap ada di file.

• Gambar 1.1 

form LOGIN ketika kita klik LOGIN AS ADMIN pada form Gambar 1.0 , disini kita LOGIN SEBAGAI ADMIN yang dimana sudah saya terangkan di diskripsi

• Gambar 1.2 

form MENU akan ada setelah kita LOGIN sebagai ADMIN .. disitu lah kita bisa menambah , menghapus , maupun mengedit DATA.

Password
PM : lowpown999@gmail.com
Or Follow Me
Facebook

unduh source code

Read More

Membuat proses Simpan update delete visual basic (bagian 4 )

Proses ini kelanjutan dari Membuat proses simpan update delete visual basic 6.0 (bagian 3)

PROSES DELETE 

Doble klik pada tombol Hapus lalu tuliskan kode berikut

buang = MsgBox("yakin dihapus ?", vbYesNo, "Peringatan")
If buang = vbYes Then
Set rsmhs = New ADODB.Recordset
rsmhs.Open "delete from mahasiswa where nim= '" & txtnim.Text & "'", kn
End If

Tepat dibawahnya tuliskan kode berikut untuk mengaktifkan kembali textbox untuk proses lainya

txtnim.Enabled = True
txtnama.Enabled = True
cmbjenkel.Enabled = True
cmbagama.Enabled = True
cmbstudy.Enabled = True
tgllahir.Enabled = True
tglmasuk.Enabled = True
txtnim.SetFocus
Form_Activate 

Sehingga kode keseluruhan tombol hapus menjadi seperti ini

Tekan F5 / RUN untuk mencoba

Read More

Membuat proses Simpan update delete visual basic (bagian 3 )

Proses ini kelanjutan dari Membuat proses simpan update delete visual basic 6.0 (bagian 2)

PROSES UPDATE

UPDATE : Sebelumnya ikutin prosess INI terlebih dahulu sebelum lanjut koding update

Doble klik datagrid pada form

Tulis code berikut tepat dipaling bawah kode sebelunya

Simpan.Caption = "Update"

Sehingga akan menjadi seperti ini

Kembalin ke form , Doble klik tombol simpan

tulis kode berikut di atas kode validasi

If Simpan.Caption = "Simpan" Then

Maka akan menjadi seperti ini

Cari kode simpan hapus code

form_activate

lalu tulis kode update berikut di bawah kode simpan

Else
Set rsmhs = New ADODB.Recordset
rsmhs.Open "update mahasiswa set alamat= '" & txtalamat.Text & "',notelp= '" & txttelp.Text & "' where nim= '" & txtnim.Text & "'", kn
End If

karena di proses update hanya alamat dan notelp yang diupdate maka di datagrid harus ditambah kode ini

txtnim.Enabled = False
txtnama.Enabled = False
cmbjenkel.Enabled = False
cmbagama.Enabled = False
cmbstudy.Enabled = False
tgllahir.Enabled = False
tglmasuk.Enabled = False 

Guna untuk mematikan textbox yang tidak diedit agar tidak terjadi eror nantinya ,
berikut kode keseluruhan di datagrid

Setelah proses update berhasil maka textbox yang dimatikan langkah diatas akan tetap mati , jadi dihidupkan kembali untuk proses simpan , akan tertapi jika datagrid ditekan textbox masih tetap dalam keadaan mati , berikut kodenya berikan dibawah kode update setelah end if

txtnim.Enabled = True
txtnama.Enabled = True
cmbjenkel.Enabled = True
cmbagama.Enabled = True
cmbstudy.Enabled = True
tgllahir.Enabled = True
tglmasuk.Enabled = True
Simpan.Caption = "Simpan"
Form_Activate

Maka kode keseluruhan di tombol simpan akan menjadi seperti  ini

Private Sub Simpan_Click()
'pesan textbox kosong
If txtnim.Text = "" Then
MsgBox "nim harus di isi", vbInformation, "Info"
txtnim.SetFocus
Exit Sub
End If
If txtnama.Text = "" Then
MsgBox "nama harus di isi", vbInformation, "Info"
txtnama.SetFocus
Exit Sub
End If
If tgllahir.Value = "" Then
MsgBox "tanggal lahir harus di isi", vbInformation, "Info"
tgllahir.SetFocus
Exit Sub
End If
If cmbjenkel.Text = "" Then
MsgBox "jenis kelamin harus di isi", vbInformation, "Info"
cmbjenkel.SetFocus
Exit Sub
End If
If cmbagama.Text = "" Then
MsgBox "agama harus di isi", vbInformation, "Info"
cmbagama.SetFocus
Exit Sub
End If
If txtalamat.Text = "" Then
MsgBox "alamat harus di isi", vbInformation, "Info"
txtalamat.SetFocus
Exit Sub
End If
If txttelp.Text = "" Then
MsgBox "no telp harus di isi", vbInformation, "Info"
txttelp.SetFocus
Exit Sub
End If
If cmbstudy.Text = "" Then
MsgBox "study harus di isi", vbInformation, "Info"
cmbstudy.SetFocus
Exit Sub
End If
If tglmasuk.Value = "" Then
MsgBox "anggal masuk harus di isi", vbInformation, "Info"
tglmasuk.SetFocus
Exit Sub
End If
If Simpan.Caption = "Simpan" Then
'validasi
Set rsmhs = New ADODB.Recordset
rsmhs.Open "select*from mahasiswa where nim ='" & txtnim.Text & "'", kn
If Not rsmhs.EOF Then
MsgBox "Nim sudah digunakan", vbInformation, "Info"
Exit Sub
End If
'proses simpan
Set rsmhs = New ADODB.Recordset
rsmhs.Open "insert into mahasiswa values ( '" & txtnim.Text & "' ,'" & txtnama.Text & "' , '" & tgllahir.Value & "' ,'" & cmbjenkel.Text & "' ,'" & cmbagama.Text & "' ,'" & txtalamat.Text & "' ,'" & txttelp.Text & "' ,'" & cmbstudy.Text & "' ,'" & tglmasuk.Value & "')", kn
'proses update
Else
Set rsmhs = New ADODB.Recordset
rsmhs.Open "update mahasiswa set alamat= '" & txtalamat.Text & "',notelp= '" & txttelp.Text & "' where nim= '" & txtnim.Text & "'", kn
End If
txtnim.Enabled = True
txtnama.Enabled = True
cmbjenkel.Enabled = True
cmbagama.Enabled = True
cmbstudy.Enabled = True
tgllahir.Enabled = True
tglmasuk.Enabled = True
Simpan.Caption = "Simpan"
Form_Activate
End Sub

Tekan F5 / RUN untuk mencoba ...

lanjut proses selanjunya Proses Hapus

Read More

Memunculkan data datagrid ke textbox

Sebelum memulai proses ini lihat proses sebelumnya terlebih dahulu Membuat proses simpan

Doble klik datagrid dan ganti prosedur dari Clik ke DBlClik

Sehingga code menjadi seperti ini

Masukan kode berikut

Private Sub dgmahasiswa_DblClick()
txtnim.Text = dgmahasiswa.Columns(0)
txtnama.Text = dgmahasiswa.Columns(1)
tgllahir.Value = dgmahasiswa.Columns(2)
cmbjenkel.Text = dgmahasiswa.Columns(3)
cmbagama.Text = dgmahasiswa.Columns(4)
txtalamat.Text = dgmahasiswa.Columns(5)
txttelp.Text = dgmahasiswa.Columns(6)
cmbstudy.Text = dgmahasiswa.Columns(7)
tglmasuk.Value = dgmahasiswa.Columns(8)
End Sub

Klik RUN / F5 untuk mengecek

 Gambar jika datagrid di klik 2x maka textbox akan terisi 

Read More

Membuat proses Simpan update delete visual basic (bagian 2 )

proses ini kelanjutan dari Membuat simpan update delete visual basic 6.0

PROSES SIMPAN

Setelah langkah sebelumnya membuat koneksi ke database dan membuat form maka selanjutnya lanjut koding "SIMPAN"

isikan kode berkiut di form_activate untuk memunculkan data database di datagrid

Private Sub Form_Activate()
Set rsmhs = New ADODB.Recordset
rsmhs.Open ("Select * from mahasiswa"), kn
Set dgmahasiswa.DataSource = rsmhs
kosongkan
End Sub

Sebelum proses simpan terlebih dahulu kita membuat pesan (msgbox) jika textbox dalam kondisi kosong maka akan timbul pesan untuk di isi terlebuh dahulu ...

berikut codenya

If txtnim.Text = "" Then

MsgBox "nim harus di isi", vbInformation, "Info"

txtnim.SetFocus

Exit Sub

End If

If txtnama.Text = "" Then

MsgBox "nama harus di isi", vbInformation, "Info"

txtnama.SetFocus

Exit Sub

End If

If tgllahir.Value = "" Then

MsgBox "tanggal lahir harus di isi", vbInformation, "Info"

tgllahir.SetFocus

Exit Sub

End If

If cmbjenkel.Text = "" Then

MsgBox "jenis kelamin harus di isi", vbInformation, "Info"

cmbjenkel.SetFocus

Exit Sub

End If

If cmbagama.Text = "" Then

MsgBox "agama harus di isi", vbInformation, "Info"

cmbagama.SetFocus

Exit Sub

End If

If txtalamat.Text = "" Then

MsgBox "alamat harus di isi", vbInformation, "Info"

txtalamat.SetFocus

Exit Sub

End If

If txttelp.Text = "" Then

MsgBox "no telp harus di isi", vbInformation, "Info"

txttelp.SetFocus

Exit Sub

End If

If cmbstudy.Text = "" Then

MsgBox "study harus di isi", vbInformation, "Info"

cmbstudy.SetFocus

Exit Sub

End If

If tglmasuk.Value = "" Then

MsgBox "Tanggal masuk harus di isi", vbInformation, "Info"

tglmasuk.SetFocus

Exit Sub

End If

Selelah itu kita membuat validasi agar tidak timbul pesan eror doble primary key
berikut code nya

Set rsmhs = New ADODB.Recordset
rsmhs.Open "select*from mahasiswa where nim ='" & txtnim.Text & "'", kn
If Not rsmhs.EOF Then
MsgBox "Nim sudah digunakan", vbInformation, "Info"
Exit Sub
End If

Selelah proses validasi lanjut proses simpan
berikut kodenya

Set rsmhs = New ADODB.Recordset
rsmhs.Open "insert into mahasiswa values ( '" & txtnim.Text & "' ,'" & txtnama.Text & "' , '" & tgllahir.Value & "' ,'" & cmbjenkel.Text & "' ,'" & cmbagama.Text & "' ,'" & txtalamat.Text & "' ,'" & txttelp.Text & "' ,'" & cmbstudy.Text & "' ,'" & tglmasuk.Value & "')", kn

terakhir berikan kode ini di tempat paling bawah sebelum end sub guna untuk merefres data agar masuk ke datagrid

Form_Activate

Untuk Keseluruhan kodenya sebagai berikut

Private Sub Simpan_Click()
'pesan textbox kosong
If txtnim.Text = "" Then
MsgBox "nim harus di isi", vbInformation, "Info"
txtnim.SetFocus
Exit Sub
End If
If txtnama.Text = "" Then
MsgBox "nama harus di isi", vbInformation, "Info"
txtnama.SetFocus
Exit Sub
End If
If tgllahir.Value = "" Then
MsgBox "tanggal lahir harus di isi", vbInformation, "Info"
tgllahir.SetFocus
Exit Sub
End If
If cmbjenkel.Text = "" Then
MsgBox "jenis kelamin harus di isi", vbInformation, "Info"
cmbjenkel.SetFocus
Exit Sub
End If
If cmbagama.Text = "" Then
MsgBox "agama harus di isi", vbInformation, "Info"
cmbagama.SetFocus
Exit Sub
End If
If txtalamat.Text = "" Then
MsgBox "alamat harus di isi", vbInformation, "Info"
txtalamat.SetFocus
Exit Sub
End If
If txttelp.Text = "" Then
MsgBox "no telp harus di isi", vbInformation, "Info"
txttelp.SetFocus
Exit Sub
End If
If cmbstudy.Text = "" Then
MsgBox "study harus di isi", vbInformation, "Info"
cmbstudy.SetFocus
Exit Sub
End If
If tglmasuk.Value = "" Then
MsgBox "anggal masuk harus di isi", vbInformation, "Info"
tglmasuk.SetFocus
Exit Sub
End If
'validasi
Set rsmhs = New ADODB.Recordset
rsmhs.Open "select*from mahasiswa where nim ='" & txtnim.Text & "'", kn
If Not rsmhs.EOF Then
MsgBox "Nim sudah digunakan", vbInformation, "Info"
Exit Sub
End If
'proses simpan
Set rsmhs = New ADODB.Recordset
rsmhs.Open "insert into mahasiswa values ( '" & txtnim.Text & "' ,'" & txtnama.Text & "' , '" & tgllahir.Value & "' ,'" & cmbjenkel.Text & "' ,'" & cmbagama.Text & "' ,'" & txtalamat.Text & "' ,'" & txttelp.Text & "' ,'" & cmbstudy.Text & "' ,'" & tglmasuk.Value & "')", kn
Form_Activate
End Sub 

Tekan RUN / F5 untuk mencoba , coba validasinya juga isikan nim yang sama seperti data yang sudah tersimpan sebelumnya

Gambar jika data berhasil tersimpan akan muncul di datagrid

Gambar jika memasukan nim yang sama akan muncul pesan , dikarenakan nim adalah primary key dari tabel database , primary key tidak boleh sama dan harus dibuat seunik mungkin

Lanjut Bagian 3

Read More

Membuat Simpan Update Delete visual basic 6.0 database acces ( bagian 1)

Proses ini adalah kelanjutan dari Mengkoneksikan Visual Basic 6.0 dengan Ms.Acces

Untuk contoh database bisa diunduh Disini

1. Buat tampilan from dengan  properties (name) frmakademik

• 10 Label 
• 5 Textbox
• 2 DTPicker
• 3 Combobox
• 5 commandButton

Dengan keterangan :

•  LABEL

label 1

- caption : Nim

label 2

- caption : Nama

label 3

- caption : Tanggal Lahir

label 4

- caption : Jenis Kelamin

label 5

- caption : Agama

label 6

- caption : Alamat

label 7

- caption : Notelp

label 8

- caption : Study

label 9

- caption : Tanggal Masuk

label 10

- caption : Cari

Datagrid1

-(name) dgmahasiswa

• TEXTBOX

Text1

-(name) : txtnim

Text2

-(name) : txtnama

Text3

-(name) : txtalamat

Text4

-(name) : txttelp

Text5

-(name) : txtcari                

•  DTPICKER

DTPicker1

-(name) : tgllahir

DTPicker2

-(name) : tglmasuk

•  COMBOBOX

Combo1

-(name) : cmbjenkel

Combo2

-(name) : cmbagama

Combo3

-(name) :  cmbstudy

•  COMMADBUTTON

Command1

-(name) : cmdtambah

-caption : tambah

Command2

-(name) : cmdsimpan

-caption : simpan

Command3

-(name) : cmdbatal

-caption : batal

Command4

-(name) : cmdhapus

-caption : hapus

Command5        

-(name) : cmdkeluar

-caption : keluar            

2. Klik form 2x pada form_load         

           

3. Ketikan kode berikut

Private Sub Form_Load()
'memanggil sub kosongkan
kosongkan
'memanggil sub combo
combo
Call koneksi
'koneksi adalah sub yang kita buat di module tadi
End Sub

4. berkan kode berikut untuk mengkosongkan textbox dan mengisi combobox dengan kode , berikan dipaling bawah atau selelah kode form_load

Sub kosongkan()
'untuk mengkosongkan textbox
txtnim.Text = ""
txtnama.Text = ""
cmbjenkel.Text = ""
cmbagama.Text = ""
txtalamat.Text = ""
txttelp.Text = ""
cmbstudy.Text = ""
txtcari.Text = ""
End Sub

Sub combo()
'mengisi combobox
cmbjenkel.AddItem "Pria"
cmbjenkel.AddItem "Wanita"
cmbagama.AddItem "Islam"
cmbagama.AddItem "Kristen"
cmbagama.AddItem "Kristen Protistan"
cmbagama.AddItem "Budha"
cmbagama.AddItem "Hindu"
cmbagama.AddItem "Kong Hu Chu"
cmbstudy.AddItem "D3 - ABA"
cmbstudy.AddItem "D3 - MI"
cmbstudy.AddItem "S1 - ABA"
cmbstudy.AddItem "S1 - MI"
End Sub

Berikut kode lengkapnya

4. Tempatkan file database ms.acces tadi ke tempat dimana anda menyimpan file visual basic 6.0

5. Klik run / f5 jika tidak ada eror berarti koneksi anda sukses


lanjut Bagian 2

Read More

Mengkoneksikan visual basic dengan Ms. acces

Proses ini adalah kelanjutan dari Membuat Database Ms.Acces

Untuk contoh database bisa diunduh Disini

1. Buka visual basik 6.0

2. Klik project – references – microsoft activeX data object 2.6 library

3. Klik kanan pada project – add – module dengan properties (name) mdlakademik

4. Ketikan kode berikut untuk membuat koneksi ke database

5. Pada Form_load ketikan

Call Koneksi

6. Tekan F5 / RUN untuk Mencoba

Read More

Membuat Database Ms.acces

1.Buka ms.acces
2.Buat database  ms.accses dengan nama akademik
3.Simpan di tempat dimana anda menginginkanya dan mudah diingat
4.Buat tabel dengan primary key (nim)

5.Simpan tabel dengan nama mahasiswa

Read More