Program Sederhana Kalender "my memo" Dengan Menggunakan Visual Basic

Program kalender MY MEMO adalah program yang dibuat dengan menggunakan program Visual Basic 6.0, program ini terdiri dari sebuah form yang berisi 2(dua) label, 1(satu) timer, 3(tiga) command button, 1(satu) textbox dan kalender itu sendiri. Kalender yang digunakan adalah hasil dari penambahan component dalam project Visual Basic yang bernama Microsoft Calender Control 12.0. Selain itu, program ini juga tediri dari sebuah tabel database yang bernama BukuHarian.mdb (dengan nama table juga sama BukuHarian). 

Mari kita buat programnya.

Langkah pertama yang kita lakukan adalah membuat design tampilan pada form Visual Basic 6.0 seperti apa. Kalian bisa membuatnya sendiri atau bisa juga ikuti pola pada gambar di bawah ini.

Berikut adalah rincian toolbox yang digunakan:

 

Berikut adalah rincian tabel yang digunakan:

 

Nah, buatlah listing porogramnya seperti di bawah ini.

Option Explicit

Dim db As DAO.Database

Dim rs As DAO.Recordset

Private Sub CalBUKUHARIAN_Click()

Set db = DBEngine.OpenDatabase(App.Path & "\Bukuharian.mdb")

Set rs = db.OpenRecordset("Bukuharian", dbOpenTable)

rs.Index = "Tgl"

rs.Seek "=", CalBUKUHARIAN.Value

If Not rs.NoMatch = True Then

txtMEMO.Text = rs!Memo

Else

txtMEMO.Text = " "

End If

End Sub

Private Sub cmdHapus_Click()

Set db = DBEngine.OpenDatabase(App.Path & "\Bukuharian.mdb")

Set rs = db.OpenRecordset("Bukuharian", dbOpenTable)

rs.Index = "Tgl"

rs.Seek "=", CalBUKUHARIAN.Value

If Not rs.NoMatch = True Then

rs.Delete

MsgBox "Memo tanggal " & _

Format(CalBUKUHARIAN.Value, "dd-mm-yyyy") & _

"telah dihapus ! ", vbInformation, "BUKU HARIAN"

txtMEMO.Text = " "

txtMEMO.SetFocus

Else

MsgBox "Tidak ada memo pada tanggal " & _

Format(CalBUKUHARIAN.Value, "dd-mm-yyyy"), vbInformation, _

"BUKU HARIAN"

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdSIMPAN_Click()

Dim X As Integer

Set db = DBEngine.OpenDatabase(App.Path & "\Bukuharian.mdb")

Set rs = db.OpenRecordset("Bukuharian", dbOpenTable)

If txtMEMO.Text = " " Then

MsgBox "Anda belum mengisi kotak memo!", vbInformation, "BUKU HARIAN"

txtMEMO.SetFocus

Else

rs.Index = "Tgl"

rs.Seek "=", CalBUKUHARIAN.Value

If rs.NoMatch = True Then

rs.AddNew

rs!tgl = CalBUKUHARIAN.Value

rs!Memo = txtMEMO.Text

rs.Update

MsgBox "Memo anda telah tersimpan!", vbInformation, "BUKU HARIAN"

txtMEMO.Text = " "

txtMEMO.SetFocus

Else

X = MsgBox("Memo pada tanggal " & _

Format(CalBUKUHARIAN.Value, "dd-mm-yyyy") & _

"sudah ada, " & vbCrLf & _

"tekan YES jika anda ingin mengoreksi!", vbYesNo, _

"BUKU HARIAN")

If X = vbYes Then

rs.Edit

rs!tgl = CalBUKUHARIAN.Value

rs!Memo = txtMEMO.Text

rs.Update

MsgBox "Memo anda sudah dikoreksi", vbInformation, "BUKU HARIAN"

txtMEMO.Text = " "

txtMEMO.SetFocus

End If

End If

End If

End Sub

Private Sub Form_Activate()

Set db = DBEngine.OpenDatabase(App.Path & "\Bukuharian.mdb")

Set rs = db.OpenRecordset("Bukuharian", dbOpenTable)

If txtMEMO.Visible = True Then

txtMEMO.SetFocus

CalBUKUHARIAN.Day = Day(Now)

CalBUKUHARIAN.Month = Month(Now)

CalBUKUHARIAN.Year = Year(Now)

rs.Index = "Tgl"

rs.Seek "=", CalBUKUHARIAN.Value

If Not rs.NoMatch = True Then

txtMEMO.Text = rs!Memo

End If

End If

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Format(Date, "mmmm d, yyyy")

Label2.Caption = Time

End Sub

Source: http://restyucul.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Program Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.