HARI INI

Macet menambah pelajaran kita mengenai satu kata "SABAR".

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