Rabu, 30 November 2011

Daftar Perusahaan - Bursa Kerja 2011

PT. NALCO INDONESIA
PT. TRAKINDO UTAMA
PT. ADIRA DINAMIKA MULTI FINANCE
PT. INDOMARCO PRISMATAMA
PT. MIDI UTAMA INDONESIA. TBK
PT. DONGGI SENORO LNG
PT. ADHI KARYA (Persero) Tbk
PT. NUSANTARA SURYA SAKTI
PT. BANK BTPN, Tbk
PT. PENERBIT ERLANGGA
PT. ASTRA INTERNATIONAL Tbk-Honda
PT. HOME CENTER INDONESIA
PT. FIF
PT. PLN Persero
Bank Mandiri
PT. Sumber Alfaria Trijaya, Tbk
PT. EPFM
PT. KALLA RENT
PT. KALLA TOYOTA
PT. CHAROEN
PT. SATWA UTAMA
PT. BINTANG SEJAHTERA

Senin, 28 November 2011

Latihan 39 APKOM 4

Public Class LATIHAN039012
'DEKLARASI CONECTION
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar

Private Sub Latihan039012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DT.Columns.Add(New DataColumn("KODEBARANG", GetType(String))) 'untuk angka
DT.Columns.Add(New DataColumn("NAMABARANG", GetType(String))) 'untuk angka
DT.Columns.Add(New DataColumn("UNIT", GetType(Double))) 'untuk angka
DT.Columns.Add(New DataColumn("HARGA", GetType(Integer))) 'untuk angka
DT.Columns.Add(New DataColumn("JUMLAH", GetType(Double)))
DataGridView1.DataSource = DT
'datagridwiew digunakan untuk menampilkan tabel yg sdh dibuat jika tdk maka tabel tdk akn muncul

'rumus dibwh ini untuk membuat primary key dimana dcp adalah nama sembarangji
Dim dcp(1) As DataColumn
dcp(0) = DT.Columns("KODEBARANG")
DT.PrimaryKey = dcp

DT.Columns("UNIT").DefaultValue = 0
DT.Columns("HARGA").DefaultValue = 0
DT.Columns("JUMLAH").DefaultValue = 0

End Sub
Private Sub hitung()
Dim manis As Integer
For Each r As DataGridViewRow In DataGridView1.Rows
manis = manis + r.Cells("JUMLAH").Value
Next
Tot.Text = manis

End Sub

Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
If e.ColumnIndex = 0 Then
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("BARANG", "kodebarang", DataGridView1.CurrentRow.Cells("kodebarang").Value, 1, CONECT) '1 untuk huruf
If cari.JumlanBaris > 0 Then
DataGridView1.CurrentRow.Cells("KODEBARANG").Value = cari.DataTablenya.Rows(0).Item("KODEBARANG")
DataGridView1.CurrentRow.Cells("NAMABARANG").Value = cari.DataTablenya.Rows(0).Item("NamaBarang")
Else
MsgBox("kode barang tidak tersedia")
If Latihan383940012.ShowDialog = Windows.Forms.DialogResult.OK Then
DataGridView1.CurrentRow.Cells("KODEBARANG").Value = Latihan383940012.DataGridView1.CurrentRow.Cells("KodeBarang").Value
DataGridView1.CurrentRow.Cells("NAMABARANG").Value = Latihan383940012.DataGridView1.CurrentRow.Cells("namabarang").Value
DataGridView1.CurrentRow.Cells("HARGA").Value = Latihan383940012.DataGridView1.CurrentRow.Cells("HARGAJUAL").Value
Else
DataGridView1.CurrentRow.Cells("KODEBARANG").Value = ""
DataGridView1.CurrentRow.Cells("NAMABARANG").Value = ""
End If
End If
End If
If e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
DataGridView1.CurrentRow.Cells("JUMLAH").Value = DataGridView1.CurrentRow.Cells("UNIT").Value * DataGridView1.CurrentRow.Cells("HARGA").Value

End If

