Programer Go Blogs !!

Created By Rahmad Hidayat

Contoh Tampilan Program :

Penjelasan Coding Program :

'deklarasi variabel cn dan rs

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Sub klir()

Text1 = ""

Text2 = ""

Text3 = ""

Option1.Value = False

Option2.Value = False

Option3.Value = False

Text4 = ""

Image1.Picture = LoadPicture("")

Combo1 = ""

DataGrid1.ClearFields

End Sub

Sub perubahan()

If Option3.Value = True Then

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

rs.Open "select * from tblsiswa", cn, adOpenKeyset

Set DataGrid1.DataSource = rs

Else

DataGrid1.ClearFields

End If

End Sub

Private Sub Command1_Click()

'deklarasi variabel kelamin

Dim kelamin As String 'atau bisa dituliskan dengan "Dim kelamin$"

'jika option1 bernilai benar, maka variabel kelamin bernilai Laki-Laki

If Option1.Value = True Then

kelamin = "Laki-Laki"

'selain itu, jika option1 bernilai benar, maka variabel kelamin bernilai Perempuan

ElseIf Option2.Value = True Then

kelamin = "Perempuan"

'jika tidak ada option bernilai benar,

'maka variabel kelamin bernilai Hilang karna Operasi

Else

kelamin = "Hilang karna Operasi"

End If

'jika text1 tidak kosong, lakukan perintah selanjutnya

If Text1 <> "" Then

Set rs = New ADODB.Recordset

rs.Open "select * from tblsiswa where nim='" & Text1 & "'", cn, adOpenKeyset

'jika field didatabase masih belum ada, lakukan penyimpanan field

If rs.RecordCount = 0 Then

cn.Execute "insert into tblsiswa values('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & kelamin & "','" & Text4 & "','" & comd.FileName & "')"

MsgBox "" & vbCrLf & _

"NIM : " & Text1 & vbCrLf & _

"Nama : " & Text2 & vbCrLf & _

"Alamat : " & Text3 & vbCrLf & _

"Jenis Kelamin : " & kelamin & vbCrLf & _

"Telpon : " & Text4 & vbCrLf & _

"" & vbCrLf & _

"Telah tersimpan kedatabase", , "Sukses"

'Update isi combo melalui text1

Combo1.AddItem Text1

'bersihkan tampilan dan kembali ke text1

Call klir

Text1.SetFocus

'jika field didatabase sudah ada, lakukan pemberitahuan

Else

MsgBox "Data ada !!", , "Informasi"

End If

'jika text1 kosong, keluar dari sub serta focus kembali pada text1

Else

Exit Sub

Text1.SetFocus

End If

End Sub

Private Sub Command2_Click()

'deklarasi variabel kelamin

Dim kelamin As String 'atau bisa dituliskan dengan "Dim kelamin$"

'jika option1 bernilai benar, maka variabel kelamin bernilai Laki-Laki

If Option1.Value = True Then

kelamin = "Laki-Laki"

'selain itu, jika option1 bernilai benar, maka variabel kelamin bernilai Perempuan

ElseIf Option2.Value = True Then

kelamin = "Perempuan"

'jika tidak ada option bernilai benar,

'maka variabel kelamin bernilai Hilang karna Operasi

Else

kelamin = "Hilang karna Operasi"

End If

'jika text1 tidak kosong, lakukan perintah selanjutnya

If Text1 <> "" Then

Set rs = New ADODB.Recordset

rs.Open "select * from tblsiswa where nim='" & Text1 & "'", cn, adOpenKeyset

'jika field didatabase ada, lakukan perubahan field

If rs.RecordCount <> 0 Then

cn.Execute "update tblsiswa set nim='" & Text1 & "',nama='" & Text2 & "',alamat='" & Text3 & "',jenis_kelamin='" & kelamin & "',telp='" & Text4 & "',gambar='" & comd.FileName & "' where nim='" & Text1 & "'"

MsgBox "" & vbCrLf & _

"NIM : " & Text1 & vbCrLf & _

"Nama : " & Text2 & vbCrLf & _

"Alamat : " & Text3 & vbCrLf & _

"Jenis Kelamin : " & kelamin & vbCrLf & _

"Telpon : " & Text4 & vbCrLf & _

"" & vbCrLf & _

"Perubahan field berhasil disimpan kedatabase", , "Sukses"

Option3.Value = False

'refresh combo1

Combo1.Refresh

