1 Mencari dewasa

sabar dan penuh rasa syukur atas nikmat nya.

Menerima semua kondisi dengan fikiran yg positif membuat hati tenang.

Hati tenang membuat segal perbuatan menjadi etis dan enak dipandng mesti terselip beberapa yang belum bisa di kontrol.

Jadikan segala kesalah menjadi sebuah pelajaran yang berharga, jangan siakan kesalah hanya dengan penyesalan tiada ujung.

Kembali bebahi diri, menjadi pribadi yang lebih dewasa lagi.

Komentar

Posting Komentar

Postingan populer dari blog ini

Latihan 39

Public Class Latihan39 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb") Dim dt As New DataTable Private Sub Latihan39_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & NOTRANS070.Text & "'", A) X.Fill(dt) X.Dispose() Dim dataPrimary(1) As DataColumn dataPrimary(0) = dt.Columns("KODEBARANG") dt.PrimaryKey = dataPrimary DGV070.DataSource = dt End Sub Private Sub TOTALJUMLAH()
Baca selengkapnya

Warna Kebaikan

Gambar
Mewarnai hidup, menjadi lebih indah dan beragam dengan segala hal yang baik. Kita dapat mengibaratkan warna itu sebagai kebaikan, jika semakin banyak warna yang saling berdampingan layaknya pelangi. Maka Semakin indah pula kita melihatnya. Semakin banyak kebaikan yang kita lakukan, maka akan semakin indah hidup ini kita akan lalui.
Baca selengkapnya