hitung()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If TextBox1.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("no transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If


If jt.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("jenis transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If

If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If

'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, CONECT)

If cari.JumlanBaris > 0 Then
MsgBox("kode sudah ada")
Exit Sub
End If



'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(jt.Text) & ")", CONECT)

CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()

For Each r As DataRow In DT.Rows

com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()

com.Dispose()

Next

TextBox1.Text = ""
jt.Text = ""
Tot.Text = ""

DT.Rows.Clear()
hitung()
End Sub
End Class

Senin, 21 November 2011

Latihan 35 APKOM 4

Public Class LATIHAN035012
'DEKLARASI CONECTION
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=25")
'deklarasi data tabel
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar


Private Sub LATIHAN035012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'deklarasi adapter
Dim nisa As New OleDb.OleDbDataAdapter
nisa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces
DT.Rows.Clear() 'membersihkan data table
nisa.Fill(DT) 'mengisi database ke dlm data table
DataGridView1.DataSource = DT 'memunculkan dlm datagridview

nisa.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If KB.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("kode barang belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If

If Val(UN.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("UNIT belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If

If Val(HR.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("HARGA belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If

'UNTUK MENYMPAN DATA YG DIMASUKKAN KE DALAM DATAGRIDVIEW
Dim drzany As DataRow

drzany = DT.NewRow ' menambah baris
drzany("KODEBARANG") = KB.Text
drzany("UNIT") = UN.Text
drzany("HARGA") = HR.Text

DT.Rows.Add(drzany)


KB.Text = ""
UN.Text = ""
HR.Text = ""


End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If TextBox1.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("no.transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If


If TextBox2.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("jenis transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If

'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, CONECT)

If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If

If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If

'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2.Text) & ")", CONECT)

CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()

For Each r As DataRow In DT.Rows

com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()

Next

DT.Rows.Clear()

TextBox1.Text = ""
TextBox2.Text = ""

End Sub
End Class

Kamis, 10 November 2011

Lowongan Kerja Akuntansi

Yth. Adinda Alumni Jurusan Akuntansi
yang berminat melamar kerja posisi akuntansi pada:
PT. LANGGENG ENERGY PRIMA (AGEN BBM INDUSTRI) dengan kualifikasi
mampu beradaptasi dengan Zahir Accounting ==> sejenis MYOB Accounting.

PT. CAHAYA SAGA UTAMA (Tambang Nikel) dengan kualifikasi mampu beradaptasi
dengan Accurate Accounting ==> sejenis MYOB Accounting.

Kirimkan Lamaran beserta CV dan yang lainnya ke email:

Langgeng_energy@yahoo.com
uldhypratama@gmail.com


Wassalam


Hasyim M

Rabu, 09 November 2011

Info Pelatihan 2

Info Pelatihan

Latihan form 27

Public Class LATIHAN027012

'dekklarasi connection
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb")
Dim cari As New ByIskandar.CariKeDataBaseByIskandar

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If Val(t1.Text) = 0 Then 'untuk pencarian yg bersifat angka
MsgBox("kode barang belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If

If t2.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf
MsgBox("nama barang belum terisi")
Exit Sub
End If

If Val(t3.Text) = 0 Then
MsgBox("harga jual belum diisi")
Exit Sub
End If

If Val(t4.Text) = 0 Then
MsgBox("jumlah barang belum diisi")
Exit Sub
End If

'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("BARANG", "KODEBARANG", t1.Text, 1, conect)

If cari.JumlanBaris > 0 Then
MsgBox("kode sudah ada")
Exit Sub
End If

'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1.Text & "','" & t2.Text & "'," & Val(t3.Text) & "," & Val(t4.Text) & ")", conect)

conect.Open()
com.ExecuteNonQuery()
conect.Close()
com.Dispose()

t1.Text = ""
t2.Text = ""
t3.Text = ""
t4.Text = ""

End Sub
End Class

Jumat, 04 November 2011

Tugas Untuk SQL insert, delete, Update

Tugas yang berkaitan dengan materi sql insert, delete, dan update disiapkan posting untuk pengumpulan tugas mulai Latihan 27 sampai dengan 34

terima kasih



Hasyim M.


Catatan: Buat yang lebih awal mempelajari penggunaan login user.... silahkan cari materi penggunaan MDI (Multiple document Int...) kalo ada kurang jelas... dan ada waktu kita bisa diskusikan lebih lanjut....

Rabu, 02 November 2011

Lowongan Kerja BNI Syariah




Info lebih lanjut Hubungi UPT HI Politeknik Negeri Ujung Pandan

ABDUL KADIR MUHAMMAD (085 256 368 240)