'bersihkan tampilan dan kembali ke text1

Call klir

Text1.SetFocus

'jika field didatabase tidak tersedia, lakukan pemberitahuan

Else

MsgBox "Data yang akan di edit tidak tersedia !!", , "Informasi"

End If

'jika text1 kosong, keluar dari sub serta focus kembali pada text1

Else

Exit Sub

Text1.SetFocus

End If

End Sub

Private Sub Command3_Click()

Set rs = New ADODB.Recordset

rs.Open "select * from tblsiswa where nim='" & Text1 & "'", cn, adOpenKeyset

'jika field didatabase ada, hapus field menurut nilai text1

If rs.RecordCount <> 0 Then

cn.Execute "delete from tblsiswa where nim='" & Text1 & "'"

MsgBox "Data yang dimaksud telah dihapus dari database !", , "Sukses"

Call klir

Combo1.Clear 'mengosongkan combo1

Call isicombo 'memanggil kembali item combo1

Text1.SetFocus

'jika field didatabase tidak ada, keluar dari sub

Else

Exit Sub

End If

End Sub

Private Sub Command4_Click()

Call klir

Text1.SetFocus

End Sub

Private Sub Command5_Click()

comd.Filter = "Images File|*.jpg;*.bmp;*.gif"

comd.ShowOpen

Image1.Picture = LoadPicture(comd.FileName)

End Sub

Private Sub Form_Load()

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"

Call isicombo

End Sub

Sub isicombo()

Set rs = New ADODB.Recordset

rs.Open "select * from tblsiswa", cn, adOpenKeyset

'jika field didatabase tidak kosong, lakukan perulangan (Do...Loop)

If rs.RecordCount <> 0 Then

Do While rs.EOF = False

Combo1.AddItem rs!nim

rs.MoveNext

Loop

'jika field didatabase kosong, keluar dari sub

Else

Exit Sub

End If

End Sub

Private Sub Combo1_Click()

'deklarasi variabel kelamin bertipe data string

Dim kelamin$

Option3.Value = False

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

rs.Open "select * from tblsiswa where nim='" & Combo1 & "'", cn, adOpenKeyset

'jika field didatabase ada, tampilkan di text1,text2, text3,option button dan text4

If rs.RecordCount <> 0 Then

Set DataGrid1.DataSource = rs

Text1 = Combo1

Text2 = rs!nama

Text3 = rs!alamat

kelamin = rs!jenis_kelamin

'jika variabel kelamin bernilai laki-laki, maka option1 bernilai true

If kelamin = "Laki-Laki" Then

Option1.Value = True

'selain itu, jika variabel kelamin bernilai perempuan, maka option2 bernilai true

ElseIf kelamin = "Perempuan" Then

Option2.Value = True

'jika tidak ada sama sekali, maka option1 dan option2 bernilai false

Else

Option1.Value = False

Option2.Value = False

End If

Text4 = rs!telp

On Error Resume Next

Image1.Picture = LoadPicture(rs!gambar)

'jika field didatabase tidak ada, fokus pada text2

Else

Text2.SetFocus

End If

End Sub

Private Sub Option3_Click()

Combo1 = ""

Call perubahan

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

'deklarasi variabel kelamin bertipe data string

Dim kelamin$

'jika text1 di enter, lakukan perintah dibawah

If KeyAscii = 13 Then

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

rs.Open "select * from tblsiswa where nim='" & Text1 & "'", cn, adOpenKeyset

'jika field didatabase ada, tampilkan di text1,text2, text3,option button dan text4

If rs.RecordCount <> 0 Then

Text2 = rs!nama

Text3 = rs!alamat

kelamin = rs!jenis_kelamin

'jika variabel kelamin bernilai laki-laki, maka option1 bernilai true

If kelamin = "Laki-Laki" Then

Option1.Value = True

'selain itu, jika variabel kelamin bernilai perempuan, maka option2 bernilai true

ElseIf kelamin = "Perempuan" Then

Option2.Value = True

'jika tidak ada sama sekali, maka option1 dan option2 bernilai false

Else

Option1.Value = False

Option2.Value = False

End If

Text4 = rs!telp

On Error Resume Next

Image1.Picture = LoadPicture(rs!gambar)

'jika field didatabase tidak ada, fokus pada text2

ElseIf rs.RecordCount = 0 And Combo1 = "" Then

Set DataGrid1.DataSource = rs

End If

End If

End Sub

Hasil Program saat running…