REBORN FOR "APERDU CORP"

SEMOGA SUKSES UNTUK USAHA KALI INI. SEMUNGUT

Komentar

Posting Komentar

Postingan populer dari blog ini

Hikmah Kematian

Kehidupan berlangsung tanpa disadari dari detik ke detik. Apakah anda tidak menyadari bahwa hari-hari yang anda lewati justru semakin mendekatkan anda kepada kematian sebagaimana juga yang berlaku bagi orang lain? Seperti yang tercantum dalam ayat “ Tiap-tiap yang berjiwa akan merasakan mati. Kemudian hanyalah kepada Kami kamu dikembalikan .” (QS. 29:57) tiap orang yang pernah hidup di muka bumi ini ditakdirkan untuk mati. Tanpa kecuali, mereka semua akan mati, tiap orang. Saat ini, kita tidak pernah menemukan jejak orang-orang yang telah meninggal dunia. Mereka yang saat ini masih hidup dan mereka yang akan hidup juga akan menghadapi kematian pada hari yang telah ditentukan. Walaupun demikian, masyarakat pada umumnya cenderung melihat kematian sebagai suatu peristiwa yang terjadi secara kebetulan saja. Coba renungkan seorang bayi yang baru saja membuka matanya di dunia ini dengan seseorang yang sedang mengalami sakaratul maut. Keduanya sama sekali tidak berkuasa terhadap kelahiran...
Baca selengkapnya

Latihan 35

Public Class Latihan35 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 Latihan35_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 KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & nt070.Text & "'", A) X.Fill(dt) X.Dispose() dgv070.DataSource = dt End Sub Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click 'a' If kb070.Text.Length = 0 Then MsgBox("Kode barang sudah ada") Exit Sub End If If Val(unit070.Text) = 0 Then MsgBox("Masukkan Harga barang") ...
Baca selengkapnya

Latihan 383940

Public Class Latihan383940 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb") Dim dt As New DataTable Public Sub nurlina() Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select * From BARANG", A) dt.Rows.Clear() X.Fill(dt) X.Dispose() End Sub Private Sub Latihan383940_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load nurlina() DGV070.DataSource = dt End Sub End Class
Baca selengkapnya