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).
Berikut adalah rincian toolbox yang digunakan:
Berikut adalah rincian tabel yang digunakan:
Nah, buatlah listing porogramnya seperti di bawah ini.
Nama Kontrol | Property | Nilai Property |
Form | Name | frmBUKUHARIAN |
Calender | Name | CalBUKUHARIAN |
Textbox | Name Multiline | TxtBUKUHARIAN True |
Command1 | Name Caption | cmdSIMPAN SIMPAN |
Command2 | Name Caption | CmdHAPUS HAPUS |
Command3 | Name Caption | cmdKELUAR KELUAR |
Label1 | Name Caption | Label1 - |
Label2 | Name Caption | Label2 - |
Berikut adalah rincian tabel yang digunakan:
Nama Field | Data Type | Keterangan |
Tgl | Date/time | Field ini dibuat sebagai index dengan nama yang sama,Tgl. |
Memo | Memo | - |
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
Nah itulah listing programnya. Selamat mencoba. Semoga bermanfaat. :)
0 comments:
Posting Komentar